From: simonpj <unknown>
Date: Thu, 9 Sep 2004 21:33:07 +0000 (+0000)
Subject: [project @ 2004-09-09 21:33:07 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1618
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=99b614ebaa93917495d1031a18aab466bcb8d1cd;p=ghc-hetmet.git

[project @ 2004-09-09 21:33:07 by simonpj]
Fix apparent typo in call to debugBelch; Win32 only I think
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index d6024ac..7b1e4e9 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -2042,7 +2042,7 @@ ocResolve_PEi386 ( ObjectCode* oc )
                *pP = S - ((UInt32)pP) - 4;
                break;
             default:
-               debugBelch(("%s: unhandled PEi386 relocation type %d",
+               debugBelch("%s: unhandled PEi386 relocation type %d",
 		     oc->fileName, reltab_j->Type);
                return 0;
          }