int32 FUNC_DIM2(qbs*_FUNC_DIM2_STRING_VARNAME,qbs*_FUNC_DIM2_STRING_TYP2,int32*_FUNC_DIM2_LONG_METHOD,qbs*_FUNC_DIM2_STRING_ELEMENTS){
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 "data47.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
qbs_set(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17150);}while(r);
do{
*_FUNC_DIM2_LONG_DIM2= 1 ;
if(!qbevent)break;evnt(17151);}while(r);
S_19630:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(17153);if(r)goto S_19630;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3004;
sub_file_print(tmp_fileno,qbs_new_txt_len("dim2 called",11), 0, 1, 0);
if (is_error_pending()) goto skip3004;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_DIM2_LONG_METHOD)), 1, 0, 1);
if (is_error_pending()) goto skip3004;
skip3004:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(17153);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CVARNAME,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17155);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_L,_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17156);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_VARNAME,qbs_ucase(_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17157);}while(r);
S_19636:;
if ((-(*__INTEGER_DIMSFARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(17159);if(r)goto S_19636;}
do{
*_FUNC_DIM2_LONG_F= 0 ;
if(!qbevent)break;evnt(17159);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_F= 1 ;
if(!qbevent)break;evnt(17159);}while(r);
}
S_19641:;
if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||is_error_pending()){
if(qbevent){evnt(17161);if(r)goto S_19641;}
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(17164);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17165);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17166);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,qbs_add(qbs_add(qbs_add(__STRING_MODULE,qbs_new_txt_len("_",1)),__STRING_SUBFUNC),qbs_new_txt_len("_",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17170);}while(r);
S_19647:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(17173);if(r)goto S_19647;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("DIM2: No type specified!",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17173);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17173);}while(r);
}
S_19651:;
fornext_value3007= 1 ;
fornext_finalvalue3007=*__LONG_LASTTYPE;
fornext_step3007= 1 ;
if (fornext_step3007<0) fornext_step_negative3007=1; else fornext_step_negative3007=0;
if (is_error_pending()) goto fornext_error3007;
goto fornext_entrylabel3007;
while(1){
fornext_value3007=fornext_step3007+(*_FUNC_DIM2_LONG_I);
fornext_entrylabel3007:
*_FUNC_DIM2_LONG_I=fornext_value3007;
if (fornext_step_negative3007){
if (fornext_value3007<fornext_finalvalue3007) break;
}else{
if (fornext_value3007>fornext_finalvalue3007) break;
}
fornext_error3007:;
if(qbevent){evnt(17177);if(r)goto S_19651;}
S_19652:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||is_error_pending()){
if(qbevent){evnt(17178);if(r)goto S_19652;}
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17179);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17181);}while(r);
S_19655:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17184);if(r)goto S_19655;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(17185);}while(r);
S_19657:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17186);if(r)goto S_19657;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17187);}while(r);
S_19659:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17188);if(r)goto S_19659;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17188);}while(r);
}
S_19662:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(17189);if(r)goto S_19662;}
S_19663:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(17190);if(r)goto S_19663;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17191);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(17192);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17192);}while(r);
do{
goto dl_exit_3008;
if(!qbevent)break;evnt(17193);}while(r);
}
S_19669:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(17195);if(r)goto S_19669;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(17195);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17195);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(17195);}while(r);
}
S_19675:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17196);if(r)goto S_19675;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17196);}while(r);
}
dl_continue_3008:;
}
dl_exit_3008:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17199);}while(r);
do{
*_FUNC_DIM2_LONG_DYNPARAMMODE= 0 ;
if(!qbevent)break;evnt(17200);}while(r);
do{
*_FUNC_DIM2_LONG_DYN_UDT_MODE=FUNC_GETUDTCANONMODE(_FUNC_DIM2_LONG_I);
if(!qbevent)break;evnt(17201);}while(r);
S_19683:;
if ((*__INTEGER_DIMSFARRAY)||is_error_pending()){
if(qbevent){evnt(17202);if(r)goto S_19683;}
do{
*_FUNC_DIM2_LONG_DYNPARAMMODE=*__INTEGER_SF_UDT_DYNMODE;
if(!qbevent)break;evnt(17203);}while(r);
S_19685:;
if (((-(*_FUNC_DIM2_LONG_DYNPARAMMODE< 0 ))|(-(*_FUNC_DIM2_LONG_DYNPARAMMODE> 1 )))||is_error_pending()){
if(qbevent){evnt(17204);if(r)goto S_19685;}
do{
*_FUNC_DIM2_LONG_DYNPARAMMODE= 0 ;
if(!qbevent)break;evnt(17204);}while(r);
}
S_19688:;
if (((-(*_FUNC_DIM2_LONG_DYNPARAMMODE> 0 ))&(-(*_FUNC_DIM2_LONG_DYNPARAMMODE!=*_FUNC_DIM2_LONG_DYN_UDT_MODE)))||is_error_pending()){
if(qbevent){evnt(17207);if(r)goto S_19688;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Internal TYPE parameter layout does not match its declaration",61));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17208);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17208);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(17211);}while(r);
do{
*_FUNC_DIM2_LONG_DYN_UDT_LAYOUT= 0 ;
if(!qbevent)break;evnt(17212);}while(r);
S_19695:;
if ((-(*_FUNC_DIM2_LONG_DYN_UDT_MODE> 0 ))||is_error_pending()){
if(qbevent){evnt(17213);if(r)goto S_19695;}
S_19696:;
if ((-(FUNC_UDTDYNMEMBERSOK(_FUNC_DIM2_LONG_I,_FUNC_DIM2_LONG_DYN_UDT_MODE)== 0 ))||is_error_pending()){
if(qbevent){evnt(17214);if(r)goto S_19696;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17214);}while(r);
}
do{
*_FUNC_DIM2_LONG_BITS=FUNC_UDTDYNLAYOUTSIZE(_FUNC_DIM2_LONG_I);
if(!qbevent)break;evnt(17215);}while(r);
do{
*_FUNC_DIM2_LONG_DYN_UDT_LAYOUT= -1 ;
if(!qbevent)break;evnt(17216);}while(r);
}
S_19702:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17219);if(r)goto S_19702;}
S_19703:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(17221);if(r)goto S_19703;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(17222);}while(r);
S_19705:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(17222);if(r)goto S_19705;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17222);}while(r);
}
}
do{
*__LONG_UDT_ALLOC_DYNMODE=*_FUNC_DIM2_LONG_DYN_UDT_MODE;
if(!qbevent)break;evnt(17224);}while(r);
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3010=qb_safe_idiv(*_FUNC_DIM2_LONG_BITS, 8 )),_FUNC_DIM2_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17225);}while(r);
do{
*__LONG_UDT_ALLOC_DYNMODE= 0 ;
if(!qbevent)break;evnt(17226);}while(r);
S_19712:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17227);if(r)goto S_19712;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17227);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17228);}while(r);
S_19716:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(17229);if(r)goto S_19716;}
S_19717:;
if ((*_FUNC_DIM2_LONG_DYN_UDT_LAYOUT)||is_error_pending()){
if(qbevent){evnt(17230);if(r)goto S_19717;}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_ARRAYDESC)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+520)))= -1 ;
if(!qbevent)break;evnt(17230);}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_ARRAYDESC)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+522)))=*_FUNC_DIM2_LONG_DYN_UDT_MODE;
if(!qbevent)break;evnt(17230);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17231);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17233);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17236);}while(r);
S_19726:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(17237);if(r)goto S_19726;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(17238);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(17239);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(17240);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17242);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I;
if(!qbevent)break;evnt(17246);}while(r);
S_19735:;
if ((*_FUNC_DIM2_LONG_DYN_UDT_LAYOUT)||is_error_pending()){
if(qbevent){evnt(17247);if(r)goto S_19735;}
do{
*(int16*)(((char*)__UDT_ID)+((0+520)))= -1 ;
if(!qbevent)break;evnt(17247);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+522)))=*_FUNC_DIM2_LONG_DYN_UDT_MODE;
if(!qbevent)break;evnt(17247);}while(r);
}
S_19739:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17248);if(r)goto S_19739;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17248);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17249);}while(r);
S_19743:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(17251);if(r)goto S_19743;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(17251);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(17251);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(17253);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17254);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(17255);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3011= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17256);}while(r);
S_19751:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17257);if(r)goto S_19751;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17257);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17258);}while(r);
}
do{
*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT= 0 ;
if(!qbevent)break;evnt(17262);}while(r);
do{
*_FUNC_DIM2_LONG_SCALAR_DYN_MODE= 0 ;
if(!qbevent)break;evnt(17263);}while(r);
do{
*_FUNC_DIM2_LONG_DYNPARAMMODE= 0 ;
if(!qbevent)break;evnt(17264);}while(r);
do{
*_FUNC_DIM2_LONG_SCALAR_DYN_MODE=FUNC_GETUDTCANONMODE(_FUNC_DIM2_LONG_I);
if(!qbevent)break;evnt(17265);}while(r);
S_19760:;
if ((*__INTEGER_DIMSFARRAY)||is_error_pending()){
if(qbevent){evnt(17266);if(r)goto S_19760;}
do{
*_FUNC_DIM2_LONG_DYNPARAMMODE=*__INTEGER_SF_UDT_DYNMODE;
if(!qbevent)break;evnt(17267);}while(r);
S_19762:;
if (((-(*_FUNC_DIM2_LONG_DYNPARAMMODE< 0 ))|(-(*_FUNC_DIM2_LONG_DYNPARAMMODE> 1 )))||is_error_pending()){
if(qbevent){evnt(17268);if(r)goto S_19762;}
do{
*_FUNC_DIM2_LONG_DYNPARAMMODE= 0 ;
if(!qbevent)break;evnt(17268);}while(r);
}
S_19765:;
if (((-(*_FUNC_DIM2_LONG_DYNPARAMMODE> 0 ))&(-(*_FUNC_DIM2_LONG_DYNPARAMMODE!=*_FUNC_DIM2_LONG_SCALAR_DYN_MODE)))||is_error_pending()){
if(qbevent){evnt(17269);if(r)goto S_19765;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Internal TYPE parameter layout does not match its declaration",61));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17270);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17270);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(17273);}while(r);
S_19771:;
if ((-(*_FUNC_DIM2_LONG_SCALAR_DYN_MODE> 0 ))||is_error_pending()){
if(qbevent){evnt(17274);if(r)goto S_19771;}
S_19772:;
if ((-(FUNC_UDTDYNMEMBERSOK(_FUNC_DIM2_LONG_I,_FUNC_DIM2_LONG_SCALAR_DYN_MODE)== 0 ))||is_error_pending()){
if(qbevent){evnt(17275);if(r)goto S_19772;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17275);}while(r);
}
do{
*_FUNC_DIM2_LONG_BITS=FUNC_UDTDYNLAYOUTSIZE(_FUNC_DIM2_LONG_I);
if(!qbevent)break;evnt(17276);}while(r);
do{
*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT= -1 ;
if(!qbevent)break;evnt(17277);}while(r);
}
do{
*_FUNC_DIM2_LONG_BYTES=qb_safe_idiv(*_FUNC_DIM2_LONG_BITS, 8 );
if(!qbevent)break;evnt(17279);}while(r);
S_19779:;
if ((qb_safe_mod(*_FUNC_DIM2_LONG_BITS, 8 ))||is_error_pending()){
if(qbevent){evnt(17280);if(r)goto S_19779;}
do{
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BYTES+ 1 ;
if(!qbevent)break;evnt(17281);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17283);}while(r);
S_19783:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17284);if(r)goto S_19783;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("void *",6),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17284);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17285);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17286);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I;
if(!qbevent)break;evnt(17287);}while(r);
S_19789:;
if ((*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT)||is_error_pending()){
if(qbevent){evnt(17288);if(r)goto S_19789;}
do{
*(int16*)(((char*)__UDT_ID)+((0+520)))= -1 ;
if(!qbevent)break;evnt(17288);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+522)))=*_FUNC_DIM2_LONG_SCALAR_DYN_MODE;
if(!qbevent)break;evnt(17288);}while(r);
}
S_19793:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17289);if(r)goto S_19793;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17290);}while(r);
S_19795:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17291);if(r)goto S_19795;}
do{
SUB_WRITEBUFLINE(&(pass3012=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17292);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3013=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17293);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3014=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17294);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3015=*__LONG_DATATXTBUF),qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(void*)(dblock+cmem_sp);",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17295);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3016=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len(",0,",3)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17296);}while(r);
S_19801:;
if ((*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT)||is_error_pending()){
if(qbevent){evnt(17297);if(r)goto S_19801;}
do{
qbs_set(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17298);}while(r);
S_19803:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(17299);if(r)goto S_19803;}
do{
SUB_APPENDDYNUDTOWNINITAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass3017= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17304);}while(r);
}else{
do{
SUB_APPENDDYNUDTDESCINITAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass3018= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17306);}while(r);
}
S_19808:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17308);if(r)goto S_19808;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17308);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3019=*__LONG_DATATXTBUF),_FUNC_DIM2_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17309);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17310);}while(r);
S_19813:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(17311);if(r)goto S_19813;}
do{
SUB_APPENDDYNUDTOWNFREEAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass3020= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17312);}while(r);
}else{
do{
SUB_APPENDDYNUDTDESCFREEAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass3021= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17314);}while(r);
}
S_19818:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17316);if(r)goto S_19818;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17316);}while(r);
}
S_19821:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17317);if(r)goto S_19821;}
do{
SUB_WRITEBUFLINE(&(pass3022=*__LONG_FREETXTBUF),_FUNC_DIM2_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17317);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass3023=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17319);}while(r);
}
}else{
S_19828:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17322);if(r)goto S_19828;}
do{
SUB_WRITEBUFLINE(&(pass3024=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17323);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3025=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(void*)mem_static_malloc(",26)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17324);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3026=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len(",0,",3)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17325);}while(r);
S_19832:;
if ((*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT)||is_error_pending()){
if(qbevent){evnt(17326);if(r)goto S_19832;}
do{
qbs_set(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17327);}while(r);
S_19834:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(17328);if(r)goto S_19834;}
do{
SUB_APPENDDYNUDTOWNINITAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass3027= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17333);}while(r);
}else{
do{
SUB_APPENDDYNUDTDESCINITAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass3028= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17335);}while(r);
}
S_19839:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17337);if(r)goto S_19839;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17337);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3029=*__LONG_DATATXTBUF),_FUNC_DIM2_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17338);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17339);}while(r);
S_19844:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(17340);if(r)goto S_19844;}
do{
SUB_APPENDDYNUDTOWNFREEAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass3030= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17341);}while(r);
}else{
do{
SUB_APPENDDYNUDTDESCFREEAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass3031= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17343);}while(r);
}
S_19849:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17345);if(r)goto S_19849;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17345);}while(r);
}
S_19852:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17346);if(r)goto S_19852;}
do{
SUB_WRITEBUFLINE(&(pass3032=*__LONG_FREETXTBUF),_FUNC_DIM2_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17346);}while(r);
}
}
S_19856:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]&(-(*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT== 0 )))||is_error_pending()){
if(qbevent){evnt(17348);if(r)goto S_19856;}
do{
SUB_INITIALISE_UDT_VARSTRINGS(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,__LONG_DATATXTBUF,&(pass3033= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17349);}while(r);
do{
SUB_FREE_UDT_VARSTRINGS(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,__LONG_FREETXTBUF,&(pass3034= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17350);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3035=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17352);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17355);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(17356);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3036= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17357);}while(r);
S_19866:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17358);if(r)goto S_19866;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17358);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17359);}while(r);
}
fornext_continue_3006:;
}
fornext_exit_3006:;
do{
qbs_set(_FUNC_DIM2_STRING_TYP,FUNC_SYMBOL2FULLTYPENAME(_FUNC_DIM2_STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17364);}while(r);
S_19873:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17365);if(r)goto S_19873;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17365);}while(r);
}
do{
*_FUNC_DIM2_LONG_UNSGN= 0 ;
if(!qbevent)break;evnt(17368);}while(r);
S_19877:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 10 ),qbs_new_txt_len("_UNSIGNED ",10))))||is_error_pending()){
if(qbevent){evnt(17369);if(r)goto S_19877;}
do{
*_FUNC_DIM2_LONG_UNSGN= 1 ;
if(!qbevent)break;evnt(17370);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_TYP,func_mid(_FUNC_DIM2_STRING_TYP,func_instr(NULL,_FUNC_DIM2_STRING_TYP,func_chr( 32 ),0)+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17371);}while(r);
S_19880:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(17372);if(r)goto S_19880;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected more type information after _UNSIGNED!",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17372);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17372);}while(r);
}
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17375);}while(r);
S_19886:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("STRING",6))))||is_error_pending()){
if(qbevent){evnt(17377);if(r)goto S_19886;}
S_19887:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 6 )))||is_error_pending()){
if(qbevent){evnt(17379);if(r)goto S_19887;}
S_19888:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 9 ),qbs_new_txt_len("STRING * ",9))))||is_error_pending()){
if(qbevent){evnt(17380);if(r)goto S_19888;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * number/constant",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17380);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17380);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_C,qbs_right(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP->len- 9 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17382);}while(r);
do{
*_FUNC_DIM2_LONG_HASHFOUND= 0 ;
if(!qbevent)break;evnt(17385);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17386);}while(r);
do{
*_FUNC_DIM2_LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(17387);}while(r);
do{
*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_LONG_HASHCHKFLAGS,_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17388);}while(r);
S_19897:;
while((*_FUNC_DIM2_LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(17389);if(r)goto S_19897;}
S_19898:;
if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(17390);if(r)goto S_19898;}
S_19899:;
if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||is_error_pending()){
if(qbevent){evnt(17391);if(r)goto S_19899;}
do{
*_FUNC_DIM2_LONG_HASHFOUND= 1 ;
if(!qbevent)break;evnt(17392);}while(r);
do{
goto dl_exit_3040;
if(!qbevent)break;evnt(17393);}while(r);
}
}
S_19904:;
if ((-(*_FUNC_DIM2_LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(17396);if(r)goto S_19904;}
do{
*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF);
if(!qbevent)break;evnt(17396);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(17396);}while(r);
}
dl_continue_3040:;
}
dl_exit_3040:;
S_19910:;
if ((*_FUNC_DIM2_LONG_HASHFOUND)||is_error_pending()){
if(qbevent){evnt(17398);if(r)goto S_19910;}
do{
*_FUNC_DIM2_LONG_I2=*_FUNC_DIM2_LONG_HASHRESREF;
if(!qbevent)break;evnt(17399);}while(r);
do{
*_FUNC_DIM2_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])];
if(!qbevent)break;evnt(17400);}while(r);
S_19913:;
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(17401);if(r)goto S_19913;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17401);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17401);}while(r);
}
S_19917:;
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(17403);if(r)goto S_19917;}
do{
*_FUNC_DIM2_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])];
if(!qbevent)break;evnt(17404);}while(r);
do{
*_FUNC_DIM2_INTEGER64_V=qbr(*_FUNC_DIM2_FLOAT_V);
if(!qbevent)break;evnt(17405);}while(r);
do{
*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(17406);}while(r);
}else{
S_19922:;
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(17408);if(r)goto S_19922;}
do{
*_FUNC_DIM2_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])];
if(!qbevent)break;evnt(17409);}while(r);
do{
*_FUNC_DIM2_INTEGER64_V=*_FUNC_DIM2_UINTEGER64_V;
if(!qbevent)break;evnt(17410);}while(r);
do{
*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(17411);}while(r);
}else{
do{
*_FUNC_DIM2_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])];
if(!qbevent)break;evnt(17413);}while(r);
do{
*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(17414);}while(r);
do{
*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(17415);}while(r);
}
}
S_19932:;
if (((-(*_FUNC_DIM2_INTEGER64_V< 1 ))|(-(*_FUNC_DIM2_INTEGER64_V> 9999999999ll )))||is_error_pending()){
if(qbevent){evnt(17418);if(r)goto S_19932;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17418);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17418);}while(r);
}
do{
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(17419);}while(r);
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_add(FUNC_SCASE(qbs_new_txt_len("String * ",9)),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17420);}while(r);
do{
goto LABEL_CONSTANTLENSTR;
if(!qbevent)break;evnt(17421);}while(r);
}
S_19940:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||is_error_pending()){
if(qbevent){evnt(17424);if(r)goto S_19940;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number/Constant expected after *",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17424);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17424);}while(r);
}
S_19944:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 10 )))||is_error_pending()){
if(qbevent){evnt(17425);if(r)goto S_19944;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Too many characters in number after *",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17425);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17425);}while(r);
}
do{
*_FUNC_DIM2_LONG_BYTES=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_C));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17426);}while(r);
S_19949:;
if ((-(*_FUNC_DIM2_LONG_BYTES== 0 ))||is_error_pending()){
if(qbevent){evnt(17427);if(r)goto S_19949;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a fixed string of length 0",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17427);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17427);}while(r);
}
LABEL_CONSTANTLENSTR:;
if(qbevent){evnt(17428);r=0;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STRING",6),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17429);}while(r);
S_19954:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17432);if(r)goto S_19954;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(17433);}while(r);
S_19956:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17434);if(r)goto S_19956;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17435);}while(r);
S_19958:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17436);if(r)goto S_19958;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17436);}while(r);
}
S_19961:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(17437);if(r)goto S_19961;}
S_19962:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(17438);if(r)goto S_19962;}
S_19963:;
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)== 0 ))|(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)== 0 ))|(-(*(int32*)(((char*)__UDT_ID)+((0+544)))!=*_FUNC_DIM2_LONG_BYTES)))||is_error_pending()){
if(qbevent){evnt(17440);if(r)goto S_19963;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17440);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17440);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17441);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(17442);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17442);}while(r);
do{
goto dl_exit_3042;
if(!qbevent)break;evnt(17443);}while(r);
}
S_19972:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(17445);if(r)goto S_19972;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(17445);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17445);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(17445);}while(r);
}
S_19978:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17446);if(r)goto S_19978;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17446);}while(r);
}
dl_continue_3042:;
}
dl_exit_3042:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17449);}while(r);
S_19984:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17455);if(r)goto S_19984;}
S_19985:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(17457);if(r)goto S_19985;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(17458);}while(r);
S_19987:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(17458);if(r)goto S_19987;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17458);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,_FUNC_DIM2_LONG_BYTES,&(pass3044= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17460);}while(r);
S_19992:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17461);if(r)goto S_19992;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17461);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17462);}while(r);
S_19996:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(17463);if(r)goto S_19996;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17463);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17464);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17467);}while(r);
S_20002:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(17468);if(r)goto S_20002;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(17469);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(17470);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(17471);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17473);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(17477);}while(r);
S_20011:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17478);if(r)goto S_20011;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17478);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17479);}while(r);
S_20015:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(17480);if(r)goto S_20015;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(17480);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(17480);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(17482);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17483);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+544)))=*_FUNC_DIM2_LONG_BYTES;
if(!qbevent)break;evnt(17484);}while(r);
S_20022:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(17485);if(r)goto S_20022;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17486);}while(r);
}
S_20025:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(17488);if(r)goto S_20025;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17489);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(17491);}while(r);
S_20029:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17492);if(r)goto S_20029;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17492);}while(r);
}
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3045= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17493);}while(r);
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17494);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17498);}while(r);
S_20036:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17499);if(r)goto S_20036;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17499);}while(r);
}
S_20039:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17500);if(r)goto S_20039;}
do{
SUB_WRITEBUFLINE(&(pass3046=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17500);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17501);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17502);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(17503);}while(r);
S_20045:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17504);if(r)goto S_20045;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17505);}while(r);
S_20047:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17506);if(r)goto S_20047;}
do{
SUB_WRITEBUFLINE(&(pass3047=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17506);}while(r);
}
S_20050:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17507);if(r)goto S_20050;}
do{
SUB_WRITEBUFLINE(&(pass3048=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17507);}while(r);
}
S_20053:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17508);if(r)goto S_20053;}
do{
SUB_WRITEBUFLINE(&(pass3049=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17508);}while(r);
}
S_20056:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17509);if(r)goto S_20056;}
do{
SUB_WRITEBUFLINE(&(pass3050=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=qbs_new_fixed((uint8*)(dblock+cmem_sp),",40)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17509);}while(r);
}
S_20059:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17510);if(r)goto S_20059;}
do{
SUB_WRITEBUFLINE(&(pass3051=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len("->chr,0,",8)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17510);}while(r);
}
S_20062:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17511);if(r)goto S_20062;}
do{
SUB_WRITEBUFLINE(&(pass3052=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17511);}while(r);
}
}else{
S_20066:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17513);if(r)goto S_20066;}
do{
SUB_WRITEBUFLINE(&(pass3053=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17513);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_O,qbs_add(qbs_add(qbs_new_txt_len("(uint8*)mem_static_malloc(",26),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17514);}while(r);
S_20070:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17515);if(r)goto S_20070;}
do{
SUB_WRITEBUFLINE(&(pass3054=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=qbs_new_fixed(",15)),_FUNC_DIM2_STRING_O),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17515);}while(r);
}
S_20073:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17516);if(r)goto S_20073;}
do{
SUB_WRITEBUFLINE(&(pass3055=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len("->chr,0,",8)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17516);}while(r);
}
S_20076:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17517);if(r)goto S_20076;}
do{
SUB_WRITEBUFLINE(&(pass3056=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17517);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+544)))=*_FUNC_DIM2_LONG_BYTES;
if(!qbevent)break;evnt(17519);}while(r);
S_20081:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(17520);if(r)goto S_20081;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17521);}while(r);
}
S_20084:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(17523);if(r)goto S_20084;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17524);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17526);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(17527);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3057= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17528);}while(r);
S_20090:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17529);if(r)goto S_20090;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17529);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17530);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("STRING_",7),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17534);}while(r);
S_20096:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17537);if(r)goto S_20096;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(17538);}while(r);
S_20098:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17539);if(r)goto S_20098;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17540);}while(r);
S_20100:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17541);if(r)goto S_20100;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17541);}while(r);
}
S_20103:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(17542);if(r)goto S_20103;}
S_20104:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(17543);if(r)goto S_20104;}
S_20105:;
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)== 0 ))|(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)!= 0 )))||is_error_pending()){
if(qbevent){evnt(17545);if(r)goto S_20105;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17545);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17545);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17546);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(17547);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17547);}while(r);
do{
goto dl_exit_3058;
if(!qbevent)break;evnt(17548);}while(r);
}
S_20114:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(17550);if(r)goto S_20114;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(17550);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17550);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(17550);}while(r);
}
S_20120:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17551);if(r)goto S_20120;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17551);}while(r);
}
dl_continue_3058:;
}
dl_exit_3058:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17554);}while(r);
S_20126:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17560);if(r)goto S_20126;}
S_20127:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(17562);if(r)goto S_20127;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(17563);}while(r);
S_20129:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(17563);if(r)goto S_20129;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17563);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3060= -2147483647 ),&(pass3061= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17565);}while(r);
S_20134:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17566);if(r)goto S_20134;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17566);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17567);}while(r);
S_20138:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(17568);if(r)goto S_20138;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17568);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17569);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17572);}while(r);
S_20144:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(17573);if(r)goto S_20144;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(17574);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(17575);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(17576);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17578);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17582);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(17583);}while(r);
S_20154:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17584);if(r)goto S_20154;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17584);}while(r);
}
S_20157:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(17585);if(r)goto S_20157;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(17585);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(17585);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(17587);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17588);}while(r);
S_20163:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(17589);if(r)goto S_20163;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("$",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17590);}while(r);
}
S_20166:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(17592);if(r)goto S_20166;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("$",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17593);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(17595);}while(r);
S_20170:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17596);if(r)goto S_20170;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17596);}while(r);
}
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3062= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17597);}while(r);
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17598);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17602);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17603);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17604);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(17605);}while(r);
S_20180:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17606);if(r)goto S_20180;}
S_20181:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17607);if(r)goto S_20181;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17607);}while(r);
}
S_20184:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17608);if(r)goto S_20184;}
do{
SUB_WRITEBUFLINE(&(pass3063=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new_cmem(0,0);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17608);}while(r);
}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17609);}while(r);
}else{
S_20189:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17611);if(r)goto S_20189;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17611);}while(r);
}
S_20192:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17612);if(r)goto S_20192;}
do{
SUB_WRITEBUFLINE(&(pass3064=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new(0,0);",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17612);}while(r);
}
}
S_20196:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(17614);if(r)goto S_20196;}
do{
SUB_WRITEBUFLINE(&(pass3065=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17614);}while(r);
}
S_20199:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(17615);if(r)goto S_20199;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("$",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17616);}while(r);
}
S_20202:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(17618);if(r)goto S_20202;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("$",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17619);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17621);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(17622);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3066= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17623);}while(r);
S_20208:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17624);if(r)goto S_20208;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17624);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17625);}while(r);
}
S_20213:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4))))||is_error_pending()){
if(qbevent){evnt(17628);if(r)goto S_20213;}
S_20214:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4)))&(-(_FUNC_DIM2_STRING_TYP->len> 4 ))))||is_error_pending()){
if(qbevent){evnt(17629);if(r)goto S_20214;}
S_20215:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 7 ),qbs_new_txt_len("_BIT * ",7))))||is_error_pending()){
if(qbevent){evnt(17630);if(r)goto S_20215;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17630);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17630);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_C,func_mid(_FUNC_DIM2_STRING_TYP,func_instr(NULL,_FUNC_DIM2_STRING_TYP,qbs_new_txt_len(" * ",3),0)+ 3 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17631);}while(r);
S_20220:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||is_error_pending()){
if(qbevent){evnt(17632);if(r)goto S_20220;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number expected after *",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17632);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17632);}while(r);
}
S_20224:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 2 )))||is_error_pending()){
if(qbevent){evnt(17633);if(r)goto S_20224;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT variable of size > 64 bits",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17633);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17633);}while(r);
}
do{
*_FUNC_DIM2_LONG_BITS=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_C));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17634);}while(r);
S_20229:;
if ((-(*_FUNC_DIM2_LONG_BITS== 0 ))||is_error_pending()){
if(qbevent){evnt(17635);if(r)goto S_20229;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT variable of size 0 bits",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17635);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17635);}while(r);
}
S_20233:;
if ((-(*_FUNC_DIM2_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(17636);if(r)goto S_20233;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT variable of size > 64 bits",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17636);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17636);}while(r);
}
}else{
do{
*_FUNC_DIM2_LONG_BITS= 1 ;
if(!qbevent)break;evnt(17638);}while(r);
}
S_20240:;
if ((-(*_FUNC_DIM2_LONG_BITS<= 32 ))||is_error_pending()){
if(qbevent){evnt(17640);if(r)goto S_20240;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17640);}while(r);
}else{
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17640);}while(r);
}
S_20245:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17641);if(r)goto S_20245;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17641);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17641);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("BIT",3)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17642);}while(r);
S_20250:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17645);if(r)goto S_20250;}
S_20251:;
if ((-(*_FUNC_DIM2_LONG_BITS> 63 ))||is_error_pending()){
if(qbevent){evnt(17646);if(r)goto S_20251;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT array of size > 63 bits",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17646);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17646);}while(r);
}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(17647);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17648);}while(r);
S_20257:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17648);if(r)goto S_20257;}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17648);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("`",1)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17649);}while(r);
S_20261:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17650);if(r)goto S_20261;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17651);}while(r);
S_20263:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17652);if(r)goto S_20263;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17652);}while(r);
}
S_20266:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(17653);if(r)goto S_20266;}
S_20267:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(17654);if(r)goto S_20267;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17655);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(17656);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17656);}while(r);
do{
goto dl_exit_3069;
if(!qbevent)break;evnt(17657);}while(r);
}
S_20273:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(17659);if(r)goto S_20273;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(17659);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17659);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(17659);}while(r);
}
S_20279:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17660);if(r)goto S_20279;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17660);}while(r);
}
dl_continue_3069:;
}
dl_exit_3069:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17663);}while(r);
S_20285:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17669);if(r)goto S_20285;}
S_20286:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(17671);if(r)goto S_20286;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(17672);}while(r);
S_20288:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(17672);if(r)goto S_20288;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17672);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3071=-(*_FUNC_DIM2_LONG_BITS)),&(pass3072= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17674);}while(r);
S_20293:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17675);if(r)goto S_20293;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17675);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17676);}while(r);
S_20297:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(17677);if(r)goto S_20297;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17677);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17678);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17681);}while(r);
S_20303:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(17682);if(r)goto S_20303;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(17683);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(17684);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(17685);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17687);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17691);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS;
if(!qbevent)break;evnt(17692);}while(r);
S_20313:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17693);if(r)goto S_20313;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(17693);}while(r);
}
S_20316:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17694);if(r)goto S_20316;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17694);}while(r);
}
S_20319:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(17695);if(r)goto S_20319;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(17695);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(17695);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(17697);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17698);}while(r);
S_20325:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(17699);if(r)goto S_20325;}
S_20326:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17700);if(r)goto S_20326;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17700);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17700);}while(r);
}
}
S_20332:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(17702);if(r)goto S_20332;}
S_20333:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17703);if(r)goto S_20333;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17703);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17703);}while(r);
}
}
do{
SUB_REGID();
if(!qbevent)break;evnt(17705);}while(r);
S_20340:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17706);if(r)goto S_20340;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17706);}while(r);
}
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3073= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17707);}while(r);
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17708);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17711);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17712);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3074=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17713);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3075=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17714);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3076=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17715);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3077=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17716);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3078=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17717);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3079=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17718);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17719);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17720);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17721);}while(r);
S_20357:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17721);if(r)goto S_20357;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(17721);}while(r);
}
S_20360:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(17722);if(r)goto S_20360;}
S_20361:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17723);if(r)goto S_20361;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17723);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17723);}while(r);
}
}
S_20367:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(17725);if(r)goto S_20367;}
S_20368:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17726);if(r)goto S_20368;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17726);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17726);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17728);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(17729);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3080= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17730);}while(r);
S_20377:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17731);if(r)goto S_20377;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17731);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17732);}while(r);
}
S_20382:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_BYTE",5))))||is_error_pending()){
if(qbevent){evnt(17735);if(r)goto S_20382;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17736);}while(r);
S_20384:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17737);if(r)goto S_20384;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17737);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17737);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("BYTE_",5)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17738);}while(r);
S_20389:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17739);if(r)goto S_20389;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(17740);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17741);}while(r);
S_20392:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17741);if(r)goto S_20392;}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17741);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("%%",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17742);}while(r);
S_20396:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17743);if(r)goto S_20396;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17744);}while(r);
S_20398:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17745);if(r)goto S_20398;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17745);}while(r);
}
S_20401:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(17746);if(r)goto S_20401;}
S_20402:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(17747);if(r)goto S_20402;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17748);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(17749);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17749);}while(r);
do{
goto dl_exit_3081;
if(!qbevent)break;evnt(17750);}while(r);
}
S_20408:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(17752);if(r)goto S_20408;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(17752);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17752);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(17752);}while(r);
}
S_20414:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17753);if(r)goto S_20414;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17753);}while(r);
}
dl_continue_3081:;
}
dl_exit_3081:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17757);}while(r);
S_20420:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17763);if(r)goto S_20420;}
S_20421:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(17765);if(r)goto S_20421;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(17766);}while(r);
S_20423:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(17766);if(r)goto S_20423;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17766);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3083= 1 ),&(pass3084= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17768);}while(r);
S_20428:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17769);if(r)goto S_20428;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17769);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17770);}while(r);
S_20432:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(17771);if(r)goto S_20432;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17771);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17772);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17775);}while(r);
S_20438:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(17776);if(r)goto S_20438;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(17777);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(17778);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(17779);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17781);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(17785);}while(r);
S_20447:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17785);if(r)goto S_20447;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(17785);}while(r);
}
S_20450:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17786);if(r)goto S_20450;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17786);}while(r);
}
S_20453:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(17787);if(r)goto S_20453;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(17787);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(17787);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(17789);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17790);}while(r);
}else{
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17792);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17793);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(17794);}while(r);
S_20463:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17794);if(r)goto S_20463;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(17794);}while(r);
}
S_20466:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17795);if(r)goto S_20466;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17795);}while(r);
}
S_20469:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17796);if(r)goto S_20469;}
do{
SUB_WRITEBUFLINE(&(pass3085=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17796);}while(r);
}
S_20472:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17797);if(r)goto S_20472;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17798);}while(r);
S_20474:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17799);if(r)goto S_20474;}
do{
SUB_WRITEBUFLINE(&(pass3086=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=1;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17799);}while(r);
}
S_20477:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17800);if(r)goto S_20477;}
do{
SUB_WRITEBUFLINE(&(pass3087=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17800);}while(r);
}
S_20480:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17801);if(r)goto S_20480;}
do{
SUB_WRITEBUFLINE(&(pass3088=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17801);}while(r);
}
}else{
S_20484:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17803);if(r)goto S_20484;}
do{
SUB_WRITEBUFLINE(&(pass3089=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(1);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17803);}while(r);
}
}
S_20488:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17805);if(r)goto S_20488;}
do{
SUB_WRITEBUFLINE(&(pass3090=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17805);}while(r);
}
S_20491:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17806);if(r)goto S_20491;}
do{
SUB_WRITEBUFLINE(&(pass3091=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17806);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17808);}while(r);
S_20496:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(17809);if(r)goto S_20496;}
S_20497:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17810);if(r)goto S_20497;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~%%",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17810);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("%%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17810);}while(r);
}
}
S_20503:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(17812);if(r)goto S_20503;}
S_20504:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17813);if(r)goto S_20504;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~%%",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17813);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("%%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17813);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17815);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(17816);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3092= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17817);}while(r);
S_20513:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17818);if(r)goto S_20513;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17818);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17819);}while(r);
}
S_20518:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("INTEGER",7))))||is_error_pending()){
if(qbevent){evnt(17822);if(r)goto S_20518;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17823);}while(r);
S_20520:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17824);if(r)goto S_20520;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17824);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17824);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("INTEGER_",8)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17825);}while(r);
S_20525:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17827);if(r)goto S_20525;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(17828);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17829);}while(r);
S_20528:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17829);if(r)goto S_20528;}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17829);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("%",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17830);}while(r);
S_20532:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17831);if(r)goto S_20532;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17832);}while(r);
S_20534:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17833);if(r)goto S_20534;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17833);}while(r);
}
S_20537:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(17834);if(r)goto S_20537;}
S_20538:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(17835);if(r)goto S_20538;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17836);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(17837);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17837);}while(r);
do{
goto dl_exit_3093;
if(!qbevent)break;evnt(17838);}while(r);
}
S_20544:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(17840);if(r)goto S_20544;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(17840);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17840);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(17840);}while(r);
}
S_20550:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17841);if(r)goto S_20550;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17841);}while(r);
}
dl_continue_3093:;
}
dl_exit_3093:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17844);}while(r);
S_20556:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17846);if(r)goto S_20556;}
S_20557:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(17848);if(r)goto S_20557;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(17849);}while(r);
S_20559:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(17849);if(r)goto S_20559;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17849);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3095= 2 ),&(pass3096= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17851);}while(r);
S_20564:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17852);if(r)goto S_20564;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17852);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17853);}while(r);
S_20568:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(17854);if(r)goto S_20568;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17854);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17855);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17858);}while(r);
S_20574:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(17859);if(r)goto S_20574;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(17860);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(17861);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(17862);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17864);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(17869);}while(r);
S_20583:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17869);if(r)goto S_20583;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(17869);}while(r);
}
S_20586:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17870);if(r)goto S_20586;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17870);}while(r);
}
S_20589:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(17871);if(r)goto S_20589;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(17871);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(17871);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(17873);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17874);}while(r);
}else{
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17876);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17877);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(17878);}while(r);
S_20599:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17878);if(r)goto S_20599;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(17878);}while(r);
}
S_20602:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17879);if(r)goto S_20602;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17879);}while(r);
}
S_20605:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17880);if(r)goto S_20605;}
do{
SUB_WRITEBUFLINE(&(pass3097=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17880);}while(r);
}
S_20608:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17881);if(r)goto S_20608;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17882);}while(r);
S_20610:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17883);if(r)goto S_20610;}
do{
SUB_WRITEBUFLINE(&(pass3098=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=2;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17883);}while(r);
}
S_20613:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17884);if(r)goto S_20613;}
do{
SUB_WRITEBUFLINE(&(pass3099=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17884);}while(r);
}
S_20616:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17885);if(r)goto S_20616;}
do{
SUB_WRITEBUFLINE(&(pass3100=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17885);}while(r);
}
}else{
S_20620:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17887);if(r)goto S_20620;}
do{
SUB_WRITEBUFLINE(&(pass3101=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(2);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17887);}while(r);
}
}
S_20624:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17889);if(r)goto S_20624;}
do{
SUB_WRITEBUFLINE(&(pass3102=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17889);}while(r);
}
S_20627:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17890);if(r)goto S_20627;}
do{
SUB_WRITEBUFLINE(&(pass3103=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17890);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17892);}while(r);
S_20632:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(17893);if(r)goto S_20632;}
S_20633:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17894);if(r)goto S_20633;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17894);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17894);}while(r);
}
}
S_20639:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(17896);if(r)goto S_20639;}
S_20640:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17897);if(r)goto S_20640;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17897);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17897);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17899);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(17900);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3104= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17901);}while(r);
S_20649:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17902);if(r)goto S_20649;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17902);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17903);}while(r);
}
S_20654:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(17913);if(r)goto S_20654;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17914);}while(r);
S_20656:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17915);if(r)goto S_20656;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17915);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17915);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("OFFSET_",7)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17916);}while(r);
S_20661:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17917);if(r)goto S_20661;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(17918);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17919);}while(r);
S_20664:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17919);if(r)goto S_20664;}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17919);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("%&",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17920);}while(r);
S_20668:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17921);if(r)goto S_20668;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17922);}while(r);
S_20670:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17923);if(r)goto S_20670;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17923);}while(r);
}
S_20673:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(17924);if(r)goto S_20673;}
S_20674:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(17925);if(r)goto S_20674;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17926);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(17927);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17927);}while(r);
do{
goto dl_exit_3105;
if(!qbevent)break;evnt(17928);}while(r);
}
S_20680:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(17930);if(r)goto S_20680;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(17930);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17930);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(17930);}while(r);
}
S_20686:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17931);if(r)goto S_20686;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17931);}while(r);
}
dl_continue_3105:;
}
dl_exit_3105:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17934);}while(r);
S_20692:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17936);if(r)goto S_20692;}
S_20693:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(17938);if(r)goto S_20693;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(17939);}while(r);
S_20695:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(17939);if(r)goto S_20695;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17939);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3107=qb_safe_idiv(*__LONG_OS_BITS, 8 )),&(pass3108= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17941);}while(r);
S_20700:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17942);if(r)goto S_20700;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17942);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17943);}while(r);
S_20704:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(17944);if(r)goto S_20704;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17944);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17945);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17948);}while(r);
S_20710:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(17949);if(r)goto S_20710;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(17950);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(17951);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(17952);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17954);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(17958);}while(r);
S_20719:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17958);if(r)goto S_20719;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(17958);}while(r);
}
S_20722:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17959);if(r)goto S_20722;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17959);}while(r);
}
S_20725:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(17960);if(r)goto S_20725;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(17960);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(17960);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(17962);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17963);}while(r);
}else{
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17965);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(17966);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(17967);}while(r);
S_20735:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17967);if(r)goto S_20735;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(17967);}while(r);
}
S_20738:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17968);if(r)goto S_20738;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17968);}while(r);
}
S_20741:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17969);if(r)goto S_20741;}
do{
SUB_WRITEBUFLINE(&(pass3109=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17969);}while(r);
}
S_20744:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(17970);if(r)goto S_20744;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(17971);}while(r);
S_20746:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17972);if(r)goto S_20746;}
do{
SUB_WRITEBUFLINE(&(pass3110=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int64)(qb_safe_idiv(*__LONG_OS_BITS, 8 )),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17972);}while(r);
}
S_20749:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17973);if(r)goto S_20749;}
do{
SUB_WRITEBUFLINE(&(pass3111=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17973);}while(r);
}
S_20752:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17974);if(r)goto S_20752;}
do{
SUB_WRITEBUFLINE(&(pass3112=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17974);}while(r);
}
}else{
S_20756:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17976);if(r)goto S_20756;}
do{
SUB_WRITEBUFLINE(&(pass3113=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(",20)),qbs__tostr((int64)(qb_safe_idiv(*__LONG_OS_BITS, 8 )),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17976);}while(r);
}
}
S_20760:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17978);if(r)goto S_20760;}
do{
SUB_WRITEBUFLINE(&(pass3114=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17978);}while(r);
}
S_20763:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(17979);if(r)goto S_20763;}
do{
SUB_WRITEBUFLINE(&(pass3115=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17979);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17981);}while(r);
S_20768:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(17982);if(r)goto S_20768;}
S_20769:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17983);if(r)goto S_20769;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~%&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17983);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17983);}while(r);
}
}
S_20775:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(17985);if(r)goto S_20775;}
S_20776:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17986);if(r)goto S_20776;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~%&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17986);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17986);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17988);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(17989);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3116= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17990);}while(r);
S_20785:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17991);if(r)goto S_20785;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17991);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(17992);}while(r);
}
S_20790:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("LONG",4))))||is_error_pending()){
if(qbevent){evnt(17995);if(r)goto S_20790;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17996);}while(r);
S_20792:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(17997);if(r)goto S_20792;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17997);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17997);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("LONG_",5)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17998);}while(r);
S_20797:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(17999);if(r)goto S_20797;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(18000);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18001);}while(r);
S_20800:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18001);if(r)goto S_20800;}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18001);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("&",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18002);}while(r);
S_20804:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18003);if(r)goto S_20804;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18004);}while(r);
S_20806:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18005);if(r)goto S_20806;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18005);}while(r);
}
S_20809:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(18006);if(r)goto S_20809;}
S_20810:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(18007);if(r)goto S_20810;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18008);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(18009);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18009);}while(r);
do{
goto dl_exit_3117;
if(!qbevent)break;evnt(18010);}while(r);
}
S_20816:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(18012);if(r)goto S_20816;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(18012);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18012);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(18012);}while(r);
}
S_20822:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18013);if(r)goto S_20822;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18013);}while(r);
}
dl_continue_3117:;
}
dl_exit_3117:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18016);}while(r);
S_20828:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18022);if(r)goto S_20828;}
S_20829:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(18024);if(r)goto S_20829;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(18025);}while(r);
S_20831:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(18025);if(r)goto S_20831;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18025);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3119= 4 ),&(pass3120= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18027);}while(r);
S_20836:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18028);if(r)goto S_20836;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18028);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18029);}while(r);
S_20840:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(18030);if(r)goto S_20840;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18030);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18031);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18034);}while(r);
S_20846:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(18035);if(r)goto S_20846;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(18036);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(18037);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(18038);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18040);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(18044);}while(r);
S_20855:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18044);if(r)goto S_20855;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(18044);}while(r);
}
S_20858:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18045);if(r)goto S_20858;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18045);}while(r);
}
S_20861:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(18046);if(r)goto S_20861;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(18046);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(18046);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(18048);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18049);}while(r);
}else{
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18051);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18052);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(18053);}while(r);
S_20871:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18053);if(r)goto S_20871;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(18053);}while(r);
}
S_20874:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18054);if(r)goto S_20874;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18054);}while(r);
}
S_20877:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18055);if(r)goto S_20877;}
do{
SUB_WRITEBUFLINE(&(pass3121=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18055);}while(r);
}
S_20880:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18056);if(r)goto S_20880;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18057);}while(r);
S_20882:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18058);if(r)goto S_20882;}
do{
SUB_WRITEBUFLINE(&(pass3122=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18058);}while(r);
}
S_20885:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18059);if(r)goto S_20885;}
do{
SUB_WRITEBUFLINE(&(pass3123=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18059);}while(r);
}
S_20888:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18060);if(r)goto S_20888;}
do{
SUB_WRITEBUFLINE(&(pass3124=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18060);}while(r);
}
}else{
S_20892:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18062);if(r)goto S_20892;}
do{
SUB_WRITEBUFLINE(&(pass3125=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(4);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18062);}while(r);
}
}
S_20896:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18064);if(r)goto S_20896;}
do{
SUB_WRITEBUFLINE(&(pass3126=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18064);}while(r);
}
S_20899:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18065);if(r)goto S_20899;}
do{
SUB_WRITEBUFLINE(&(pass3127=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18065);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18067);}while(r);
S_20904:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(18068);if(r)goto S_20904;}
S_20905:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18069);if(r)goto S_20905;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18069);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18069);}while(r);
}
}
S_20911:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(18071);if(r)goto S_20911;}
S_20912:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18072);if(r)goto S_20912;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18072);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18072);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18074);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(18075);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3128= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18076);}while(r);
S_20921:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18077);if(r)goto S_20921;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18077);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18078);}while(r);
}
S_20926:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_INTEGER64",10))))||is_error_pending()){
if(qbevent){evnt(18081);if(r)goto S_20926;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18082);}while(r);
S_20928:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18083);if(r)goto S_20928;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18083);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18083);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("INTEGER64_",10)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18084);}while(r);
S_20933:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(18085);if(r)goto S_20933;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(18086);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18087);}while(r);
S_20936:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18087);if(r)goto S_20936;}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18087);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("&&",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18088);}while(r);
S_20940:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18089);if(r)goto S_20940;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18090);}while(r);
S_20942:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18091);if(r)goto S_20942;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18091);}while(r);
}
S_20945:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(18092);if(r)goto S_20945;}
S_20946:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(18093);if(r)goto S_20946;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18094);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(18095);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18095);}while(r);
do{
goto dl_exit_3129;
if(!qbevent)break;evnt(18096);}while(r);
}
S_20952:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(18098);if(r)goto S_20952;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(18098);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18098);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(18098);}while(r);
}
S_20958:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18099);if(r)goto S_20958;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18099);}while(r);
}
dl_continue_3129:;
}
dl_exit_3129:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18102);}while(r);
S_20964:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18108);if(r)goto S_20964;}
S_20965:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(18110);if(r)goto S_20965;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(18111);}while(r);
S_20967:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(18111);if(r)goto S_20967;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18111);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3131= 8 ),&(pass3132= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18113);}while(r);
S_20972:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18114);if(r)goto S_20972;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18114);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18115);}while(r);
S_20976:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(18116);if(r)goto S_20976;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18116);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18117);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18120);}while(r);
S_20982:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(18121);if(r)goto S_20982;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(18122);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(18123);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(18124);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18126);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(18130);}while(r);
S_20991:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18130);if(r)goto S_20991;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(18130);}while(r);
}
S_20994:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18131);if(r)goto S_20994;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18131);}while(r);
}
S_20997:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(18132);if(r)goto S_20997;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(18132);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(18132);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(18134);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18135);}while(r);
}else{
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18137);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18138);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(18139);}while(r);
S_21007:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18139);if(r)goto S_21007;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(18139);}while(r);
}
S_21010:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18140);if(r)goto S_21010;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18140);}while(r);
}
S_21013:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18141);if(r)goto S_21013;}
do{
SUB_WRITEBUFLINE(&(pass3133=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18141);}while(r);
}
S_21016:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18142);if(r)goto S_21016;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18143);}while(r);
S_21018:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18144);if(r)goto S_21018;}
do{
SUB_WRITEBUFLINE(&(pass3134=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18144);}while(r);
}
S_21021:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18145);if(r)goto S_21021;}
do{
SUB_WRITEBUFLINE(&(pass3135=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18145);}while(r);
}
S_21024:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18146);if(r)goto S_21024;}
do{
SUB_WRITEBUFLINE(&(pass3136=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18146);}while(r);
}
}else{
S_21028:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18148);if(r)goto S_21028;}
do{
SUB_WRITEBUFLINE(&(pass3137=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(8);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18148);}while(r);
}
}
S_21032:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18150);if(r)goto S_21032;}
do{
SUB_WRITEBUFLINE(&(pass3138=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18150);}while(r);
}
S_21035:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18151);if(r)goto S_21035;}
do{
SUB_WRITEBUFLINE(&(pass3139=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18151);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18153);}while(r);
S_21040:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(18154);if(r)goto S_21040;}
S_21041:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18155);if(r)goto S_21041;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~&&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18155);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("&&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18155);}while(r);
}
}
S_21047:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(18157);if(r)goto S_21047;}
S_21048:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(18158);if(r)goto S_21048;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~&&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18158);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("&&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18158);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18160);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(18161);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3140= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18162);}while(r);
S_21057:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18163);if(r)goto S_21057;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18163);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18164);}while(r);
}
S_21062:;
if ((-(*_FUNC_DIM2_LONG_UNSGN== 1 ))||is_error_pending()){
if(qbevent){evnt(18167);if(r)goto S_21062;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Type cannot be _UNSIGNED",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18167);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18167);}while(r);
}
S_21066:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("SINGLE",6))))||is_error_pending()){
if(qbevent){evnt(18169);if(r)goto S_21066;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("float",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18170);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("SINGLE_",7)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18171);}while(r);
S_21069:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(18172);if(r)goto S_21069;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(18173);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("!",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18174);}while(r);
S_21072:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18175);if(r)goto S_21072;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18176);}while(r);
S_21074:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18177);if(r)goto S_21074;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18177);}while(r);
}
S_21077:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(18178);if(r)goto S_21077;}
S_21078:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(18179);if(r)goto S_21078;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18180);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(18181);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18181);}while(r);
do{
goto dl_exit_3141;
if(!qbevent)break;evnt(18182);}while(r);
}
S_21084:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(18184);if(r)goto S_21084;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(18184);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18184);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(18184);}while(r);
}
S_21090:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18185);if(r)goto S_21090;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18185);}while(r);
}
dl_continue_3141:;
}
dl_exit_3141:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18188);}while(r);
S_21096:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18194);if(r)goto S_21096;}
S_21097:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(18196);if(r)goto S_21097;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(18197);}while(r);
S_21099:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(18197);if(r)goto S_21099;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18197);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3143= 4 ),&(pass3144= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18199);}while(r);
S_21104:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18200);if(r)goto S_21104;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18200);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18201);}while(r);
S_21108:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(18202);if(r)goto S_21108;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18202);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18203);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18206);}while(r);
S_21114:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(18207);if(r)goto S_21114;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(18208);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(18209);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(18210);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18212);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(18216);}while(r);
S_21123:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18217);if(r)goto S_21123;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18217);}while(r);
}
S_21126:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(18218);if(r)goto S_21126;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(18218);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(18218);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(18220);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18221);}while(r);
}else{
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18223);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18224);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(18225);}while(r);
S_21136:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18226);if(r)goto S_21136;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18226);}while(r);
}
S_21139:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18227);if(r)goto S_21139;}
do{
SUB_WRITEBUFLINE(&(pass3145=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18227);}while(r);
}
S_21142:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18228);if(r)goto S_21142;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18229);}while(r);
S_21144:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18230);if(r)goto S_21144;}
do{
SUB_WRITEBUFLINE(&(pass3146=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18230);}while(r);
}
S_21147:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18231);if(r)goto S_21147;}
do{
SUB_WRITEBUFLINE(&(pass3147=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18231);}while(r);
}
S_21150:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18232);if(r)goto S_21150;}
do{
SUB_WRITEBUFLINE(&(pass3148=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18232);}while(r);
}
}else{
S_21154:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18234);if(r)goto S_21154;}
do{
SUB_WRITEBUFLINE(&(pass3149=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(4);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18234);}while(r);
}
}
S_21158:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18236);if(r)goto S_21158;}
do{
SUB_WRITEBUFLINE(&(pass3150=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18236);}while(r);
}
S_21161:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18237);if(r)goto S_21161;}
do{
SUB_WRITEBUFLINE(&(pass3151=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18237);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18239);}while(r);
S_21166:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(18240);if(r)goto S_21166;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18241);}while(r);
}
S_21169:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(18243);if(r)goto S_21169;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18244);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18246);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(18247);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3152= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18248);}while(r);
S_21175:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18249);if(r)goto S_21175;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18249);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18250);}while(r);
}
S_21180:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("DOUBLE",6))))||is_error_pending()){
if(qbevent){evnt(18253);if(r)goto S_21180;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("double",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18254);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("DOUBLE_",7)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18255);}while(r);
S_21183:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(18256);if(r)goto S_21183;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(18257);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("#",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18258);}while(r);
S_21186:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18259);if(r)goto S_21186;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18260);}while(r);
S_21188:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18261);if(r)goto S_21188;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18261);}while(r);
}
S_21191:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(18262);if(r)goto S_21191;}
S_21192:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(18263);if(r)goto S_21192;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18264);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(18265);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18265);}while(r);
do{
goto dl_exit_3153;
if(!qbevent)break;evnt(18266);}while(r);
}
S_21198:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(18268);if(r)goto S_21198;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(18268);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18268);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(18268);}while(r);
}
S_21204:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18269);if(r)goto S_21204;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18269);}while(r);
}
dl_continue_3153:;
}
dl_exit_3153:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18272);}while(r);
S_21210:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18278);if(r)goto S_21210;}
S_21211:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(18280);if(r)goto S_21211;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(18281);}while(r);
S_21213:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(18281);if(r)goto S_21213;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18281);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3155= 8 ),&(pass3156= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18283);}while(r);
S_21218:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18284);if(r)goto S_21218;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18284);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18285);}while(r);
S_21222:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(18286);if(r)goto S_21222;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18286);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18287);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18290);}while(r);
S_21228:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(18291);if(r)goto S_21228;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(18292);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(18293);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(18294);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18296);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(18300);}while(r);
S_21237:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18301);if(r)goto S_21237;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18301);}while(r);
}
S_21240:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(18302);if(r)goto S_21240;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(18302);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(18302);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(18304);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18305);}while(r);
}else{
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18307);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18308);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(18309);}while(r);
S_21250:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18310);if(r)goto S_21250;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18310);}while(r);
}
S_21253:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18311);if(r)goto S_21253;}
do{
SUB_WRITEBUFLINE(&(pass3157=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18311);}while(r);
}
S_21256:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18312);if(r)goto S_21256;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18313);}while(r);
S_21258:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18314);if(r)goto S_21258;}
do{
SUB_WRITEBUFLINE(&(pass3158=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18314);}while(r);
}
S_21261:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18315);if(r)goto S_21261;}
do{
SUB_WRITEBUFLINE(&(pass3159=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18315);}while(r);
}
S_21264:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18316);if(r)goto S_21264;}
do{
SUB_WRITEBUFLINE(&(pass3160=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18316);}while(r);
}
}else{
S_21268:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18318);if(r)goto S_21268;}
do{
SUB_WRITEBUFLINE(&(pass3161=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(8);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18318);}while(r);
}
}
S_21272:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18320);if(r)goto S_21272;}
do{
SUB_WRITEBUFLINE(&(pass3162=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18320);}while(r);
}
S_21275:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18321);if(r)goto S_21275;}
do{
SUB_WRITEBUFLINE(&(pass3163=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18321);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18323);}while(r);
S_21280:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(18324);if(r)goto S_21280;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18325);}while(r);
}
S_21283:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(18327);if(r)goto S_21283;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18328);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18330);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(18331);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3164= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18332);}while(r);
S_21289:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18333);if(r)goto S_21289;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18333);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18334);}while(r);
}
S_21294:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_FLOAT",6))))||is_error_pending()){
if(qbevent){evnt(18337);if(r)goto S_21294;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18338);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("FLOAT_",6)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18339);}while(r);
S_21297:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(18340);if(r)goto S_21297;}
do{
*__LONG_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(18341);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("##",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18342);}while(r);
S_21300:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18343);if(r)goto S_21300;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18344);}while(r);
S_21302:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18345);if(r)goto S_21302;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18345);}while(r);
}
S_21305:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(18346);if(r)goto S_21305;}
S_21306:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(18347);if(r)goto S_21306;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18348);}while(r);
do{
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(18349);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18349);}while(r);
do{
goto dl_exit_3165;
if(!qbevent)break;evnt(18350);}while(r);
}
S_21312:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(18352);if(r)goto S_21312;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(18352);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18352);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(18352);}while(r);
}
S_21318:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18353);if(r)goto S_21318;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18353);}while(r);
}
dl_continue_3165:;
}
dl_exit_3165:;
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18356);}while(r);
S_21324:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(18362);if(r)goto S_21324;}
S_21325:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(18364);if(r)goto S_21325;}
do{
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
if(!qbevent)break;evnt(18365);}while(r);
S_21327:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(18365);if(r)goto S_21327;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18365);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass3167= 32 ),&(pass3168= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18367);}while(r);
S_21332:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18368);if(r)goto S_21332;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18368);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18369);}while(r);
S_21336:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(18370);if(r)goto S_21336;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18370);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18371);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18374);}while(r);
S_21342:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(18375);if(r)goto S_21342;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(18376);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(18377);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(18378);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18380);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(18384);}while(r);
S_21351:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18385);if(r)goto S_21351;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18385);}while(r);
}
S_21354:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(18386);if(r)goto S_21354;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(18386);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(18386);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(18388);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18389);}while(r);
}else{
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18391);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(18392);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(18393);}while(r);
S_21364:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(18394);if(r)goto S_21364;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18394);}while(r);
}
S_21367:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(18395);if(r)goto S_21367;}
do{
SUB_WRITEBUFLINE(&(pass3169=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18395);}while(r);
}
S_21370:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(18396);if(r)goto S_21370;}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(18397);}while(r);
S_21372:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(18398);if(r)goto S_21372;}
do{
SUB_WRITEBUFLINE(&(pass3170=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=32;",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18398);}while(r);
}
S_21375:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(18399);if(r)goto S_21375;}
do{
SUB_WRITEBUFLINE(&(pass3171=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18399);}while(r);
}
S_21378:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(18400);if(r)goto S_21378;}
do{
SUB_WRITEBUFLINE(&(pass3172=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18400);}while(r);
}
}else{
S_21382:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(18402);if(r)goto S_21382;}
do{
SUB_WRITEBUFLINE(&(pass3173=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(32);",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18402);}while(r);
}
}
S_21386:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(18404);if(r)goto S_21386;}
do{
SUB_WRITEBUFLINE(&(pass3174=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18404);}while(r);
}
S_21389:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(18405);if(r)goto S_21389;}
do{
SUB_WRITEBUFLINE(&(pass3175=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18405);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18407);}while(r);
S_21394:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(18408);if(r)goto S_21394;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("##",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18409);}while(r);
}
S_21397:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(18411);if(r)goto S_21397;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("##",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18412);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18414);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(18415);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass3176= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18416);}while(r);
S_21403:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18417);if(r)goto S_21403;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18417);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(18418);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Unknown type",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18421);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18421);}while(r);
LABEL_DIM2EXITFUNC:;
if(qbevent){evnt(18422);r=0;}
S_21410:;
if ((*__INTEGER_DIMSFARRAY)||is_error_pending()){
if(qbevent){evnt(18424);if(r)goto S_21410;}
do{
*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2959)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(18425);}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2963)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(18426);}while(r);
}
S_21414:;
if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||is_error_pending()){
if(qbevent){evnt(18430);if(r)goto S_21414;}
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18431);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18432);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(18433);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,_FUNC_DIM2_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18436);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free47.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;
return *_FUNC_DIM2_LONG_DIM2;
}
