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

[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/36a1c46fa1fc1a6f3266c2cb5cbb7c4fcaf053aa/ghc

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

commit 36a1c46fa1fc1a6f3266c2cb5cbb7c4fcaf053aa
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>


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

36a1c46fa1fc1a6f3266c2cb5cbb7c4fcaf053aa
 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;
                }
         }