aboutsummaryrefslogtreecommitdiffstats
path: root/ia32/TargetPrinter.ml
diff options
context:
space:
mode:
Diffstat (limited to 'ia32/TargetPrinter.ml')
-rw-r--r--ia32/TargetPrinter.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/ia32/TargetPrinter.ml b/ia32/TargetPrinter.ml
index 5bb0eec4..2a6be734 100644
--- a/ia32/TargetPrinter.ml
+++ b/ia32/TargetPrinter.ml
@@ -931,7 +931,7 @@ module Target(System: SYSTEM):TARGET =
let cfi_startproc = cfi_startproc
let cfi_endproc = cfi_endproc
- let print_instructions oc code = List.iter (print_instruction oc) code
+ let print_instructions oc fn = List.iter (print_instruction oc) fn.fn_code
let print_optional_fun_info _ = ()