QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 12:40:36 +00:00
Code Issues Releases Wiki Activity

(Automated push) Update internal/source/* from qb64.bas

Browse source
This commit is contained in:
Galleondragon 2016-03-21 05:14:45 -07:00
parent 3557828e95
commit a23a733bf0
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
internal/source/main.txt
View file

@ -8,7 +8,7 @@ qbs_set(__STRING_VERSION,qbs_new_txt_len("1.000",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13);}while(r);
do{
qbs_set(__STRING_BUILDNUM,qbs_new_txt_len("20160318/1",10));
qbs_set(__STRING_BUILDNUM,qbs_new_txt_len("20160320/3",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13);}while(r);
do{
@ -12576,22 +12576,22 @@ do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2930);}while(r);
}
S_3067:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){
if(qbevent){evnt(2931);if(r)goto S_3067;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(2932);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 3 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2934);}while(r);
if(!qbevent)break;evnt(2931);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2935);}while(r);
if(!qbevent)break;evnt(2932);}while(r);
S_3069:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){
if(qbevent){evnt(2933);if(r)goto S_3069;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(2934);}while(r);
}else{
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);