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

Add floating-point version of qbs_cleanup().

Browse source 
This fixes scenarios like IF VAL("0.9") THEN
This commit is contained in:
Luke Ceddia 2016-07-30 00:17:44 +10:00
parent df50672e21
commit 785521966e
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
internal/c/libqb.cpp
View file

@ -12640,6 +12640,10 @@ int32 qbs_cleanup(uint32 base,int32 passvalue){
return passvalue;
}
long double qbs_cleanup(uint32 base,long double passvalue){
while (qbs_tmp_list_nexti>base) { qbs_tmp_list_nexti--; if(qbs_tmp_list[qbs_tmp_list_nexti]!=-1)qbs_free((qbs*)qbs_tmp_list[qbs_tmp_list_nexti]); }//clear any temp. strings created
return passvalue;
}
void qbg_sub_window(float x1,float y1,float x2,float y2,int32 passed){
@ -33487,4 +33491,4 @@ sub__limit( 10 );
sub__display();
}while(1);
//infinite loop (this function never exits)
}
}

1
internal/c/qbx.cpp
View file

@ -393,6 +393,7 @@ extern void lprint_makefit(qbs *text);
extern void tab();
extern void qbs_print(qbs* str,int32 finish_on_new_line);
extern void qbs_lprint(qbs* str,int32 finish_on_new_line);
extern long double qbs_cleanup(uint32 base,long double passvalue);
extern int32 qbs_cleanup(uint32 base,int32 passvalue);
extern void qbg_sub_window(float x1,float y1,float x2,float y2,int32 passed);
extern void qbg_sub_view_print(int32 topline,int32 bottomline,int32 passed);