diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-24 22:40:06 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-24 22:40:06 +0000 |
| commit | a7d2d334c07af5c018e5a36be1c3fb44530b56e1 (patch) | |
| tree | 14385eeb14fc89e620bf95eeff95535bb4124654 /compiler/ghci/ByteCodeLink.lhs | |
| parent | 77b952429508a0302e871a8bb358a9adb9b917bf (diff) | |
| download | haskell-a7d2d334c07af5c018e5a36be1c3fb44530b56e1.tar.gz | |
Another change for GHC.PrimopWrappers moving from base to ghc-prim
Diffstat (limited to 'compiler/ghci/ByteCodeLink.lhs')
| -rw-r--r-- | compiler/ghci/ByteCodeLink.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/ByteCodeLink.lhs b/compiler/ghci/ByteCodeLink.lhs index 939b9b6278..63dd7a41bf 100644 --- a/compiler/ghci/ByteCodeLink.lhs +++ b/compiler/ghci/ByteCodeLink.lhs @@ -275,7 +275,7 @@ nameToCLabel n suffix primopToCLabel :: PrimOp -> String{-suffix-} -> String primopToCLabel primop suffix - = let str = "base_GHCziPrimopWrappers_" ++ unpackFS (zEncodeFS (occNameFS (primOpOcc primop))) ++ '_':suffix + = let str = "ghczmprim_GHCziPrimopWrappers_" ++ unpackFS (zEncodeFS (occNameFS (primOpOcc primop))) ++ '_':suffix in --trace ("primopToCLabel: " ++ str) str \end{code} |