[Commit] nickle ChangeLog,1.100,1.101 builtin-toplevel.c,1.27,1.28

Bart Massey commit at keithp.com
Mon Nov 22 21:02:10 PST 2004


Committed by: bart

Update of /local/src/CVS/nickle
In directory home.keithp.com:/tmp/cvs-serv22282

Modified Files:
	ChangeLog builtin-toplevel.c 
Log Message:
	* builtin-toplevel.5c:
	Change dims() to return dimensions in order
	consistent with array defns, setdims(), etc.
	Bug discovered by Jeremy Greenwald.



Index: ChangeLog
===================================================================
RCS file: /local/src/CVS/nickle/ChangeLog,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -d -r1.100 -r1.101
--- ChangeLog	19 Nov 2004 06:53:05 -0000	1.100
+++ ChangeLog	23 Nov 2004 05:02:07 -0000	1.101
@@ -1,3 +1,10 @@
+2004-11-22  Bart Massey  <bart at cs.pdx.edu>
+
+	* builtin-toplevel.5c:
+	Change dims() to return dimensions in order
+	consistent with array defns, setdims(), etc.
+	Bug discovered by Jeremy Greenwald.
+	
 2004-11-18  Keith Packard  <keithp at keithp.com>
 
 	* examples/sort.5c:

Index: builtin-toplevel.c
===================================================================
RCS file: /local/src/CVS/nickle/builtin-toplevel.c,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- builtin-toplevel.c	22 Jul 2004 19:42:06 -0000	1.27
+++ builtin-toplevel.c	23 Nov 2004 05:02:07 -0000	1.28
@@ -450,9 +450,9 @@
     int ndim = av->array.ndim;
 
     ret = NewArray(True, False, typePrim[rep_int], 1, &ndim);
-    for (i = 0; i < av->array.ndim; i++) {
+    for (i = 0; i < ndim; i++) {
 	Value d = NewInt(ArrayLimits(&av->array)[i]);
-	ArrayValueSet(&ret->array, i, d);
+	ArrayValueSet(&ret->array, ndim - i - 1, d);
     }
     RETURN (ret);
 }




More information about the Commit mailing list