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:29:23 +0100 |
commit | b3294fbaf50539f254ff3bb7145e848b3f902f73 (patch) | |
tree | 182064bc7ec08870a146bd6c8560b5ff31794d8d /arm/TargetPrinter.ml | |
parent | e00261d59ed14721c4b0baab6cd5fe12aeaa06c6 (diff) | |
download | compcert-b3294fbaf50539f254ff3bb7145e848b3f902f73.tar.gz compcert-b3294fbaf50539f254ff3bb7145e848b3f902f73.zip |
Missing initialization of current_function_sig.
Diffstat (limited to 'arm/TargetPrinter.ml')
-rw-r--r-- | arm/TargetPrinter.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/arm/TargetPrinter.ml b/arm/TargetPrinter.ml index 62dd2bc2..84cdb597 100644 --- a/arm/TargetPrinter.ml +++ b/arm/TargetPrinter.ml @@ -1073,6 +1073,7 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = align let print_instructions oc fn = + current_function_sig := fn.fn_sig; ignore (fixup_arguments oc Incoming fn.fn_sig); print_instructions oc fn.fn_code; if !literals_in_code then emit_constants oc |