From: simonmar <unknown>
Date: Tue, 23 Apr 2002 15:49:22 +0000 (+0000)
Subject: [project @ 2002-04-23 15:49:22 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~2110
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a6471895fb4a08acb7d637ebee61c72f4213bedf;p=ghc-hetmet.git

[project @ 2002-04-23 15:49:22 by simonmar]
Urk, PrelPrimopWrappers is now GHCziPrimopWrappers (sigh, this should
really be done in a less fragile way).
---

diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs
index aa20cc0..6c0ed01 100644
--- a/ghc/compiler/ghci/ByteCodeLink.lhs
+++ b/ghc/compiler/ghci/ByteCodeLink.lhs
@@ -655,7 +655,7 @@ nameToCLabel n suffix
 
 primopToCLabel :: PrimOp -> String{-suffix-} -> String
 primopToCLabel primop suffix
-   = let str = "PrelPrimopWrappers_" ++ occNameString (primOpOcc primop) ++ '_':suffix
+   = let str = "GHCziPrimopWrappers_" ++ occNameString (primOpOcc primop) ++ '_':suffix
      in --trace ("primopToCLabel: " ++ str)
         str