allow build settings to be overriden by adding mk/validate.mk

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

diff --git a/compiler/nativeGen/MachRegs.lhs b/compiler/nativeGen/MachRegs.lhs
index bffb723..c4f84a4 100644 (file)
--- 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