Commit 3c8d3f11 authored by Ben.Lippmeier@anu.edu.au's avatar Ben.Lippmeier@anu.edu.au
Browse files

SPARC NCG: Fix 64bit integers returned from ccalls

parent 09dc0da9
...@@ -3669,8 +3669,10 @@ genCCall target dest_regs argsAndHints = do ...@@ -3669,8 +3669,10 @@ genCCall target dest_regs argsAndHints = do
= unitOL $ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest = unitOL $ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest
| not $ isFloatType rep | not $ isFloatType rep
, W64 <- width , W64 <- width
= unitOL $ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest , r_dest_hi <- getHiVRegFromLo r_dest
= toOL [ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest_hi
, mkRegRegMoveInstr (RealReg $ oReg 1) r_dest]
in result in result
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment