X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrelNames.lhs;fp=ghc%2Fcompiler%2Fprelude%2FPrelNames.lhs;h=d656fbf18ed3728896728cb226b5d71b2eb71b2a;hb=31751ccacc24ebe5d15a0af84b10dc612d455440;hp=23b5dfef7a9050582e48981facc6bc34bc262a2d;hpb=1494f895d69a33df2f8d855f73943faec5c6858e;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrelNames.lhs b/ghc/compiler/prelude/PrelNames.lhs
index 23b5dfe..d656fbf 100644
--- a/ghc/compiler/prelude/PrelNames.lhs
+++ b/ghc/compiler/prelude/PrelNames.lhs
@@ -186,7 +186,8 @@ basicKnownKeyNames
 	-- Others
 	otherwiseIdName, 
 	plusIntegerName, timesIntegerName,
-	eqStringName, assertName, assertErrorName, runSTRepName,
+	eqStringName, assertName, breakpointName, assertErrorName,
+        runSTRepName,
 	printName, fstName, sndName,
 
 	-- MonadFix
@@ -470,14 +471,20 @@ returnMName	   = methName monadClassName FSLIT("return") returnMClassOpKey
 failMName	   = methName monadClassName FSLIT("fail")   failMClassOpKey
 
 -- Random PrelBase functions
-otherwiseIdName   = varQual pREL_BASE FSLIT("otherwise") otherwiseIdKey
-foldrName	  = varQual pREL_BASE FSLIT("foldr")     foldrIdKey
-buildName	  = varQual pREL_BASE FSLIT("build")     buildIdKey
-augmentName	  = varQual pREL_BASE FSLIT("augment")   augmentIdKey
-appendName	  = varQual pREL_BASE FSLIT("++")        appendIdKey
-andName		  = varQual pREL_BASE FSLIT("&&")	 andIdKey
-orName		  = varQual pREL_BASE FSLIT("||")	 orIdKey
-assertName        = varQual pREL_BASE FSLIT("assert")    assertIdKey
+otherwiseIdName   = varQual pREL_BASE FSLIT("otherwise")  otherwiseIdKey
+foldrName	  = varQual pREL_BASE FSLIT("foldr")      foldrIdKey
+buildName	  = varQual pREL_BASE FSLIT("build")      buildIdKey
+augmentName	  = varQual pREL_BASE FSLIT("augment")    augmentIdKey
+appendName	  = varQual pREL_BASE FSLIT("++")         appendIdKey
+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
+breakpointJumpName
+    = mkInternalName
+        breakpointJumpIdKey
+        (mkOccNameFS varName FSLIT("breakpointJump"))
+        noSrcLoc
 
 -- PrelTup
 fstName		  = varQual pREL_TUP FSLIT("fst") fstIdKey
@@ -902,6 +909,9 @@ thenIOIdKey		      = mkPreludeMiscIdUnique 59
 lazyIdKey		      = mkPreludeMiscIdUnique 60
 assertErrorIdKey	      = mkPreludeMiscIdUnique 61
 
+breakpointIdKey               = mkPreludeMiscIdUnique 62
+breakpointJumpIdKey           = mkPreludeMiscIdUnique 63
+
 -- Parallel array functions
 nullPIdKey	              = mkPreludeMiscIdUnique 80
 lengthPIdKey		      = mkPreludeMiscIdUnique 81