mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-18 08:15:14 +00:00
Add floating-point version of qbs_cleanup().
This fixes scenarios like IF VAL("0.9") THEN
This commit is contained in:
parent
df50672e21
commit
785521966e
|
@ -12640,6 +12640,10 @@ int32 qbs_cleanup(uint32 base,int32 passvalue){
|
||||||
return 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){
|
void qbg_sub_window(float x1,float y1,float x2,float y2,int32 passed){
|
||||||
|
|
|
@ -393,6 +393,7 @@ extern void lprint_makefit(qbs *text);
|
||||||
extern void tab();
|
extern void tab();
|
||||||
extern void qbs_print(qbs* str,int32 finish_on_new_line);
|
extern void qbs_print(qbs* str,int32 finish_on_new_line);
|
||||||
extern void qbs_lprint(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 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_window(float x1,float y1,float x2,float y2,int32 passed);
|
||||||
extern void qbg_sub_view_print(int32 topline,int32 bottomline,int32 passed);
|
extern void qbg_sub_view_print(int32 topline,int32 bottomline,int32 passed);
|
||||||
|
|
Loading…
Reference in a new issue