diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2020-09-08 13:56:01 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2020-12-25 18:34:24 +0100 |
commit | 9ab3738ae87a554fb742420b8c81ced4cd3c66c7 (patch) | |
tree | cc17ce961dfc2f8dd13f4428b0814c8fe66be254 /powerpc | |
parent | a138b43ccb391be63bed2fea26cd36dab96b091f (diff) | |
download | compcert-kvx-9ab3738ae87a554fb742420b8c81ced4cd3c66c7.tar.gz compcert-kvx-9ab3738ae87a554fb742420b8c81ced4cd3c66c7.zip |
Changed cc_varargs to an option type
Instead of being a simple boolean we now use an option type to record
the number of fixed (non-vararg) arguments. Hence, `None` means
not vararg, and `Some n` means `n` fixed arguments followed with varargs.
Diffstat (limited to 'powerpc')
-rw-r--r-- | powerpc/Asmexpand.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/powerpc/Asmexpand.ml b/powerpc/Asmexpand.ml index cb6a659f..fcd7c426 100644 --- a/powerpc/Asmexpand.ml +++ b/powerpc/Asmexpand.ml @@ -830,7 +830,7 @@ let expand_builtin_inline name args res = function is unprototyped. *) let set_cr6 sg = - if sg.sig_cc.cc_vararg || sg.sig_cc.cc_unproto then begin + if (sg.sig_cc.cc_vararg <> None) || sg.sig_cc.cc_unproto then begin if List.exists (function Tfloat | Tsingle -> true | _ -> false) sg.sig_args then emit (Pcreqv(CRbit_6, CRbit_6, CRbit_6)) else emit (Pcrxor(CRbit_6, CRbit_6, CRbit_6)) |