X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FMachRegs.lhs;h=c4f84a4379ceb621697b00b32fbcb6590f9aeed5;hb=8a2809c29de9f23eba7ca682b48390033a9d40f6;hp=bffb723d1bf79a51c122d69b8a47573b835906cf;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/MachRegs.lhs b/compiler/nativeGen/MachRegs.lhs
index bffb723..c4f84a4 100644
--- a/compiler/nativeGen/MachRegs.lhs
+++ b/compiler/nativeGen/MachRegs.lhs
@@ -96,13 +96,8 @@ import Constants
 import FastTypes
 
 #if powerpc_TARGET_ARCH
-#if __GLASGOW_HASKELL__ >= 504
 import Data.Word	( Word8, Word16, Word32 )
 import Data.Int 	( Int8, Int16, Int32 )
-#else
-import Word     	( Word8, Word16, Word32 )
-import Int 	        ( Int8, Int16, Int32 )
-#endif
 #endif
 
 -- -----------------------------------------------------------------------------
@@ -348,6 +343,10 @@ get_Regtable_addr_from_offset rep offset
 -- Here we generate the sequence of saves/restores required around a
 -- foreign call instruction.
 
+-- TODO: reconcile with includes/Regs.h
+--  * Regs.h claims that BaseReg should be saved last and loaded first
+--    * This might not have been tickled before since BaseReg is callee save
+--  * Regs.h saves SparkHd, ParkT1, SparkBase and SparkLim
 callerSaveVolatileRegs :: Maybe [GlobalReg] -> ([CmmStmt], [CmmStmt])
 callerSaveVolatileRegs vols = (caller_save, caller_load)
   where