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

Fix access to objects that can be invalid.

Browse source 
[GB.JIT]
* BUG: Fix access to objects that can be invalid.
This commit is contained in:
gambas 2018-08-13 23:01:27 +02:00
parent 7a129a8d83
commit 698e5dd948
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
main/lib/jit/gb.jit/jit.h
View file

@ -295,7 +295,7 @@ enum
#define ADDR_CHECK(_check, _val) ({ \
char *_object = (_val).value; \
if (!_object) JIT.throw(E_NULL); \
if (((void (*)())_check)(_object)) JIT.throw(E_IOBJECT); \
if (((int (*)())_check)(_object)) JIT.throw(E_IOBJECT); \
_object; \
})

4
main/lib/jit/jit_body.c
View file

@ -904,7 +904,7 @@ static void push_unknown(int index)
if (_unsafe)
get_addr = STR_print("ADDR_UNSAFE(%s)", expr);
else if (class->must_check)
get_addr = STR_print("ADDR_CHECK(%p, %s)", class->must_check, expr);
get_addr = STR_print("ADDR_CHECK(%p, %s)", class->check, expr);
else
get_addr = STR_print("ADDR(%s)", expr);
@ -1028,7 +1028,7 @@ static void pop_unknown(int index)
if (_unsafe)
get_addr = STR_print("ADDR_UNSAFE(%s)", expr);
else if (class->must_check)
get_addr = STR_print("ADDR_CHECK(%p, %s)", class->must_check, expr);
get_addr = STR_print("ADDR_CHECK(%p, %s)", class->check, expr);
else
get_addr = STR_print("ADDR(%s)", expr);