#line 559 "utilities/type.bas"
int32 FUNC_TYPNAME2TYP(qbs*_FUNC_TYPNAME2TYP_STRING_T2){
#line 559 "utilities/type.bas"
qbs *tqbs;
#line 559 "utilities/type.bas"
ptrszint tmp_long;
#line 559 "utilities/type.bas"
int32 tmp_fileno;
#line 559 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 559 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 559 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 559 "utilities/type.bas"
#include "data295.txt"
#line 559 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 559 "utilities/type.bas"
new_mem_lock();
#line 559 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 559 "utilities/type.bas"
sf_mem_lock->type=3;
#line 559 "utilities/type.bas"
libqb_check_stack();
#line 559 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 560 "utilities/type.bas"
do{
#line 560 "utilities/type.bas"
*__LONG_TYPNAME2TYPSIZE= 0 ;
#line 560 "utilities/type.bas"
if(!qbevent)break;evnt(28809,560,"type.bas");}while(r);
#line 562 "utilities/type.bas"
do{
#line 562 "utilities/type.bas"
qbs_set(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T2);
#line 562 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 562 "utilities/type.bas"
if(!qbevent)break;evnt(28809,562,"type.bas");}while(r);
#line 565 "utilities/type.bas"
do{
#line 565 "utilities/type.bas"
qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_T);
#line 565 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 565 "utilities/type.bas"
if(!qbevent)break;evnt(28809,565,"type.bas");}while(r);
#line 566 "utilities/type.bas"
S_42894:;
#line 566 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("$",1))))||is_error_pending()){
#line 566 "utilities/type.bas"
if(qbevent){evnt(28809,566,"type.bas");if(r)goto S_42894;}
#line 566 "utilities/type.bas"
do{
#line 566 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE;
#line 566 "utilities/type.bas"
if(!qbevent)break;evnt(28809,566,"type.bas");}while(r);
#line 566 "utilities/type.bas"
do{
#line 566 "utilities/type.bas"
goto exit_subfunc;
#line 566 "utilities/type.bas"
if(!qbevent)break;evnt(28809,566,"type.bas");}while(r);
#line 566 "utilities/type.bas"
}
#line 567 "utilities/type.bas"
S_42898:;
#line 567 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("!",1))))||is_error_pending()){
#line 567 "utilities/type.bas"
if(qbevent){evnt(28809,567,"type.bas");if(r)goto S_42898;}
#line 567 "utilities/type.bas"
do{
#line 567 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE;
#line 567 "utilities/type.bas"
if(!qbevent)break;evnt(28809,567,"type.bas");}while(r);
#line 567 "utilities/type.bas"
do{
#line 567 "utilities/type.bas"
goto exit_subfunc;
#line 567 "utilities/type.bas"
if(!qbevent)break;evnt(28809,567,"type.bas");}while(r);
#line 567 "utilities/type.bas"
}
#line 568 "utilities/type.bas"
S_42902:;
#line 568 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("#",1))))||is_error_pending()){
#line 568 "utilities/type.bas"
if(qbevent){evnt(28809,568,"type.bas");if(r)goto S_42902;}
#line 568 "utilities/type.bas"
do{
#line 568 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE;
#line 568 "utilities/type.bas"
if(!qbevent)break;evnt(28809,568,"type.bas");}while(r);
#line 568 "utilities/type.bas"
do{
#line 568 "utilities/type.bas"
goto exit_subfunc;
#line 568 "utilities/type.bas"
if(!qbevent)break;evnt(28809,568,"type.bas");}while(r);
#line 568 "utilities/type.bas"
}
#line 569 "utilities/type.bas"
S_42906:;
#line 569 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("##",2))))||is_error_pending()){
#line 569 "utilities/type.bas"
if(qbevent){evnt(28809,569,"type.bas");if(r)goto S_42906;}
#line 569 "utilities/type.bas"
do{
#line 569 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE;
#line 569 "utilities/type.bas"
if(!qbevent)break;evnt(28809,569,"type.bas");}while(r);
#line 569 "utilities/type.bas"
do{
#line 569 "utilities/type.bas"
goto exit_subfunc;
#line 569 "utilities/type.bas"
if(!qbevent)break;evnt(28809,569,"type.bas");}while(r);
#line 569 "utilities/type.bas"
}
#line 572 "utilities/type.bas"
S_42910:;
#line 572 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("$",1))))||is_error_pending()){
#line 572 "utilities/type.bas"
if(qbevent){evnt(28809,572,"type.bas");if(r)goto S_42910;}
#line 573 "utilities/type.bas"
do{
#line 573 "utilities/type.bas"
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 ));
#line 573 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 573 "utilities/type.bas"
if(!qbevent)break;evnt(28809,573,"type.bas");}while(r);
#line 574 "utilities/type.bas"
S_42912:;
#line 574 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
#line 574 "utilities/type.bas"
if(qbevent){evnt(28809,574,"type.bas");if(r)goto S_42912;}
#line 574 "utilities/type.bas"
do{
#line 574 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33));
#line 574 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 574 "utilities/type.bas"
if(!qbevent)break;evnt(28809,574,"type.bas");}while(r);
#line 574 "utilities/type.bas"
do{
#line 574 "utilities/type.bas"
goto exit_subfunc;
#line 574 "utilities/type.bas"
if(!qbevent)break;evnt(28809,574,"type.bas");}while(r);
#line 574 "utilities/type.bas"
}
#line 575 "utilities/type.bas"
do{
#line 575 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
#line 575 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 575 "utilities/type.bas"
if(!qbevent)break;evnt(28809,575,"type.bas");}while(r);
#line 576 "utilities/type.bas"
S_42917:;
#line 576 "utilities/type.bas"
if ((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))||is_error_pending()){
#line 576 "utilities/type.bas"
if(qbevent){evnt(28809,576,"type.bas");if(r)goto S_42917;}
#line 576 "utilities/type.bas"
do{
#line 576 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33));
#line 576 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 576 "utilities/type.bas"
if(!qbevent)break;evnt(28809,576,"type.bas");}while(r);
#line 576 "utilities/type.bas"
do{
#line 576 "utilities/type.bas"
goto exit_subfunc;
#line 576 "utilities/type.bas"
if(!qbevent)break;evnt(28809,576,"type.bas");}while(r);
#line 576 "utilities/type.bas"
}
#line 577 "utilities/type.bas"
do{
#line 577 "utilities/type.bas"
*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B;
#line 577 "utilities/type.bas"
if(!qbevent)break;evnt(28809,577,"type.bas");}while(r);
#line 578 "utilities/type.bas"
do{
#line 578 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
#line 578 "utilities/type.bas"
if(!qbevent)break;evnt(28809,578,"type.bas");}while(r);
#line 579 "utilities/type.bas"
do{
#line 579 "utilities/type.bas"
goto exit_subfunc;
#line 579 "utilities/type.bas"
if(!qbevent)break;evnt(28809,579,"type.bas");}while(r);
#line 580 "utilities/type.bas"
}
#line 583 "utilities/type.bas"
S_42925:;
#line 583 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||is_error_pending()){
#line 583 "utilities/type.bas"
if(qbevent){evnt(28809,583,"type.bas");if(r)goto S_42925;}
#line 583 "utilities/type.bas"
do{
#line 583 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_UNSGN= 1 ;
#line 583 "utilities/type.bas"
if(!qbevent)break;evnt(28809,583,"type.bas");}while(r);
#line 583 "utilities/type.bas"
do{
#line 583 "utilities/type.bas"
qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 ));
#line 583 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 583 "utilities/type.bas"
if(!qbevent)break;evnt(28809,583,"type.bas");}while(r);
#line 583 "utilities/type.bas"
}
#line 586 "utilities/type.bas"
S_42929:;
#line 586 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||is_error_pending()){
#line 586 "utilities/type.bas"
if(qbevent){evnt(28809,586,"type.bas");if(r)goto S_42929;}
#line 587 "utilities/type.bas"
do{
#line 587 "utilities/type.bas"
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 ));
#line 587 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 587 "utilities/type.bas"
if(!qbevent)break;evnt(28809,587,"type.bas");}while(r);
#line 588 "utilities/type.bas"
do{
#line 588 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_B= 1 ;
#line 588 "utilities/type.bas"
if(!qbevent)break;evnt(28809,588,"type.bas");}while(r);
#line 589 "utilities/type.bas"
S_42932:;
#line 589 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYPNAME2TYP_STRING_N,qbs_new_txt_len("",0))))||is_error_pending()){
#line 589 "utilities/type.bas"
if(qbevent){evnt(28809,589,"type.bas");if(r)goto S_42932;}
#line 590 "utilities/type.bas"
S_42933:;
#line 590 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
#line 590 "utilities/type.bas"
if(qbevent){evnt(28809,590,"type.bas");if(r)goto S_42933;}
#line 590 "utilities/type.bas"
do{
#line 590 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29));
#line 590 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 590 "utilities/type.bas"
if(!qbevent)break;evnt(28809,590,"type.bas");}while(r);
#line 590 "utilities/type.bas"
do{
#line 590 "utilities/type.bas"
goto exit_subfunc;
#line 590 "utilities/type.bas"
if(!qbevent)break;evnt(28809,590,"type.bas");}while(r);
#line 590 "utilities/type.bas"
}
#line 591 "utilities/type.bas"
do{
#line 591 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
#line 591 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 591 "utilities/type.bas"
if(!qbevent)break;evnt(28809,591,"type.bas");}while(r);
#line 592 "utilities/type.bas"
S_42938:;
#line 592 "utilities/type.bas"
if ((-(*_FUNC_TYPNAME2TYP_LONG_B> 64 ))||is_error_pending()){
#line 592 "utilities/type.bas"
if(qbevent){evnt(28809,592,"type.bas");if(r)goto S_42938;}
#line 592 "utilities/type.bas"
do{
#line 592 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29));
#line 592 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 592 "utilities/type.bas"
if(!qbevent)break;evnt(28809,592,"type.bas");}while(r);
#line 592 "utilities/type.bas"
do{
#line 592 "utilities/type.bas"
goto exit_subfunc;
#line 592 "utilities/type.bas"
if(!qbevent)break;evnt(28809,592,"type.bas");}while(r);
#line 592 "utilities/type.bas"
}
#line 593 "utilities/type.bas"
}
#line 594 "utilities/type.bas"
S_42943:;
#line 594 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||is_error_pending()){
#line 594 "utilities/type.bas"
if(qbevent){evnt(28809,594,"type.bas");if(r)goto S_42943;}
#line 594 "utilities/type.bas"
do{
#line 594 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 );
#line 594 "utilities/type.bas"
if(!qbevent)break;evnt(28809,594,"type.bas");}while(r);
#line 594 "utilities/type.bas"
}else{
#line 594 "utilities/type.bas"
do{
#line 594 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 );
#line 594 "utilities/type.bas"
if(!qbevent)break;evnt(28809,594,"type.bas");}while(r);
#line 594 "utilities/type.bas"
}
#line 595 "utilities/type.bas"
do{
#line 595 "utilities/type.bas"
goto exit_subfunc;
#line 595 "utilities/type.bas"
if(!qbevent)break;evnt(28809,595,"type.bas");}while(r);
#line 596 "utilities/type.bas"
}
#line 598 "utilities/type.bas"
do{
#line 598 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T= 0 ;
#line 598 "utilities/type.bas"
if(!qbevent)break;evnt(28809,598,"type.bas");}while(r);
#line 599 "utilities/type.bas"
S_42951:;
#line 599 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 599 "utilities/type.bas"
if(qbevent){evnt(28809,599,"type.bas");if(r)goto S_42951;}
#line 599 "utilities/type.bas"
do{
#line 599 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE;
#line 599 "utilities/type.bas"
if(!qbevent)break;evnt(28809,599,"type.bas");}while(r);
#line 599 "utilities/type.bas"
}
#line 600 "utilities/type.bas"
S_42954:;
#line 600 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 600 "utilities/type.bas"
if(qbevent){evnt(28809,600,"type.bas");if(r)goto S_42954;}
#line 600 "utilities/type.bas"
do{
#line 600 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE;
#line 600 "utilities/type.bas"
if(!qbevent)break;evnt(28809,600,"type.bas");}while(r);
#line 600 "utilities/type.bas"
}
#line 601 "utilities/type.bas"
S_42957:;
#line 601 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 601 "utilities/type.bas"
if(qbevent){evnt(28809,601,"type.bas");if(r)goto S_42957;}
#line 601 "utilities/type.bas"
do{
#line 601 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE;
#line 601 "utilities/type.bas"
if(!qbevent)break;evnt(28809,601,"type.bas");}while(r);
#line 601 "utilities/type.bas"
}
#line 602 "utilities/type.bas"
S_42960:;
#line 602 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 602 "utilities/type.bas"
if(qbevent){evnt(28809,602,"type.bas");if(r)goto S_42960;}
#line 602 "utilities/type.bas"
do{
#line 602 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE;
#line 602 "utilities/type.bas"
if(!qbevent)break;evnt(28809,602,"type.bas");}while(r);
#line 602 "utilities/type.bas"
}
#line 603 "utilities/type.bas"
S_42963:;
#line 603 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%&",2))))||is_error_pending()){
#line 603 "utilities/type.bas"
if(qbevent){evnt(28809,603,"type.bas");if(r)goto S_42963;}
#line 603 "utilities/type.bas"
do{
#line 603 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE;
#line 603 "utilities/type.bas"
if(!qbevent)break;evnt(28809,603,"type.bas");}while(r);
#line 603 "utilities/type.bas"
}
#line 605 "utilities/type.bas"
S_42966:;
#line 605 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_T)||is_error_pending()){
#line 605 "utilities/type.bas"
if(qbevent){evnt(28809,605,"type.bas");if(r)goto S_42966;}
#line 606 "utilities/type.bas"
S_42967:;
#line 606 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||is_error_pending()){
#line 606 "utilities/type.bas"
if(qbevent){evnt(28809,606,"type.bas");if(r)goto S_42967;}
#line 606 "utilities/type.bas"
do{
#line 606 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
#line 606 "utilities/type.bas"
if(!qbevent)break;evnt(28809,606,"type.bas");}while(r);
#line 606 "utilities/type.bas"
}
#line 607 "utilities/type.bas"
do{
#line 607 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
#line 607 "utilities/type.bas"
if(!qbevent)break;evnt(28809,607,"type.bas");}while(r);
#line 607 "utilities/type.bas"
do{
#line 607 "utilities/type.bas"
goto exit_subfunc;
#line 607 "utilities/type.bas"
if(!qbevent)break;evnt(28809,607,"type.bas");}while(r);
#line 608 "utilities/type.bas"
}
#line 612 "utilities/type.bas"
S_42973:;
#line 612 "utilities/type.bas"
fornext_value4273= 1 ;
#line 612 "utilities/type.bas"
fornext_finalvalue4273=_FUNC_TYPNAME2TYP_STRING_T->len;
#line 612 "utilities/type.bas"
fornext_step4273= 1 ;
#line 612 "utilities/type.bas"
if (fornext_step4273<0) fornext_step_negative4273=1; else fornext_step_negative4273=0;
#line 612 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4273;
#line 612 "utilities/type.bas"
goto fornext_entrylabel4273;
#line 612 "utilities/type.bas"
while(1){
#line 612 "utilities/type.bas"
fornext_value4273=fornext_step4273+(*_FUNC_TYPNAME2TYP_LONG_I);
#line 612 "utilities/type.bas"
fornext_entrylabel4273:
#line 612 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_I=fornext_value4273;
#line 612 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 612 "utilities/type.bas"
if (fornext_step_negative4273){
#line 612 "utilities/type.bas"
if (fornext_value4273<fornext_finalvalue4273) break;
#line 612 "utilities/type.bas"
}else{
#line 612 "utilities/type.bas"
if (fornext_value4273>fornext_finalvalue4273) break;
#line 612 "utilities/type.bas"
}
#line 612 "utilities/type.bas"
fornext_error4273:;
#line 612 "utilities/type.bas"
if(qbevent){evnt(28809,612,"type.bas");if(r)goto S_42973;}
#line 613 "utilities/type.bas"
S_42974:;
#line 613 "utilities/type.bas"
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()){
#line 613 "utilities/type.bas"
if(qbevent){evnt(28809,613,"type.bas");if(r)goto S_42974;}
#line 613 "utilities/type.bas"
do{
#line 613 "utilities/type.bas"
sub_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
#line 613 "utilities/type.bas"
if(!qbevent)break;evnt(28809,613,"type.bas");}while(r);
#line 613 "utilities/type.bas"
}
#line 614 "utilities/type.bas"
fornext_continue_4272:;
#line 614 "utilities/type.bas"
}
#line 614 "utilities/type.bas"
fornext_exit_4272:;
#line 615 "utilities/type.bas"
S_42978:;
#line 615 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("STRING",6))))||is_error_pending()){
#line 615 "utilities/type.bas"
if(qbevent){evnt(28809,615,"type.bas");if(r)goto S_42978;}
#line 615 "utilities/type.bas"
do{
#line 615 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE;
#line 615 "utilities/type.bas"
if(!qbevent)break;evnt(28809,615,"type.bas");}while(r);
#line 615 "utilities/type.bas"
do{
#line 615 "utilities/type.bas"
goto exit_subfunc;
#line 615 "utilities/type.bas"
if(!qbevent)break;evnt(28809,615,"type.bas");}while(r);
#line 615 "utilities/type.bas"
}
#line 617 "utilities/type.bas"
S_42982:;
#line 617 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("STRING * ",9))))||is_error_pending()){
#line 617 "utilities/type.bas"
if(qbevent){evnt(28809,617,"type.bas");if(r)goto S_42982;}
#line 619 "utilities/type.bas"
do{
#line 619 "utilities/type.bas"
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 9 ));
#line 619 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 619 "utilities/type.bas"
if(!qbevent)break;evnt(28809,619,"type.bas");}while(r);
#line 622 "utilities/type.bas"
do{
#line 622 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 0 ;
#line 622 "utilities/type.bas"
if(!qbevent)break;evnt(28809,622,"type.bas");}while(r);
#line 623 "utilities/type.bas"
do{
#line 623 "utilities/type.bas"
qbs_set(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_STRING_N);
#line 623 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 623 "utilities/type.bas"
if(!qbevent)break;evnt(28809,623,"type.bas");}while(r);
#line 624 "utilities/type.bas"
do{
#line 624 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS= 1024ll ;
#line 624 "utilities/type.bas"
if(!qbevent)break;evnt(28809,624,"type.bas");}while(r);
#line 625 "utilities/type.bas"
do{
#line 625 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF);
#line 625 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 625 "utilities/type.bas"
if(!qbevent)break;evnt(28809,625,"type.bas");}while(r);
#line 626 "utilities/type.bas"
S_42988:;
#line 626 "utilities/type.bas"
while((*_FUNC_TYPNAME2TYP_LONG_HASHRES)||is_error_pending()){
#line 626 "utilities/type.bas"
if(qbevent){evnt(28809,626,"type.bas");if(r)goto S_42988;}
#line 627 "utilities/type.bas"
S_42989:;
#line 627 "utilities/type.bas"
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()){
#line 627 "utilities/type.bas"
if(qbevent){evnt(28809,627,"type.bas");if(r)goto S_42989;}
#line 628 "utilities/type.bas"
S_42990:;
#line 628 "utilities/type.bas"
if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||is_error_pending()){
#line 628 "utilities/type.bas"
if(qbevent){evnt(28809,628,"type.bas");if(r)goto S_42990;}
#line 629 "utilities/type.bas"
do{
#line 629 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 1 ;
#line 629 "utilities/type.bas"
if(!qbevent)break;evnt(28809,629,"type.bas");}while(r);
#line 630 "utilities/type.bas"
do{
#line 630 "utilities/type.bas"
goto dl_exit_4276;
#line 630 "utilities/type.bas"
if(!qbevent)break;evnt(28809,630,"type.bas");}while(r);
#line 631 "utilities/type.bas"
}
#line 632 "utilities/type.bas"
}
#line 633 "utilities/type.bas"
S_42995:;
#line 633 "utilities/type.bas"
if ((-(*_FUNC_TYPNAME2TYP_LONG_HASHRES!= 1 ))||is_error_pending()){
#line 633 "utilities/type.bas"
if(qbevent){evnt(28809,633,"type.bas");if(r)goto S_42995;}
#line 633 "utilities/type.bas"
do{
#line 633 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF);
#line 633 "utilities/type.bas"
if(!qbevent)break;evnt(28809,633,"type.bas");}while(r);
#line 633 "utilities/type.bas"
}else{
#line 633 "utilities/type.bas"
do{
#line 633 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_HASHRES= 0 ;
#line 633 "utilities/type.bas"
if(!qbevent)break;evnt(28809,633,"type.bas");}while(r);
#line 633 "utilities/type.bas"
}
#line 634 "utilities/type.bas"
dl_continue_4276:;
#line 634 "utilities/type.bas"
}
#line 634 "utilities/type.bas"
dl_exit_4276:;
#line 635 "utilities/type.bas"
S_43001:;
#line 635 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_HASHFOUND)||is_error_pending()){
#line 635 "utilities/type.bas"
if(qbevent){evnt(28809,635,"type.bas");if(r)goto S_43001;}
#line 636 "utilities/type.bas"
do{
#line 636 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_I2=*_FUNC_TYPNAME2TYP_LONG_HASHRESREF;
#line 636 "utilities/type.bas"
if(!qbevent)break;evnt(28809,636,"type.bas");}while(r);
#line 637 "utilities/type.bas"
do{
#line 637 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])];
#line 637 "utilities/type.bas"
if(!qbevent)break;evnt(28809,637,"type.bas");}while(r);
#line 638 "utilities/type.bas"
S_43004:;
#line 638 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 638 "utilities/type.bas"
if(qbevent){evnt(28809,638,"type.bas");if(r)goto S_43004;}
#line 638 "utilities/type.bas"
do{
#line 638 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34));
#line 638 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 638 "utilities/type.bas"
if(!qbevent)break;evnt(28809,638,"type.bas");}while(r);
#line 638 "utilities/type.bas"
do{
#line 638 "utilities/type.bas"
goto exit_subfunc;
#line 638 "utilities/type.bas"
if(!qbevent)break;evnt(28809,638,"type.bas");}while(r);
#line 638 "utilities/type.bas"
}
#line 640 "utilities/type.bas"
S_43008:;
#line 640 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 640 "utilities/type.bas"
if(qbevent){evnt(28809,640,"type.bas");if(r)goto S_43008;}
#line 641 "utilities/type.bas"
do{
#line 641 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])];
#line 641 "utilities/type.bas"
if(!qbevent)break;evnt(28809,641,"type.bas");}while(r);
#line 642 "utilities/type.bas"
do{
#line 642 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_INTEGER64_V=qbr(*_FUNC_TYPNAME2TYP_FLOAT_V);
#line 642 "utilities/type.bas"
if(!qbevent)break;evnt(28809,642,"type.bas");}while(r);
#line 643 "utilities/type.bas"
do{
#line 643 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
#line 643 "utilities/type.bas"
if(!qbevent)break;evnt(28809,643,"type.bas");}while(r);
#line 644 "utilities/type.bas"
}else{
#line 645 "utilities/type.bas"
S_43013:;
#line 645 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 645 "utilities/type.bas"
if(qbevent){evnt(28809,645,"type.bas");if(r)goto S_43013;}
#line 646 "utilities/type.bas"
do{
#line 646 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])];
#line 646 "utilities/type.bas"
if(!qbevent)break;evnt(28809,646,"type.bas");}while(r);
#line 647 "utilities/type.bas"
do{
#line 647 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_INTEGER64_V=*_FUNC_TYPNAME2TYP_UINTEGER64_V;
#line 647 "utilities/type.bas"
if(!qbevent)break;evnt(28809,647,"type.bas");}while(r);
#line 648 "utilities/type.bas"
do{
#line 648 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
#line 648 "utilities/type.bas"
if(!qbevent)break;evnt(28809,648,"type.bas");}while(r);
#line 649 "utilities/type.bas"
}else{
#line 650 "utilities/type.bas"
do{
#line 650 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])];
#line 650 "utilities/type.bas"
if(!qbevent)break;evnt(28809,650,"type.bas");}while(r);
#line 651 "utilities/type.bas"
do{
#line 651 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
#line 651 "utilities/type.bas"
if(!qbevent)break;evnt(28809,651,"type.bas");}while(r);
#line 652 "utilities/type.bas"
do{
#line 652 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
#line 652 "utilities/type.bas"
if(!qbevent)break;evnt(28809,652,"type.bas");}while(r);
#line 653 "utilities/type.bas"
}
#line 654 "utilities/type.bas"
}
#line 655 "utilities/type.bas"
S_43023:;
#line 655 "utilities/type.bas"
if (((-(*_FUNC_TYPNAME2TYP_INTEGER64_V< 1 ))|(-(*_FUNC_TYPNAME2TYP_INTEGER64_V> 9999999999ll )))||is_error_pending()){
#line 655 "utilities/type.bas"
if(qbevent){evnt(28809,655,"type.bas");if(r)goto S_43023;}
#line 655 "utilities/type.bas"
do{
#line 655 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30));
#line 655 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 655 "utilities/type.bas"
if(!qbevent)break;evnt(28809,655,"type.bas");}while(r);
#line 655 "utilities/type.bas"
do{
#line 655 "utilities/type.bas"
goto exit_subfunc;
#line 655 "utilities/type.bas"
if(!qbevent)break;evnt(28809,655,"type.bas");}while(r);
#line 655 "utilities/type.bas"
}
#line 656 "utilities/type.bas"
do{
#line 656 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_B=*_FUNC_TYPNAME2TYP_INTEGER64_V;
#line 656 "utilities/type.bas"
if(!qbevent)break;evnt(28809,656,"type.bas");}while(r);
#line 657 "utilities/type.bas"
do{
#line 657 "utilities/type.bas"
goto LABEL_CONSTANTLENSTR;
#line 657 "utilities/type.bas"
if(!qbevent)break;evnt(28809,657,"type.bas");}while(r);
#line 658 "utilities/type.bas"
}
#line 660 "utilities/type.bas"
S_43030:;
#line 660 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||is_error_pending()){
#line 660 "utilities/type.bas"
if(qbevent){evnt(28809,660,"type.bas");if(r)goto S_43030;}
#line 660 "utilities/type.bas"
do{
#line 660 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number/constant after STRING * type",43));
#line 660 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 660 "utilities/type.bas"
if(!qbevent)break;evnt(28809,660,"type.bas");}while(r);
#line 660 "utilities/type.bas"
do{
#line 660 "utilities/type.bas"
goto exit_subfunc;
#line 660 "utilities/type.bas"
if(!qbevent)break;evnt(28809,660,"type.bas");}while(r);
#line 660 "utilities/type.bas"
}
#line 661 "utilities/type.bas"
do{
#line 661 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
#line 661 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 661 "utilities/type.bas"
if(!qbevent)break;evnt(28809,661,"type.bas");}while(r);
#line 662 "utilities/type.bas"
S_43035:;
#line 662 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||is_error_pending()){
#line 662 "utilities/type.bas"
if(qbevent){evnt(28809,662,"type.bas");if(r)goto S_43035;}
#line 662 "utilities/type.bas"
do{
#line 662 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number after STRING * type",34));
#line 662 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 662 "utilities/type.bas"
if(!qbevent)break;evnt(28809,662,"type.bas");}while(r);
#line 662 "utilities/type.bas"
do{
#line 662 "utilities/type.bas"
goto exit_subfunc;
#line 662 "utilities/type.bas"
if(!qbevent)break;evnt(28809,662,"type.bas");}while(r);
#line 662 "utilities/type.bas"
}
#line 663 "utilities/type.bas"
LABEL_CONSTANTLENSTR:;
#line 663 "utilities/type.bas"
if(qbevent){evnt(28809,663,"type.bas");r=0;}
#line 664 "utilities/type.bas"
do{
#line 664 "utilities/type.bas"
*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B;
#line 664 "utilities/type.bas"
if(!qbevent)break;evnt(28809,664,"type.bas");}while(r);
#line 665 "utilities/type.bas"
do{
#line 665 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
#line 665 "utilities/type.bas"
if(!qbevent)break;evnt(28809,665,"type.bas");}while(r);
#line 666 "utilities/type.bas"
do{
#line 666 "utilities/type.bas"
goto exit_subfunc;
#line 666 "utilities/type.bas"
if(!qbevent)break;evnt(28809,666,"type.bas");}while(r);
#line 667 "utilities/type.bas"
}
#line 669 "utilities/type.bas"
S_43043:;
#line 669 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("SINGLE",6))))||is_error_pending()){
#line 669 "utilities/type.bas"
if(qbevent){evnt(28809,669,"type.bas");if(r)goto S_43043;}
#line 669 "utilities/type.bas"
do{
#line 669 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE;
#line 669 "utilities/type.bas"
if(!qbevent)break;evnt(28809,669,"type.bas");}while(r);
#line 669 "utilities/type.bas"
do{
#line 669 "utilities/type.bas"
goto exit_subfunc;
#line 669 "utilities/type.bas"
if(!qbevent)break;evnt(28809,669,"type.bas");}while(r);
#line 669 "utilities/type.bas"
}
#line 670 "utilities/type.bas"
S_43047:;
#line 670 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("DOUBLE",6))))||is_error_pending()){
#line 670 "utilities/type.bas"
if(qbevent){evnt(28809,670,"type.bas");if(r)goto S_43047;}
#line 670 "utilities/type.bas"
do{
#line 670 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE;
#line 670 "utilities/type.bas"
if(!qbevent)break;evnt(28809,670,"type.bas");}while(r);
#line 670 "utilities/type.bas"
do{
#line 670 "utilities/type.bas"
goto exit_subfunc;
#line 670 "utilities/type.bas"
if(!qbevent)break;evnt(28809,670,"type.bas");}while(r);
#line 670 "utilities/type.bas"
}
#line 671 "utilities/type.bas"
S_43051:;
#line 671 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_FLOAT",6))))||is_error_pending()){
#line 671 "utilities/type.bas"
if(qbevent){evnt(28809,671,"type.bas");if(r)goto S_43051;}
#line 671 "utilities/type.bas"
do{
#line 671 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE;
#line 671 "utilities/type.bas"
if(!qbevent)break;evnt(28809,671,"type.bas");}while(r);
#line 671 "utilities/type.bas"
do{
#line 671 "utilities/type.bas"
goto exit_subfunc;
#line 671 "utilities/type.bas"
if(!qbevent)break;evnt(28809,671,"type.bas");}while(r);
#line 671 "utilities/type.bas"
}
#line 672 "utilities/type.bas"
S_43055:;
#line 672 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 10 ),qbs_new_txt_len("_UNSIGNED ",10))))||is_error_pending()){
#line 672 "utilities/type.bas"
if(qbevent){evnt(28809,672,"type.bas");if(r)goto S_43055;}
#line 673 "utilities/type.bas"
do{
#line 673 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_U= 1 ;
#line 673 "utilities/type.bas"
if(!qbevent)break;evnt(28809,673,"type.bas");}while(r);
#line 674 "utilities/type.bas"
do{
#line 674 "utilities/type.bas"
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));
#line 674 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 674 "utilities/type.bas"
if(!qbevent)break;evnt(28809,674,"type.bas");}while(r);
#line 675 "utilities/type.bas"
}
#line 676 "utilities/type.bas"
S_43059:;
#line 676 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4))))||is_error_pending()){
#line 676 "utilities/type.bas"
if(qbevent){evnt(28809,676,"type.bas");if(r)goto S_43059;}
#line 677 "utilities/type.bas"
S_43060:;
#line 677 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BIT",4))))||is_error_pending()){
#line 677 "utilities/type.bas"
if(qbevent){evnt(28809,677,"type.bas");if(r)goto S_43060;}
#line 678 "utilities/type.bas"
S_43061:;
#line 678 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
#line 678 "utilities/type.bas"
if(qbevent){evnt(28809,678,"type.bas");if(r)goto S_43061;}
#line 678 "utilities/type.bas"
do{
#line 678 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE;
#line 678 "utilities/type.bas"
if(!qbevent)break;evnt(28809,678,"type.bas");}while(r);
#line 678 "utilities/type.bas"
}else{
#line 678 "utilities/type.bas"
do{
#line 678 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE;
#line 678 "utilities/type.bas"
if(!qbevent)break;evnt(28809,678,"type.bas");}while(r);
#line 678 "utilities/type.bas"
}
#line 679 "utilities/type.bas"
do{
#line 679 "utilities/type.bas"
goto exit_subfunc;
#line 679 "utilities/type.bas"
if(!qbevent)break;evnt(28809,679,"type.bas");}while(r);
#line 680 "utilities/type.bas"
}
#line 682 "utilities/type.bas"
S_43068:;
#line 682 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 7 ),qbs_new_txt_len("_BIT * ",7))))||is_error_pending()){
#line 682 "utilities/type.bas"
if(qbevent){evnt(28809,682,"type.bas");if(r)goto S_43068;}
#line 682 "utilities/type.bas"
do{
#line 682 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22));
#line 682 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 682 "utilities/type.bas"
if(!qbevent)break;evnt(28809,682,"type.bas");}while(r);
#line 682 "utilities/type.bas"
do{
#line 682 "utilities/type.bas"
goto exit_subfunc;
#line 682 "utilities/type.bas"
if(!qbevent)break;evnt(28809,682,"type.bas");}while(r);
#line 682 "utilities/type.bas"
}
#line 684 "utilities/type.bas"
S_43072:;
#line 684 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4))))||is_error_pending()){
#line 684 "utilities/type.bas"
if(qbevent){evnt(28809,684,"type.bas");if(r)goto S_43072;}
#line 685 "utilities/type.bas"
do{
#line 685 "utilities/type.bas"
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 7 ));
#line 685 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 685 "utilities/type.bas"
if(!qbevent)break;evnt(28809,685,"type.bas");}while(r);
#line 686 "utilities/type.bas"
}else{
#line 687 "utilities/type.bas"
do{
#line 687 "utilities/type.bas"
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 6 ));
#line 687 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 687 "utilities/type.bas"
if(!qbevent)break;evnt(28809,687,"type.bas");}while(r);
#line 688 "utilities/type.bas"
}
#line 690 "utilities/type.bas"
S_43077:;
#line 690 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
#line 690 "utilities/type.bas"
if(qbevent){evnt(28809,690,"type.bas");if(r)goto S_43077;}
#line 690 "utilities/type.bas"
do{
#line 690 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25));
#line 690 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 690 "utilities/type.bas"
if(!qbevent)break;evnt(28809,690,"type.bas");}while(r);
#line 690 "utilities/type.bas"
do{
#line 690 "utilities/type.bas"
goto exit_subfunc;
#line 690 "utilities/type.bas"
if(!qbevent)break;evnt(28809,690,"type.bas");}while(r);
#line 690 "utilities/type.bas"
}
#line 691 "utilities/type.bas"
do{
#line 691 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
#line 691 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 691 "utilities/type.bas"
if(!qbevent)break;evnt(28809,691,"type.bas");}while(r);
#line 692 "utilities/type.bas"
S_43082:;
#line 692 "utilities/type.bas"
if (((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(*_FUNC_TYPNAME2TYP_LONG_B> 64 )))||is_error_pending()){
#line 692 "utilities/type.bas"
if(qbevent){evnt(28809,692,"type.bas");if(r)goto S_43082;}
#line 692 "utilities/type.bas"
do{
#line 692 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25));
#line 692 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 692 "utilities/type.bas"
if(!qbevent)break;evnt(28809,692,"type.bas");}while(r);
#line 692 "utilities/type.bas"
do{
#line 692 "utilities/type.bas"
goto exit_subfunc;
#line 692 "utilities/type.bas"
if(!qbevent)break;evnt(28809,692,"type.bas");}while(r);
#line 692 "utilities/type.bas"
}
#line 693 "utilities/type.bas"
do{
#line 693 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BITTYPE- 1 +*_FUNC_TYPNAME2TYP_LONG_B;
#line 693 "utilities/type.bas"
if(!qbevent)break;evnt(28809,693,"type.bas");}while(r);
#line 693 "utilities/type.bas"
S_43087:;
#line 693 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
#line 693 "utilities/type.bas"
if(qbevent){evnt(28809,693,"type.bas");if(r)goto S_43087;}
#line 693 "utilities/type.bas"
do{
#line 693 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
#line 693 "utilities/type.bas"
if(!qbevent)break;evnt(28809,693,"type.bas");}while(r);
#line 693 "utilities/type.bas"
}
#line 694 "utilities/type.bas"
do{
#line 694 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
#line 694 "utilities/type.bas"
if(!qbevent)break;evnt(28809,694,"type.bas");}while(r);
#line 695 "utilities/type.bas"
do{
#line 695 "utilities/type.bas"
goto exit_subfunc;
#line 695 "utilities/type.bas"
if(!qbevent)break;evnt(28809,695,"type.bas");}while(r);
#line 696 "utilities/type.bas"
}
#line 698 "utilities/type.bas"
do{
#line 698 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T= 0 ;
#line 698 "utilities/type.bas"
if(!qbevent)break;evnt(28809,698,"type.bas");}while(r);
#line 699 "utilities/type.bas"
S_43094:;
#line 699 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BYTE",5))))||is_error_pending()){
#line 699 "utilities/type.bas"
if(qbevent){evnt(28809,699,"type.bas");if(r)goto S_43094;}
#line 699 "utilities/type.bas"
do{
#line 699 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE;
#line 699 "utilities/type.bas"
if(!qbevent)break;evnt(28809,699,"type.bas");}while(r);
#line 699 "utilities/type.bas"
}
#line 700 "utilities/type.bas"
S_43097:;
#line 700 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER",7))))||is_error_pending()){
#line 700 "utilities/type.bas"
if(qbevent){evnt(28809,700,"type.bas");if(r)goto S_43097;}
#line 700 "utilities/type.bas"
do{
#line 700 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE;
#line 700 "utilities/type.bas"
if(!qbevent)break;evnt(28809,700,"type.bas");}while(r);
#line 700 "utilities/type.bas"
}
#line 701 "utilities/type.bas"
S_43100:;
#line 701 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("LONG",4))))||is_error_pending()){
#line 701 "utilities/type.bas"
if(qbevent){evnt(28809,701,"type.bas");if(r)goto S_43100;}
#line 701 "utilities/type.bas"
do{
#line 701 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE;
#line 701 "utilities/type.bas"
if(!qbevent)break;evnt(28809,701,"type.bas");}while(r);
#line 701 "utilities/type.bas"
}
#line 702 "utilities/type.bas"
S_43103:;
#line 702 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_INTEGER64",10))))||is_error_pending()){
#line 702 "utilities/type.bas"
if(qbevent){evnt(28809,702,"type.bas");if(r)goto S_43103;}
#line 702 "utilities/type.bas"
do{
#line 702 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE;
#line 702 "utilities/type.bas"
if(!qbevent)break;evnt(28809,702,"type.bas");}while(r);
#line 702 "utilities/type.bas"
}
#line 703 "utilities/type.bas"
S_43106:;
#line 703 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
#line 703 "utilities/type.bas"
if(qbevent){evnt(28809,703,"type.bas");if(r)goto S_43106;}
#line 703 "utilities/type.bas"
do{
#line 703 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE;
#line 703 "utilities/type.bas"
if(!qbevent)break;evnt(28809,703,"type.bas");}while(r);
#line 703 "utilities/type.bas"
}
#line 704 "utilities/type.bas"
S_43109:;
#line 704 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_T)||is_error_pending()){
#line 704 "utilities/type.bas"
if(qbevent){evnt(28809,704,"type.bas");if(r)goto S_43109;}
#line 705 "utilities/type.bas"
S_43110:;
#line 705 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
#line 705 "utilities/type.bas"
if(qbevent){evnt(28809,705,"type.bas");if(r)goto S_43110;}
#line 705 "utilities/type.bas"
do{
#line 705 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
#line 705 "utilities/type.bas"
if(!qbevent)break;evnt(28809,705,"type.bas");}while(r);
#line 705 "utilities/type.bas"
}
#line 706 "utilities/type.bas"
do{
#line 706 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
#line 706 "utilities/type.bas"
if(!qbevent)break;evnt(28809,706,"type.bas");}while(r);
#line 707 "utilities/type.bas"
do{
#line 707 "utilities/type.bas"
goto exit_subfunc;
#line 707 "utilities/type.bas"
if(!qbevent)break;evnt(28809,707,"type.bas");}while(r);
#line 708 "utilities/type.bas"
}
#line 709 "utilities/type.bas"
S_43116:;
#line 709 "utilities/type.bas"
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
#line 709 "utilities/type.bas"
if(qbevent){evnt(28809,709,"type.bas");if(r)goto S_43116;}
#line 709 "utilities/type.bas"
do{
#line 709 "utilities/type.bas"
goto exit_subfunc;
#line 709 "utilities/type.bas"
if(!qbevent)break;evnt(28809,709,"type.bas");}while(r);
#line 709 "utilities/type.bas"
}
#line 712 "utilities/type.bas"
S_43119:;
#line 712 "utilities/type.bas"
fornext_value4282= 1 ;
#line 712 "utilities/type.bas"
fornext_finalvalue4282=*__LONG_LASTTYPE;
#line 712 "utilities/type.bas"
fornext_step4282= 1 ;
#line 712 "utilities/type.bas"
if (fornext_step4282<0) fornext_step_negative4282=1; else fornext_step_negative4282=0;
#line 712 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4282;
#line 712 "utilities/type.bas"
goto fornext_entrylabel4282;
#line 712 "utilities/type.bas"
while(1){
#line 712 "utilities/type.bas"
fornext_value4282=fornext_step4282+(*_FUNC_TYPNAME2TYP_LONG_I);
#line 712 "utilities/type.bas"
fornext_entrylabel4282:
#line 712 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_I=fornext_value4282;
#line 712 "utilities/type.bas"
if (fornext_step_negative4282){
#line 712 "utilities/type.bas"
if (fornext_value4282<fornext_finalvalue4282) break;
#line 712 "utilities/type.bas"
}else{
#line 712 "utilities/type.bas"
if (fornext_value4282>fornext_finalvalue4282) break;
#line 712 "utilities/type.bas"
}
#line 712 "utilities/type.bas"
fornext_error4282:;
#line 712 "utilities/type.bas"
if(qbevent){evnt(28809,712,"type.bas");if(r)goto S_43119;}
#line 713 "utilities/type.bas"
S_43120:;
#line 713 "utilities/type.bas"
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()){
#line 713 "utilities/type.bas"
if(qbevent){evnt(28809,713,"type.bas");if(r)goto S_43120;}
#line 714 "utilities/type.bas"
do{
#line 714 "utilities/type.bas"
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I;
#line 714 "utilities/type.bas"
if(!qbevent)break;evnt(28809,714,"type.bas");}while(r);
#line 715 "utilities/type.bas"
do{
#line 715 "utilities/type.bas"
goto exit_subfunc;
#line 715 "utilities/type.bas"
if(!qbevent)break;evnt(28809,715,"type.bas");}while(r);
#line 716 "utilities/type.bas"
}
#line 717 "utilities/type.bas"
fornext_continue_4281:;
#line 717 "utilities/type.bas"
}
#line 717 "utilities/type.bas"
fornext_exit_4281:;
#line 720 "utilities/type.bas"
exit_subfunc:;
#line 720 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 720 "utilities/type.bas"
#include "free295.txt"
#line 720 "utilities/type.bas"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 720 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 720 "utilities/type.bas"
return *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP;
#line 720 "utilities/type.bas"
}
