X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FAbsCSyn.lhs;h=23e72202134c81b399a86b44f156f4ad3efb0b69;hp=e66f7a722d7cf0b31997488e580ceb37b12b5394;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b

diff --git a/ghc/compiler/absCSyn/AbsCSyn.lhs b/ghc/compiler/absCSyn/AbsCSyn.lhs
index e66f7a7..23e7220 100644
--- a/ghc/compiler/absCSyn/AbsCSyn.lhs
+++ b/ghc/compiler/absCSyn/AbsCSyn.lhs
@@ -216,6 +216,9 @@ stored in a mixed type location.)
 			-- ClosureInfo, because the latter refers to the *right* hand
 			-- side of a defn, whereas the "description" refers to *left*
 			-- hand side
+	Int		-- Liveness info; this is here because it is
+			-- easy to produce w/in the CgMonad; hard
+			-- thereafter.  (WDP 95/11)
 
   | CRetVector			-- Return vector with "holes"
 	  			-- (Nothings) for the default
@@ -542,7 +545,7 @@ data MagicId
   | LivenessReg	-- (parallel only) used when we need to record explicitly
 		-- what registers are live
 
-  | ActivityReg	    	-- mentioned only in nativeGen
+  | ActivityReg	    	-- mentioned only in nativeGen (UNUSED)
   | StdUpdRetVecReg 	-- mentioned only in nativeGen
   | StkStubReg	    	-- register holding STK_STUB_closure (for stubbing dead stack slots)
 
@@ -589,7 +592,7 @@ tagOf_MagicId SuB		= ILIT(7)
 tagOf_MagicId Hp		= ILIT(8)
 tagOf_MagicId HpLim		= ILIT(9)
 tagOf_MagicId LivenessReg	= ILIT(10)
-tagOf_MagicId ActivityReg	= ILIT(11)
+--tagOf_MagicId ActivityReg	= ILIT(11) -- UNUSED
 tagOf_MagicId StdUpdRetVecReg	= ILIT(12)
 tagOf_MagicId StkStubReg	= ILIT(13)
 tagOf_MagicId CurCostCentre	= ILIT(14)