Ignore:
Timestamp:
01/11/12 21:17:23 (9 years ago)
Author:
astalla
Message:

More value types for primitive annotation elements.
Syntax sugar for annotations in runtime-class.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

    r13755 r13764  
    13651365                                               (primitive-or-string-annotation-element-value self)
    13661366                                               (pool-add-int (class-file-constants class) (if value 1 0))))
     1367                                        (character
     1368                                         (setf (annotation-element-tag self)
     1369                                               (char-code #\C)
     1370                                               (primitive-or-string-annotation-element-value self)
     1371                                               (pool-add-int (class-file-constants class) (char-code value))))
    13671372                                        (fixnum
    13681373                                         (setf (annotation-element-tag self)
     
    13701375                                               (primitive-or-string-annotation-element-value self)
    13711376                                               (pool-add-int (class-file-constants class) value)))
     1377                                        (integer
     1378                                         (setf (annotation-element-tag self)
     1379                                               (char-code #\J)
     1380                                               (primitive-or-string-annotation-element-value self)
     1381                                               (pool-add-long (class-file-constants class) value)))
     1382                                        (double-float
     1383                                         (setf (annotation-element-tag self)
     1384                                               (char-code #\D)
     1385                                               (primitive-or-string-annotation-element-value self)
     1386                                               (pool-add-double (class-file-constants class) value)))
     1387                                        (single-float
     1388                                         (setf (annotation-element-tag self)
     1389                                               (char-code #\F)
     1390                                               (primitive-or-string-annotation-element-value self)
     1391                                               (pool-add-float (class-file-constants class) value)))
    13721392                                        (string
    13731393                                         (setf (annotation-element-tag self)
Note: See TracChangeset for help on using the changeset viewer.