#line 2174 "utilities/type.bas"
int32 FUNC_TYPE_PROMOTEARITHMETICTYPE(int32*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPA,int32*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPB){
#line 2174 "utilities/type.bas"
qbs *tqbs;
#line 2174 "utilities/type.bas"
ptrszint tmp_long;
#line 2174 "utilities/type.bas"
int32 tmp_fileno;
#line 2174 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 2174 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 2174 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 2174 "utilities/type.bas"
#include "data349.txt"
#line 2174 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 2174 "utilities/type.bas"
new_mem_lock();
#line 2174 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 2174 "utilities/type.bas"
sf_mem_lock->type=3;
#line 2174 "utilities/type.bas"
libqb_check_stack();
#line 2174 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 2175 "utilities/type.bas"
do{
#line 2175 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2175,"type.bas");}while(r);
#line 2175 "utilities/type.bas"
do{
#line 2175 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA=FUNC_TYPE_STRIPCONTEXTFLAGS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPA);
#line 2175 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2175,"type.bas");}while(r);
#line 2176 "utilities/type.bas"
do{
#line 2176 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2176,"type.bas");}while(r);
#line 2176 "utilities/type.bas"
do{
#line 2176 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB=FUNC_TYPE_STRIPCONTEXTFLAGS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_QBTYPB);
#line 2176 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2176,"type.bas");}while(r);
#line 2177 "utilities/type.bas"
do{
#line 2177 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2177,"type.bas");}while(r);
#line 2177 "utilities/type.bas"
do{
#line 2177 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA=FUNC_TYPE_ISFLOATINGPOINT(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
#line 2177 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2177,"type.bas");}while(r);
#line 2178 "utilities/type.bas"
do{
#line 2178 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2178,"type.bas");}while(r);
#line 2178 "utilities/type.bas"
do{
#line 2178 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB=FUNC_TYPE_ISFLOATINGPOINT(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
#line 2178 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2178,"type.bas");}while(r);
#line 2179 "utilities/type.bas"
do{
#line 2179 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2179,"type.bas");}while(r);
#line 2179 "utilities/type.bas"
do{
#line 2179 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA=FUNC_TYPE_ISUNSIGNED(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
#line 2179 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2179,"type.bas");}while(r);
#line 2180 "utilities/type.bas"
do{
#line 2180 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2180,"type.bas");}while(r);
#line 2180 "utilities/type.bas"
do{
#line 2180 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB=FUNC_TYPE_ISUNSIGNED(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
#line 2180 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2180,"type.bas");}while(r);
#line 2181 "utilities/type.bas"
do{
#line 2181 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2181,"type.bas");}while(r);
#line 2181 "utilities/type.bas"
do{
#line 2181 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA=FUNC_TYPE_GETSIZEINBITS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA);
#line 2181 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2181,"type.bas");}while(r);
#line 2182 "utilities/type.bas"
do{
#line 2182 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2182,"type.bas");}while(r);
#line 2182 "utilities/type.bas"
do{
#line 2182 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB=FUNC_TYPE_GETSIZEINBITS(_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB);
#line 2182 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2182,"type.bas");}while(r);
#line 2184 "utilities/type.bas"
S_44336:;
#line 2184 "utilities/type.bas"
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB))||is_error_pending()){
#line 2184 "utilities/type.bas"
if(qbevent){evnt(28809,2184,"type.bas");if(r)goto S_44336;}
#line 2185 "utilities/type.bas"
do{
#line 2185 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
#line 2185 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2185,"type.bas");}while(r);
#line 2186 "utilities/type.bas"
S_44338:;
#line 2186 "utilities/type.bas"
}else{
#line 2186 "utilities/type.bas"
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*__LONG_UOFFSETTYPE))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==*__LONG_UOFFSETTYPE)))){
#line 2186 "utilities/type.bas"
if(qbevent){evnt(28809,2186,"type.bas");if(r)goto S_44338;}
#line 2187 "utilities/type.bas"
do{
#line 2187 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_UOFFSETTYPE;
#line 2187 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2187,"type.bas");}while(r);
#line 2188 "utilities/type.bas"
S_44340:;
#line 2188 "utilities/type.bas"
}else{
#line 2188 "utilities/type.bas"
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==*__LONG_OFFSETTYPE))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==*__LONG_OFFSETTYPE)))){
#line 2188 "utilities/type.bas"
if(qbevent){evnt(28809,2188,"type.bas");if(r)goto S_44340;}
#line 2189 "utilities/type.bas"
do{
#line 2189 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_OFFSETTYPE;
#line 2189 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2189,"type.bas");}while(r);
#line 2190 "utilities/type.bas"
S_44342:;
#line 2190 "utilities/type.bas"
}else{
#line 2190 "utilities/type.bas"
if (-((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))||(-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)))){
#line 2190 "utilities/type.bas"
if(qbevent){evnt(28809,2190,"type.bas");if(r)goto S_44342;}
#line 2191 "utilities/type.bas"
do{
#line 2191 "utilities/type.bas"
*_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));
#line 2191 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2191,"type.bas");}while(r);
#line 2192 "utilities/type.bas"
S_44344:;
#line 2192 "utilities/type.bas"
}else{
#line 2192 "utilities/type.bas"
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA==*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
#line 2192 "utilities/type.bas"
if(qbevent){evnt(28809,2192,"type.bas");if(r)goto S_44344;}
#line 2193 "utilities/type.bas"
S_44345:;
#line 2193 "utilities/type.bas"
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))))||is_error_pending()){
#line 2193 "utilities/type.bas"
if(qbevent){evnt(28809,2193,"type.bas");if(r)goto S_44345;}
#line 2194 "utilities/type.bas"
do{
#line 2194 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
#line 2194 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2194,"type.bas");}while(r);
#line 2195 "utilities/type.bas"
S_44347:;
#line 2195 "utilities/type.bas"
}else{
#line 2195 "utilities/type.bas"
if (-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB)){
#line 2195 "utilities/type.bas"
if(qbevent){evnt(28809,2195,"type.bas");if(r)goto S_44347;}
#line 2196 "utilities/type.bas"
do{
#line 2196 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
#line 2196 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2196,"type.bas");}while(r);
#line 2197 "utilities/type.bas"
S_44349:;
#line 2197 "utilities/type.bas"
}else{
#line 2197 "utilities/type.bas"
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)))){
#line 2197 "utilities/type.bas"
if(qbevent){evnt(28809,2197,"type.bas");if(r)goto S_44349;}
#line 2198 "utilities/type.bas"
do{
#line 2198 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
#line 2198 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2198,"type.bas");}while(r);
#line 2199 "utilities/type.bas"
S_44351:;
#line 2199 "utilities/type.bas"
}else{
#line 2199 "utilities/type.bas"
if (-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISUNSIGNEDB)){
#line 2199 "utilities/type.bas"
if(qbevent){evnt(28809,2199,"type.bas");if(r)goto S_44351;}
#line 2200 "utilities/type.bas"
do{
#line 2200 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
#line 2200 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2200,"type.bas");}while(r);
#line 2201 "utilities/type.bas"
}else{
#line 2202 "utilities/type.bas"
do{
#line 2202 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
#line 2202 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2202,"type.bas");}while(r);
#line 2203 "utilities/type.bas"
}
#line 2203 "utilities/type.bas"
}
#line 2203 "utilities/type.bas"
}
#line 2203 "utilities/type.bas"
}
#line 2204 "utilities/type.bas"
S_44356:;
#line 2204 "utilities/type.bas"
}else{
#line 2204 "utilities/type.bas"
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA<*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
#line 2204 "utilities/type.bas"
if(qbevent){evnt(28809,2204,"type.bas");if(r)goto S_44356;}
#line 2205 "utilities/type.bas"
S_44357:;
#line 2205 "utilities/type.bas"
if ((-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA&&(~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))))||is_error_pending()){
#line 2205 "utilities/type.bas"
if(qbevent){evnt(28809,2205,"type.bas");if(r)goto S_44357;}
#line 2206 "utilities/type.bas"
S_44358:;
#line 2206 "utilities/type.bas"
if(qbevent){evnt(28809,2206,"type.bas");if(r)goto S_44358;}
#line 2207 "utilities/type.bas"
S_44359:;
#line 2207 "utilities/type.bas"
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_SINGLETYPE)))||is_error_pending()){
#line 2207 "utilities/type.bas"
if(qbevent){evnt(28809,2207,"type.bas");if(r)goto S_44359;}
#line 2208 "utilities/type.bas"
do{
#line 2208 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_DOUBLETYPE;
#line 2208 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2208,"type.bas");}while(r);
#line 2209 "utilities/type.bas"
sc_ec_214_end:;
#line 2209 "utilities/type.bas"
goto sc_4521_end;
#line 2209 "utilities/type.bas"
}
#line 2209 "utilities/type.bas"
S_44361:;
#line 2209 "utilities/type.bas"
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_DOUBLETYPE)))||is_error_pending()){
#line 2209 "utilities/type.bas"
if(qbevent){evnt(28809,2209,"type.bas");if(r)goto S_44361;}
#line 2210 "utilities/type.bas"
do{
#line 2210 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
#line 2210 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2210,"type.bas");}while(r);
#line 2211 "utilities/type.bas"
sc_ec_215_end:;
#line 2211 "utilities/type.bas"
goto sc_4521_end;
#line 2211 "utilities/type.bas"
}
#line 2211 "utilities/type.bas"
S_44363:;
#line 2211 "utilities/type.bas"
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA==(*__LONG_FLOATTYPE)))||is_error_pending()){
#line 2211 "utilities/type.bas"
if(qbevent){evnt(28809,2211,"type.bas");if(r)goto S_44363;}
#line 2212 "utilities/type.bas"
do{
#line 2212 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
#line 2212 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2212,"type.bas");}while(r);
#line 2213 "utilities/type.bas"
sc_ec_216_end:;
#line 2213 "utilities/type.bas"
goto sc_4521_end;
#line 2213 "utilities/type.bas"
}
#line 2214 "utilities/type.bas"
do{
#line 2214 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
#line 2214 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2214,"type.bas");}while(r);
#line 2215 "utilities/type.bas"
sc_4521_end:;
#line 2216 "utilities/type.bas"
}else{
#line 2217 "utilities/type.bas"
do{
#line 2217 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
#line 2217 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2217,"type.bas");}while(r);
#line 2218 "utilities/type.bas"
}
#line 2219 "utilities/type.bas"
S_44371:;
#line 2219 "utilities/type.bas"
}else{
#line 2219 "utilities/type.bas"
if (-(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEA>*_FUNC_TYPE_PROMOTEARITHMETICTYPE_ULONG_SIZEB)){
#line 2219 "utilities/type.bas"
if(qbevent){evnt(28809,2219,"type.bas");if(r)goto S_44371;}
#line 2220 "utilities/type.bas"
S_44372:;
#line 2220 "utilities/type.bas"
if ((-((~(*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATA))&&*_FUNC_TYPE_PROMOTEARITHMETICTYPE_BYTE_ISFLOATB))||is_error_pending()){
#line 2220 "utilities/type.bas"
if(qbevent){evnt(28809,2220,"type.bas");if(r)goto S_44372;}
#line 2221 "utilities/type.bas"
S_44373:;
#line 2221 "utilities/type.bas"
if(qbevent){evnt(28809,2221,"type.bas");if(r)goto S_44373;}
#line 2222 "utilities/type.bas"
S_44374:;
#line 2222 "utilities/type.bas"
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_SINGLETYPE)))||is_error_pending()){
#line 2222 "utilities/type.bas"
if(qbevent){evnt(28809,2222,"type.bas");if(r)goto S_44374;}
#line 2223 "utilities/type.bas"
do{
#line 2223 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_DOUBLETYPE;
#line 2223 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2223,"type.bas");}while(r);
#line 2224 "utilities/type.bas"
sc_ec_217_end:;
#line 2224 "utilities/type.bas"
goto sc_4522_end;
#line 2224 "utilities/type.bas"
}
#line 2224 "utilities/type.bas"
S_44376:;
#line 2224 "utilities/type.bas"
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_DOUBLETYPE)))||is_error_pending()){
#line 2224 "utilities/type.bas"
if(qbevent){evnt(28809,2224,"type.bas");if(r)goto S_44376;}
#line 2225 "utilities/type.bas"
do{
#line 2225 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
#line 2225 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2225,"type.bas");}while(r);
#line 2226 "utilities/type.bas"
sc_ec_218_end:;
#line 2226 "utilities/type.bas"
goto sc_4522_end;
#line 2226 "utilities/type.bas"
}
#line 2226 "utilities/type.bas"
S_44378:;
#line 2226 "utilities/type.bas"
if (((*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB==(*__LONG_FLOATTYPE)))||is_error_pending()){
#line 2226 "utilities/type.bas"
if(qbevent){evnt(28809,2226,"type.bas");if(r)goto S_44378;}
#line 2227 "utilities/type.bas"
do{
#line 2227 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*__LONG_FLOATTYPE;
#line 2227 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2227,"type.bas");}while(r);
#line 2228 "utilities/type.bas"
sc_ec_219_end:;
#line 2228 "utilities/type.bas"
goto sc_4522_end;
#line 2228 "utilities/type.bas"
}
#line 2229 "utilities/type.bas"
do{
#line 2229 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEB;
#line 2229 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2229,"type.bas");}while(r);
#line 2230 "utilities/type.bas"
sc_4522_end:;
#line 2231 "utilities/type.bas"
}else{
#line 2232 "utilities/type.bas"
do{
#line 2232 "utilities/type.bas"
*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE=*_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPEA;
#line 2232 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2232,"type.bas");}while(r);
#line 2233 "utilities/type.bas"
}
#line 2234 "utilities/type.bas"
}
#line 2234 "utilities/type.bas"
}
#line 2234 "utilities/type.bas"
}
#line 2234 "utilities/type.bas"
}
#line 2234 "utilities/type.bas"
}
#line 2234 "utilities/type.bas"
}
#line 2234 "utilities/type.bas"
}
#line 2235 "utilities/type.bas"
exit_subfunc:;
#line 2235 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 2235 "utilities/type.bas"
#include "free349.txt"
#line 2235 "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 2235 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 2235 "utilities/type.bas"
return *_FUNC_TYPE_PROMOTEARITHMETICTYPE_LONG_TYPE_PROMOTEARITHMETICTYPE;
#line 2235 "utilities/type.bas"
}
