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

Fixed return (seems to be; no regression yet)

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-05 01:26:13 +03:00
parent 8658f1343b
commit 644c1b3086
3 changed files with 35 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/X86.ml
View file

@ -367,9 +367,11 @@ let compile cmd env code =
(if f = "main" then [Call "L__gc_init"] else [])
| END ->
let x, env = env#pop in
env#assert_empty_stack;
let name = env#fname in
env#leave, [
Mov (x, eax); (*!!*)
Label env#epilogue;
Mov (ebp, esp);
Pop ebp
@ -382,8 +384,7 @@ let compile cmd env code =
]
| RET ->
let x, env = env#pop in
env#assert_empty_stack;
let x = env#peek in
env, [Mov (x, eax); Jmp env#epilogue]
| CALL (f, n) -> call env f n