From 02e7ed8a362a7cd5a1a85571dee8b39c9ed7144f Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Mon, 11 Sep 2006 16:19:29 +0000
Subject: Typo dans impression structs

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

diff --git a/caml/PrintCsyntax.ml b/caml/PrintCsyntax.ml
index f8370995..6e88da98 100644
--- a/caml/PrintCsyntax.ml
+++ b/caml/PrintCsyntax.ml
@@ -423,7 +423,7 @@ let print_struct_or_union p (name, fld) =
       fprintf p "@ %s;" (name_cdecl (extern_atom id) ty);
       print_fields rem in
   print_fields fld;
-  fprintf p "@;<0 -2>}@]@ "
+  fprintf p "@;<0 -2>};@]@ "
 
 let print_program p prog =
   struct_unions := StructUnionSet.empty;
-- 
cgit