void SUB_GL_INCLUDE_CONTENT(){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data130.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
S_34946:;
fornext_value4102= 1 ;
fornext_finalvalue4102=*__LONG_GL_DEFINES_LAST;
fornext_step4102= 1 ;
if (fornext_step4102<0) fornext_step_negative4102=1; else fornext_step_negative4102=0;
if (is_error_pending()) goto fornext_error4102;
goto fornext_entrylabel4102;
while(1){
fornext_value4102=fornext_step4102+(*_SUB_GL_INCLUDE_CONTENT_LONG_D);
fornext_entrylabel4102:
*_SUB_GL_INCLUDE_CONTENT_LONG_D=fornext_value4102;
if (fornext_step_negative4102){
if (fornext_value4102<fornext_finalvalue4102) break;
}else{
if (fornext_value4102>fornext_finalvalue4102) break;
}
fornext_error4102:;
if(qbevent){evnt(25753,334,"opengl_methods.bas");if(r)goto S_34946;}
S_34947:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])))!= 95 )))||is_error_pending()){
if(qbevent){evnt(25753,335,"opengl_methods.bas");if(r)goto S_34947;}
do{
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),qbs_add(qbs_new_txt_len("_",1),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,336,"opengl_methods.bas");}while(r);
}
do{
*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ;
if(!qbevent)break;evnt(25753,338,"opengl_methods.bas");}while(r);
S_34951:;
if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||is_error_pending()){
if(qbevent){evnt(25753,339,"opengl_methods.bas");if(r)goto S_34951;}
do{
*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ;
if(!qbevent)break;evnt(25753,340,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_STRING_CONSTNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTNAME[0];
preserve_old_flags=__ARRAY_STRING_CONSTNAME[2];
preserve_old_total=__ARRAY_STRING_CONSTNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTNAME[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTNAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTNAME[0]) error(257);
__ARRAY_STRING_CONSTNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTNAME[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTNAME[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTNAME[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,341,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_STRING_CONSTCNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTCNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTCNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTCNAME[0];
preserve_old_flags=__ARRAY_STRING_CONSTCNAME[2];
preserve_old_total=__ARRAY_STRING_CONSTCNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTCNAME[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTCNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTCNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTCNAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTCNAME[0]) error(257);
__ARRAY_STRING_CONSTCNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTCNAME[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTCNAME[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTCNAME[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTCNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,342,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAMESYMBOL)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTNAMESYMBOL[0];
preserve_old_flags=__ARRAY_STRING_CONSTNAMESYMBOL[2];
preserve_old_total=__ARRAY_STRING_CONSTNAMESYMBOL[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTNAMESYMBOL[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTNAMESYMBOL[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTNAMESYMBOL[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTNAMESYMBOL[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTNAMESYMBOL[0]) error(257);
__ARRAY_STRING_CONSTNAMESYMBOL[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTNAMESYMBOL[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTNAMESYMBOL[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTNAMESYMBOL[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTNAMESYMBOL[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,343,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_LONG_CONSTTYPE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTTYPE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_CONSTTYPE[2]&1){
preserve_old_ptr=__ARRAY_LONG_CONSTTYPE[0];
preserve_old_flags=__ARRAY_LONG_CONSTTYPE[2];
preserve_old_total=__ARRAY_LONG_CONSTTYPE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_CONSTTYPE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTTYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONSTTYPE[0]) error(257);
memset((void*)(__ARRAY_LONG_CONSTTYPE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTTYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONSTTYPE[0]) error(257);
}
}
__ARRAY_LONG_CONSTTYPE[2]|=1;
__ARRAY_LONG_CONSTTYPE[4]=alloc_new_desc[4];
__ARRAY_LONG_CONSTTYPE[5]=alloc_new_desc[5];
__ARRAY_LONG_CONSTTYPE[6]=alloc_new_desc[6];
__ARRAY_LONG_CONSTTYPE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,344,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER64_CONSTINTEGER)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&1){
preserve_old_ptr=__ARRAY_INTEGER64_CONSTINTEGER[0];
preserve_old_flags=__ARRAY_INTEGER64_CONSTINTEGER[2];
preserve_old_total=__ARRAY_INTEGER64_CONSTINTEGER[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*8);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER64_CONSTINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257);
memset((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*8);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER64_CONSTINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257);
}
}
__ARRAY_INTEGER64_CONSTINTEGER[2]|=1;
__ARRAY_INTEGER64_CONSTINTEGER[4]=alloc_new_desc[4];
__ARRAY_INTEGER64_CONSTINTEGER[5]=alloc_new_desc[5];
__ARRAY_INTEGER64_CONSTINTEGER[6]=alloc_new_desc[6];
__ARRAY_INTEGER64_CONSTINTEGER[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,345,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UINTEGER64_CONSTUINTEGER)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&1){
preserve_old_ptr=__ARRAY_UINTEGER64_CONSTUINTEGER[0];
preserve_old_flags=__ARRAY_UINTEGER64_CONSTUINTEGER[2];
preserve_old_total=__ARRAY_UINTEGER64_CONSTUINTEGER[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*8);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257);
memset((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*8);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257);
}
}
__ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1;
__ARRAY_UINTEGER64_CONSTUINTEGER[4]=alloc_new_desc[4];
__ARRAY_UINTEGER64_CONSTUINTEGER[5]=alloc_new_desc[5];
__ARRAY_UINTEGER64_CONSTUINTEGER[6]=alloc_new_desc[6];
__ARRAY_UINTEGER64_CONSTUINTEGER[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,346,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_FLOAT_CONSTFLOAT)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_FLOAT_CONSTFLOAT[2]&1){
preserve_old_ptr=__ARRAY_FLOAT_CONSTFLOAT[0];
preserve_old_flags=__ARRAY_FLOAT_CONSTFLOAT[2];
preserve_old_total=__ARRAY_FLOAT_CONSTFLOAT[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(32);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*32);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_FLOAT_CONSTFLOAT[0]=preserve_new_ptr;
}else{
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257);
memset((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*32);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_FLOAT_CONSTFLOAT[0]=preserve_new_ptr;
}else{
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257);
}
}
__ARRAY_FLOAT_CONSTFLOAT[2]|=1;
__ARRAY_FLOAT_CONSTFLOAT[4]=alloc_new_desc[4];
__ARRAY_FLOAT_CONSTFLOAT[5]=alloc_new_desc[5];
__ARRAY_FLOAT_CONSTFLOAT[6]=alloc_new_desc[6];
__ARRAY_FLOAT_CONSTFLOAT[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,347,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_STRING_CONSTSTRING[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTSTRING)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTSTRING[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTSTRING[0];
preserve_old_flags=__ARRAY_STRING_CONSTSTRING[2];
preserve_old_total=__ARRAY_STRING_CONSTSTRING[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTSTRING[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTSTRING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTSTRING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTSTRING[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTSTRING[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTSTRING[0]) error(257);
__ARRAY_STRING_CONSTSTRING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTSTRING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTSTRING[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTSTRING[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTSTRING[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTSTRING[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,348,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTSUBFUNC)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_CONSTSUBFUNC[2]&1){
preserve_old_ptr=__ARRAY_LONG_CONSTSUBFUNC[0];
preserve_old_flags=__ARRAY_LONG_CONSTSUBFUNC[2];
preserve_old_total=__ARRAY_LONG_CONSTSUBFUNC[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTSUBFUNC[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257);
memset((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTSUBFUNC[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257);
}
}
__ARRAY_LONG_CONSTSUBFUNC[2]|=1;
__ARRAY_LONG_CONSTSUBFUNC[4]=alloc_new_desc[4];
__ARRAY_LONG_CONSTSUBFUNC[5]=alloc_new_desc[5];
__ARRAY_LONG_CONSTSUBFUNC[6]=alloc_new_desc[6];
__ARRAY_LONG_CONSTSUBFUNC[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,349,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_LONG_CONSTDEFINED[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTDEFINED)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_CONSTDEFINED[2]&1){
preserve_old_ptr=__ARRAY_LONG_CONSTDEFINED[0];
preserve_old_flags=__ARRAY_LONG_CONSTDEFINED[2];
preserve_old_total=__ARRAY_LONG_CONSTDEFINED[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_CONSTDEFINED[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTDEFINED[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257);
memset((void*)(__ARRAY_LONG_CONSTDEFINED[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTDEFINED[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257);
}
}
__ARRAY_LONG_CONSTDEFINED[2]|=1;
__ARRAY_LONG_CONSTDEFINED[4]=alloc_new_desc[4];
__ARRAY_LONG_CONSTDEFINED[5]=alloc_new_desc[5];
__ARRAY_LONG_CONSTDEFINED[6]=alloc_new_desc[6];
__ARRAY_LONG_CONSTDEFINED[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,350,"opengl_methods.bas");}while(r);
}
do{
*_SUB_GL_INCLUDE_CONTENT_LONG_I=*__LONG_CONSTLAST;
if(!qbevent)break;evnt(25753,352,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,353,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,354,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long])),qbs_new_txt_len("&&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,355,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25753,356,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])];
if(!qbevent)break;evnt(25753,357,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(25753,358,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(25753,359,"opengl_methods.bas");}while(r);
do{
SUB_HASHADD(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])),&(pass4103= 1024ll ),_SUB_GL_INCLUDE_CONTENT_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,361,"opengl_methods.bas");}while(r);
fornext_continue_4101:;
}
fornext_exit_4101:;
S_34974:;
fornext_value4105= 1 ;
fornext_finalvalue4105=*__LONG_GL_COMMANDS_LAST;
fornext_step4105= 1 ;
if (fornext_step4105<0) fornext_step_negative4105=1; else fornext_step_negative4105=0;
if (is_error_pending()) goto fornext_error4105;
goto fornext_entrylabel4105;
while(1){
fornext_value4105=fornext_step4105+(*_SUB_GL_INCLUDE_CONTENT_LONG_C);
fornext_entrylabel4105:
*_SUB_GL_INCLUDE_CONTENT_LONG_C=fornext_value4105;
if (fornext_step_negative4105){
if (fornext_value4105<fornext_finalvalue4105) break;
}else{
if (fornext_value4105>fornext_finalvalue4105) break;
}
fornext_error4105:;
if(qbevent){evnt(25753,366,"opengl_methods.bas");if(r)goto S_34974;}
do{
if(!qbevent)break;evnt(25753,367,"opengl_methods.bas");}while(r);
do{
memcpy(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+0))+ 0,((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+0))+ 0, 216);
if(!qbevent)break;evnt(25753,376,"opengl_methods.bas");}while(r);
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(25753,378,"opengl_methods.bas");}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(25753,379,"opengl_methods.bas");}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+806)))= 1 ;
if(!qbevent)break;evnt(25753,380,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+0))),64,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,381,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_INCLUDE_CONTENT_LONG_S=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+64)));
if(!qbevent)break;evnt(25753,382,"opengl_methods.bas");}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+544)))=*_SUB_GL_INCLUDE_CONTENT_LONG_S;
if(!qbevent)break;evnt(25753,383,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+66))),64,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,384,"opengl_methods.bas");}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+809)))=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+130)));
if(!qbevent)break;evnt(25753,385,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+813))),400,1),qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+132))),80,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,386,"opengl_methods.bas");}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2381)))=*(int32*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+212)));
if(!qbevent)break;evnt(25753,387,"opengl_methods.bas");}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(25753,388,"opengl_methods.bas");}while(r);
do{
*__LONG_REGINTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(25753,389,"opengl_methods.bas");}while(r);
fornext_continue_4104:;
}
fornext_exit_4104:;
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(25753,395,"opengl_methods.bas");}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(25753,396,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),qbs_new_txt_len("_gluPerspective",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,397,"opengl_methods.bas");}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+544)))= 2 ;
if(!qbevent)break;evnt(25753,398,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),qbs_new_txt_len("gluPerspective",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,399,"opengl_methods.bas");}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+809)))= 4 ;
if(!qbevent)break;evnt(25753,400,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+813))),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,401,"opengl_methods.bas");}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(25753,402,"opengl_methods.bas");}while(r);
do{
*__LONG_REGINTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(25753,403,"opengl_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free130.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
}
