[commit: ghc] wip/kavon-nosplit-llvm: small improvements to mangler output (b61c45d)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/kavon-nosplit-llvm
Link       : http://ghc.haskell.org/trac/ghc/changeset/b61c45df32a765b467a2233d7b5a92f874937108/ghc

>---------------------------------------------------------------

commit b61c45df32a765b467a2233d7b5a92f874937108
Author: Kavon Farvardin <kavon at farvard.in>
Date:   Wed Jun 14 16:56:00 2017 +0100

    small improvements to mangler output


>---------------------------------------------------------------

b61c45df32a765b467a2233d7b5a92f874937108
 compiler/llvmGen/LlvmCodeGen/Data.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/compiler/llvmGen/LlvmCodeGen/Data.hs b/compiler/llvmGen/LlvmCodeGen/Data.hs
index c3dfc49..fa31863 100644
--- a/compiler/llvmGen/LlvmCodeGen/Data.hs
+++ b/compiler/llvmGen/LlvmCodeGen/Data.hs
@@ -186,11 +186,21 @@ cvtForMangler (Statics _ datum) = do
             
         cvtLit _ = return $ dbg (B.pack "## some other lit for ")
         
+        mkDiffOff srt 0 mine = B.concat [
+                szName W64,
+                srt,
+                B.pack "-",
+                mine,
+                eol
+            ]
+        
         mkDiffOff srt off mine = B.concat [
                 szName W64,
+                B.pack "(",
                 srt,
                 B.pack "-",
                 mine,
+                B.pack ")",
                 B.pack ("+" ++ show off),
                 eol
             ]
@@ -201,6 +211,8 @@ cvtForMangler (Statics _ datum) = do
             in
                 B.pack llName
                 
+        asmNameOf _ = error "asmNameOf -- unexpected name kind"
+