X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fprelude%2FPrelNames.lhs;h=3d5703346c32d07bf9add7b3fe656016d79ae2b6;hp=ca63e965b98baf6059fb05a13bfd180bfea7275f;hb=0fa697bca153468bf073aad1fe02d5b4055059f2;hpb=a9da016ad847161f8209ba116079c059c7d3406a

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index ca63e96..3d57033 100644
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -184,8 +184,8 @@ basicKnownKeyNames
 	-- Others
 	otherwiseIdName, 
 	plusIntegerName, timesIntegerName,
-	eqStringName, assertName, breakpointName, assertErrorName,
-        runSTRepName,
+	eqStringName, assertName, breakpointName, breakpointCondName,
+        assertErrorName, runSTRepName,
 	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
+breakpointCondName= varQual pREL_BASE FSLIT("breakpointCond") breakpointCondIdKey
 breakpointJumpName
     = mkInternalName
         breakpointJumpIdKey
         (mkOccNameFS varName FSLIT("breakpointJump"))
         noSrcLoc
+breakpointCondJumpName
+    = mkInternalName
+        breakpointCondJumpIdKey
+        (mkOccNameFS varName FSLIT("breakpointCondJump"))
+        noSrcLoc
 
 -- PrelTup
 fstName		  = varQual pREL_TUP FSLIT("fst") fstIdKey
@@ -901,7 +907,9 @@ lazyIdKey		      = mkPreludeMiscIdUnique 60
 assertErrorIdKey	      = mkPreludeMiscIdUnique 61
 
 breakpointIdKey               = mkPreludeMiscIdUnique 62
-breakpointJumpIdKey           = mkPreludeMiscIdUnique 63
+breakpointCondIdKey           = mkPreludeMiscIdUnique 63
+breakpointJumpIdKey           = mkPreludeMiscIdUnique 64
+breakpointCondJumpIdKey       = mkPreludeMiscIdUnique 65
 
 -- Parallel array functions
 nullPIdKey	              = mkPreludeMiscIdUnique 80