diff options
| author | simonmar <unknown> | 2002-04-23 15:49:22 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-23 15:49:22 +0000 |
| commit | a6471895fb4a08acb7d637ebee61c72f4213bedf (patch) | |
| tree | 2c5d0e5a8377b5e9cf573dfcbf257d9d0978b3c1 /ghc/compiler/ghci/ByteCodeLink.lhs | |
| parent | eb34452a74582ab67fb88f37a8bd2f4b6547ee47 (diff) | |
| download | haskell-a6471895fb4a08acb7d637ebee61c72f4213bedf.tar.gz | |
[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).
Diffstat (limited to 'ghc/compiler/ghci/ByteCodeLink.lhs')
| -rw-r--r-- | ghc/compiler/ghci/ByteCodeLink.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs index aa20cc033b..6c0ed01cda 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 |