[armedbear-cvs] r11560 - trunk/abcl/src/org/armedbear/lisp
Erik Huelsmann
ehuelsmann at common-lisp.net
Fri Jan 16 20:49:12 UTC 2009
Author: ehuelsmann
Date: Fri Jan 16 20:49:03 2009
New Revision: 11560
Log:
Followup to r11557: Fixes ADJUST-ARRAY for the special cases
of (UNSIGNED-BYTE 8) and (UNSIGNED-BYTE 32).
Modified:
trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte32.java
trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte8.java
Modified: trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte32.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte32.java (original)
+++ trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte32.java Fri Jan 16 20:49:03 2009
@@ -244,7 +244,7 @@
else {
//### FIXME Take the easy way out: we don't want to reorganize
// all of the array code yet
- SimpleArray_UnsignedByte32 tempArray = new SimpleArray_UnsignedByte32(dims, getElementType());
+ SimpleArray_UnsignedByte32 tempArray = new SimpleArray_UnsignedByte32(dims);
tempArray.fill(initialElement);
SimpleArray_UnsignedByte32.copyArray(this, tempArray);
this.data = tempArray.data;
Modified: trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte8.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte8.java (original)
+++ trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte8.java Fri Jan 16 20:49:03 2009
@@ -246,7 +246,7 @@
else {
//### FIXME Take the easy way out: we don't want to reorganize
// all of the array code yet
- SimpleArray_UnsignedByte8 tempArray = new SimpleArray_UnsignedByte8(dims, getElementType());
+ SimpleArray_UnsignedByte8 tempArray = new SimpleArray_UnsignedByte8(dims);
tempArray.fill(initialElement);
SimpleArray_UnsignedByte8.copyArray(this, tempArray);
this.data = tempArray.data;
More information about the armedbear-cvs
mailing list