[project @ 2001-12-06 13:09:19 by sewardj]

[ghc-hetmet.git] / ghc / compiler / nativeGen / MachCode.lhs

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 35c86b7..a8595f1 100644 (file)
--- 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