diff options
Diffstat (limited to 'compiler/codeGen/CodeGen')
| -rw-r--r-- | compiler/codeGen/CodeGen/CallerSaves.hs | 32 | ||||
| -rw-r--r-- | compiler/codeGen/CodeGen/Platform/ARM.hs | 9 | ||||
| -rw-r--r-- | compiler/codeGen/CodeGen/Platform/NoRegs.hs | 8 | ||||
| -rw-r--r-- | compiler/codeGen/CodeGen/Platform/PPC.hs | 9 | ||||
| -rw-r--r-- | compiler/codeGen/CodeGen/Platform/PPC_Darwin.hs | 10 | ||||
| -rw-r--r-- | compiler/codeGen/CodeGen/Platform/SPARC.hs | 9 | ||||
| -rw-r--r-- | compiler/codeGen/CodeGen/Platform/X86.hs | 9 | ||||
| -rw-r--r-- | compiler/codeGen/CodeGen/Platform/X86_64.hs | 9 |
8 files changed, 95 insertions, 0 deletions
diff --git a/compiler/codeGen/CodeGen/CallerSaves.hs b/compiler/codeGen/CodeGen/CallerSaves.hs new file mode 100644 index 0000000000..b6c709df8c --- /dev/null +++ b/compiler/codeGen/CodeGen/CallerSaves.hs @@ -0,0 +1,32 @@ + +module CodeGen.CallerSaves (callerSaves) where + +import CmmExpr +import Platform + +import qualified CodeGen.Platform.ARM as ARM +import qualified CodeGen.Platform.PPC as PPC +import qualified CodeGen.Platform.PPC_Darwin as PPC_Darwin +import qualified CodeGen.Platform.SPARC as SPARC +import qualified CodeGen.Platform.X86 as X86 +import qualified CodeGen.Platform.X86_64 as X86_64 +import qualified CodeGen.Platform.NoRegs as NoRegs + +-- | Returns 'True' if this global register is stored in a caller-saves +-- machine register. + +callerSaves :: Platform -> GlobalReg -> Bool +callerSaves platform + = case platformArch platform of + ArchX86 -> X86.callerSaves + ArchX86_64 -> X86_64.callerSaves + ArchSPARC -> SPARC.callerSaves + ArchARM {} -> ARM.callerSaves + arch + | arch `elem` [ArchPPC, ArchPPC_64] -> + case platformOS platform of + OSDarwin -> PPC_Darwin.callerSaves + _ -> PPC.callerSaves + + | otherwise -> NoRegs.callerSaves + diff --git a/compiler/codeGen/CodeGen/Platform/ARM.hs b/compiler/codeGen/CodeGen/Platform/ARM.hs new file mode 100644 index 0000000000..0116139313 --- /dev/null +++ b/compiler/codeGen/CodeGen/Platform/ARM.hs @@ -0,0 +1,9 @@ + +module CodeGen.Platform.ARM (callerSaves) where + +import CmmExpr + +#define MACHREGS_NO_REGS 0 +#define MACHREGS_arm 1 +#include "../../../../includes/CallerSaves.part.hs" + diff --git a/compiler/codeGen/CodeGen/Platform/NoRegs.hs b/compiler/codeGen/CodeGen/Platform/NoRegs.hs new file mode 100644 index 0000000000..ff39dd90ae --- /dev/null +++ b/compiler/codeGen/CodeGen/Platform/NoRegs.hs @@ -0,0 +1,8 @@ + +module CodeGen.Platform.NoRegs (callerSaves) where + +import CmmExpr + +#define MACHREGS_NO_REGS 1 +#include "../../../../includes/CallerSaves.part.hs" + diff --git a/compiler/codeGen/CodeGen/Platform/PPC.hs b/compiler/codeGen/CodeGen/Platform/PPC.hs new file mode 100644 index 0000000000..c4c975a58f --- /dev/null +++ b/compiler/codeGen/CodeGen/Platform/PPC.hs @@ -0,0 +1,9 @@ + +module CodeGen.Platform.PPC (callerSaves) where + +import CmmExpr + +#define MACHREGS_NO_REGS 0 +#define MACHREGS_powerpc 1 +#include "../../../../includes/CallerSaves.part.hs" + diff --git a/compiler/codeGen/CodeGen/Platform/PPC_Darwin.hs b/compiler/codeGen/CodeGen/Platform/PPC_Darwin.hs new file mode 100644 index 0000000000..a0cbe7e433 --- /dev/null +++ b/compiler/codeGen/CodeGen/Platform/PPC_Darwin.hs @@ -0,0 +1,10 @@ + +module CodeGen.Platform.PPC_Darwin (callerSaves) where + +import CmmExpr + +#define MACHREGS_NO_REGS 0 +#define MACHREGS_powerpc 1 +#define MACHREGS_darwin 1 +#include "../../../../includes/CallerSaves.part.hs" + diff --git a/compiler/codeGen/CodeGen/Platform/SPARC.hs b/compiler/codeGen/CodeGen/Platform/SPARC.hs new file mode 100644 index 0000000000..86b949469e --- /dev/null +++ b/compiler/codeGen/CodeGen/Platform/SPARC.hs @@ -0,0 +1,9 @@ + +module CodeGen.Platform.SPARC (callerSaves) where + +import CmmExpr + +#define MACHREGS_NO_REGS 0 +#define MACHREGS_sparc 1 +#include "../../../../includes/CallerSaves.part.hs" + diff --git a/compiler/codeGen/CodeGen/Platform/X86.hs b/compiler/codeGen/CodeGen/Platform/X86.hs new file mode 100644 index 0000000000..c19bf9dcfb --- /dev/null +++ b/compiler/codeGen/CodeGen/Platform/X86.hs @@ -0,0 +1,9 @@ + +module CodeGen.Platform.X86 (callerSaves) where + +import CmmExpr + +#define MACHREGS_NO_REGS 0 +#define MACHREGS_i386 1 +#include "../../../../includes/CallerSaves.part.hs" + diff --git a/compiler/codeGen/CodeGen/Platform/X86_64.hs b/compiler/codeGen/CodeGen/Platform/X86_64.hs new file mode 100644 index 0000000000..59cf788e43 --- /dev/null +++ b/compiler/codeGen/CodeGen/Platform/X86_64.hs @@ -0,0 +1,9 @@ + +module CodeGen.Platform.X86_64 (callerSaves) where + +import CmmExpr + +#define MACHREGS_NO_REGS 0 +#define MACHREGS_x86_64 1 +#include "../../../../includes/CallerSaves.part.hs" + |