From ae53d47bba6360589970d5c51d8551172297c3f3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 28 Jun 2007 12:45:44 +0000 Subject: [PATCH] fix compilation for x86_64 --- compiler/nativeGen/MachCodeGen.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs index 1d1cfa1..a940566 100644 --- a/compiler/nativeGen/MachCodeGen.hs +++ b/compiler/nativeGen/MachCodeGen.hs @@ -3323,8 +3323,8 @@ genCCall target dest_regs args = do F64 -> unitOL (MOV rep (OpReg xmm0) (OpReg r_dest)) rep -> unitOL (MOV rep (OpReg rax) (OpReg r_dest)) where - rep = cmmRegRep dest - r_dest = getRegisterReg dest + rep = localRegRep dest + r_dest = getRegisterReg (CmmLocal dest) assign_code many = panic "genCCall.assign_code many" return (load_args_code `appOL` -- 1.7.10.4