CVS: sml-dist/src/cm/stable stabilize.sml,1.83,1.84

Update of /cvsroot/smlnj/sml-dist/src/cm/stable
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13558/src/cm/stable

Modified Files:
	stabilize.sml 
Log Message:
  Rename Pack* structures to PackWord*.


Index: stabilize.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/cm/stable/stabilize.sml,v
retrieving revision 1.83
retrieving revision 1.84
diff -C2 -d -r1.83 -r1.84
*** stabilize.sml	30 Sep 2004 15:53:05 -0000	1.83
--- stabilize.sml	2 Nov 2005 21:12:30 -0000	1.84
***************
*** 99,103 ****
  
  	val libstamp = bytesIn libstamp_nbytes	(* ignored *)
! 	val dg_sz = LargeWord.toIntX (Pack32Big.subVec (bytesIn 4, 0))
  	val dg_pickle = Byte.bytesToString (bytesIn dg_sz)
      in
--- 99,103 ----
  
  	val libstamp = bytesIn libstamp_nbytes	(* ignored *)
! 	val dg_sz = LargeWord.toIntX (PackWord32Big.subVec (bytesIn 4, 0))
  	val dg_pickle = Byte.bytesToString (bytesIn dg_sz)
      in
***************
*** 972,976 ****
  		fun writeInt32 (s, i) = let
  		    val a = Word8Array.array (4, 0w0)
! 		    val _ = Pack32Big.update (a, 0, LargeWord.fromInt i)
  		in
  		    BinIO.output (s, Word8Array.vector a)
--- 972,976 ----
  		fun writeInt32 (s, i) = let
  		    val a = Word8Array.array (4, 0w0)
! 		    val _ = PackWord32Big.update (a, 0, LargeWord.fromInt i)
  		in
  		    BinIO.output (s, Word8Array.vector a)



-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP.  Click here to play: http://sourceforge.net/geronimo.php