X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FAbsCSyn.lhs;h=294888a107074640b0d51596c70a2b428eaf2b40;hb=61423f8842550631c7be1dfe0ebda0d179f568e8;hp=3f6bd24dc7ed95aec7f16b23669229d3d62e4c45;hpb=9a972425548b14c2267e4a82fa1525314ebd7b06;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/AbsCSyn.lhs b/ghc/compiler/absCSyn/AbsCSyn.lhs
index 3f6bd24..294888a 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.48 2002/07/16 14:56:09 simonmar Exp $
+% $Id: AbsCSyn.lhs,v 1.50 2002/09/13 15:02:25 simonpj Exp $
 %
 \section[AbstractC]{Abstract C: the last stop before machine code}
 
@@ -392,7 +392,9 @@ data CExprMacro
   | GET_TAG				-- get current constructor tag
   | UPD_FRAME_UPDATEE
   | CCS_HDR
-
+  | BYTE_ARR_CTS		-- used when passing a ByteArray# to a ccall
+  | PTRS_ARR_CTS		-- similarly for an Array#
+  | ForeignObj_CLOSURE_DATA	-- and again for a ForeignObj#
 \end{code}
 
 Convenience functions: