Commit 2cbd1fee authored by simonmar's avatar simonmar

[project @ 2004-09-10 14:54:48 by simonmar]

RtsShouldNeverHappenCode never happens, now.
parent 6458c2c5
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment