diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-07 17:49:18 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-07 17:49:18 +0000 |
commit | c24a652789e15b33153c1d90c6869eb6e6e28040 (patch) | |
tree | e5e5aa2767fe098e3b23f82091ff6d60b0c6d8f2 /cfrontend/C2Clight.ml | |
parent | 6a8503115a9952dc793d15d0ea9033b68b30aae6 (diff) | |
download | compcert-kvx-c24a652789e15b33153c1d90c6869eb6e6e28040.tar.gz compcert-kvx-c24a652789e15b33153c1d90c6869eb6e6e28040.zip |
Handling of builtins, continued.
PrintCsyntax, PrintAsm: improve printing of float literals.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1284 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/C2Clight.ml')
-rw-r--r-- | cfrontend/C2Clight.ml | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/cfrontend/C2Clight.ml b/cfrontend/C2Clight.ml index 2ad2ac5e..57ee8fd5 100644 --- a/cfrontend/C2Clight.ml +++ b/cfrontend/C2Clight.ml @@ -704,6 +704,7 @@ let convertProgram p = Hashtbl.clear decl_atom; Hashtbl.clear stringTable; Hashtbl.clear stub_function_table; + let p = Builtins.declarations() @ p in try let (funs1, vars1) = convertGlobdecls (translEnv Env.empty p) [] [] (cleanupGlobals p) in @@ -743,3 +744,16 @@ let atom_is_readonly a = type_is_readonly env ty with Not_found -> false + +(** ** The builtin environment *) + +let builtins = { + Builtins.typedefs = [ + (* keeps GCC-specific headers happy, harmless for others *) + "__builtin_va_list", C.TPtr(C.TVoid [], []) + ]; + Builtins.functions = [ + ] +} + + |