TempleOSCDV4.06.ISO

This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:47:19 +02:00
1 parent 6fe38d2d9d
commit b632ab9a4f
261 files changed
+6282 -5801

No files matched your search

+5 -5
View File
@@ -5,23 +5,23 @@ F64 CompileDemo(U8 *st)
I64 type;
U8 *machine_code;
CCmpCtrl *cc=CmpCtrlNew(st,CCF_DONT_FREE_BUF);
F64 result=0;
F64 res=0;
Lex(cc); //Gotta get it started
"Compile \"%s\"\n",st;
do {
if (machine_code=LexExpression2Bin(cc,&type)) {
if (type!=RT_F64)
result=ToF64(Call(machine_code));
res=ToF64(Call(machine_code));
else
result=Call(machine_code)(F64);
res=Call(machine_code)(F64);
Free(machine_code);
}
"result=%9.4f\n",result;
"res=%9.4f\n",res;
if (cc->token==';')
Lex(cc);
} while (cc->token!=TK_EOF); //end of file?
CmpCtrlDel(cc);
return result;
return res;
}
CompileDemo("2+Cos(ã)");