X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FMachRegs.lhs;h=c4f84a4379ceb621697b00b32fbcb6590f9aeed5;hp=df3be5e4e4d8c24e26e40bb2e784d746feabe1b6;hb=bd3a364da7956c269d31645995d0d775c52f6a84;hpb=21bc3ec7555c996ce3a5d8a620831e7758f5f7e9

diff --git a/compiler/nativeGen/MachRegs.lhs b/compiler/nativeGen/MachRegs.lhs
index df3be5e..c4f84a4 100644
--- a/compiler/nativeGen/MachRegs.lhs
+++ b/compiler/nativeGen/MachRegs.lhs
@@ -343,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