luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[INTERPRETER]

Browse source 
* BUG: Eval("Me") does not crash anymore.


git-svn-id: svn://localhost/gambas/trunk@3936 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2011-07-14 18:30:12 +00:00
parent 7b712c4517
commit 91ec8a1ef5
2 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
main/gbx/gbx_debug.c
View file

@ -113,7 +113,7 @@ void DEBUG_init(void)
LIBRARY_get_interface_by_name("gb.debug", DEBUG_INTERFACE_VERSION, &DEBUG);
DEBUG_info = DEBUG.Init((GB_DEBUG_INTERFACE *)(void *)GAMBAS_DebugApi, EXEC_fifo, EXEC_fifo_name);
if (!DEBUG_info)
ERROR_panic("Cannot initializing debug mode");
}

19
main/gbx/gbx_exec_loop.c
View file

@ -695,15 +695,18 @@ _PUSH_ME:
if (UNLIKELY(GET_UX() & 1))
{
if (DEBUG_info->op)
if (DEBUG_info)
{
SP->_object.class = DEBUG_info->cp;
SP->_object.object = DEBUG_info->op;
}
else if (DEBUG_info->cp)
{
SP->type = T_CLASS;
SP->_class.class = DEBUG_info->cp;
if (DEBUG_info->op)
{
SP->_object.class = DEBUG_info->cp;
SP->_object.object = DEBUG_info->op;
}
else if (DEBUG_info->cp)
{
SP->type = T_CLASS;
SP->_class.class = DEBUG_info->cp;
}
}
else
SP->type = T_NULL;