CVS: sml-dist/src/compiler/CodeGen/cpscompile cps-c-calls.sml,1.6,1.7

Update of /cvsroot/smlnj/sml-dist/src/compiler/CodeGen/cpscompile
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32263/src/compiler/CodeGen/cpscompile

Modified Files:
	cps-c-calls.sml 
Log Message:
long long args now seem to work

Index: cps-c-calls.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/CodeGen/cpscompile/cps-c-calls.sml,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** cps-c-calls.sml	7 Feb 2005 22:16:51 -0000	1.6
--- cps-c-calls.sml	9 Feb 2005 21:48:59 -0000	1.7
***************
*** 286,291 ****
  	     | m ((C_signed I_long_long | C_unsigned I_long_long), v :: vl) =
  	       let fun field off =
! 		       M.LOAD (ity, ea (regbind v, off), R.memory)
! 	       in ([CCalls.ARG (field 8), CCalls.ARG (field 4)], vl)
  	       end
  	     | m (C_long_double, _) =
--- 286,292 ----
  	     | m ((C_signed I_long_long | C_unsigned I_long_long), v :: vl) =
  	       let fun field off =
! 		       M.LOAD (ity, M.LOAD (pty, ea (regbind v, off), R.memory),
! 			       R.memory)
! 	       in ([CCalls.ARG (field 4), CCalls.ARG (field 0)], vl)
  	       end
  	     | m (C_long_double, _) =



-------------------------------------------------------
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