diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-16 12:27:53 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-16 12:27:53 +0100 |
commit | 538e8515a6eb1efa8cba3a71456d05f4617999f3 (patch) | |
tree | 5b37285e6d49c0b4f9c2b516ac7b7985d3019bdf /ia32/TargetPrinter.ml | |
parent | b3c67667b7121b7f2e50700ec6da4bd780dee426 (diff) | |
parent | b3294fbaf50539f254ff3bb7145e848b3f902f73 (diff) | |
download | compcert-538e8515a6eb1efa8cba3a71456d05f4617999f3.tar.gz compcert-538e8515a6eb1efa8cba3a71456d05f4617999f3.zip |
Merge branch 'master' into dwarf
Diffstat (limited to 'ia32/TargetPrinter.ml')
-rw-r--r-- | ia32/TargetPrinter.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ia32/TargetPrinter.ml b/ia32/TargetPrinter.ml index 7663b7e7..d2d8440f 100644 --- a/ia32/TargetPrinter.ml +++ b/ia32/TargetPrinter.ml @@ -933,7 +933,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 _ = () |