[commit: ghc] master: rts/linker: make an error msg a debug msg (54b7dc5)

[git at git.haskell.org]

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

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

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

commit 54b7dc5537f8b871e655752bace1ad6f5e6fe89a
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>


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

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

diff --git a/rts/Linker.c b/rts/Linker.c
index 0bd2aa8..5015135 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -4038,8 +4038,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;
                }
         }