int32 FUNC_TYPNAME2TYP(qbs*_FUNC_TYPNAME2TYP_STRING_T2){
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 "data262.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{
*__LONG_TYPNAME2TYPSIZE= 0 ;
if(!qbevent)break;evnt(28172,578,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,580,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,583,"type.bas");}while(r);
S_41423:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(28172,584,"type.bas");if(r)goto S_41423;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(28172,584,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,584,"type.bas");}while(r);
}
S_41427:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("!",1))))||is_error_pending()){
if(qbevent){evnt(28172,585,"type.bas");if(r)goto S_41427;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(28172,585,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,585,"type.bas");}while(r);
}
S_41431:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(28172,586,"type.bas");if(r)goto S_41431;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(28172,586,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,586,"type.bas");}while(r);
}
S_41435:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(28172,587,"type.bas");if(r)goto S_41435;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(28172,587,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,587,"type.bas");}while(r);
}
S_41439:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(28172,590,"type.bas");if(r)goto S_41439;}
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,591,"type.bas");}while(r);
S_41441:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(28172,592,"type.bas");if(r)goto S_41441;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,592,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,592,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,593,"type.bas");}while(r);
S_41446:;
if ((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(28172,594,"type.bas");if(r)goto S_41446;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,594,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,594,"type.bas");}while(r);
}
do{
*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B;
if(!qbevent)break;evnt(28172,595,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(28172,596,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,597,"type.bas");}while(r);
}
S_41454:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||is_error_pending()){
if(qbevent){evnt(28172,601,"type.bas");if(r)goto S_41454;}
do{
*_FUNC_TYPNAME2TYP_LONG_UNSGN= 1 ;
if(!qbevent)break;evnt(28172,601,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,601,"type.bas");}while(r);
}
S_41458:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||is_error_pending()){
if(qbevent){evnt(28172,604,"type.bas");if(r)goto S_41458;}
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,605,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_B= 1 ;
if(!qbevent)break;evnt(28172,606,"type.bas");}while(r);
S_41461:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYPNAME2TYP_STRING_N,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28172,607,"type.bas");if(r)goto S_41461;}
S_41462:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(28172,608,"type.bas");if(r)goto S_41462;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,608,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,608,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,609,"type.bas");}while(r);
S_41467:;
if ((-(*_FUNC_TYPNAME2TYP_LONG_B> 64 ))||is_error_pending()){
if(qbevent){evnt(28172,610,"type.bas");if(r)goto S_41467;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,610,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,610,"type.bas");}while(r);
}
}
S_41472:;
if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(28172,612,"type.bas");if(r)goto S_41472;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 );
if(!qbevent)break;evnt(28172,612,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 );
if(!qbevent)break;evnt(28172,612,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,613,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_T= 0 ;
if(!qbevent)break;evnt(28172,616,"type.bas");}while(r);
S_41480:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(28172,617,"type.bas");if(r)goto S_41480;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(28172,617,"type.bas");}while(r);
}
S_41483:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(28172,618,"type.bas");if(r)goto S_41483;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(28172,618,"type.bas");}while(r);
}
S_41486:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(28172,619,"type.bas");if(r)goto S_41486;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(28172,619,"type.bas");}while(r);
}
S_41489:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(28172,620,"type.bas");if(r)goto S_41489;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(28172,620,"type.bas");}while(r);
}
S_41492:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(28172,621,"type.bas");if(r)goto S_41492;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(28172,621,"type.bas");}while(r);
}
S_41495:;
if ((*_FUNC_TYPNAME2TYP_LONG_T)||is_error_pending()){
if(qbevent){evnt(28172,623,"type.bas");if(r)goto S_41495;}
S_41496:;
if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(28172,624,"type.bas");if(r)goto S_41496;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(28172,624,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
if(!qbevent)break;evnt(28172,625,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,625,"type.bas");}while(r);
}
S_41502:;
fornext_value4957= 1 ;
fornext_finalvalue4957=_FUNC_TYPNAME2TYP_STRING_T->len;
fornext_step4957= 1 ;
if (fornext_step4957<0) fornext_step_negative4957=1; else fornext_step_negative4957=0;
if (is_error_pending()) goto fornext_error4957;
goto fornext_entrylabel4957;
while(1){
fornext_value4957=fornext_step4957+(*_FUNC_TYPNAME2TYP_LONG_I);
fornext_entrylabel4957:
*_FUNC_TYPNAME2TYP_LONG_I=fornext_value4957;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4957){
if (fornext_value4957<fornext_finalvalue4957) break;
}else{
if (fornext_value4957>fornext_finalvalue4957) break;
}
fornext_error4957:;
if(qbevent){evnt(28172,630,"type.bas");if(r)goto S_41502;}
S_41503:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(28172,631,"type.bas");if(r)goto S_41503;}
do{
sub_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
if(!qbevent)break;evnt(28172,631,"type.bas");}while(r);
}
fornext_continue_4956:;
}
fornext_exit_4956:;
S_41507:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("STRING",6))))||is_error_pending()){
if(qbevent){evnt(28172,633,"type.bas");if(r)goto S_41507;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(28172,633,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,633,"type.bas");}while(r);
}
S_41511:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("STRING * ",9))))||is_error_pending()){
if(qbevent){evnt(28172,635,"type.bas");if(r)goto S_41511;}
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 9 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,637,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 0 ;
if(!qbevent)break;evnt(28172,640,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,641,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(28172,642,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,643,"type.bas");}while(r);
S_41517:;
while((*_FUNC_TYPNAME2TYP_LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(28172,644,"type.bas");if(r)goto S_41517;}
S_41518:;
if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(28172,645,"type.bas");if(r)goto S_41518;}
S_41519:;
if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||is_error_pending()){
if(qbevent){evnt(28172,646,"type.bas");if(r)goto S_41519;}
do{
*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 1 ;
if(!qbevent)break;evnt(28172,647,"type.bas");}while(r);
do{
goto dl_exit_4960;
if(!qbevent)break;evnt(28172,648,"type.bas");}while(r);
}
}
S_41524:;
if ((-(*_FUNC_TYPNAME2TYP_LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(28172,651,"type.bas");if(r)goto S_41524;}
do{
*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF);
if(!qbevent)break;evnt(28172,651,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(28172,651,"type.bas");}while(r);
}
dl_continue_4960:;
}
dl_exit_4960:;
S_41530:;
if ((*_FUNC_TYPNAME2TYP_LONG_HASHFOUND)||is_error_pending()){
if(qbevent){evnt(28172,653,"type.bas");if(r)goto S_41530;}
do{
*_FUNC_TYPNAME2TYP_LONG_I2=*_FUNC_TYPNAME2TYP_LONG_HASHRESREF;
if(!qbevent)break;evnt(28172,654,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])];
if(!qbevent)break;evnt(28172,655,"type.bas");}while(r);
S_41533:;
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(28172,656,"type.bas");if(r)goto S_41533;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,656,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,656,"type.bas");}while(r);
}
S_41537:;
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(28172,658,"type.bas");if(r)goto S_41537;}
do{
*_FUNC_TYPNAME2TYP_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])];
if(!qbevent)break;evnt(28172,659,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_INTEGER64_V=qbr(*_FUNC_TYPNAME2TYP_FLOAT_V);
if(!qbevent)break;evnt(28172,660,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(28172,661,"type.bas");}while(r);
}else{
S_41542:;
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(28172,663,"type.bas");if(r)goto S_41542;}
do{
*_FUNC_TYPNAME2TYP_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])];
if(!qbevent)break;evnt(28172,664,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_INTEGER64_V=*_FUNC_TYPNAME2TYP_UINTEGER64_V;
if(!qbevent)break;evnt(28172,665,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(28172,666,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])];
if(!qbevent)break;evnt(28172,668,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(28172,669,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(28172,670,"type.bas");}while(r);
}
}
S_41552:;
if (((-(*_FUNC_TYPNAME2TYP_INTEGER64_V< 1 ))|(-(*_FUNC_TYPNAME2TYP_INTEGER64_V> 9999999999ll )))||is_error_pending()){
if(qbevent){evnt(28172,673,"type.bas");if(r)goto S_41552;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,673,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,673,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(28172,674,"type.bas");}while(r);
do{
goto LABEL_CONSTANTLENSTR;
if(!qbevent)break;evnt(28172,675,"type.bas");}while(r);
}
S_41559:;
if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||is_error_pending()){
if(qbevent){evnt(28172,678,"type.bas");if(r)goto S_41559;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number/constant after STRING * type",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,678,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,678,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,679,"type.bas");}while(r);
S_41564:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||is_error_pending()){
if(qbevent){evnt(28172,680,"type.bas");if(r)goto S_41564;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number after STRING * type",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,680,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,680,"type.bas");}while(r);
}
LABEL_CONSTANTLENSTR:;
if(qbevent){evnt(28172,681,"type.bas");r=0;}
do{
*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B;
if(!qbevent)break;evnt(28172,682,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(28172,683,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,684,"type.bas");}while(r);
}
S_41572:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("SINGLE",6))))||is_error_pending()){
if(qbevent){evnt(28172,687,"type.bas");if(r)goto S_41572;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(28172,687,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,687,"type.bas");}while(r);
}
S_41576:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("DOUBLE",6))))||is_error_pending()){
if(qbevent){evnt(28172,688,"type.bas");if(r)goto S_41576;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(28172,688,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,688,"type.bas");}while(r);
}
S_41580:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_FLOAT",6))))||is_error_pending()){
if(qbevent){evnt(28172,689,"type.bas");if(r)goto S_41580;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(28172,689,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,689,"type.bas");}while(r);
}
S_41584:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 10 ),qbs_new_txt_len("_UNSIGNED ",10))))||is_error_pending()){
if(qbevent){evnt(28172,690,"type.bas");if(r)goto S_41584;}
do{
*_FUNC_TYPNAME2TYP_LONG_U= 1 ;
if(!qbevent)break;evnt(28172,691,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_T,func_mid(_FUNC_TYPNAME2TYP_STRING_T,func_instr(NULL,_FUNC_TYPNAME2TYP_STRING_T,func_chr( 32 ),0)+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,692,"type.bas");}while(r);
}
S_41588:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4))))||is_error_pending()){
if(qbevent){evnt(28172,694,"type.bas");if(r)goto S_41588;}
S_41589:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BIT",4))))||is_error_pending()){
if(qbevent){evnt(28172,695,"type.bas");if(r)goto S_41589;}
S_41590:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(28172,696,"type.bas");if(r)goto S_41590;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE;
if(!qbevent)break;evnt(28172,696,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE;
if(!qbevent)break;evnt(28172,696,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,697,"type.bas");}while(r);
}
S_41597:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 7 ),qbs_new_txt_len("_BIT * ",7))))||is_error_pending()){
if(qbevent){evnt(28172,700,"type.bas");if(r)goto S_41597;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,700,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,700,"type.bas");}while(r);
}
S_41601:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4))))||is_error_pending()){
if(qbevent){evnt(28172,702,"type.bas");if(r)goto S_41601;}
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,703,"type.bas");}while(r);
}else{
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,705,"type.bas");}while(r);
}
S_41606:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(28172,708,"type.bas");if(r)goto S_41606;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,708,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,708,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,709,"type.bas");}while(r);
S_41611:;
if (((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(*_FUNC_TYPNAME2TYP_LONG_B> 64 )))||is_error_pending()){
if(qbevent){evnt(28172,710,"type.bas");if(r)goto S_41611;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,710,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,710,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BITTYPE- 1 +*_FUNC_TYPNAME2TYP_LONG_B;
if(!qbevent)break;evnt(28172,711,"type.bas");}while(r);
S_41616:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(28172,711,"type.bas");if(r)goto S_41616;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(28172,711,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
if(!qbevent)break;evnt(28172,712,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,713,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_T= 0 ;
if(!qbevent)break;evnt(28172,716,"type.bas");}while(r);
S_41623:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BYTE",5))))||is_error_pending()){
if(qbevent){evnt(28172,717,"type.bas");if(r)goto S_41623;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(28172,717,"type.bas");}while(r);
}
S_41626:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER",7))))||is_error_pending()){
if(qbevent){evnt(28172,718,"type.bas");if(r)goto S_41626;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(28172,718,"type.bas");}while(r);
}
S_41629:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("LONG",4))))||is_error_pending()){
if(qbevent){evnt(28172,719,"type.bas");if(r)goto S_41629;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(28172,719,"type.bas");}while(r);
}
S_41632:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_INTEGER64",10))))||is_error_pending()){
if(qbevent){evnt(28172,720,"type.bas");if(r)goto S_41632;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(28172,720,"type.bas");}while(r);
}
S_41635:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(28172,721,"type.bas");if(r)goto S_41635;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(28172,721,"type.bas");}while(r);
}
S_41638:;
if ((*_FUNC_TYPNAME2TYP_LONG_T)||is_error_pending()){
if(qbevent){evnt(28172,722,"type.bas");if(r)goto S_41638;}
S_41639:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(28172,723,"type.bas");if(r)goto S_41639;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(28172,723,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
if(!qbevent)break;evnt(28172,724,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,725,"type.bas");}while(r);
}
S_41645:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(28172,727,"type.bas");if(r)goto S_41645;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,727,"type.bas");}while(r);
}
S_41648:;
fornext_value4966= 1 ;
fornext_finalvalue4966=*__LONG_LASTTYPE;
fornext_step4966= 1 ;
if (fornext_step4966<0) fornext_step_negative4966=1; else fornext_step_negative4966=0;
if (is_error_pending()) goto fornext_error4966;
goto fornext_entrylabel4966;
while(1){
fornext_value4966=fornext_step4966+(*_FUNC_TYPNAME2TYP_LONG_I);
fornext_entrylabel4966:
*_FUNC_TYPNAME2TYP_LONG_I=fornext_value4966;
if (fornext_step_negative4966){
if (fornext_value4966<fornext_finalvalue4966) break;
}else{
if (fornext_value4966>fornext_finalvalue4966) break;
}
fornext_error4966:;
if(qbevent){evnt(28172,730,"type.bas");if(r)goto S_41648;}
S_41649:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_TYPNAME2TYP_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||is_error_pending()){
if(qbevent){evnt(28172,731,"type.bas");if(r)goto S_41649;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I;
if(!qbevent)break;evnt(28172,732,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,733,"type.bas");}while(r);
}
fornext_continue_4965:;
}
fornext_exit_4965:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free262.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_TYPNAME2TYP_LONG_TYPNAME2TYP;
}
