[commit: ghc] master: rts: Don't keep findPtr symbol alive if not -DDEBUG (e4c41ec)

git at git.haskell.org git at git.haskell.org
Thu Jun 14 16:03:14 UTC 2018


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e4c41ec2b1f2f222c9c8a83ef64d4e566aa47a44/ghc

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

commit e4c41ec2b1f2f222c9c8a83ef64d4e566aa47a44
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Thu Jun 14 11:37:05 2018 -0400

    rts: Don't keep findPtr symbol alive if not -DDEBUG
    
    Test Plan: Test with Hadrian
    
    Reviewers: simonmar, snowleopard, erikd
    
    Subscribers: rwbarton, thomie, carter
    
    Differential Revision: https://phabricator.haskell.org/D4846


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

e4c41ec2b1f2f222c9c8a83ef64d4e566aa47a44
 rts/rts.cabal.in | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rts/rts.cabal.in b/rts/rts.cabal.in
index d41135d..ffa6282 100644
--- a/rts/rts.cabal.in
+++ b/rts/rts.cabal.in
@@ -251,9 +251,11 @@ library
          "-Wl,-u,_hs_atomicwrite8"
          "-Wl,-u,_hs_atomicwrite16"
          "-Wl,-u,_hs_atomicwrite32"
+#if defined(DEBUG)
          -- This symbol is useful in gdb, but not referred to anywhere,
          -- so we need to force it to be included in the binary.
          "-Wl,-u,_findPtr"
+#endif         
     else
       ld-options:
          "-Wl,-u,base_GHCziTopHandler_runIO_closure"
@@ -324,9 +326,11 @@ library
          "-Wl,-u,hs_atomicwrite8"
          "-Wl,-u,hs_atomicwrite16"
          "-Wl,-u,hs_atomicwrite32"
+#if defined(DEBUG)         
          -- This symbol is useful in gdb, but not referred to anywhere,
          -- so we need to force it to be included in the binary.
          "-Wl,-u,findPtr"
+#endif         
 
     if os(osx)
       ld-options: "-Wl,-search_paths_first"



More information about the ghc-commits mailing list