st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-25 16:18:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Stmt + Expr in Stack machine

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-04-07 23:42:20 +03:00
parent d0c72844e8
commit d8ddf25a7f
6 changed files with 125 additions and 100 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/X86.ml
View file

@ -174,7 +174,8 @@ let compile env code =
| S _ | M _ -> [Mov (env'#loc x, eax); Mov (eax, s)]
| _ -> [Mov (env'#loc x, s)]
)
(* TODO
| STA (x, n) ->
let s, env = (env#variable x)#allocate in
let push =
@ -192,7 +193,8 @@ let compile env code =
| S _ | M _ -> [Mov (s, eax); Mov (eax, env'#loc x)]
| _ -> [Mov (s, env'#loc x)]
)
*)
| BINOP op ->
let x, y, env' = env#pop2 in
env'#push y,
@ -313,7 +315,7 @@ let compile env code =
then let x, env = env#pop in env, [Mov (x, eax); Jmp env#epilogue]
else env, [Jmp env#epilogue]
| CALL (f, n, p) -> call env f n p
| CALL (f, n) -> call env f n (* p *) false (* TODO!!! *)
| SEXP (t, n) ->
let s, env = env#allocate in