CVS: sml-dist/src/system/smlnj/init built-in.sml, 1.12.4.2, 1.12.4.3 core.sml, 1.15.4.1, 1.15.4.2

Update of /cvsroot/smlnj/sml-dist/src/system/smlnj/init
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv9099/src/system/smlnj/init

Modified Files:
      Tag: primop-branch-2
	built-in.sml core.sml 
Log Message:
debugging -- prim precision conversion types do not match in translate.sml inl_infPrec

Index: built-in.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/smlnj/init/built-in.sml,v
retrieving revision 1.12.4.2
retrieving revision 1.12.4.3
diff -C2 -d -r1.12.4.2 -r1.12.4.3
*** built-in.sml	7 Sep 2006 20:57:35 -0000	1.12.4.2
--- built-in.sml	22 Sep 2006 19:07:06 -0000	1.12.4.3
***************
*** 138,143 ****
  	val toLargeWordX  = copy_word32
  	val fromLargeWord = copy_word32
! 	val toLargeInt    : word32 -> intinf  = IntInf.copy_word32
! 	val toLargeIntX   : word32 -> intinf  = IntInf.extend_word32
  	val fromLargeInt  = IntInf.trunc_word32
  	val toInt         = testu_int31
--- 138,143 ----
  	val toLargeWordX  = copy_word32
  	val fromLargeWord = copy_word32
! 	val toLargeInt    = IntInf.copy_word32
! 	val toLargeIntX   = IntInf.extend_word32
  	val fromLargeInt  = IntInf.trunc_word32
  	val toInt         = testu_int31

Index: core.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/smlnj/init/core.sml,v
retrieving revision 1.15.4.1
retrieving revision 1.15.4.2
diff -C2 -d -r1.15.4.1 -r1.15.4.2
*** core.sml	18 Jul 2006 02:39:07 -0000	1.15.4.1
--- core.sml	22 Sep 2006 19:07:06 -0000	1.15.4.2
***************
*** 353,356 ****
--- 353,358 ----
  	val testInf = CoreIntInf.testInf
  	val truncInf = CoreIntInf.truncInf
+ 	(** ADDED copyInf ... because finToInf takes sign extension parameter *) 
+ 	val copyInf = CoreIntInf.copyInf
  	val finToInf = CoreIntInf.finToInf
  	val makeNegInf = CoreIntInf.makeNegInf


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV