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 "data246.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(25759,874,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA=FUNC_TYPE_STRIPCONTEXTFLAGS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPA);
if(!qbevent)break;evnt(25759,874,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(25759,875,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB=FUNC_TYPE_STRIPCONTEXTFLAGS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPB);
if(!qbevent)break;evnt(25759,875,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(25759,876,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA=FUNC_TYPE_ISFLOATINGPOINT(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
if(!qbevent)break;evnt(25759,876,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(25759,877,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB=FUNC_TYPE_ISFLOATINGPOINT(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
if(!qbevent)break;evnt(25759,877,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(25759,878,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA=FUNC_TYPE_ISUNSIGNED(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
if(!qbevent)break;evnt(25759,878,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(25759,879,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB=FUNC_TYPE_ISUNSIGNED(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
if(!qbevent)break;evnt(25759,879,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(25759,880,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA=FUNC_TYPE_GETSIZEINBITS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
if(!qbevent)break;evnt(25759,880,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(25759,881,"type.bas");}while(r);
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB=FUNC_TYPE_GETSIZEINBITS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
if(!qbevent)break;evnt(25759,881,"type.bas");}while(r);
S_39109:;
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB))||is_error_pending()){
if(qbevent){evnt(25759,883,"type.bas");if(r)goto S_39109;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(25759,884,"type.bas");}while(r);
S_39111:;
}else{
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*__LONG_UOFFSETTYPE))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==*__LONG_UOFFSETTYPE)))){
if(qbevent){evnt(25759,885,"type.bas");if(r)goto S_39111;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_UOFFSETTYPE;
if(!qbevent)break;evnt(25759,886,"type.bas");}while(r);
S_39113:;
}else{
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*__LONG_OFFSETTYPE))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==*__LONG_OFFSETTYPE)))){
if(qbevent){evnt(25759,887,"type.bas");if(r)goto S_39113;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(25759,888,"type.bas");}while(r);
S_39115:;
}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(25759,889,"type.bas");if(r)goto S_39115;}
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(25759,890,"type.bas");}while(r);
S_39117:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA==*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
if(qbevent){evnt(25759,891,"type.bas");if(r)goto S_39117;}
S_39118:;
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))))||is_error_pending()){
if(qbevent){evnt(25759,892,"type.bas");if(r)goto S_39118;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(25759,893,"type.bas");}while(r);
S_39120:;
}else{
if (-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB)){
if(qbevent){evnt(25759,894,"type.bas");if(r)goto S_39120;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(25759,895,"type.bas");}while(r);
S_39122:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)))){
if(qbevent){evnt(25759,896,"type.bas");if(r)goto S_39122;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(25759,897,"type.bas");}while(r);
S_39124:;
}else{
if (-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)){
if(qbevent){evnt(25759,898,"type.bas");if(r)goto S_39124;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(25759,899,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(25759,901,"type.bas");}while(r);
}
}
}
}
S_39129:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA<*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
if(qbevent){evnt(25759,903,"type.bas");if(r)goto S_39129;}
S_39130:;
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))))||is_error_pending()){
if(qbevent){evnt(25759,904,"type.bas");if(r)goto S_39130;}
S_39131:;
if(qbevent){evnt(25759,905,"type.bas");if(r)goto S_39131;}
S_39132:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_SINGLETYPE)))||is_error_pending()){
if(qbevent){evnt(25759,906,"type.bas");if(r)goto S_39132;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(25759,907,"type.bas");}while(r);
sc_ec_207_end:;
goto sc_4606_end;
}
S_39134:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_DOUBLETYPE)))||is_error_pending()){
if(qbevent){evnt(25759,908,"type.bas");if(r)goto S_39134;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(25759,909,"type.bas");}while(r);
sc_ec_208_end:;
goto sc_4606_end;
}
S_39136:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_FLOATTYPE)))||is_error_pending()){
if(qbevent){evnt(25759,910,"type.bas");if(r)goto S_39136;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(25759,911,"type.bas");}while(r);
sc_ec_209_end:;
goto sc_4606_end;
}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(25759,913,"type.bas");}while(r);
sc_4606_end:;
}else{
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(25759,916,"type.bas");}while(r);
}
S_39144:;
}else{
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA>*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
if(qbevent){evnt(25759,918,"type.bas");if(r)goto S_39144;}
S_39145:;
if ((-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))||is_error_pending()){
if(qbevent){evnt(25759,919,"type.bas");if(r)goto S_39145;}
S_39146:;
if(qbevent){evnt(25759,920,"type.bas");if(r)goto S_39146;}
S_39147:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_SINGLETYPE)))||is_error_pending()){
if(qbevent){evnt(25759,921,"type.bas");if(r)goto S_39147;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(25759,922,"type.bas");}while(r);
sc_ec_210_end:;
goto sc_4607_end;
}
S_39149:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_DOUBLETYPE)))||is_error_pending()){
if(qbevent){evnt(25759,923,"type.bas");if(r)goto S_39149;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(25759,924,"type.bas");}while(r);
sc_ec_211_end:;
goto sc_4607_end;
}
S_39151:;
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_FLOATTYPE)))||is_error_pending()){
if(qbevent){evnt(25759,925,"type.bas");if(r)goto S_39151;}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(25759,926,"type.bas");}while(r);
sc_ec_212_end:;
goto sc_4607_end;
}
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
if(!qbevent)break;evnt(25759,928,"type.bas");}while(r);
sc_4607_end:;
}else{
do{
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
if(!qbevent)break;evnt(25759,931,"type.bas");}while(r);
}
}
}
}
}
}
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free246.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;
}
