int32 FUNC_TYPE_PROMOTEARITHMETICTYPE(int32*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPA,int32*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPB){
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 "data308.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{
if(!qbevent)break;evnt(28172,2468,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA=FUNC_TYPE_STRIPCONTEXTFLAGS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPA);
if(!qbevent)break;evnt(28172,2468,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,2469,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB=FUNC_TYPE_STRIPCONTEXTFLAGS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPB);
if(!qbevent)break;evnt(28172,2469,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,2470,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA=FUNC_TYPE_ISFLOATINGPOINT(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
if(!qbevent)break;evnt(28172,2470,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,2471,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB=FUNC_TYPE_ISFLOATINGPOINT(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
if(!qbevent)break;evnt(28172,2471,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,2472,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA=FUNC_TYPE_ISUNSIGNED(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
if(!qbevent)break;evnt(28172,2472,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,2473,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB=FUNC_TYPE_ISUNSIGNED(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
if(!qbevent)break;evnt(28172,2473,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,2474,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA=FUNC_TYPE_GETSIZEINBITS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
if(!qbevent)break;evnt(28172,2474,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,2475,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB=FUNC_TYPE_GETSIZEINBITS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
if(!qbevent)break;evnt(28172,2475,"type.bas");}while(r);
S_43225:;
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB))||is_error_pending()){
if(qbevent){evnt(28172,2477,"type.bas");if(r)goto S_43225;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(28172,2478,"type.bas");}while(r);
S_43227:;
}else{
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*__LONG_UOFFSETTYPE))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==*__LONG_UOFFSETTYPE)))){
if(qbevent){evnt(28172,2479,"type.bas");if(r)goto S_43227;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_UOFFSETTYPE;
if(!qbevent)break;evnt(28172,2480,"type.bas");}while(r);
S_43229:;
}else{
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*__LONG_OFFSETTYPE))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==*__LONG_OFFSETTYPE)))){
if(qbevent){evnt(28172,2481,"type.bas");if(r)goto S_43229;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(28172,2482,"type.bas");}while(r);
S_43231:;
}else{
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)))){
if(qbevent){evnt(28172,2483,"type.bas");if(r)goto S_43231;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA>*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB))?(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA):(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB));
if(!qbevent)break;evnt(28172,2484,"type.bas");}while(r);
S_43233:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA==*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
if(qbevent){evnt(28172,2485,"type.bas");if(r)goto S_43233;}
S_43234:;
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))))||is_error_pending()){
if(qbevent){evnt(28172,2486,"type.bas");if(r)goto S_43234;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(28172,2487,"type.bas");}while(r);
S_43236:;
}else{
if (-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB)){
if(qbevent){evnt(28172,2488,"type.bas");if(r)goto S_43236;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(28172,2489,"type.bas");}while(r);
S_43238:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)))){
if(qbevent){evnt(28172,2490,"type.bas");if(r)goto S_43238;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(28172,2491,"type.bas");}while(r);
S_43240:;
}else{
if (-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)){
if(qbevent){evnt(28172,2492,"type.bas");if(r)goto S_43240;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(28172,2493,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(28172,2495,"type.bas");}while(r);
}
}
}
}
S_43245:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA<*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
if(qbevent){evnt(28172,2497,"type.bas");if(r)goto S_43245;}
S_43246:;
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))))||is_error_pending()){
if(qbevent){evnt(28172,2498,"type.bas");if(r)goto S_43246;}
S_43247:;
if(qbevent){evnt(28172,2499,"type.bas");if(r)goto S_43247;}
S_43248:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_SINGLETYPE)))||is_error_pending()){
if(qbevent){evnt(28172,2500,"type.bas");if(r)goto S_43248;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(28172,2501,"type.bas");}while(r);
sc_ec_215_end:;
goto sc_5232_end;
}
S_43250:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_DOUBLETYPE)))||is_error_pending()){
if(qbevent){evnt(28172,2502,"type.bas");if(r)goto S_43250;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(28172,2503,"type.bas");}while(r);
sc_ec_216_end:;
goto sc_5232_end;
}
S_43252:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_FLOATTYPE)))||is_error_pending()){
if(qbevent){evnt(28172,2504,"type.bas");if(r)goto S_43252;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(28172,2505,"type.bas");}while(r);
sc_ec_217_end:;
goto sc_5232_end;
}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(28172,2507,"type.bas");}while(r);
sc_5232_end:;
}else{
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(28172,2510,"type.bas");}while(r);
}
S_43260:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA>*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
if(qbevent){evnt(28172,2512,"type.bas");if(r)goto S_43260;}
S_43261:;
if ((-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))||is_error_pending()){
if(qbevent){evnt(28172,2513,"type.bas");if(r)goto S_43261;}
S_43262:;
if(qbevent){evnt(28172,2514,"type.bas");if(r)goto S_43262;}
S_43263:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_SINGLETYPE)))||is_error_pending()){
if(qbevent){evnt(28172,2515,"type.bas");if(r)goto S_43263;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(28172,2516,"type.bas");}while(r);
sc_ec_218_end:;
goto sc_5233_end;
}
S_43265:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_DOUBLETYPE)))||is_error_pending()){
if(qbevent){evnt(28172,2517,"type.bas");if(r)goto S_43265;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(28172,2518,"type.bas");}while(r);
sc_ec_219_end:;
goto sc_5233_end;
}
S_43267:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_FLOATTYPE)))||is_error_pending()){
if(qbevent){evnt(28172,2519,"type.bas");if(r)goto S_43267;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(28172,2520,"type.bas");}while(r);
sc_ec_220_end:;
goto sc_5233_end;
}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(28172,2522,"type.bas");}while(r);
sc_5233_end:;
}else{
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(28172,2525,"type.bas");}while(r);
}
}
}
}
}
}
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free308.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_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE;
}
