CVS: sml-dist/src/MLRISC/ppc/c-calls ppc-macosx.sml,1.23,1.24
Matthias Blume <[email protected]>
| Newsgroups | gmane.comp.lang.sml.smlnj.commits |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/smlnj/sml-dist/src/MLRISC/ppc/c-calls
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18358/src/MLRISC/ppc/c-calls
Modified Files:
ppc-macosx.sml
Log Message:
long long results implemented
Index: ppc-macosx.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/MLRISC/ppc/c-calls/ppc-macosx.sml,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** ppc-macosx.sml 3 Feb 2005 22:11:48 -0000 1.23
--- ppc-macosx.sml 10 Feb 2005 23:53:53 -0000 1.24
***************
*** 116,120 ****
--- 116,123 ----
val argFPRs = List.map C.FPReg [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13]
val resGPR = C.GPReg 3
+ val resGPR2 = C.GPReg 4
val resRegLoc = Reg(wordTy, resGPR, NONE)
+ val resRegLoc2 = Reg(wordTy, resGPR2, NONE)
+ val resRegLocPair = Args[resRegLoc, resRegLoc2]
val resFPR = C.FPReg 1
***************
*** 232,236 ****
fun layout {conv, retTy, paramTys} = let
fun gprRes isz = (case #sz(sizeOfInt isz)
! of 8 => raise Fail "register pairs not yet supported"
| _ => SOME resRegLoc
(* end case *))
--- 235,239 ----
fun layout {conv, retTy, paramTys} = let
fun gprRes isz = (case #sz(sizeOfInt isz)
! of 8 => SOME resRegLocPair
| _ => SOME resRegLoc
(* end case *))
***************
*** 407,410 ****
--- 410,415 ----
| SOME(Reg(ty, r, _)) => [T.GPR(T.REG(ty, r))]
| SOME(FReg(ty, r, _)) => [T.FPR(T.FREG(ty, r))]
+ | SOME(Args[Reg(ty1,r1,_),Reg(ty2,r2,_)]) =>
+ [T.GPR(T.REG(ty1,r1)), T.GPR(T.REG(ty2,r2))]
| SOME _ => raise Fail "bogus result location"
(* end case *))
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click