From: simonpj <unknown>
Date: Wed, 21 Dec 2005 11:43:29 +0000 (+0000)
Subject: [project @ 2005-12-21 11:43:29 by simonpj]
X-Git-Tag: final_switch_to_darcs,_this_repo_is_now_live~78
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4684f7171ca9c84d96dce484c8c37c85c77942c0

[project @ 2005-12-21 11:43:29 by simonpj]
Missing Show instance for FreeRegs on PowerPC
---

diff --git a/ghc/compiler/nativeGen/RegisterAlloc.hs b/ghc/compiler/nativeGen/RegisterAlloc.hs
index a82c9fb..8040602 100644
--- a/ghc/compiler/nativeGen/RegisterAlloc.hs
+++ b/ghc/compiler/nativeGen/RegisterAlloc.hs
@@ -156,6 +156,7 @@ allocateReg f r = filter (/= r) f
 -- 32-bit words).
 
 data FreeRegs = FreeRegs !Word32 !Word32
+	      deriving( Show )	-- The Show is used in an ASSERT
 
 noFreeRegs :: FreeRegs
 noFreeRegs = FreeRegs 0 0