projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
breakpointCond
[ghc-hetmet.git]
/
compiler
/
prelude
/
PrelNames.lhs
diff --git
a/compiler/prelude/PrelNames.lhs
b/compiler/prelude/PrelNames.lhs
index
ca63e96
..
3d57033
100644
(file)
--- a/
compiler/prelude/PrelNames.lhs
+++ b/
compiler/prelude/PrelNames.lhs
@@
-184,8
+184,8
@@
basicKnownKeyNames
-- Others
otherwiseIdName,
plusIntegerName, timesIntegerName,
-- Others
otherwiseIdName,
plusIntegerName, timesIntegerName,
- eqStringName, assertName, breakpointName, assertErrorName,
- runSTRepName,
+ eqStringName, assertName, breakpointName, breakpointCondName,
+ assertErrorName, runSTRepName,
printName, fstName, sndName,
-- MonadFix
printName, fstName, sndName,
-- MonadFix
@@
-477,11
+477,17
@@
andName = varQual pREL_BASE FSLIT("&&") andIdKey
orName = varQual pREL_BASE FSLIT("||") orIdKey
assertName = varQual pREL_BASE FSLIT("assert") assertIdKey
breakpointName = varQual pREL_BASE FSLIT("breakpoint") breakpointIdKey
orName = varQual pREL_BASE FSLIT("||") orIdKey
assertName = varQual pREL_BASE FSLIT("assert") assertIdKey
breakpointName = varQual pREL_BASE FSLIT("breakpoint") breakpointIdKey
+breakpointCondName= varQual pREL_BASE FSLIT("breakpointCond") breakpointCondIdKey
breakpointJumpName
= mkInternalName
breakpointJumpIdKey
(mkOccNameFS varName FSLIT("breakpointJump"))
noSrcLoc
breakpointJumpName
= mkInternalName
breakpointJumpIdKey
(mkOccNameFS varName FSLIT("breakpointJump"))
noSrcLoc
+breakpointCondJumpName
+ = mkInternalName
+ breakpointCondJumpIdKey
+ (mkOccNameFS varName FSLIT("breakpointCondJump"))
+ noSrcLoc
-- PrelTup
fstName = varQual pREL_TUP FSLIT("fst") fstIdKey
-- PrelTup
fstName = varQual pREL_TUP FSLIT("fst") fstIdKey
@@
-901,7
+907,9
@@
lazyIdKey = mkPreludeMiscIdUnique 60
assertErrorIdKey = mkPreludeMiscIdUnique 61
breakpointIdKey = mkPreludeMiscIdUnique 62
assertErrorIdKey = mkPreludeMiscIdUnique 61
breakpointIdKey = mkPreludeMiscIdUnique 62
-breakpointJumpIdKey = mkPreludeMiscIdUnique 63
+breakpointCondIdKey = mkPreludeMiscIdUnique 63
+breakpointJumpIdKey = mkPreludeMiscIdUnique 64
+breakpointCondJumpIdKey = mkPreludeMiscIdUnique 65
-- Parallel array functions
nullPIdKey = mkPreludeMiscIdUnique 80
-- Parallel array functions
nullPIdKey = mkPreludeMiscIdUnique 80