From 2cbd1fee382a36f1b0e2736eab15d77df2d8343a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 10 Sep 2004 14:54:48 +0000
Subject: [PATCH] [project @ 2004-09-10 14:54:48 by simonmar]
 RtsShouldNeverHappenCode never happens, now.

---
 ghc/compiler/cmm/CLabel.hs |   12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/ghc/compiler/cmm/CLabel.hs b/ghc/compiler/cmm/CLabel.hs
index 81f5eca..aa9476d 100644
--- a/ghc/compiler/cmm/CLabel.hs
+++ b/ghc/compiler/cmm/CLabel.hs
@@ -199,9 +199,7 @@ data CaseLabelInfo
 
 
 data RtsLabelInfo
-  = RtsShouldNeverHappenCode
-
-  | RtsSelectorInfoTbl Bool{-updatable-} Int{-offset-}	-- Selector thunks
+  = RtsSelectorInfoTbl Bool{-updatable-} Int{-offset-}	-- Selector thunks
   | RtsSelectorEntry   Bool{-updatable-} Int{-offset-}
 
   | RtsApInfoTbl Bool{-updatable-} Int{-arity-}	        -- AP thunks
@@ -261,7 +259,6 @@ mkPlainModuleInitLabel		= PlainModuleInitLabel
 
 	-- Some fixed runtime system labels
 
-mkErrorStdEntryLabel 		= RtsLabel RtsShouldNeverHappenCode
 mkSplitMarkerLabel		= RtsLabel (RtsCode SLIT("__stg_split_marker"))
 mkUpdInfoLabel			= RtsLabel (RtsInfo SLIT("stg_upd_frame"))
 mkSeqInfoLabel			= RtsLabel (RtsInfo SLIT("stg_seq_frame"))
@@ -443,9 +440,6 @@ labelType _        = DataLabel
 labelDynamic :: CLabel -> Bool
 labelDynamic lbl = 
   case lbl of
-   -- The special case for RtsShouldNeverHappenCode is because the associated address is
-   -- NULL, i.e. not a DLL entry point
-   RtsLabel RtsShouldNeverHappenCode -> False
    RtsLabel _  	     -> not opt_Static  -- i.e., is the RTS in a DLL or not?
    IdLabel n k       -> isDllName n
    ForeignLabel _ _ d  -> d
@@ -555,10 +549,6 @@ pprCLbl (CaseLabel u (CaseAlt tag))
 pprCLbl (CaseLabel u CaseDefault)
   = hcat [pprUnique u, ptext SLIT("_dflt")]
 
-pprCLbl (RtsLabel RtsShouldNeverHappenCode) = ptext SLIT("0")
--- used to be stg_error_entry but Windows can't have DLL entry points as static
--- initialisers, and besides, this ShouldNeverHappen, right?
-
 pprCLbl (RtsLabel (RtsCode str))   = ptext str
 pprCLbl (RtsLabel (RtsData str))   = ptext str
 pprCLbl (RtsLabel (RtsCodeFS str)) = ftext str
-- 
1.7.10.4