From: simonpj <unknown>
Date: Thu, 28 Jan 1999 17:10:53 +0000 (+0000)
Subject: [project @ 1999-01-28 17:10:52 by simonpj]
X-Git-Tag: Approximately_9120_patches~6656
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b4613af39b9a0829c13eb2987a0469bff5ada16c;p=ghc-hetmet.git

[project @ 1999-01-28 17:10:52 by simonpj]
PrelInfo should define deRefStablePtr and friends to be in PrelStable
---

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 834134f..a22c590 100644
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -458,7 +458,7 @@ guys never show up in error messages.  What a hack.
 \begin{code}
 mkMethodOcc :: OccName -> OccName
 mkMethodOcc occ@(OccName VarName fs) = occ
-mkMethodOcc occ			     = mk_simple_deriv varName "$m"
+mkMethodOcc occ			     = mk_simple_deriv varName "$m" occ
 \end{code}
 
 
diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 28c1948..c1e3a9d 100644
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -462,9 +462,9 @@ byteArrayTyCon_RDR		= tcQual pREL_ARR  SLIT("ByteArray")
 mutableByteArrayTyCon_RDR	= tcQual pREL_ARR  SLIT("MutableByteArray")
 
 foreignObjTyCon_RDR	= tcQual  pREL_IO_BASE SLIT("ForeignObj")
-stablePtrTyCon_RDR	= tcQual  pREL_FOREIGN SLIT("StablePtr")
-deRefStablePtr_RDR      = varQual pREL_FOREIGN SLIT("deRefStablePtr")
-makeStablePtr_RDR       = varQual pREL_FOREIGN SLIT("makeStablePtr")
+stablePtrTyCon_RDR	= tcQual  pREL_STABLE SLIT("StablePtr")
+deRefStablePtr_RDR      = varQual pREL_STABLE SLIT("deRefStablePtr")
+makeStablePtr_RDR       = varQual pREL_STABLE SLIT("makeStablePtr")
 
 eqClass_RDR		= clsQual pREL_BASE SLIT("Eq")
 ordClass_RDR		= clsQual pREL_BASE SLIT("Ord")