[commit: ghc] wip/T15449, wip/T16188, wip/llvm-configure-opts: Remove a few undefined prel names (0a4bbb5)
git at git.haskell.org
git at git.haskell.org
Sun Feb 10 21:31:01 UTC 2019
Repository : ssh://git@git.haskell.org/ghc
On branches: wip/T15449,wip/T16188,wip/llvm-configure-opts
Link : http://ghc.haskell.org/trac/ghc/changeset/0a4bbb526688a97db0edbd5acc7471e3b139ed7d/ghc
>---------------------------------------------------------------
commit 0a4bbb526688a97db0edbd5acc7471e3b139ed7d
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date: Wed Feb 6 10:26:00 2019 +0300
Remove a few undefined prel names
- breakpointAuto
- breakpointJump
- breakpointCondJump
- breakpointAutoJump
These Ids are never defined, but there were definitions about those in
PrelNames. Those are now removed.
>---------------------------------------------------------------
0a4bbb526688a97db0edbd5acc7471e3b139ed7d
compiler/prelude/PrelNames.hs | 32 +++-----------------------------
1 file changed, 3 insertions(+), 29 deletions(-)
diff --git a/compiler/prelude/PrelNames.hs b/compiler/prelude/PrelNames.hs
index 5c86f65..94bb928 100644
--- a/compiler/prelude/PrelNames.hs
+++ b/compiler/prelude/PrelNames.hs
@@ -360,7 +360,7 @@ basicKnownKeyNames
-- Others
otherwiseIdName, inlineIdName,
eqStringName, assertName, breakpointName, breakpointCondName,
- breakpointAutoName, opaqueTyConName,
+ opaqueTyConName,
assertErrorName, traceName,
printName, fstName, sndName,
dollarName,
@@ -1081,7 +1081,7 @@ groupWithName = varQual gHC_EXTS (fsLit "groupWith") groupWithIdKey
-- Random PrelBase functions
fromStringName, otherwiseIdName, foldrName, buildName, augmentName,
mapName, appendName, assertName,
- breakpointName, breakpointCondName, breakpointAutoName,
+ breakpointName, breakpointCondName,
opaqueTyConName, dollarName :: Name
dollarName = varQual gHC_BASE (fsLit "$") dollarIdKey
otherwiseIdName = varQual gHC_BASE (fsLit "otherwise") otherwiseIdKey
@@ -1093,29 +1093,9 @@ appendName = varQual gHC_BASE (fsLit "++") appendIdKey
assertName = varQual gHC_BASE (fsLit "assert") assertIdKey
breakpointName = varQual gHC_BASE (fsLit "breakpoint") breakpointIdKey
breakpointCondName= varQual gHC_BASE (fsLit "breakpointCond") breakpointCondIdKey
-breakpointAutoName= varQual gHC_BASE (fsLit "breakpointAuto") breakpointAutoIdKey
opaqueTyConName = tcQual gHC_BASE (fsLit "Opaque") opaqueTyConKey
fromStringName = varQual dATA_STRING (fsLit "fromString") fromStringClassOpKey
-breakpointJumpName :: Name
-breakpointJumpName
- = mkInternalName
- breakpointJumpIdKey
- (mkOccNameFS varName (fsLit "breakpointJump"))
- noSrcSpan
-breakpointCondJumpName :: Name
-breakpointCondJumpName
- = mkInternalName
- breakpointCondJumpIdKey
- (mkOccNameFS varName (fsLit "breakpointCondJump"))
- noSrcSpan
-breakpointAutoJumpName :: Name
-breakpointAutoJumpName
- = mkInternalName
- breakpointAutoJumpIdKey
- (mkOccNameFS varName (fsLit "breakpointAutoJump"))
- noSrcSpan
-
-- PrelTup
fstName, sndName :: Name
fstName = varQual dATA_TUPLE (fsLit "fst") fstIdKey
@@ -2224,15 +2204,9 @@ runRWKey = mkPreludeMiscIdUnique 107
traceKey :: Unique
traceKey = mkPreludeMiscIdUnique 108
-breakpointIdKey, breakpointCondIdKey, breakpointAutoIdKey,
- breakpointJumpIdKey, breakpointCondJumpIdKey,
- breakpointAutoJumpIdKey :: Unique
+breakpointIdKey, breakpointCondIdKey :: Unique
breakpointIdKey = mkPreludeMiscIdUnique 110
breakpointCondIdKey = mkPreludeMiscIdUnique 111
-breakpointAutoIdKey = mkPreludeMiscIdUnique 112
-breakpointJumpIdKey = mkPreludeMiscIdUnique 113
-breakpointCondJumpIdKey = mkPreludeMiscIdUnique 114
-breakpointAutoJumpIdKey = mkPreludeMiscIdUnique 115
inlineIdKey, noinlineIdKey :: Unique
inlineIdKey = mkPreludeMiscIdUnique 120
More information about the ghc-commits
mailing list