diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-03 13:16:21 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-03 13:16:21 +0000 |
commit | 1e24932c5f5badcca3125b9c4c0df2ac113532bf (patch) | |
tree | 873c9d7dfb7da8ad2cfa9911252b2e2d782a4825 /cfrontend/PrintCsyntax.ml | |
parent | 16e42ca83c3282ba7de830fb8a40623c6ac04dc7 (diff) | |
download | compcert-kvx-1e24932c5f5badcca3125b9c4c0df2ac113532bf.tar.gz compcert-kvx-1e24932c5f5badcca3125b9c4c0df2ac113532bf.zip |
Suppressed Init_pointer, now useless. Improved printing of strings in generated .s
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1274 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/PrintCsyntax.ml')
-rw-r--r-- | cfrontend/PrintCsyntax.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/cfrontend/PrintCsyntax.ml b/cfrontend/PrintCsyntax.ml index fa1d0482..0388c2eb 100644 --- a/cfrontend/PrintCsyntax.ml +++ b/cfrontend/PrintCsyntax.ml @@ -383,10 +383,6 @@ let print_init p = function if ofs = 0l then fprintf p "&%s,@ " (extern_atom symb) else fprintf p "(void *)((char *)&%s + %ld),@ " (extern_atom symb) ofs - | Init_pointer id -> - match string_of_init id with - | None -> fprintf p "/* pointer to other init*/,@ " - | Some s -> fprintf p "%a,@ " print_escaped_string s let print_globvar p (Coq_pair(Coq_pair(id, init), ty)) = match init with |