diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-03-14 11:25:50 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-03-14 11:25:50 +0100 |
| commit | 42e397bd80389c7e7259f962415769b06561bb5d (patch) | |
| tree | 87252fc26eb8a2ae712837bece7443ce75a6e653 /ia32 | |
| parent | 263e5f9049a9151134f9852acddf8ae0e5f90990 (diff) | |
| download | compcert-42e397bd80389c7e7259f962415769b06561bb5d.tar.gz compcert-42e397bd80389c7e7259f962415769b06561bb5d.zip | |
Missing initialization of current_function_sig.
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 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 _ = () |