CVS: sml-dist/src/system/Basis/Implementation array-slice.sml,1.2,1.3 char-array-slice.sml,1.2,1.3 real64-array-slice.sml,1.2,1.3 word8-array-slice.sml,1.2,1.3

Update of /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7385/src/system/Basis/Implementation

Modified Files:
	array-slice.sml char-array-slice.sml real64-array-slice.sml 
	word8-array-slice.sml 
Log Message:
fixed problem (reversed logic) in copy code in array slice modules

Index: array-slice.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/array-slice.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** array-slice.sml	5 Sep 2003 21:34:26 -0000	1.2
--- array-slice.sml	6 Jul 2005 05:44:37 -0000	1.3
***************
*** 85,89 ****
      in
  	if di < 0 orelse de > alength dst then raise Subscript
! 	else if di < start then copyDn (stop -- 1, de -- 1)
  	else copyUp (start, di)
      end
--- 85,89 ----
      in
  	if di < 0 orelse de > alength dst then raise Subscript
! 	else if di >= start then copyDn (stop -- 1, de -- 1)
  	else copyUp (start, di)
      end

Index: char-array-slice.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/char-array-slice.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** char-array-slice.sml	5 Sep 2003 21:34:26 -0000	1.2
--- char-array-slice.sml	6 Jul 2005 05:44:37 -0000	1.3
***************
*** 108,112 ****
      in
  	if di < 0 orelse de > alength dst then raise Subscript
! 	else if di < start then copyDn (stop -- 1, de -- 1)
  	else copyUp (start, di)
      end
--- 108,112 ----
      in
  	if di < 0 orelse de > alength dst then raise Subscript
! 	else if di >= start then copyDn (stop -- 1, de -- 1)
  	else copyUp (start, di)
      end

Index: real64-array-slice.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/real64-array-slice.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** real64-array-slice.sml	5 Sep 2003 21:34:27 -0000	1.2
--- real64-array-slice.sml	6 Jul 2005 05:44:37 -0000	1.3
***************
*** 96,100 ****
      in
  	if di < 0 orelse de > alength dst then raise Subscript
! 	else if di < start then copyDn (stop -- 1, de -- 1)
  	else copyUp (start, di)
      end
--- 96,100 ----
      in
  	if di < 0 orelse de > alength dst then raise Subscript
! 	else if di >= start then copyDn (stop -- 1, de -- 1)
  	else copyUp (start, di)
      end

Index: word8-array-slice.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/word8-array-slice.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** word8-array-slice.sml	5 Sep 2003 21:34:27 -0000	1.2
--- word8-array-slice.sml	6 Jul 2005 05:44:37 -0000	1.3
***************
*** 109,113 ****
      in
  	if di < 0 orelse de > alength dst then raise Subscript
! 	else if di < start then copyDn (stop -- 1, de -- 1)
  	else copyUp (start, di)
      end
--- 109,113 ----
      in
  	if di < 0 orelse de > alength dst then raise Subscript
! 	else if di >= start then copyDn (stop -- 1, de -- 1)
  	else copyUp (start, di)
      end



-------------------------------------------------------
SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
from IBM. Find simple to follow Roadmaps, straightforward articles,
informative Webcasts and more! Get everything you need to get up to
speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click