[INTERPRETER]
* BUG: Fix enumeration abortion. git-svn-id: svn://localhost/gambas/trunk@4474 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
parent
7a3021909e
commit
859a04ba8c
@ -1036,7 +1036,7 @@ void GB_Attach(void *object, void *parent, const char *name)
|
|||||||
|
|
||||||
void GB_StopEnum(void)
|
void GB_StopEnum(void)
|
||||||
{
|
{
|
||||||
/* Do not forget than event if we stop the enumeration, the return value
|
/* Do not forget than even if we stop the enumeration, the return value
|
||||||
of _next will be converted
|
of _next will be converted
|
||||||
*/
|
*/
|
||||||
//VALUE_default(&TEMP, *GAMBAS_ReturnType);
|
//VALUE_default(&TEMP, *GAMBAS_ReturnType);
|
||||||
|
@ -85,10 +85,10 @@ bool EXEC_enum_next(PCODE code)
|
|||||||
|
|
||||||
if (!defined && !drop && !cenum->stop)
|
if (!defined && !drop && !cenum->stop)
|
||||||
VALUE_conv_variant(&SP[-1]);
|
VALUE_conv_variant(&SP[-1]);
|
||||||
}
|
|
||||||
|
|
||||||
if (drop || cenum->stop)
|
if (drop || cenum->stop)
|
||||||
POP();
|
POP();
|
||||||
|
}
|
||||||
|
|
||||||
return cenum->stop;
|
return cenum->stop;
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user