fix symbols for GHC.PrimopWrappers

2847d839 · Simon Marlow · 35a38acc · 2847d839
Commit 2847d839 authored Jul 27, 2006 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/ghci/ByteCodeLink.lhs compiler/ghci/ByteCodeLink.lhs +1 -1

No files found.
--- a/compiler/ghci/ByteCodeLink.lhs
+++ b/compiler/ghci/ByteCodeLink.lhs
@@ -274,7 +274,7 @@ nameToCLabel n suffix

 primopToCLabel :: PrimOp -> String{-suffix-} -> String
 primopToCLabel primop suffix
-   = let str = "GHCziPrimopWrappers_" ++ unpackFS (zEncodeFS (occNameFS (primOpOcc primop))) ++ '_':suffix
+   = let str = "base_GHCziPrimopWrappers_" ++ unpackFS (zEncodeFS (occNameFS (primOpOcc primop))) ++ '_':suffix
     in --trace ("primopToCLabel: " ++ str)
        str
 \end{code}