#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
void SUB_GL_INCLUDE_CONTENT(){
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs *tqbs;
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
ptrszint tmp_long;
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
int32 tmp_fileno;
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
#include "data193.txt"
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
mem_lock *sf_mem_lock;
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
new_mem_lock();
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
sf_mem_lock=mem_lock_tmp;
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
sf_mem_lock->type=3;
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
libqb_check_stack();
#line 331 "subs_functions/extensions/opengl/opengl_methods.bas"
if (is_error_pending()) goto exit_subfunc;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
S_39313:;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_value3887= 1 ;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_finalvalue3887=*__LONG_GL_DEFINES_LAST;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_step3887= 1 ;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
if (fornext_step3887<0) fornext_step_negative3887=1; else fornext_step_negative3887=0;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
if (is_error_pending()) goto fornext_error3887;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
goto fornext_entrylabel3887;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
while(1){
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_value3887=fornext_step3887+(*_SUB_GL_INCLUDE_CONTENT_LONG_D);
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_entrylabel3887:
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
*_SUB_GL_INCLUDE_CONTENT_LONG_D=fornext_value3887;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
if (fornext_step_negative3887){
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
if (fornext_value3887<fornext_finalvalue3887) break;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
}else{
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
if (fornext_value3887>fornext_finalvalue3887) break;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
}
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_error3887:;
#line 334 "subs_functions/extensions/opengl/opengl_methods.bas"
if(qbevent){evnt(28803,334,"opengl_methods.bas");if(r)goto S_39313;}
#line 335 "subs_functions/extensions/opengl/opengl_methods.bas"
S_39314:;
#line 335 "subs_functions/extensions/opengl/opengl_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc((((qbs**)(__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()){
#line 335 "subs_functions/extensions/opengl/opengl_methods.bas"
if(qbevent){evnt(28803,335,"opengl_methods.bas");if(r)goto S_39314;}
#line 336 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 336 "subs_functions/extensions/opengl/opengl_methods.bas"
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]);
#line 336 "subs_functions/extensions/opengl/opengl_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long],qbs_add(qbs_new_txt_len("_",1),(((qbs**)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])));
#line 336 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 336 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,336,"opengl_methods.bas");}while(r);
#line 337 "subs_functions/extensions/opengl/opengl_methods.bas"
}
#line 338 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 338 "subs_functions/extensions/opengl/opengl_methods.bas"
*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ;
#line 338 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,338,"opengl_methods.bas");}while(r);
#line 339 "subs_functions/extensions/opengl/opengl_methods.bas"
S_39318:;
#line 339 "subs_functions/extensions/opengl/opengl_methods.bas"
if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||is_error_pending()){
#line 339 "subs_functions/extensions/opengl/opengl_methods.bas"
if(qbevent){evnt(28803,339,"opengl_methods.bas");if(r)goto S_39318;}
#line 340 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 340 "subs_functions/extensions/opengl/opengl_methods.bas"
*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ;
#line 340 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,340,"opengl_methods.bas");}while(r);
#line 341 "subs_functions/extensions/opengl/opengl_methods.bas"
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--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=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];
}
#line 341 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,341,"opengl_methods.bas");}while(r);
#line 342 "subs_functions/extensions/opengl/opengl_methods.bas"
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--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=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];
}
#line 342 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,342,"opengl_methods.bas");}while(r);
#line 343 "subs_functions/extensions/opengl/opengl_methods.bas"
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--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=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];
}
#line 343 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,343,"opengl_methods.bas");}while(r);
#line 344 "subs_functions/extensions/opengl/opengl_methods.bas"
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];
}
#line 344 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,344,"opengl_methods.bas");}while(r);
#line 345 "subs_functions/extensions/opengl/opengl_methods.bas"
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];
}
#line 345 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,345,"opengl_methods.bas");}while(r);
#line 346 "subs_functions/extensions/opengl/opengl_methods.bas"
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];
}
#line 346 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,346,"opengl_methods.bas");}while(r);
#line 347 "subs_functions/extensions/opengl/opengl_methods.bas"
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];
}
#line 347 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,347,"opengl_methods.bas");}while(r);
#line 348 "subs_functions/extensions/opengl/opengl_methods.bas"
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--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=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];
}
#line 348 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,348,"opengl_methods.bas");}while(r);
#line 349 "subs_functions/extensions/opengl/opengl_methods.bas"
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];
}
#line 349 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,349,"opengl_methods.bas");}while(r);
#line 350 "subs_functions/extensions/opengl/opengl_methods.bas"
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];
}
#line 350 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,350,"opengl_methods.bas");}while(r);
#line 351 "subs_functions/extensions/opengl/opengl_methods.bas"
}
#line 352 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 352 "subs_functions/extensions/opengl/opengl_methods.bas"
*_SUB_GL_INCLUDE_CONTENT_LONG_I=*__LONG_CONSTLAST;
#line 352 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,352,"opengl_methods.bas");}while(r);
#line 353 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 353 "subs_functions/extensions/opengl/opengl_methods.bas"
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]);
#line 353 "subs_functions/extensions/opengl/opengl_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long],(((qbs**)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])]));
#line 353 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 353 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,353,"opengl_methods.bas");}while(r);
#line 354 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 354 "subs_functions/extensions/opengl/opengl_methods.bas"
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]);
#line 354 "subs_functions/extensions/opengl/opengl_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long],(((qbs**)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])]));
#line 354 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 354 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,354,"opengl_methods.bas");}while(r);
#line 355 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 355 "subs_functions/extensions/opengl/opengl_methods.bas"
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]);
#line 355 "subs_functions/extensions/opengl/opengl_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long],qbs_new_txt_len("&&",2));
#line 355 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 355 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,355,"opengl_methods.bas");}while(r);
#line 356 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 356 "subs_functions/extensions/opengl/opengl_methods.bas"
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]);
#line 356 "subs_functions/extensions/opengl/opengl_methods.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 356 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,356,"opengl_methods.bas");}while(r);
#line 357 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 357 "subs_functions/extensions/opengl/opengl_methods.bas"
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]);
#line 357 "subs_functions/extensions/opengl/opengl_methods.bas"
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])];
#line 357 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,357,"opengl_methods.bas");}while(r);
#line 358 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 358 "subs_functions/extensions/opengl/opengl_methods.bas"
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]);
#line 358 "subs_functions/extensions/opengl/opengl_methods.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]= 0 ;
#line 358 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,358,"opengl_methods.bas");}while(r);
#line 359 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 359 "subs_functions/extensions/opengl/opengl_methods.bas"
tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
#line 359 "subs_functions/extensions/opengl/opengl_methods.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ;
#line 359 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,359,"opengl_methods.bas");}while(r);
#line 361 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 361 "subs_functions/extensions/opengl/opengl_methods.bas"
SUB_HASHADD((((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])]),&(pass3888= 1024ll ),_SUB_GL_INCLUDE_CONTENT_LONG_I);
#line 361 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 361 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,361,"opengl_methods.bas");}while(r);
#line 362 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_continue_3886:;
#line 362 "subs_functions/extensions/opengl/opengl_methods.bas"
}
#line 362 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_exit_3886:;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
S_39341:;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_value3890= 1 ;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_finalvalue3890=*__LONG_GL_COMMANDS_LAST;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_step3890= 1 ;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
if (fornext_step3890<0) fornext_step_negative3890=1; else fornext_step_negative3890=0;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
if (is_error_pending()) goto fornext_error3890;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
goto fornext_entrylabel3890;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
while(1){
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_value3890=fornext_step3890+(*_SUB_GL_INCLUDE_CONTENT_LONG_C);
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_entrylabel3890:
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
*_SUB_GL_INCLUDE_CONTENT_LONG_C=fornext_value3890;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
if (fornext_step_negative3890){
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
if (fornext_value3890<fornext_finalvalue3890) break;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
}else{
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
if (fornext_value3890>fornext_finalvalue3890) break;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
}
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_error3890:;
#line 366 "subs_functions/extensions/opengl/opengl_methods.bas"
if(qbevent){evnt(28803,366,"opengl_methods.bas");if(r)goto S_39341;}
#line 367 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 367 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,367,"opengl_methods.bas");}while(r);
#line 376 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 376 "subs_functions/extensions/opengl/opengl_methods.bas"
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);
#line 376 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,376,"opengl_methods.bas");}while(r);
#line 378 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 378 "subs_functions/extensions/opengl/opengl_methods.bas"
*__LONG_REGINTERNALSUBFUNC= 1 ;
#line 378 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,378,"opengl_methods.bas");}while(r);
#line 379 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 379 "subs_functions/extensions/opengl/opengl_methods.bas"
SUB_CLEARID();
#line 379 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,379,"opengl_methods.bas");}while(r);
#line 380 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 380 "subs_functions/extensions/opengl/opengl_methods.bas"
*(int16*)(((char*)__UDT_ID)+((0+810)))= 1 ;
#line 380 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,380,"opengl_methods.bas");}while(r);
#line 381 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 381 "subs_functions/extensions/opengl/opengl_methods.bas"
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)));
#line 381 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 381 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,381,"opengl_methods.bas");}while(r);
#line 382 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 382 "subs_functions/extensions/opengl/opengl_methods.bas"
*_SUB_GL_INCLUDE_CONTENT_LONG_S=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+64)));
#line 382 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,382,"opengl_methods.bas");}while(r);
#line 383 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 383 "subs_functions/extensions/opengl/opengl_methods.bas"
*(int16*)(((char*)__UDT_ID)+((0+548)))=*_SUB_GL_INCLUDE_CONTENT_LONG_S;
#line 383 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,383,"opengl_methods.bas");}while(r);
#line 384 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 384 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+66))),64,1)));
#line 384 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 384 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,384,"opengl_methods.bas");}while(r);
#line 385 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 385 "subs_functions/extensions/opengl/opengl_methods.bas"
*(int16*)(((char*)__UDT_ID)+((0+813)))=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+130)));
#line 385 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,385,"opengl_methods.bas");}while(r);
#line 386 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 386 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1),qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+132))),80,1));
#line 386 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 386 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,386,"opengl_methods.bas");}while(r);
#line 387 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 387 "subs_functions/extensions/opengl/opengl_methods.bas"
*(int32*)(((char*)__UDT_ID)+((0+2385)))=*(int32*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+((0+212)));
#line 387 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,387,"opengl_methods.bas");}while(r);
#line 388 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 388 "subs_functions/extensions/opengl/opengl_methods.bas"
SUB_REGID();
#line 388 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,388,"opengl_methods.bas");}while(r);
#line 389 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 389 "subs_functions/extensions/opengl/opengl_methods.bas"
*__LONG_REGINTERNALSUBFUNC= 0 ;
#line 389 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,389,"opengl_methods.bas");}while(r);
#line 390 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_continue_3889:;
#line 390 "subs_functions/extensions/opengl/opengl_methods.bas"
}
#line 390 "subs_functions/extensions/opengl/opengl_methods.bas"
fornext_exit_3889:;
#line 395 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 395 "subs_functions/extensions/opengl/opengl_methods.bas"
*__LONG_REGINTERNALSUBFUNC= 1 ;
#line 395 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,395,"opengl_methods.bas");}while(r);
#line 396 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 396 "subs_functions/extensions/opengl/opengl_methods.bas"
SUB_CLEARID();
#line 396 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,396,"opengl_methods.bas");}while(r);
#line 397 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 397 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),qbs_new_txt_len("_gluPerspective",15));
#line 397 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 397 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,397,"opengl_methods.bas");}while(r);
#line 398 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 398 "subs_functions/extensions/opengl/opengl_methods.bas"
*(int16*)(((char*)__UDT_ID)+((0+548)))= 2 ;
#line 398 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,398,"opengl_methods.bas");}while(r);
#line 399 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 399 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),qbs_new_txt_len("gluPerspective",14));
#line 399 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 399 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,399,"opengl_methods.bas");}while(r);
#line 400 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 400 "subs_functions/extensions/opengl/opengl_methods.bas"
*(int16*)(((char*)__UDT_ID)+((0+813)))= 4 ;
#line 400 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,400,"opengl_methods.bas");}while(r);
#line 401 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 401 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),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)));
#line 401 "subs_functions/extensions/opengl/opengl_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 401 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,401,"opengl_methods.bas");}while(r);
#line 402 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 402 "subs_functions/extensions/opengl/opengl_methods.bas"
SUB_REGID();
#line 402 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,402,"opengl_methods.bas");}while(r);
#line 403 "subs_functions/extensions/opengl/opengl_methods.bas"
do{
#line 403 "subs_functions/extensions/opengl/opengl_methods.bas"
*__LONG_REGINTERNALSUBFUNC= 0 ;
#line 403 "subs_functions/extensions/opengl/opengl_methods.bas"
if(!qbevent)break;evnt(28803,403,"opengl_methods.bas");}while(r);
#line 405 "subs_functions/extensions/opengl/opengl_methods.bas"
exit_subfunc:;
#line 405 "subs_functions/extensions/opengl/opengl_methods.bas"
free_mem_lock(sf_mem_lock);
#line 405 "subs_functions/extensions/opengl/opengl_methods.bas"
#include "free193.txt"
#line 405 "subs_functions/extensions/opengl/opengl_methods.bas"
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;
#line 405 "subs_functions/extensions/opengl/opengl_methods.bas"
cmem_sp=tmp_cmem_sp;
#line 405 "subs_functions/extensions/opengl/opengl_methods.bas"
}
