Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c4167f75518bcdeab38b33ca39920ae9170d5345 >--------------------------------------------------------------- commit c4167f75518bcdeab38b33ca39920ae9170d5345 Author: Ian Lynagh <[email protected]> Date: Wed Mar 21 12:30:12 2012 +0000 Rename allArgRegs to allIntArgRegs >--------------------------------------------------------------- compiler/nativeGen/X86/CodeGen.hs | 4 ++-- compiler/nativeGen/X86/Regs.hs | 14 +++++++------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs index 9bcd77b..1478bff 100644 --- a/compiler/nativeGen/X86/CodeGen.hs +++ b/compiler/nativeGen/X86/CodeGen.hs @@ -1963,11 +1963,11 @@ genCCall64' :: Platform genCCall64' platform target dest_regs args = do -- load up the register arguments (stack_args, aregs, fregs, load_args_code) - <- load_args args allArgRegs allFPArgRegs nilOL + <- load_args args allIntArgRegs allFPArgRegs nilOL let fp_regs_used = reverse (drop (length fregs) (reverse allFPArgRegs)) - int_regs_used = reverse (drop (length aregs) (reverse allArgRegs)) + int_regs_used = reverse (drop (length aregs) (reverse allIntArgRegs)) arg_regs = [eax] ++ int_regs_used ++ fp_regs_used -- for annotating the call instruction with sse_regs = length fp_regs_used diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs index 9c4c262..e0ddfc4 100644 --- a/compiler/nativeGen/X86/Regs.hs +++ b/compiler/nativeGen/X86/Regs.hs @@ -15,7 +15,7 @@ module X86.Regs ( -- registers spRel, argRegs, - allArgRegs, + allIntArgRegs, callClobberedRegs, allMachRegNos, classOfRealReg, @@ -406,7 +406,7 @@ xmm n = regSingle (firstxmm+n) -- horror show ----------------------------------------------------------------- freeReg :: RegNo -> FastBool globalRegMaybe :: GlobalReg -> Maybe RealReg -allArgRegs :: [Reg] +allIntArgRegs :: [Reg] callClobberedRegs :: [Reg] #if defined(i386_TARGET_ARCH) || defined(x86_64_TARGET_ARCH) @@ -626,17 +626,17 @@ globalRegMaybe _ = Nothing -- #if i386_TARGET_ARCH -allArgRegs = panic "X86.Regs.allArgRegs: should not be used!" +allIntArgRegs = panic "X86.Regs.allIntArgRegs: should not be used!" #elif x86_64_TARGET_ARCH #if defined(mingw32_HOST_OS) -allArgRegs = map regSingle [rcx,rdx,r8,r9] +allIntArgRegs = map regSingle [rcx,rdx,r8,r9] #else -allArgRegs = map regSingle [rdi,rsi,rdx,rcx,r8,r9] +allIntArgRegs = map regSingle [rdi,rsi,rdx,rcx,r8,r9] #endif #else -allArgRegs = panic "X86.Regs.allArgRegs: not defined for this architecture" +allIntArgRegs = panic "X86.Regs.allIntArgRegs: not defined for this architecture" #endif @@ -665,7 +665,7 @@ callClobberedRegs freeReg _ = 0# globalRegMaybe _ = panic "X86.Regs.globalRegMaybe: not defined" -allArgRegs = panic "X86.Regs.globalRegMaybe: not defined" +allIntArgRegs = panic "X86.Regs.globalRegMaybe: not defined" callClobberedRegs = panic "X86.Regs.globalRegMaybe: not defined" _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
