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/PrintLTLin.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'backend/PrintLTLin.ml') diff --git a/backend/PrintLTLin.ml b/backend/PrintLTLin.ml index 4dc311cb..4e8efd16 100644 --- a/backend/PrintLTLin.ml +++ b/backend/PrintLTLin.ml @@ -71,18 +71,18 @@ let print_instruction pp i = fprintf pp "%a = builtin %s(%a)@ " reg res (name_of_external ef) regs args | Llabel lbl -> - fprintf pp "%ld:@ " (camlint_of_positive lbl) + fprintf pp "%ld:@ " (P.to_int32 lbl) | Lgoto lbl -> - fprintf pp "goto %ld@ " (camlint_of_positive lbl) + fprintf pp "goto %ld@ " (P.to_int32 lbl) | Lcond(cond, args, lbl) -> fprintf pp "if (%a) goto %ld@ " (PrintOp.print_condition reg) (cond, args) - (camlint_of_positive lbl) + (P.to_int32 lbl) | Ljumptable(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 "@]@ " | Lreturn None -> -- cgit