From bcc85384c34ed060b6262b91f01db307bda48f89 Mon Sep 17 00:00:00 2001 From: Roman Venediktov Date: Tue, 20 Feb 2024 14:10:31 +0100 Subject: [PATCH] Fix argc and argument order --- src/X86.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/X86.ml b/src/X86.ml index bae0f250c..f4a7b26eb 100644 --- a/src/X86.ml +++ b/src/X86.ml @@ -525,15 +525,15 @@ let compile_call env ?fname nargs tail = pop_arguments env (x :: acc) (n - 1) 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 = - setup_args_code @ [ Lea (I (word_size, rsp), rdi) ] + setup_args_code @ [ Mov (rsp, rdi) ] in let setup_args_code = 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" - then setup_args_code @ [ Mov (L (box (nargs - 1)), rsi) ] + then setup_args_code @ [ Mov (L (box nargs), rsi) ] else setup_args_code in (nargs, env, setup_args_code)