From 30e8e1618e59bdb585b1fb36cddce41eefe12364 Mon Sep 17 00:00:00 2001 From: Cyril SIX Date: Wed, 28 Nov 2018 17:31:46 +0100 Subject: Wrote some tests on va_arg, need to implement __compcert_va_int32 & cie --- mppa_k1c/Asmexpand.ml | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'mppa_k1c/Asmexpand.ml') diff --git a/mppa_k1c/Asmexpand.ml b/mppa_k1c/Asmexpand.ml index 0fcc1212..07b15a63 100644 --- a/mppa_k1c/Asmexpand.ml +++ b/mppa_k1c/Asmexpand.ml @@ -340,14 +340,13 @@ let save_arguments first_reg base_ofs = let open Asmblock in let vararg_start_ofs : Z.t option ref = ref None -let expand_builtin_va_start r = assert false -(*match !vararg_start_ofs with +let expand_builtin_va_start r = (* assert false *) +match !vararg_start_ofs with | None -> invalid_arg "Fatal error: va_start used in non-vararg function" | Some ofs -> - expand_addptrofs X31 X2 (Ptrofs.repr ofs); - expand_storeind_ptr X31 r Ptrofs.zero -*) + expand_addptrofs Asmblock.GPR32 Asmblock.GPR12 (Ptrofs.repr ofs); + expand_storeind_ptr Asmblock.GPR32 r Ptrofs.zero (* Auxiliary for 64-bit integer arithmetic built-ins. They expand to two instructions, one computing the low 32 bits of the result, -- cgit