diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-11 16:19:29 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-11 16:19:29 +0000 |
commit | 02e7ed8a362a7cd5a1a85571dee8b39c9ed7144f (patch) | |
tree | bb6b64ef9afa482f7c3cc392b3d430f74a5f4bd0 /caml/PrintCsyntax.ml | |
parent | 52c209f09fa266d4b05cccec061954efbd909ee6 (diff) |
Typo dans impression structs
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@97 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml/PrintCsyntax.ml')
-rw-r--r-- | caml/PrintCsyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/caml/PrintCsyntax.ml b/caml/PrintCsyntax.ml index f837099..6e88da9 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; |