QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 13:50:36 +00:00
Code Issues Releases Wiki Activity

Prevent errors when doing internal lbound/ubound checks

Browse source
This commit is contained in:
FellippeHeitor 2021-09-30 22:40:57 -03:00
parent 84571d8900
commit 8d9cd83f6a
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
internal/c/qbx.cpp
View file

@ -941,12 +941,24 @@ inline int16 func_abs(int16 d){return abs(d);}
inline int32 func_abs(int32 d){return abs(d);}
inline int64 func_abs(int64 d){return llabs(d);}
extern int32 disableEvents;
ptrszint check_lbound(ptrszint *array,int32 index, int32 num_indexes) {
return func_lbound((ptrszint*)(*array),index,num_indexes);
static ptrszint ret;
disableEvents = 1;
ret = func_lbound((ptrszint*)(*array),index,num_indexes);
new_error=0;
disableEvents = 0;
return ret;
}
ptrszint check_ubound(ptrszint *array,int32 index, int32 num_indexes) {
return func_ubound((ptrszint*)(*array),index,num_indexes);
static ptrszint ret;
disableEvents = 1;
ret = func_ubound((ptrszint*)(*array),index,num_indexes);
new_error=0;
disableEvents = 0;
return ret;
}
uint64 call_getubits(uint32 bsize,ptrszint *array,ptrszint i) {
@ -2077,8 +2089,6 @@ extern int64 display_lock_request;
extern int64 display_lock_confirmed;
extern int64 display_lock_released;
extern int32 disableEvents;
uint32 r;
void evnt(uint32 linenumber, uint32 inclinenumber = 0, const char* incfilename = NULL){
if (disableEvents) return;