Changeset 13707

Timestamp:

12/20/11 22:00:26 (11 years ago)

Author:

ehuelsmann

Message:

Fix #182: ADJUST-ARRAY failure.

File:

• trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte8.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte8.java

@@ -288 +288 @@
     if (capacity != newCapacity)
       {
-        LispObject[] newElements = new LispObject[newCapacity];
+        byte[] newElements = new byte[newCapacity];
         System.arraycopy(elements, 0, newElements, 0,
                          Math.min(capacity, newCapacity));
+        byte initValue = (byte)(initialElement.intValue() & 0xFF);
         if (initialElement != null)
             for (int i = capacity; i < newCapacity; i++)
-                newElements[i] = initialElement;
+                newElements[i] = initValue;
         return new BasicVector_UnsignedByte8(newElements);
       }