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:
16ed3e3
)
add missing case for compiling 64-bit operations on x86
author
Simon Marlow
<simonmar@microsoft.com>
Tue, 26 Jun 2007 21:11:53 +0000
(21:11 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Tue, 26 Jun 2007 21:11:53 +0000
(21:11 +0000)
compiler/nativeGen/MachCodeGen.hs
patch
|
blob
|
history
diff --git
a/compiler/nativeGen/MachCodeGen.hs
b/compiler/nativeGen/MachCodeGen.hs
index
79c8d69
..
3abf6a4
100644
(file)
--- a/
compiler/nativeGen/MachCodeGen.hs
+++ b/
compiler/nativeGen/MachCodeGen.hs
@@
-265,6
+265,17
@@
iselExpr64 (CmmMachOp (MO_Add _) [e1,e2]) = do
-- in
return (ChildCode64 code rlo)
+iselExpr64 (CmmMachOp (MO_U_Conv _ I64) [expr]) = do
+ fn <- getAnyReg expr
+ r_dst_lo <- getNewRegNat I32
+ let r_dst_hi = getHiVRegFromLo r_dst_lo
+ code = fn r_dst_lo
+ return (
+ ChildCode64 (code `snocOL`
+ MOV I32 (OpImm (ImmInt 0)) (OpReg r_dst_hi))
+ r_dst_lo
+ )
+
iselExpr64 expr
= pprPanic "iselExpr64(i386)" (ppr expr)