diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2018-11-28 17:31:46 +0100 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2018-11-28 17:31:46 +0100 |
commit | 30e8e1618e59bdb585b1fb36cddce41eefe12364 (patch) | |
tree | d6fb12d6e86601ae9cee017f66e782e04be7f7b2 /mppa_k1c/Asmexpand.ml | |
parent | 0ea925ecc01d3da88c1c2b8cb03b318af2720a92 (diff) | |
download | compcert-kvx-30e8e1618e59bdb585b1fb36cddce41eefe12364.tar.gz compcert-kvx-30e8e1618e59bdb585b1fb36cddce41eefe12364.zip |
Wrote some tests on va_arg, need to implement __compcert_va_int32 & cie
Diffstat (limited to 'mppa_k1c/Asmexpand.ml')
-rw-r--r-- | mppa_k1c/Asmexpand.ml | 9 |
1 files changed, 4 insertions, 5 deletions
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, |