[armedbear-cvs] r12106 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Wed Aug 19 12:30:27 2009
New Revision: 12106

Log:
Optimization: copy reference to args in LispStackFrame constructor.


Modified:
   trunk/abcl/src/org/armedbear/lisp/LispStackFrame.java

Modified: trunk/abcl/src/org/armedbear/lisp/LispStackFrame.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispStackFrame.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispStackFrame.java	Wed Aug 19 12:30:27 2009
@@ -87,9 +87,7 @@
     first = null;
     second = null;
     third = null;
-    final int length = args.length;
-    this.args = new LispObject[length];
-    System.arraycopy(args, 0, this.args, 0, length);
+    this.args = args;
   }
 
    @Override