X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FSPARC%2FRegPlate.hs;h=a0d0e4c88d23b04f137dbc847db8f37fe9f96974;hb=889c084e943779e76d19f2ef5e970ff655f511eb;hp=ff42f2b91c5e221e59c0b3cdf9762722085e96ec;hpb=f9288086f935c97812b2d80defcff38baf7b6a6c;p=ghc-hetmet.git diff --git a/compiler/nativeGen/SPARC/RegPlate.hs b/compiler/nativeGen/SPARC/RegPlate.hs index ff42f2b..a0d0e4c 100644 --- a/compiler/nativeGen/SPARC/RegPlate.hs +++ b/compiler/nativeGen/SPARC/RegPlate.hs @@ -93,7 +93,7 @@ import FastBool #define f31 63 -#include "../includes/MachRegs.h" +#include "../includes/stg/MachRegs.h" -- | Check whether a machine register is free for allocation. freeReg :: RegNo -> FastBool @@ -299,7 +299,7 @@ globalRegMaybe _ = Nothing freeReg :: RegNo -> FastBool freeReg = error "SPARC.RegPlate.freeReg: not defined" -globalRegMaybe :: GlobalReg -> Maybe Reg +globalRegMaybe :: GlobalReg -> Maybe RealReg globalRegMaybe = error "SPARC.RegPlate.globalRegMaybe: not defined" #endif