Changeset 13707


Ignore:
Timestamp:
12/20/11 22:00:26 (9 years ago)
Author:
ehuelsmann
Message:

Fix #182: ADJUST-ARRAY failure.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte8.java

    r12588 r13707  
    288288    if (capacity != newCapacity)
    289289      {
    290         LispObject[] newElements = new LispObject[newCapacity];
     290        byte[] newElements = new byte[newCapacity];
    291291        System.arraycopy(elements, 0, newElements, 0,
    292292                         Math.min(capacity, newCapacity));
     293        byte initValue = (byte)(initialElement.intValue() & 0xFF);
    293294        if (initialElement != null)
    294295            for (int i = capacity; i < newCapacity; i++)
    295                 newElements[i] = initialElement;
     296                newElements[i] = initValue;
    296297        return new BasicVector_UnsignedByte8(newElements);
    297298      }
Note: See TracChangeset for help on using the changeset viewer.