#line 248 "utilities/type.bas"
qbs* FUNC_ID2SHORTTYPENAME(){
#line 248 "utilities/type.bas"
qbs *tqbs;
#line 248 "utilities/type.bas"
ptrszint tmp_long;
#line 248 "utilities/type.bas"
int32 tmp_fileno;
#line 248 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 248 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 248 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 248 "utilities/type.bas"
#include "data289.txt"
#line 248 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 248 "utilities/type.bas"
new_mem_lock();
#line 248 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 248 "utilities/type.bas"
sf_mem_lock->type=3;
#line 248 "utilities/type.bas"
libqb_check_stack();
#line 248 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 249 "utilities/type.bas"
do{
#line 249 "utilities/type.bas"
*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+((0+540)));
#line 249 "utilities/type.bas"
if(!qbevent)break;evnt(28809,249,"type.bas");}while(r);
#line 250 "utilities/type.bas"
S_42311:;
#line 250 "utilities/type.bas"
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_T== 0 ))||is_error_pending()){
#line 250 "utilities/type.bas"
if(qbevent){evnt(28809,250,"type.bas");if(r)goto S_42311;}
#line 250 "utilities/type.bas"
do{
#line 250 "utilities/type.bas"
*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+((0+512)));
#line 250 "utilities/type.bas"
if(!qbevent)break;evnt(28809,250,"type.bas");}while(r);
#line 250 "utilities/type.bas"
}
#line 251 "utilities/type.bas"
do{
#line 251 "utilities/type.bas"
*_FUNC_ID2SHORTTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 251 "utilities/type.bas"
if(!qbevent)break;evnt(28809,251,"type.bas");}while(r);
#line 252 "utilities/type.bas"
do{
#line 252 "utilities/type.bas"
*_FUNC_ID2SHORTTYPENAME_LONG_BITS=*_FUNC_ID2SHORTTYPENAME_LONG_T& 4095ll ;
#line 252 "utilities/type.bas"
if(!qbevent)break;evnt(28809,252,"type.bas");}while(r);
#line 253 "utilities/type.bas"
S_42316:;
#line 253 "utilities/type.bas"
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUDT)||is_error_pending()){
#line 253 "utilities/type.bas"
if(qbevent){evnt(28809,253,"type.bas");if(r)goto S_42316;}
#line 254 "utilities/type.bas"
do{
#line 254 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2SHORTTYPENAME_LONG_T& 4095ll )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
#line 254 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 254 "utilities/type.bas"
if(!qbevent)break;evnt(28809,254,"type.bas");}while(r);
#line 255 "utilities/type.bas"
do{
#line 255 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A);
#line 255 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 255 "utilities/type.bas"
if(!qbevent)break;evnt(28809,255,"type.bas");}while(r);
#line 255 "utilities/type.bas"
do{
#line 255 "utilities/type.bas"
goto exit_subfunc;
#line 255 "utilities/type.bas"
if(!qbevent)break;evnt(28809,255,"type.bas");}while(r);
#line 256 "utilities/type.bas"
}
#line 257 "utilities/type.bas"
S_42321:;
#line 257 "utilities/type.bas"
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 257 "utilities/type.bas"
if(qbevent){evnt(28809,257,"type.bas");if(r)goto S_42321;}
#line 258 "utilities/type.bas"
S_42322:;
#line 258 "utilities/type.bas"
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 258 "utilities/type.bas"
if(qbevent){evnt(28809,258,"type.bas");if(r)goto S_42322;}
#line 258 "utilities/type.bas"
do{
#line 258 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING",6),qbs__tostr((int32)(*_FUNC_ID2SHORTTYPENAME_LONG_SIZE),NULL,0)));
#line 258 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 258 "utilities/type.bas"
if(!qbevent)break;evnt(28809,258,"type.bas");}while(r);
#line 258 "utilities/type.bas"
}else{
#line 258 "utilities/type.bas"
do{
#line 258 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("STRING",6));
#line 258 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 258 "utilities/type.bas"
if(!qbevent)break;evnt(28809,258,"type.bas");}while(r);
#line 258 "utilities/type.bas"
}
#line 259 "utilities/type.bas"
do{
#line 259 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A);
#line 259 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 259 "utilities/type.bas"
if(!qbevent)break;evnt(28809,259,"type.bas");}while(r);
#line 259 "utilities/type.bas"
do{
#line 259 "utilities/type.bas"
goto exit_subfunc;
#line 259 "utilities/type.bas"
if(!qbevent)break;evnt(28809,259,"type.bas");}while(r);
#line 260 "utilities/type.bas"
}
#line 261 "utilities/type.bas"
S_42330:;
#line 261 "utilities/type.bas"
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
#line 261 "utilities/type.bas"
if(qbevent){evnt(28809,261,"type.bas");if(r)goto S_42330;}
#line 262 "utilities/type.bas"
S_42331:;
#line 262 "utilities/type.bas"
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 262 "utilities/type.bas"
if(qbevent){evnt(28809,262,"type.bas");if(r)goto S_42331;}
#line 262 "utilities/type.bas"
do{
#line 262 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_U",2));
#line 262 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 262 "utilities/type.bas"
if(!qbevent)break;evnt(28809,262,"type.bas");}while(r);
#line 262 "utilities/type.bas"
}else{
#line 262 "utilities/type.bas"
do{
#line 262 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_",1));
#line 262 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 262 "utilities/type.bas"
if(!qbevent)break;evnt(28809,262,"type.bas");}while(r);
#line 262 "utilities/type.bas"
}
#line 263 "utilities/type.bas"
S_42336:;
#line 263 "utilities/type.bas"
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS> 1 ))||is_error_pending()){
#line 263 "utilities/type.bas"
if(qbevent){evnt(28809,263,"type.bas");if(r)goto S_42336;}
#line 263 "utilities/type.bas"
do{
#line 263 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT",3)),qbs__tostr((int32)(*_FUNC_ID2SHORTTYPENAME_LONG_BITS),NULL,0)));
#line 263 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 263 "utilities/type.bas"
if(!qbevent)break;evnt(28809,263,"type.bas");}while(r);
#line 263 "utilities/type.bas"
}else{
#line 263 "utilities/type.bas"
do{
#line 263 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT1",4)));
#line 263 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 263 "utilities/type.bas"
if(!qbevent)break;evnt(28809,263,"type.bas");}while(r);
#line 263 "utilities/type.bas"
}
#line 264 "utilities/type.bas"
do{
#line 264 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A);
#line 264 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 264 "utilities/type.bas"
if(!qbevent)break;evnt(28809,264,"type.bas");}while(r);
#line 264 "utilities/type.bas"
do{
#line 264 "utilities/type.bas"
goto exit_subfunc;
#line 264 "utilities/type.bas"
if(!qbevent)break;evnt(28809,264,"type.bas");}while(r);
#line 265 "utilities/type.bas"
}
#line 266 "utilities/type.bas"
S_42344:;
#line 266 "utilities/type.bas"
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 266 "utilities/type.bas"
if(qbevent){evnt(28809,266,"type.bas");if(r)goto S_42344;}
#line 267 "utilities/type.bas"
S_42345:;
#line 267 "utilities/type.bas"
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||is_error_pending()){
#line 267 "utilities/type.bas"
if(qbevent){evnt(28809,267,"type.bas");if(r)goto S_42345;}
#line 267 "utilities/type.bas"
do{
#line 267 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6));
#line 267 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 267 "utilities/type.bas"
if(!qbevent)break;evnt(28809,267,"type.bas");}while(r);
#line 267 "utilities/type.bas"
}
#line 268 "utilities/type.bas"
S_42348:;
#line 268 "utilities/type.bas"
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||is_error_pending()){
#line 268 "utilities/type.bas"
if(qbevent){evnt(28809,268,"type.bas");if(r)goto S_42348;}
#line 268 "utilities/type.bas"
do{
#line 268 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6));
#line 268 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 268 "utilities/type.bas"
if(!qbevent)break;evnt(28809,268,"type.bas");}while(r);
#line 268 "utilities/type.bas"
}
#line 269 "utilities/type.bas"
S_42351:;
#line 269 "utilities/type.bas"
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 256 ))||is_error_pending()){
#line 269 "utilities/type.bas"
if(qbevent){evnt(28809,269,"type.bas");if(r)goto S_42351;}
#line 269 "utilities/type.bas"
do{
#line 269 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_FLOAT",6));
#line 269 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 269 "utilities/type.bas"
if(!qbevent)break;evnt(28809,269,"type.bas");}while(r);
#line 269 "utilities/type.bas"
}
#line 270 "utilities/type.bas"
}else{
#line 271 "utilities/type.bas"
S_42355:;
#line 271 "utilities/type.bas"
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 8 ))||is_error_pending()){
#line 271 "utilities/type.bas"
if(qbevent){evnt(28809,271,"type.bas");if(r)goto S_42355;}
#line 272 "utilities/type.bas"
S_42356:;
#line 272 "utilities/type.bas"
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 272 "utilities/type.bas"
if(qbevent){evnt(28809,272,"type.bas");if(r)goto S_42356;}
#line 272 "utilities/type.bas"
do{
#line 272 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UBYTE",6));
#line 272 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 272 "utilities/type.bas"
if(!qbevent)break;evnt(28809,272,"type.bas");}while(r);
#line 272 "utilities/type.bas"
}else{
#line 272 "utilities/type.bas"
do{
#line 272 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_BYTE",5));
#line 272 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 272 "utilities/type.bas"
if(!qbevent)break;evnt(28809,272,"type.bas");}while(r);
#line 272 "utilities/type.bas"
}
#line 273 "utilities/type.bas"
}
#line 274 "utilities/type.bas"
S_42362:;
#line 274 "utilities/type.bas"
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 16 ))||is_error_pending()){
#line 274 "utilities/type.bas"
if(qbevent){evnt(28809,274,"type.bas");if(r)goto S_42362;}
#line 275 "utilities/type.bas"
S_42363:;
#line 275 "utilities/type.bas"
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 275 "utilities/type.bas"
if(qbevent){evnt(28809,275,"type.bas");if(r)goto S_42363;}
#line 275 "utilities/type.bas"
do{
#line 275 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("UINTEGER",8));
#line 275 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 275 "utilities/type.bas"
if(!qbevent)break;evnt(28809,275,"type.bas");}while(r);
#line 275 "utilities/type.bas"
}else{
#line 275 "utilities/type.bas"
do{
#line 275 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7));
#line 275 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 275 "utilities/type.bas"
if(!qbevent)break;evnt(28809,275,"type.bas");}while(r);
#line 275 "utilities/type.bas"
}
#line 276 "utilities/type.bas"
}
#line 277 "utilities/type.bas"
S_42369:;
#line 277 "utilities/type.bas"
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||is_error_pending()){
#line 277 "utilities/type.bas"
if(qbevent){evnt(28809,277,"type.bas");if(r)goto S_42369;}
#line 278 "utilities/type.bas"
S_42370:;
#line 278 "utilities/type.bas"
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 278 "utilities/type.bas"
if(qbevent){evnt(28809,278,"type.bas");if(r)goto S_42370;}
#line 278 "utilities/type.bas"
do{
#line 278 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("ULONG",5));
#line 278 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 278 "utilities/type.bas"
if(!qbevent)break;evnt(28809,278,"type.bas");}while(r);
#line 278 "utilities/type.bas"
}else{
#line 278 "utilities/type.bas"
do{
#line 278 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("LONG",4));
#line 278 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 278 "utilities/type.bas"
if(!qbevent)break;evnt(28809,278,"type.bas");}while(r);
#line 278 "utilities/type.bas"
}
#line 279 "utilities/type.bas"
}
#line 280 "utilities/type.bas"
S_42376:;
#line 280 "utilities/type.bas"
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||is_error_pending()){
#line 280 "utilities/type.bas"
if(qbevent){evnt(28809,280,"type.bas");if(r)goto S_42376;}
#line 281 "utilities/type.bas"
S_42377:;
#line 281 "utilities/type.bas"
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 281 "utilities/type.bas"
if(qbevent){evnt(28809,281,"type.bas");if(r)goto S_42377;}
#line 281 "utilities/type.bas"
do{
#line 281 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UINTEGER64",11));
#line 281 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 281 "utilities/type.bas"
if(!qbevent)break;evnt(28809,281,"type.bas");}while(r);
#line 281 "utilities/type.bas"
}else{
#line 281 "utilities/type.bas"
do{
#line 281 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_INTEGER64",10));
#line 281 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 281 "utilities/type.bas"
if(!qbevent)break;evnt(28809,281,"type.bas");}while(r);
#line 281 "utilities/type.bas"
}
#line 282 "utilities/type.bas"
}
#line 283 "utilities/type.bas"
}
#line 284 "utilities/type.bas"
do{
#line 284 "utilities/type.bas"
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A);
#line 284 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 284 "utilities/type.bas"
if(!qbevent)break;evnt(28809,284,"type.bas");}while(r);
#line 285 "utilities/type.bas"
exit_subfunc:;
#line 285 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 285 "utilities/type.bas"
#include "free289.txt"
#line 285 "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 285 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 285 "utilities/type.bas"
qbs_maketmp(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME);return _FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME;
#line 285 "utilities/type.bas"
}
