From 056068abd228fefab4951a61700aa6d54fb88287 Mon Sep 17 00:00:00 2001 From: xleroy Date: Tue, 29 Jan 2013 09:10:29 +0000 Subject: Ported to Coq 8.4pl1. Merge of branches/coq-8.4. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2101 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- backend/PrintMach.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'backend/PrintMach.ml') diff --git a/backend/PrintMach.ml b/backend/PrintMach.ml index dfbc66e8..7e6c3433 100644 --- a/backend/PrintMach.ml +++ b/backend/PrintMach.ml @@ -80,18 +80,18 @@ let print_instruction pp i = | Mannot(ef, args) -> fprintf pp "%s(%a)@ " (name_of_external ef) annot_params args | Mlabel lbl -> - fprintf pp "%ld:@ " (camlint_of_positive lbl) + fprintf pp "%ld:@ " (P.to_int32 lbl) | Mgoto lbl -> - fprintf pp "goto %ld@ " (camlint_of_positive lbl) + fprintf pp "goto %ld@ " (P.to_int32 lbl) | Mcond(cond, args, lbl) -> fprintf pp "if (%a) goto %ld@ " (PrintOp.print_condition reg) (cond, args) - (camlint_of_positive lbl) + (P.to_int32 lbl) | Mjumptable(arg, tbl) -> let tbl = Array.of_list tbl in fprintf pp "@[jumptable (%a)" reg arg; for i = 0 to Array.length tbl - 1 do - fprintf pp "@ case %d: goto %ld" i (camlint_of_positive tbl.(i)) + fprintf pp "@ case %d: goto %ld" i (P.to_int32 tbl.(i)) done; fprintf pp "@]@ " | Mreturn -> -- cgit