projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b2e42d0
)
fix compilation for x86_64
author
Simon Marlow
<simonmar@microsoft.com>
Thu, 28 Jun 2007 12:45:44 +0000
(12:45 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Thu, 28 Jun 2007 12:45:44 +0000
(12:45 +0000)
compiler/nativeGen/MachCodeGen.hs
patch
|
blob
|
history
diff --git
a/compiler/nativeGen/MachCodeGen.hs
b/compiler/nativeGen/MachCodeGen.hs
index
1d1cfa1
..
a940566
100644
(file)
--- 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
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`
assign_code many = panic "genCCall.assign_code many"
return (load_args_code `appOL`