X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FRegAllocInfo.lhs;h=50d57094b573c95d03fe4ba6ee2445f134935f26;hb=438596897ebbe25a07e1c82085cfbc5bdb00f09e;hp=2c30b18394f5adbf5bb6323533078012e753a426;hpb=9dd6e1c216993624a2cd74b62ca0f0569c02c26b;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/RegAllocInfo.lhs b/ghc/compiler/nativeGen/RegAllocInfo.lhs
index 2c30b18..50d5709 100644
--- a/ghc/compiler/nativeGen/RegAllocInfo.lhs
+++ b/ghc/compiler/nativeGen/RegAllocInfo.lhs
@@ -1,5 +1,5 @@
 %
-% (c) The AQUA Project, Glasgow University, 1996
+% (c) The AQUA Project, Glasgow University, 1996-1998
 %
 \section[RegAllocInfo]{Machine-specific info used for register allocation}
 
@@ -57,13 +57,11 @@ import MachMisc
 import MachRegs
 import MachCode		( InstrList )
 
-import AbsCSyn		( MagicId )
 import BitSet		( unitBS, mkBS, minusBS, unionBS, listBS, BitSet )
 import CLabel		( pprCLabel_asm, CLabel{-instance Ord-} )
 import FiniteMap	( addToFM, lookupFM, FiniteMap )
-import OrdList		( mkUnitList, OrdList )
+import OrdList		( mkUnitList )
 import PrimRep		( PrimRep(..) )
-import Stix		( StixTree, CodeSegment )
 import UniqSet		-- quite a bit of it
 import Outputable
 \end{code}
@@ -419,7 +417,7 @@ regUsage instr = case instr of
     FISUBR sz asrc	-> usage (addrToRegs asrc) [st0]
     FTST 		-> usage [st0] []
     FCOMP sz op		-> usage (st0:opToReg op) [st0] -- allFPRegs
-    FUCOMPP 		-> usage [st0, st1] [] --  allFPRegs
+    FUCOMPP 		-> usage [st0, st1] [st0, st1] --  allFPRegs
     FXCH		-> usage [st0, st1] [st0, st1]
     FNSTSW		-> usage [] [eax]
     _			-> noUsage