diff options
| author | simonmar <unknown> | 2004-09-10 14:54:48 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-09-10 14:54:48 +0000 |
| commit | 2cbd1fee382a36f1b0e2736eab15d77df2d8343a (patch) | |
| tree | 6a4632633c274b8f6bcc262710cc8dc419a38085 /ghc/compiler/cmm | |
| parent | 6458c2c59780ea01a79f3c31b9b2545a0241606d (diff) | |
| download | haskell-2cbd1fee382a36f1b0e2736eab15d77df2d8343a.tar.gz | |
[project @ 2004-09-10 14:54:48 by simonmar]
RtsShouldNeverHappenCode never happens, now.
Diffstat (limited to 'ghc/compiler/cmm')
| -rw-r--r-- | ghc/compiler/cmm/CLabel.hs | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/ghc/compiler/cmm/CLabel.hs b/ghc/compiler/cmm/CLabel.hs index 81f5ecac1d..aa9476d42c 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 |