From c6d2ef0c5c896a82295c1fb8a717ea29ee3c0e4d Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Mon, 8 Oct 2012 07:12:33 +0000
Subject: 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
---
 cfrontend/C2C.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'cfrontend/C2C.ml')

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 =
-- 
cgit v1.2.3