Changeset 11632


Ignore:
Timestamp:
02/05/09 21:47:34 (13 years ago)
Author:
ehuelsmann
Message:

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

Found by: dmiles.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11631 r11632  
    20242024(defun declare-field (name descriptor)
    20252025  (let ((field (make-field name descriptor)))
    2026     (setf (field-access-flags field) (logior #x8 #x2)) ; private static
     2026    ;; final private static
     2027    (setf (field-access-flags field) (logior #x10 #x8 #x2))
    20272028    (setf (field-name-index field) (pool-name (field-name field)))
    20282029    (setf (field-descriptor-index field) (pool-name (field-descriptor field)))
Note: See TracChangeset for help on using the changeset viewer.