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 "data235.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
if(!qbevent)break;evnt(24225,737,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA=FUNC_TYPE_STRIPCONTEXTFLAGS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPA);
if(!qbevent)break;evnt(24225,737,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(24225,738,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB=FUNC_TYPE_STRIPCONTEXTFLAGS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPB);
if(!qbevent)break;evnt(24225,738,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(24225,739,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA=FUNC_TYPE_ISFLOATINGPOINT(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
if(!qbevent)break;evnt(24225,739,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(24225,740,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB=FUNC_TYPE_ISFLOATINGPOINT(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
if(!qbevent)break;evnt(24225,740,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(24225,741,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA=FUNC_TYPE_ISUNSIGNED(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
if(!qbevent)break;evnt(24225,741,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(24225,742,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB=FUNC_TYPE_ISUNSIGNED(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
if(!qbevent)break;evnt(24225,742,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(24225,743,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA=FUNC_TYPE_GETSIZEINBITS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
if(!qbevent)break;evnt(24225,743,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(24225,744,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB=FUNC_TYPE_GETSIZEINBITS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
if(!qbevent)break;evnt(24225,744,"type.bas");}while(r);
S_37456:;
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB))||is_error_pending()){
if(qbevent){evnt(24225,746,"type.bas");if(r)goto S_37456;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(24225,747,"type.bas");}while(r);
S_37458:;
}else{
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*__LONG_UOFFSETTYPE))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==*__LONG_UOFFSETTYPE)))){
if(qbevent){evnt(24225,748,"type.bas");if(r)goto S_37458;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_UOFFSETTYPE;
if(!qbevent)break;evnt(24225,749,"type.bas");}while(r);
S_37460:;
}else{
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*__LONG_OFFSETTYPE))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==*__LONG_OFFSETTYPE)))){
if(qbevent){evnt(24225,750,"type.bas");if(r)goto S_37460;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(24225,751,"type.bas");}while(r);
S_37462:;
}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(24225,752,"type.bas");if(r)goto S_37462;}
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(24225,753,"type.bas");}while(r);
S_37464:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA==*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
if(qbevent){evnt(24225,754,"type.bas");if(r)goto S_37464;}
S_37465:;
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))))||is_error_pending()){
if(qbevent){evnt(24225,755,"type.bas");if(r)goto S_37465;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(24225,756,"type.bas");}while(r);
S_37467:;
}else{
if (-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB)){
if(qbevent){evnt(24225,757,"type.bas");if(r)goto S_37467;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(24225,758,"type.bas");}while(r);
S_37469:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)))){
if(qbevent){evnt(24225,759,"type.bas");if(r)goto S_37469;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(24225,760,"type.bas");}while(r);
S_37471:;
}else{
if (-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)){
if(qbevent){evnt(24225,761,"type.bas");if(r)goto S_37471;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(24225,762,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(24225,764,"type.bas");}while(r);
}
}
}
}
S_37476:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA<*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
if(qbevent){evnt(24225,766,"type.bas");if(r)goto S_37476;}
S_37477:;
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))))||is_error_pending()){
if(qbevent){evnt(24225,767,"type.bas");if(r)goto S_37477;}
S_37478:;
if(qbevent){evnt(24225,768,"type.bas");if(r)goto S_37478;}
S_37479:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_SINGLETYPE)))||is_error_pending()){
if(qbevent){evnt(24225,769,"type.bas");if(r)goto S_37479;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(24225,770,"type.bas");}while(r);
sc_ec_207_end:;
goto sc_4335_end;
}
S_37481:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_DOUBLETYPE)))||is_error_pending()){
if(qbevent){evnt(24225,771,"type.bas");if(r)goto S_37481;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(24225,772,"type.bas");}while(r);
sc_ec_208_end:;
goto sc_4335_end;
}
S_37483:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_FLOATTYPE)))||is_error_pending()){
if(qbevent){evnt(24225,773,"type.bas");if(r)goto S_37483;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(24225,774,"type.bas");}while(r);
sc_ec_209_end:;
goto sc_4335_end;
}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(24225,776,"type.bas");}while(r);
sc_4335_end:;
}else{
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(24225,779,"type.bas");}while(r);
}
S_37491:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA>*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
if(qbevent){evnt(24225,781,"type.bas");if(r)goto S_37491;}
S_37492:;
if ((-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))||is_error_pending()){
if(qbevent){evnt(24225,782,"type.bas");if(r)goto S_37492;}
S_37493:;
if(qbevent){evnt(24225,783,"type.bas");if(r)goto S_37493;}
S_37494:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_SINGLETYPE)))||is_error_pending()){
if(qbevent){evnt(24225,784,"type.bas");if(r)goto S_37494;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(24225,785,"type.bas");}while(r);
sc_ec_210_end:;
goto sc_4336_end;
}
S_37496:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_DOUBLETYPE)))||is_error_pending()){
if(qbevent){evnt(24225,786,"type.bas");if(r)goto S_37496;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(24225,787,"type.bas");}while(r);
sc_ec_211_end:;
goto sc_4336_end;
}
S_37498:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_FLOATTYPE)))||is_error_pending()){
if(qbevent){evnt(24225,788,"type.bas");if(r)goto S_37498;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(24225,789,"type.bas");}while(r);
sc_ec_212_end:;
goto sc_4336_end;
}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(24225,791,"type.bas");}while(r);
sc_4336_end:;
}else{
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(24225,794,"type.bas");}while(r);
}
}
}
}
}
}
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free235.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;
}
