st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 14:58:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix argc and argument order

Browse source
This commit is contained in:
Roman Venediktov 2024-02-20 14:10:31 +01:00
parent c9ce273e2e
commit bcc85384c3
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/X86.ml
View file

@ -525,15 +525,15 @@ let compile_call env ?fname nargs tail =
pop_arguments env (x :: acc) (n - 1) pop_arguments env (x :: acc) (n - 1)
in in
let env, args = pop_arguments env [] nargs in let env, args = pop_arguments env [] nargs in
let setup_args_code = List.map (fun arg -> Push arg) args in let setup_args_code = List.map (fun arg -> Push arg) @@ List.rev args in
let setup_args_code = let setup_args_code =
setup_args_code @ [ Lea (I (word_size, rsp), rdi) ] setup_args_code @ [ Mov (rsp, rdi) ]
in in
let setup_args_code = let setup_args_code =
if fname = builtin_label "closure" then if fname = builtin_label "closure" then
setup_args_code @ [ Mov (L (box (nargs - 2)), rsi) ] setup_args_code @ [ Mov (L (box (nargs - 1)), rsi) ]
else if fname = builtin_label "sexp" || fname = builtin_label "array" else if fname = builtin_label "sexp" || fname = builtin_label "array"
then setup_args_code @ [ Mov (L (box (nargs - 1)), rsi) ] then setup_args_code @ [ Mov (L (box nargs), rsi) ]
else setup_args_code else setup_args_code
in in
(nargs, env, setup_args_code) (nargs, env, setup_args_code)