diff options
| author | Austin Seipp <austin@well-typed.com> | 2015-04-03 06:12:35 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2015-04-03 14:46:48 -0500 |
| commit | 54b7dc5537f8b871e655752bace1ad6f5e6fe89a (patch) | |
| tree | 8d1ff113207bfb08d07f3792974ea8c00c6f0d46 /rts | |
| parent | a0c1c96515f4fbe1cf04b9760ed4f87e1544fcda (diff) | |
| download | haskell-54b7dc5537f8b871e655752bace1ad6f5e6fe89a.tar.gz | |
rts/linker: make an error msg a debug msg
This fixes more testsuite failures on Windows.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Linker.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 0bd2aa864b..5015135438 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; } } |