mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 03:00:25 +00:00
Prevent errors when doing internal lbound/ubound checks
This commit is contained in:
parent
84571d8900
commit
8d9cd83f6a
|
@ -941,12 +941,24 @@ inline int16 func_abs(int16 d){return abs(d);}
|
||||||
inline int32 func_abs(int32 d){return abs(d);}
|
inline int32 func_abs(int32 d){return abs(d);}
|
||||||
inline int64 func_abs(int64 d){return llabs(d);}
|
inline int64 func_abs(int64 d){return llabs(d);}
|
||||||
|
|
||||||
|
extern int32 disableEvents;
|
||||||
|
|
||||||
ptrszint check_lbound(ptrszint *array,int32 index, int32 num_indexes) {
|
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) {
|
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) {
|
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_confirmed;
|
||||||
extern int64 display_lock_released;
|
extern int64 display_lock_released;
|
||||||
|
|
||||||
extern int32 disableEvents;
|
|
||||||
|
|
||||||
uint32 r;
|
uint32 r;
|
||||||
void evnt(uint32 linenumber, uint32 inclinenumber = 0, const char* incfilename = NULL){
|
void evnt(uint32 linenumber, uint32 inclinenumber = 0, const char* incfilename = NULL){
|
||||||
if (disableEvents) return;
|
if (disableEvents) return;
|
||||||
|
|
Loading…
Reference in a new issue