#line 343 "utilities/type.bas"
int32 FUNC_SYMBOLTYPE(qbs*_FUNC_SYMBOLTYPE_STRING_S){
#line 343 "utilities/type.bas"
qbs *tqbs;
#line 343 "utilities/type.bas"
ptrszint tmp_long;
#line 343 "utilities/type.bas"
int32 tmp_fileno;
#line 343 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 343 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 343 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 343 "utilities/type.bas"
#include "data291.txt"
#line 343 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 343 "utilities/type.bas"
new_mem_lock();
#line 343 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 343 "utilities/type.bas"
sf_mem_lock->type=3;
#line 343 "utilities/type.bas"
libqb_check_stack();
#line 343 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 346 "utilities/type.bas"
S_42467:;
#line 346 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOLTYPE_STRING_S->len== 0 )))||is_error_pending()){
#line 346 "utilities/type.bas"
if(qbevent){evnt(28809,346,"type.bas");if(r)goto S_42467;}
#line 346 "utilities/type.bas"
do{
#line 346 "utilities/type.bas"
goto exit_subfunc;
#line 346 "utilities/type.bas"
if(!qbevent)break;evnt(28809,346,"type.bas");}while(r);
#line 346 "utilities/type.bas"
}
#line 348 "utilities/type.bas"
do{
#line 348 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S);
#line 348 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 348 "utilities/type.bas"
if(!qbevent)break;evnt(28809,348,"type.bas");}while(r);
#line 349 "utilities/type.bas"
do{
#line 349 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_L=_FUNC_SYMBOLTYPE_STRING_S->len;
#line 349 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 349 "utilities/type.bas"
if(!qbevent)break;evnt(28809,349,"type.bas");}while(r);
#line 350 "utilities/type.bas"
S_42472:;
#line 350 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||is_error_pending()){
#line 350 "utilities/type.bas"
if(qbevent){evnt(28809,350,"type.bas");if(r)goto S_42472;}
#line 351 "utilities/type.bas"
S_42473:;
#line 351 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
#line 351 "utilities/type.bas"
if(qbevent){evnt(28809,351,"type.bas");if(r)goto S_42473;}
#line 351 "utilities/type.bas"
do{
#line 351 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 ;
#line 351 "utilities/type.bas"
if(!qbevent)break;evnt(28809,351,"type.bas");}while(r);
#line 351 "utilities/type.bas"
do{
#line 351 "utilities/type.bas"
goto exit_subfunc;
#line 351 "utilities/type.bas"
if(!qbevent)break;evnt(28809,351,"type.bas");}while(r);
#line 351 "utilities/type.bas"
}
#line 352 "utilities/type.bas"
S_42477:;
#line 352 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||is_error_pending()){
#line 352 "utilities/type.bas"
if(qbevent){evnt(28809,352,"type.bas");if(r)goto S_42477;}
#line 352 "utilities/type.bas"
do{
#line 352 "utilities/type.bas"
goto exit_subfunc;
#line 352 "utilities/type.bas"
if(!qbevent)break;evnt(28809,352,"type.bas");}while(r);
#line 352 "utilities/type.bas"
}
#line 353 "utilities/type.bas"
S_42480:;
#line 353 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 37 )))||is_error_pending()){
#line 353 "utilities/type.bas"
if(qbevent){evnt(28809,353,"type.bas");if(r)goto S_42480;}
#line 353 "utilities/type.bas"
do{
#line 353 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 ;
#line 353 "utilities/type.bas"
if(!qbevent)break;evnt(28809,353,"type.bas");}while(r);
#line 353 "utilities/type.bas"
do{
#line 353 "utilities/type.bas"
goto exit_subfunc;
#line 353 "utilities/type.bas"
if(!qbevent)break;evnt(28809,353,"type.bas");}while(r);
#line 353 "utilities/type.bas"
}
#line 354 "utilities/type.bas"
S_42484:;
#line 354 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||is_error_pending()){
#line 354 "utilities/type.bas"
if(qbevent){evnt(28809,354,"type.bas");if(r)goto S_42484;}
#line 354 "utilities/type.bas"
do{
#line 354 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
#line 354 "utilities/type.bas"
if(!qbevent)break;evnt(28809,354,"type.bas");}while(r);
#line 354 "utilities/type.bas"
do{
#line 354 "utilities/type.bas"
goto exit_subfunc;
#line 354 "utilities/type.bas"
if(!qbevent)break;evnt(28809,354,"type.bas");}while(r);
#line 354 "utilities/type.bas"
}
#line 355 "utilities/type.bas"
do{
#line 355 "utilities/type.bas"
goto exit_subfunc;
#line 355 "utilities/type.bas"
if(!qbevent)break;evnt(28809,355,"type.bas");}while(r);
#line 356 "utilities/type.bas"
}
#line 357 "utilities/type.bas"
S_42490:;
#line 357 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||is_error_pending()){
#line 357 "utilities/type.bas"
if(qbevent){evnt(28809,357,"type.bas");if(r)goto S_42490;}
#line 358 "utilities/type.bas"
S_42491:;
#line 358 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
#line 358 "utilities/type.bas"
if(qbevent){evnt(28809,358,"type.bas");if(r)goto S_42491;}
#line 358 "utilities/type.bas"
do{
#line 358 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 ;
#line 358 "utilities/type.bas"
if(!qbevent)break;evnt(28809,358,"type.bas");}while(r);
#line 358 "utilities/type.bas"
do{
#line 358 "utilities/type.bas"
goto exit_subfunc;
#line 358 "utilities/type.bas"
if(!qbevent)break;evnt(28809,358,"type.bas");}while(r);
#line 358 "utilities/type.bas"
}
#line 359 "utilities/type.bas"
S_42495:;
#line 359 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||is_error_pending()){
#line 359 "utilities/type.bas"
if(qbevent){evnt(28809,359,"type.bas");if(r)goto S_42495;}
#line 359 "utilities/type.bas"
do{
#line 359 "utilities/type.bas"
goto exit_subfunc;
#line 359 "utilities/type.bas"
if(!qbevent)break;evnt(28809,359,"type.bas");}while(r);
#line 359 "utilities/type.bas"
}
#line 360 "utilities/type.bas"
S_42498:;
#line 360 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||is_error_pending()){
#line 360 "utilities/type.bas"
if(qbevent){evnt(28809,360,"type.bas");if(r)goto S_42498;}
#line 360 "utilities/type.bas"
do{
#line 360 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 ;
#line 360 "utilities/type.bas"
if(!qbevent)break;evnt(28809,360,"type.bas");}while(r);
#line 360 "utilities/type.bas"
do{
#line 360 "utilities/type.bas"
goto exit_subfunc;
#line 360 "utilities/type.bas"
if(!qbevent)break;evnt(28809,360,"type.bas");}while(r);
#line 360 "utilities/type.bas"
}
#line 361 "utilities/type.bas"
do{
#line 361 "utilities/type.bas"
goto exit_subfunc;
#line 361 "utilities/type.bas"
if(!qbevent)break;evnt(28809,361,"type.bas");}while(r);
#line 362 "utilities/type.bas"
}
#line 363 "utilities/type.bas"
S_42504:;
#line 363 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 33 ))||is_error_pending()){
#line 363 "utilities/type.bas"
if(qbevent){evnt(28809,363,"type.bas");if(r)goto S_42504;}
#line 364 "utilities/type.bas"
S_42505:;
#line 364 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
#line 364 "utilities/type.bas"
if(qbevent){evnt(28809,364,"type.bas");if(r)goto S_42505;}
#line 364 "utilities/type.bas"
do{
#line 364 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISFLOAT;
#line 364 "utilities/type.bas"
if(!qbevent)break;evnt(28809,364,"type.bas");}while(r);
#line 364 "utilities/type.bas"
do{
#line 364 "utilities/type.bas"
goto exit_subfunc;
#line 364 "utilities/type.bas"
if(!qbevent)break;evnt(28809,364,"type.bas");}while(r);
#line 364 "utilities/type.bas"
}
#line 365 "utilities/type.bas"
do{
#line 365 "utilities/type.bas"
goto exit_subfunc;
#line 365 "utilities/type.bas"
if(!qbevent)break;evnt(28809,365,"type.bas");}while(r);
#line 366 "utilities/type.bas"
}
#line 367 "utilities/type.bas"
S_42511:;
#line 367 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 35 ))||is_error_pending()){
#line 367 "utilities/type.bas"
if(qbevent){evnt(28809,367,"type.bas");if(r)goto S_42511;}
#line 368 "utilities/type.bas"
S_42512:;
#line 368 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
#line 368 "utilities/type.bas"
if(qbevent){evnt(28809,368,"type.bas");if(r)goto S_42512;}
#line 368 "utilities/type.bas"
do{
#line 368 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT;
#line 368 "utilities/type.bas"
if(!qbevent)break;evnt(28809,368,"type.bas");}while(r);
#line 368 "utilities/type.bas"
do{
#line 368 "utilities/type.bas"
goto exit_subfunc;
#line 368 "utilities/type.bas"
if(!qbevent)break;evnt(28809,368,"type.bas");}while(r);
#line 368 "utilities/type.bas"
}
#line 369 "utilities/type.bas"
S_42516:;
#line 369 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||is_error_pending()){
#line 369 "utilities/type.bas"
if(qbevent){evnt(28809,369,"type.bas");if(r)goto S_42516;}
#line 369 "utilities/type.bas"
do{
#line 369 "utilities/type.bas"
goto exit_subfunc;
#line 369 "utilities/type.bas"
if(!qbevent)break;evnt(28809,369,"type.bas");}while(r);
#line 369 "utilities/type.bas"
}
#line 370 "utilities/type.bas"
S_42519:;
#line 370 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 35 )))||is_error_pending()){
#line 370 "utilities/type.bas"
if(qbevent){evnt(28809,370,"type.bas");if(r)goto S_42519;}
#line 370 "utilities/type.bas"
do{
#line 370 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT;
#line 370 "utilities/type.bas"
if(!qbevent)break;evnt(28809,370,"type.bas");}while(r);
#line 370 "utilities/type.bas"
do{
#line 370 "utilities/type.bas"
goto exit_subfunc;
#line 370 "utilities/type.bas"
if(!qbevent)break;evnt(28809,370,"type.bas");}while(r);
#line 370 "utilities/type.bas"
}
#line 371 "utilities/type.bas"
do{
#line 371 "utilities/type.bas"
goto exit_subfunc;
#line 371 "utilities/type.bas"
if(!qbevent)break;evnt(28809,371,"type.bas");}while(r);
#line 372 "utilities/type.bas"
}
#line 373 "utilities/type.bas"
S_42525:;
#line 373 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 36 ))||is_error_pending()){
#line 373 "utilities/type.bas"
if(qbevent){evnt(28809,373,"type.bas");if(r)goto S_42525;}
#line 374 "utilities/type.bas"
S_42526:;
#line 374 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
#line 374 "utilities/type.bas"
if(qbevent){evnt(28809,374,"type.bas");if(r)goto S_42526;}
#line 374 "utilities/type.bas"
do{
#line 374 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING;
#line 374 "utilities/type.bas"
if(!qbevent)break;evnt(28809,374,"type.bas");}while(r);
#line 374 "utilities/type.bas"
do{
#line 374 "utilities/type.bas"
goto exit_subfunc;
#line 374 "utilities/type.bas"
if(!qbevent)break;evnt(28809,374,"type.bas");}while(r);
#line 374 "utilities/type.bas"
}
#line 375 "utilities/type.bas"
S_42530:;
#line 375 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||is_error_pending()){
#line 375 "utilities/type.bas"
if(qbevent){evnt(28809,375,"type.bas");if(r)goto S_42530;}
#line 376 "utilities/type.bas"
S_42531:;
#line 376 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L>=( 1 + 10 )))||is_error_pending()){
#line 376 "utilities/type.bas"
if(qbevent){evnt(28809,376,"type.bas");if(r)goto S_42531;}
#line 377 "utilities/type.bas"
S_42532:;
#line 377 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L>( 1 + 10 )))||is_error_pending()){
#line 377 "utilities/type.bas"
if(qbevent){evnt(28809,377,"type.bas");if(r)goto S_42532;}
#line 377 "utilities/type.bas"
do{
#line 377 "utilities/type.bas"
goto exit_subfunc;
#line 377 "utilities/type.bas"
if(!qbevent)break;evnt(28809,377,"type.bas");}while(r);
#line 377 "utilities/type.bas"
}
#line 378 "utilities/type.bas"
S_42535:;
#line 378 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_SYMBOLTYPE_STRING_S,qbs_new_txt_len("$2147483647",11))))||is_error_pending()){
#line 378 "utilities/type.bas"
if(qbevent){evnt(28809,378,"type.bas");if(r)goto S_42535;}
#line 378 "utilities/type.bas"
do{
#line 378 "utilities/type.bas"
goto exit_subfunc;
#line 378 "utilities/type.bas"
if(!qbevent)break;evnt(28809,378,"type.bas");}while(r);
#line 378 "utilities/type.bas"
}
#line 379 "utilities/type.bas"
}
#line 380 "utilities/type.bas"
do{
#line 380 "utilities/type.bas"
*__LONG_SYMBOLTYPE_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 )));
#line 380 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 380 "utilities/type.bas"
if(!qbevent)break;evnt(28809,380,"type.bas");}while(r);
#line 381 "utilities/type.bas"
do{
#line 381 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH;
#line 381 "utilities/type.bas"
if(!qbevent)break;evnt(28809,381,"type.bas");}while(r);
#line 382 "utilities/type.bas"
do{
#line 382 "utilities/type.bas"
goto exit_subfunc;
#line 382 "utilities/type.bas"
if(!qbevent)break;evnt(28809,382,"type.bas");}while(r);
#line 383 "utilities/type.bas"
}
#line 384 "utilities/type.bas"
do{
#line 384 "utilities/type.bas"
goto exit_subfunc;
#line 384 "utilities/type.bas"
if(!qbevent)break;evnt(28809,384,"type.bas");}while(r);
#line 385 "utilities/type.bas"
}
#line 386 "utilities/type.bas"
S_42545:;
#line 386 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||is_error_pending()){
#line 386 "utilities/type.bas"
if(qbevent){evnt(28809,386,"type.bas");if(r)goto S_42545;}
#line 387 "utilities/type.bas"
S_42546:;
#line 387 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
#line 387 "utilities/type.bas"
if(qbevent){evnt(28809,387,"type.bas");if(r)goto S_42546;}
#line 387 "utilities/type.bas"
do{
#line 387 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS;
#line 387 "utilities/type.bas"
if(!qbevent)break;evnt(28809,387,"type.bas");}while(r);
#line 387 "utilities/type.bas"
do{
#line 387 "utilities/type.bas"
goto exit_subfunc;
#line 387 "utilities/type.bas"
if(!qbevent)break;evnt(28809,387,"type.bas");}while(r);
#line 387 "utilities/type.bas"
}
#line 388 "utilities/type.bas"
S_42550:;
#line 388 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||is_error_pending()){
#line 388 "utilities/type.bas"
if(qbevent){evnt(28809,388,"type.bas");if(r)goto S_42550;}
#line 389 "utilities/type.bas"
S_42551:;
#line 389 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||is_error_pending()){
#line 389 "utilities/type.bas"
if(qbevent){evnt(28809,389,"type.bas");if(r)goto S_42551;}
#line 389 "utilities/type.bas"
do{
#line 389 "utilities/type.bas"
goto exit_subfunc;
#line 389 "utilities/type.bas"
if(!qbevent)break;evnt(28809,389,"type.bas");}while(r);
#line 389 "utilities/type.bas"
}
#line 390 "utilities/type.bas"
do{
#line 390 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_N=qbr(qbs_val<long double>(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 )));
#line 390 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 390 "utilities/type.bas"
if(!qbevent)break;evnt(28809,390,"type.bas");}while(r);
#line 391 "utilities/type.bas"
S_42555:;
#line 391 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||is_error_pending()){
#line 391 "utilities/type.bas"
if(qbevent){evnt(28809,391,"type.bas");if(r)goto S_42555;}
#line 391 "utilities/type.bas"
do{
#line 391 "utilities/type.bas"
goto exit_subfunc;
#line 391 "utilities/type.bas"
if(!qbevent)break;evnt(28809,391,"type.bas");}while(r);
#line 391 "utilities/type.bas"
}
#line 392 "utilities/type.bas"
do{
#line 392 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS;
#line 392 "utilities/type.bas"
if(!qbevent)break;evnt(28809,392,"type.bas");}while(r);
#line 392 "utilities/type.bas"
do{
#line 392 "utilities/type.bas"
goto exit_subfunc;
#line 392 "utilities/type.bas"
if(!qbevent)break;evnt(28809,392,"type.bas");}while(r);
#line 393 "utilities/type.bas"
}
#line 394 "utilities/type.bas"
do{
#line 394 "utilities/type.bas"
goto exit_subfunc;
#line 394 "utilities/type.bas"
if(!qbevent)break;evnt(28809,394,"type.bas");}while(r);
#line 395 "utilities/type.bas"
}
#line 396 "utilities/type.bas"
S_42563:;
#line 396 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 126 ))||is_error_pending()){
#line 396 "utilities/type.bas"
if(qbevent){evnt(28809,396,"type.bas");if(r)goto S_42563;}
#line 397 "utilities/type.bas"
S_42564:;
#line 397 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
#line 397 "utilities/type.bas"
if(qbevent){evnt(28809,397,"type.bas");if(r)goto S_42564;}
#line 397 "utilities/type.bas"
do{
#line 397 "utilities/type.bas"
goto exit_subfunc;
#line 397 "utilities/type.bas"
if(!qbevent)break;evnt(28809,397,"type.bas");}while(r);
#line 397 "utilities/type.bas"
}
#line 398 "utilities/type.bas"
do{
#line 398 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 );
#line 398 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 398 "utilities/type.bas"
if(!qbevent)break;evnt(28809,398,"type.bas");}while(r);
#line 399 "utilities/type.bas"
S_42568:;
#line 399 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||is_error_pending()){
#line 399 "utilities/type.bas"
if(qbevent){evnt(28809,399,"type.bas");if(r)goto S_42568;}
#line 400 "utilities/type.bas"
S_42569:;
#line 400 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||is_error_pending()){
#line 400 "utilities/type.bas"
if(qbevent){evnt(28809,400,"type.bas");if(r)goto S_42569;}
#line 400 "utilities/type.bas"
do{
#line 400 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 +*__LONG_ISUNSIGNED;
#line 400 "utilities/type.bas"
if(!qbevent)break;evnt(28809,400,"type.bas");}while(r);
#line 400 "utilities/type.bas"
do{
#line 400 "utilities/type.bas"
goto exit_subfunc;
#line 400 "utilities/type.bas"
if(!qbevent)break;evnt(28809,400,"type.bas");}while(r);
#line 400 "utilities/type.bas"
}
#line 401 "utilities/type.bas"
S_42573:;
#line 401 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||is_error_pending()){
#line 401 "utilities/type.bas"
if(qbevent){evnt(28809,401,"type.bas");if(r)goto S_42573;}
#line 401 "utilities/type.bas"
do{
#line 401 "utilities/type.bas"
goto exit_subfunc;
#line 401 "utilities/type.bas"
if(!qbevent)break;evnt(28809,401,"type.bas");}while(r);
#line 401 "utilities/type.bas"
}
#line 402 "utilities/type.bas"
S_42576:;
#line 402 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 37 )))||is_error_pending()){
#line 402 "utilities/type.bas"
if(qbevent){evnt(28809,402,"type.bas");if(r)goto S_42576;}
#line 402 "utilities/type.bas"
do{
#line 402 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 +*__LONG_ISUNSIGNED;
#line 402 "utilities/type.bas"
if(!qbevent)break;evnt(28809,402,"type.bas");}while(r);
#line 402 "utilities/type.bas"
do{
#line 402 "utilities/type.bas"
goto exit_subfunc;
#line 402 "utilities/type.bas"
if(!qbevent)break;evnt(28809,402,"type.bas");}while(r);
#line 402 "utilities/type.bas"
}
#line 403 "utilities/type.bas"
S_42580:;
#line 403 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||is_error_pending()){
#line 403 "utilities/type.bas"
if(qbevent){evnt(28809,403,"type.bas");if(r)goto S_42580;}
#line 403 "utilities/type.bas"
do{
#line 403 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
#line 403 "utilities/type.bas"
if(!qbevent)break;evnt(28809,403,"type.bas");}while(r);
#line 403 "utilities/type.bas"
do{
#line 403 "utilities/type.bas"
goto exit_subfunc;
#line 403 "utilities/type.bas"
if(!qbevent)break;evnt(28809,403,"type.bas");}while(r);
#line 403 "utilities/type.bas"
}
#line 404 "utilities/type.bas"
do{
#line 404 "utilities/type.bas"
goto exit_subfunc;
#line 404 "utilities/type.bas"
if(!qbevent)break;evnt(28809,404,"type.bas");}while(r);
#line 405 "utilities/type.bas"
}
#line 406 "utilities/type.bas"
S_42586:;
#line 406 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||is_error_pending()){
#line 406 "utilities/type.bas"
if(qbevent){evnt(28809,406,"type.bas");if(r)goto S_42586;}
#line 407 "utilities/type.bas"
S_42587:;
#line 407 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||is_error_pending()){
#line 407 "utilities/type.bas"
if(qbevent){evnt(28809,407,"type.bas");if(r)goto S_42587;}
#line 407 "utilities/type.bas"
do{
#line 407 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISUNSIGNED;
#line 407 "utilities/type.bas"
if(!qbevent)break;evnt(28809,407,"type.bas");}while(r);
#line 407 "utilities/type.bas"
do{
#line 407 "utilities/type.bas"
goto exit_subfunc;
#line 407 "utilities/type.bas"
if(!qbevent)break;evnt(28809,407,"type.bas");}while(r);
#line 407 "utilities/type.bas"
}
#line 408 "utilities/type.bas"
S_42591:;
#line 408 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||is_error_pending()){
#line 408 "utilities/type.bas"
if(qbevent){evnt(28809,408,"type.bas");if(r)goto S_42591;}
#line 408 "utilities/type.bas"
do{
#line 408 "utilities/type.bas"
goto exit_subfunc;
#line 408 "utilities/type.bas"
if(!qbevent)break;evnt(28809,408,"type.bas");}while(r);
#line 408 "utilities/type.bas"
}
#line 409 "utilities/type.bas"
S_42594:;
#line 409 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||is_error_pending()){
#line 409 "utilities/type.bas"
if(qbevent){evnt(28809,409,"type.bas");if(r)goto S_42594;}
#line 409 "utilities/type.bas"
do{
#line 409 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISUNSIGNED;
#line 409 "utilities/type.bas"
if(!qbevent)break;evnt(28809,409,"type.bas");}while(r);
#line 409 "utilities/type.bas"
do{
#line 409 "utilities/type.bas"
goto exit_subfunc;
#line 409 "utilities/type.bas"
if(!qbevent)break;evnt(28809,409,"type.bas");}while(r);
#line 409 "utilities/type.bas"
}
#line 410 "utilities/type.bas"
do{
#line 410 "utilities/type.bas"
goto exit_subfunc;
#line 410 "utilities/type.bas"
if(!qbevent)break;evnt(28809,410,"type.bas");}while(r);
#line 411 "utilities/type.bas"
}
#line 412 "utilities/type.bas"
S_42600:;
#line 412 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||is_error_pending()){
#line 412 "utilities/type.bas"
if(qbevent){evnt(28809,412,"type.bas");if(r)goto S_42600;}
#line 413 "utilities/type.bas"
S_42601:;
#line 413 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||is_error_pending()){
#line 413 "utilities/type.bas"
if(qbevent){evnt(28809,413,"type.bas");if(r)goto S_42601;}
#line 413 "utilities/type.bas"
do{
#line 413 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED;
#line 413 "utilities/type.bas"
if(!qbevent)break;evnt(28809,413,"type.bas");}while(r);
#line 413 "utilities/type.bas"
do{
#line 413 "utilities/type.bas"
goto exit_subfunc;
#line 413 "utilities/type.bas"
if(!qbevent)break;evnt(28809,413,"type.bas");}while(r);
#line 413 "utilities/type.bas"
}
#line 414 "utilities/type.bas"
S_42605:;
#line 414 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))))||is_error_pending()){
#line 414 "utilities/type.bas"
if(qbevent){evnt(28809,414,"type.bas");if(r)goto S_42605;}
#line 415 "utilities/type.bas"
S_42606:;
#line 415 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 4 ))||is_error_pending()){
#line 415 "utilities/type.bas"
if(qbevent){evnt(28809,415,"type.bas");if(r)goto S_42606;}
#line 415 "utilities/type.bas"
do{
#line 415 "utilities/type.bas"
goto exit_subfunc;
#line 415 "utilities/type.bas"
if(!qbevent)break;evnt(28809,415,"type.bas");}while(r);
#line 415 "utilities/type.bas"
}
#line 416 "utilities/type.bas"
do{
#line 416 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_N=qbr(qbs_val<long double>(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 )));
#line 416 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 416 "utilities/type.bas"
if(!qbevent)break;evnt(28809,416,"type.bas");}while(r);
#line 417 "utilities/type.bas"
S_42610:;
#line 417 "utilities/type.bas"
if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||is_error_pending()){
#line 417 "utilities/type.bas"
if(qbevent){evnt(28809,417,"type.bas");if(r)goto S_42610;}
#line 417 "utilities/type.bas"
do{
#line 417 "utilities/type.bas"
goto exit_subfunc;
#line 417 "utilities/type.bas"
if(!qbevent)break;evnt(28809,417,"type.bas");}while(r);
#line 417 "utilities/type.bas"
}
#line 418 "utilities/type.bas"
do{
#line 418 "utilities/type.bas"
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED;
#line 418 "utilities/type.bas"
if(!qbevent)break;evnt(28809,418,"type.bas");}while(r);
#line 418 "utilities/type.bas"
do{
#line 418 "utilities/type.bas"
goto exit_subfunc;
#line 418 "utilities/type.bas"
if(!qbevent)break;evnt(28809,418,"type.bas");}while(r);
#line 419 "utilities/type.bas"
}
#line 420 "utilities/type.bas"
do{
#line 420 "utilities/type.bas"
goto exit_subfunc;
#line 420 "utilities/type.bas"
if(!qbevent)break;evnt(28809,420,"type.bas");}while(r);
#line 421 "utilities/type.bas"
}
#line 422 "utilities/type.bas"
}
#line 423 "utilities/type.bas"
exit_subfunc:;
#line 423 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 423 "utilities/type.bas"
#include "free291.txt"
#line 423 "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 423 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 423 "utilities/type.bas"
return *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE;
#line 423 "utilities/type.bas"
}
