Changeset 12163


Ignore:
Timestamp:
09/27/09 13:41:54 (12 years ago)
Author:
ehuelsmann
Message:

Make code self-explanatory: add constants for inline numeric values.

File:
1 edited

Legend:

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

    r12154 r12163  
    19051905  (write-u2 0 stream)) ; attributes count
    19061906
    1907 (defconst +field-access-protected+ #x4) ;; subclass accessible
    1908 (defconst +field-access-private+   #x2) ;; class-only accessible
    1909 (defconst +field-access-public+    #x1) ;; generally accessible
    1910 (defconst +field-access-default+   #x0) ;; package accessible, used for LABELS
     1907(defconst +field-flag-final+       #x10) ;; final field
     1908(defconst +field-flag-static+      #x08) ;; static field
     1909(defconst +field-access-protected+ #x04) ;; subclass accessible
     1910(defconst +field-access-private+   #x02) ;; class-only accessible
     1911(defconst +field-access-public+    #x01) ;; generally accessible
     1912(defconst +field-access-default+   #x00) ;; package accessible, used for LABELS
    19111913
    19121914(defknown declare-field (t t t) t)
     
    19141916  (let ((field (make-field name descriptor)))
    19151917    ;; final static <access-flags>
    1916     (setf (field-access-flags field) (logior #x10 #x8 access-flags))
     1918    (setf (field-access-flags field)
     1919          (logior +field-flag-final+ +field-flag-static+ access-flags))
    19171920    (setf (field-name-index field) (pool-name (field-name field)))
    19181921    (setf (field-descriptor-index field) (pool-name (field-descriptor field)))
Note: See TracChangeset for help on using the changeset viewer.