mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-02 23:31:21 +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 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;
|
||||
|
|
Loading…
Reference in a new issue