From 3c8d3f11b25e2628d2d027fbdb342c3fa99129bc Mon Sep 17 00:00:00 2001
From: "Ben.Lippmeier@anu.edu.au" <unknown>
Date: Tue, 20 Jan 2009 09:06:17 +0000
Subject: [PATCH] SPARC NCG: Fix 64bit integers returned from ccalls

---
 compiler/nativeGen/MachCodeGen.hs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index 325a4e8..081947e 100644
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -3669,8 +3669,10 @@ genCCall target dest_regs argsAndHints = do
 			= unitOL $ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest
 
 			| not $ isFloatType rep
-			, W64	<- width
-			= unitOL $ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest
+			, W64		<- width
+			, r_dest_hi	<- getHiVRegFromLo r_dest
+			= toOL 	[ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest_hi
+				, mkRegRegMoveInstr (RealReg $ oReg 1) r_dest]
 			
 	   in	result
 				
-- 
1.7.10.4