[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