X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FX86%2FRegs.hs;fp=compiler%2FnativeGen%2FX86%2FRegs.hs;h=dc0df49874568e73d8568b46bc89519fb0fb6c9d;hb=659f147413af7f4f2d2b500659e7c03f31f16d35;hp=094b74dc37581affe5ca6d054aae2e25e871419c;hpb=470bedbbe60db2b9cc85dccafb6e06d9a841419d;p=ghc-hetmet.git diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs index 094b74d..dc0df49 100644 --- a/compiler/nativeGen/X86/Regs.hs +++ b/compiler/nativeGen/X86/Regs.hs @@ -249,7 +249,6 @@ floatregnos = fakeregnos ++ xmmregnos; -- argRegs is the set of regs which are read for an n-argument call to C. -- For archs which pass all args on the stack (x86), is empty. -- Sparc passes up to the first 6 args in regs. --- Dunno about Alpha. argRegs :: RegNo -> [Reg] argRegs _ = panic "MachRegs.argRegs(x86): should not be used!"