st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-24 07:38:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Postfix calls

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-03-11 15:24:03 +03:00
parent e16fb72a9e
commit fe4e322d58
9 changed files with 87 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/X86.ml
View file

@ -540,8 +540,12 @@ class env =
let genasm (ds, stmt) =
let stmt =
Language.Stmt.Seq (
Language.Stmt.Expr (Language.Expr.Call ("__gc_init", [])),
Language.Stmt.Seq (stmt, Language.Stmt.Return (Some (Language.Expr.Call ("raw", [Language.Expr.Const 0]))))
(*
Language.Stmt.Call ("__gc_init", []),
Language.Stmt.Seq (stmt, Language.Stmt.Return (Some (Language.Expr.Call ("raw", [Language.Expr.Const 0]))))
*)
)
in
let env, code =