Changeset 4441

Timestamp:

10/17/03 19:37:13 (18 years ago)

Author:

piso

Message:

adjustArray()

File:

• trunk/j/src/org/armedbear/lisp/Vector.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Vector.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Vector.java,v 1.26 2003-09-20 17:02:05 piso Exp $
+ * $Id: Vector.java,v 1.27 2003-10-17 19:37:13 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -80 +80 @@
             capacity = minCapacity;
         }
+    }
+
+    public Vector adjustArray(int size)
+    {
+        if (elements.length != size) {
+            LispObject[] newArray = new LispObject[size];
+            System.arraycopy(elements, 0, newArray, 0,
+                             Math.min(elements.length, size));
+            elements = newArray;
+            capacity = size;
+        }
+        return this;
     }