From: sewardj <unknown>
Date: Thu, 6 Dec 2001 13:09:19 +0000 (+0000)
Subject: [project @ 2001-12-06 13:09:19 by sewardj]
X-Git-Tag: Approximately_9120_patches~447
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5fdd7ebe45aa3e6baeb810d48f08a03579494d4a;p=ghc-hetmet.git

[project @ 2001-12-06 13:09:19 by sewardj]
Make it compile -DDEBUG.
---

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 35c86b7..a8595f1 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -127,7 +127,7 @@ stmtToInstrs stmt = case stmt of
       -> returnNat (unitOL (ASCII True (_UNPK_ str)))
 
 #ifdef DEBUG
-    other -> pprPanic "stmtToInstrs" (pprStixTree other)
+    other -> pprPanic "stmtToInstrs" (pprStixStmt other)
 #endif
 
 -- Walk a Stix tree, and insert dereferences to CLabels which are marked