[commit: ghc] ghc-7.10: rts/linker: make an error msg a debug msg (db517e5)

[git at git.haskell.org]

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

On branch  : ghc-7.10
Link       : http://ghc.haskell.org/trac/ghc/changeset/db517e5c2f6dabaa8baa04fe00b84bae3579a7c9/ghc

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

commit db517e5c2f6dabaa8baa04fe00b84bae3579a7c9
Author: Austin Seipp <austin at well-typed.com>
Date:   Fri Apr 3 06:12:35 2015 -0500

    rts/linker: make an error msg a debug msg
    
    This fixes more testsuite failures on Windows.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

db517e5c2f6dabaa8baa04fe00b84bae3579a7c9
 rts/Linker.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/rts/Linker.c b/rts/Linker.c
index 13e222b..c793e2c 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -4051,8 +4051,9 @@ lookupSymbolInDLLs ( UChar *lbl )
                 ret->addr = sym;
                 ret->next = indirects;
                 indirects = ret;
-                errorBelch("warning: %s from %S is linked instead of %s",
-                              (char*)(lbl+6), o_dll->name, (char*)lbl);
+                IF_DEBUG(linker,
+                  debugBelch("warning: %s from %S is linked instead of %s",
+                             (char*)(lbl+6), o_dll->name, (char*)lbl));
                 return (void*) & ret->addr;
                }
         }