Changeset 11632

Timestamp:

02/05/09 21:47:34 (14 years ago)

Author:

ehuelsmann

Message:

Make our (static) fields FINAL, as we only write to them once: during object construction.

Found by: dmiles.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -2024 +2024 @@
 (defun declare-field (name descriptor)
   (let ((field (make-field name descriptor)))
-    (setf (field-access-flags field) (logior #x8 #x2)) ; private static
+    ;; final private static
+    (setf (field-access-flags field) (logior #x10 #x8 #x2))
     (setf (field-name-index field) (pool-name (field-name field)))
     (setf (field-descriptor-index field) (pool-name (field-descriptor field)))