X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FAbsCSyn.lhs;h=8b3bfd415fa2a6b6f80788e52fd8e88cc432fc86;hb=de896403dfe48bc999e5501eb8b517624dd2e5d4;hp=6caa9c50be3106f8c5d21b67bfd37440c04311c7;hpb=54e6a4e1fc2313e5462973d8988b714efd6ab9e5;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/AbsCSyn.lhs b/ghc/compiler/absCSyn/AbsCSyn.lhs
index 6caa9c5..8b3bfd4 100644
--- a/ghc/compiler/absCSyn/AbsCSyn.lhs
+++ b/ghc/compiler/absCSyn/AbsCSyn.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: AbsCSyn.lhs,v 1.26 1999/11/02 15:05:39 simonmar Exp $
+% $Id: AbsCSyn.lhs,v 1.27 2000/03/08 17:48:24 simonmar Exp $
 %
 \section[AbstractC]{Abstract C: the last stop before machine code}
 
@@ -201,6 +201,10 @@ stored in a mixed type location.)
   | CClosureTbl 		-- table of constructors for enumerated types
 	TyCon			-- which TyCon this table is for
 
+  | CModuleInitBlock		-- module initialisation block
+	CAddrMode		-- label for init block
+	AbstractC		-- initialisation code
+
   | CCostCentreDecl		-- A cost centre *declaration*
 	Bool			-- True  <=> local => full declaration
 				-- False <=> extern; just say so
@@ -235,6 +239,10 @@ data CStmtMacro
   | PUSH_SEQ_FRAME			-- push seq frame
   | UPDATE_SU_FROM_UPD_FRAME		-- pull Su out of the update frame
   | SET_TAG				-- set TagReg if it exists
+
+  | REGISTER_FOREIGN_EXPORT		-- register a foreign exported fun
+  | REGISTER_IMPORT			-- register an imported module
+
   | GRAN_FETCH	    		-- for GrAnSim only  -- HWL
   | GRAN_RESCHEDULE   		-- for GrAnSim only  -- HWL
   | GRAN_FETCH_AND_RESCHEDULE	-- for GrAnSim only  -- HWL