diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-10-08 07:12:33 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-10-08 07:12:33 +0000 |
| commit | c6d2ef0c5c896a82295c1fb8a717ea29ee3c0e4d (patch) | |
| tree | a65010aa76a60a6025fc1ab1a966f0490938a569 /cfrontend/C2C.ml | |
| parent | f7693b3d897b90fd3bc2533be002dc0bdcd9f6c2 (diff) | |
Make Clight independent of CompCert C.
Common parts are factored out in cfrontend/Ctypes.v and cfrontend/Cop.v
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2060 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/C2C.ml')
| -rw-r--r-- | cfrontend/C2C.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index c9beaf7..9a93017 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -22,6 +22,8 @@ open Builtins open Camlcoq open AST open Values +open Ctypes +open Cop open Csyntax open Initializers @@ -723,7 +725,7 @@ let convertGlobvar env (sto, id, ty, optinit) = let init' = match optinit with | None -> - if sto = C.Storage_extern then [] else [Init_space(Csyntax.sizeof ty')] + if sto = C.Storage_extern then [] else [Init_space(Ctypes.sizeof ty')] | Some i -> convertInitializer env ty i in let align = |