diff options
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs b/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs index 724d7d6b25..887af1758a 100644 --- a/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs +++ b/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs @@ -42,27 +42,27 @@ import qualified SPARC.Instr import qualified X86.Instr class Show freeRegs => FR freeRegs where - frAllocateReg :: RealReg -> freeRegs -> freeRegs + frAllocateReg :: Platform -> RealReg -> freeRegs -> freeRegs frGetFreeRegs :: Platform -> RegClass -> freeRegs -> [RealReg] frInitFreeRegs :: Platform -> freeRegs - frReleaseReg :: RealReg -> freeRegs -> freeRegs + frReleaseReg :: Platform -> RealReg -> freeRegs -> freeRegs instance FR X86.FreeRegs where - frAllocateReg = X86.allocateReg + frAllocateReg = \_ -> X86.allocateReg frGetFreeRegs = X86.getFreeRegs frInitFreeRegs = X86.initFreeRegs - frReleaseReg = X86.releaseReg + frReleaseReg = \_ -> X86.releaseReg instance FR PPC.FreeRegs where - frAllocateReg = PPC.allocateReg + frAllocateReg = \_ -> PPC.allocateReg frGetFreeRegs = \_ -> PPC.getFreeRegs - frInitFreeRegs = \_ -> PPC.initFreeRegs - frReleaseReg = PPC.releaseReg + frInitFreeRegs = PPC.initFreeRegs + frReleaseReg = \_ -> PPC.releaseReg instance FR SPARC.FreeRegs where frAllocateReg = SPARC.allocateReg frGetFreeRegs = \_ -> SPARC.getFreeRegs - frInitFreeRegs = \_ -> SPARC.initFreeRegs + frInitFreeRegs = SPARC.initFreeRegs frReleaseReg = SPARC.releaseReg maxSpillSlots :: Platform -> Int |