[GB.DB]
* BUG: Don't crash anymore when releasing database objects. git-svn-id: svn://localhost/gambas/trunk@5987 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
parent
572a7ba1b1
commit
0ce3cc69fb
1 changed files with 4 additions and 0 deletions
|
@ -73,11 +73,15 @@ static CSUBCOLLECTION *_current = NULL;
|
||||||
|
|
||||||
static void clear_one(void *data)
|
static void clear_one(void *data)
|
||||||
{
|
{
|
||||||
|
CSUBCOLLECTION *save = _current;
|
||||||
|
|
||||||
if (_current->desc->release)
|
if (_current->desc->release)
|
||||||
(*_current->desc->release)(_current->container, data);
|
(*_current->desc->release)(_current->container, data);
|
||||||
|
|
||||||
//fprintf(stderr, "clear: %p\n", data);
|
//fprintf(stderr, "clear: %p\n", data);
|
||||||
GB.Unref(&data);
|
GB.Unref(&data);
|
||||||
|
|
||||||
|
_current = save;
|
||||||
}
|
}
|
||||||
|
|
||||||
static void clear_subcollection(CSUBCOLLECTION *_object)
|
static void clear_subcollection(CSUBCOLLECTION *_object)
|
||||||
|
|
Loading…
Reference in a new issue