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 | |
| parent | b3c67667b7121b7f2e50700ec6da4bd780dee426 (diff) | |
| parent | b3294fbaf50539f254ff3bb7145e848b3f902f73 (diff) | |
| download | compcert-538e8515a6eb1efa8cba3a71456d05f4617999f3.tar.gz compcert-538e8515a6eb1efa8cba3a71456d05f4617999f3.zip | |
Merge branch 'master' into dwarf
Diffstat (limited to 'ia32')
| -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 _ = () |