Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
f949be57
Commit
f949be57
authored
May 27, 2009
by
Ben.Lippmeier.anu.edu.au
Browse files
Follow vreg/hreg patch in X86_64 NCG
parent
2d498de3
Changes
3
Hide whitespace changes
Inline
Side-by-side
compiler/nativeGen/X86/CodeGen.hs
View file @
f949be57
...
...
@@ -1781,9 +1781,7 @@ genCCall target dest_regs args = do
assign_code
[
CmmHinted
dest
_hint
]
=
case
typeWidth
rep
of
W32
|
isFloatType
rep
->
unitOL
(
MOV
(
floatSize
W32
)
(
OpReg
xmm0
)
(
OpReg
r_dest
))
v
v
v
v
v
v
v
W64
|
isFloatType
rep
->
unitOL
(
MOV
(
floatSize
W64
)
(
OpReg
xmm0
)
(
OpReg
r_dest
))
^
^
^
^
^
^
^
_
->
unitOL
(
MOV
(
cmmTypeSize
rep
)
(
OpReg
rax
)
(
OpReg
r_dest
))
where
rep
=
localRegType
dest
...
...
compiler/nativeGen/X86/RegInfo.hs
View file @
f949be57
...
...
@@ -77,7 +77,7 @@ regColors
,
(
r14
,
"#004040"
)
,
(
r15
,
"#002080"
)
]
++
zip
(
map
RealReg
[
16
..
31
])
(
repeat
"red"
)
++
zip
(
map
regSingle
[
16
..
31
])
(
repeat
"red"
)
#
else
regDotColor
::
Reg
->
SDoc
regDotColor
=
panic
"not defined"
...
...
compiler/nativeGen/X86/Regs.hs
View file @
f949be57
...
...
@@ -108,10 +108,10 @@ virtualRegSqueeze cls vr
VirtualRegD
{}
->
_ILIT
(
1
)
VirtualRegF
{}
->
_ILIT
(
0
)
{-# INLINE realRegSqueeze #-}
realRegSqueeze
::
RegClass
->
RealReg
->
FastInt
#
if
defined
(
i386_TARGET_ARCH
)
{-# INLINE realRegSqueeze #-}
realRegSqueeze
cls
rr
=
case
cls
of
RcInteger
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment