diff options
Diffstat (limited to 'kvx/Asmexpand.ml')
| -rw-r--r-- | kvx/Asmexpand.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kvx/Asmexpand.ml b/kvx/Asmexpand.ml index 1e76a355..35c980bb 100644 --- a/kvx/Asmexpand.ml +++ b/kvx/Asmexpand.ml @@ -103,7 +103,7 @@ let fixup_variadic_call pos tyl = assert false *) let fixup_call sg = - if sg.sig_cc.cc_vararg then fixup_variadic_call 0 sg.sig_args + if sg.sig_cc.cc_vararg <> None then fixup_variadic_call 0 sg.sig_args (* Handling of annotations *) @@ -501,7 +501,7 @@ let expand_instruction instr = | Pallocframe (sz, ofs) -> let sg = get_current_function_sig() in emit (Pmv (Asmvliw.GPR17, stack_pointer)); - if sg.sig_cc.cc_vararg then begin + if sg.sig_cc.cc_vararg <> None then begin let n = arguments_size sg in let extra_sz = if n >= _nbregargs_ then 0 else (* align _alignment_ *) ((_nbregargs_ - n) * wordsize) in let full_sz = Z.add sz (Z.of_uint extra_sz) in @@ -524,7 +524,7 @@ let expand_instruction instr = | Pfreeframe (sz, ofs) -> let sg = get_current_function_sig() in let extra_sz = - if sg.sig_cc.cc_vararg then begin + if sg.sig_cc.cc_vararg <> None then begin let n = arguments_size sg in if n >= _nbregargs_ then 0 else (* align _alignment_ *) ((_nbregargs_ - n) * wordsize) end else 0 in |