From 2847d8396b251236ccb86148e5f8f5e3775f37d2 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 27 Jul 2006 13:47:55 +0000 Subject: [PATCH] fix symbols for GHC.PrimopWrappers --- compiler/ghci/ByteCodeLink.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ghci/ByteCodeLink.lhs b/compiler/ghci/ByteCodeLink.lhs index fe4f6c3..9e4be7d 100644 --- 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} -- 1.7.10.4