From: simonmar <unknown>
Date: Sun, 3 Apr 2005 21:35:02 +0000 (+0000)
Subject: [project @ 2005-04-03 21:35:02 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~831
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=223bf3badbc0186ee2790356f968642eaba87983;p=ghc-hetmet.git

[project @ 2005-04-03 21:35:02 by simonmar]
#include "MachDeps.h" to get WORD_SIZE_IN_BITS (fixes profasm breakages)
---

diff --git a/ghc/compiler/nativeGen/MachCodeGen.hs b/ghc/compiler/nativeGen/MachCodeGen.hs
index c93b678..7837e20 100644
--- a/ghc/compiler/nativeGen/MachCodeGen.hs
+++ b/ghc/compiler/nativeGen/MachCodeGen.hs
@@ -15,6 +15,7 @@ module MachCodeGen ( cmmTopCodeGen, InstrBlock ) where
 
 #include "HsVersions.h"
 #include "nativeGen/NCG.h"
+#include "MachDeps.h"
 
 -- NCG stuff:
 import MachInstrs
@@ -1228,7 +1229,7 @@ getRegister (CmmLit lit)
     in
     	return (Any rep code)
 
-getRegister other = panic "getRegister(x86)"
+getRegister other = pprPanic "getRegister(x86)" (ppr other)
 
 
 intLoadCode :: (Operand -> Operand -> Instr) -> CmmExpr