From fb202a70ccc2872aa3849854c09810a6bee268e5 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Sun, 8 May 2011 08:39:30 +0000
Subject: powerpc/PrintAsm.ml arm/PrintAsm.ml: updated (no label elimination).
 Added -dmach option and corresponding printer for Mach code.
 CleanupLabelsproof.v: fixed for ARM Driver.ml: -E sends output to stdout;
 support for .s and .S source files. cparser/Elab.ml: spurious comment
 deleted.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1648 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 backend/PrintLTLin.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'backend/PrintLTLin.ml')

diff --git a/backend/PrintLTLin.ml b/backend/PrintLTLin.ml
index 0f38a3f..e0a3204 100644
--- a/backend/PrintLTLin.ml
+++ b/backend/PrintLTLin.ml
@@ -83,7 +83,7 @@ let print_instruction pp i =
       fprintf pp "%a = builtin \"%s\"(%a)@ "
         reg res (extern_atom ef.ef_id) regs args
   | Llabel lbl ->
-      fprintf pp "%5ld: " (camlint_of_positive lbl)
+      fprintf pp "%ld:@ " (camlint_of_positive lbl)
   | Lgoto lbl ->
       fprintf pp "goto %ld@ " (camlint_of_positive lbl)
   | Lcond(cond, args, lbl) ->
-- 
cgit v1.2.3