From 42e397bd80389c7e7259f962415769b06561bb5d Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Sat, 14 Mar 2015 11:25:50 +0100 Subject: Missing initialization of current_function_sig. --- ia32/TargetPrinter.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'ia32/TargetPrinter.ml') diff --git a/ia32/TargetPrinter.ml b/ia32/TargetPrinter.ml index d5ce2899..c00dfc57 100644 --- a/ia32/TargetPrinter.ml +++ b/ia32/TargetPrinter.ml @@ -944,7 +944,9 @@ module Target(System: SYSTEM):TARGET = let cfi_startproc = cfi_startproc let cfi_endproc = cfi_endproc - let print_instructions oc fn = List.iter (print_instruction oc) fn.fn_code + let print_instructions oc fn = + current_function_sig := fn.fn_sig; + List.iter (print_instruction oc) fn.fn_code let print_optional_fun_info _ = () -- cgit