Ignore:
Timestamp:
01/19/09 09:36:06 (13 years ago)
Author:
ehuelsmann
Message:

Eliminate float-serializing ambiguities: if you need a float/double, store one
(instead of reading it from a string).

File:
1 edited

Legend:

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

    r11516 r11569  
    8686(defvar *declared-strings* nil)
    8787(defvar *declared-integers* nil)
     88(defvar *declared-floats* nil)
     89(defvar *declared-doubles* nil)
    8890
    8991(defstruct (class-file (:constructor %make-class-file))
     
    102104  (functions (make-hash-table :test 'equal))
    103105  (strings (make-hash-table :test 'eq))
    104   (integers (make-hash-table :test 'eql)))
     106  (integers (make-hash-table :test 'eql))
     107  (floats (make-hash-table :test 'eql))
     108  (doubles (make-hash-table :test 'eql)))
    105109
    106110(defun class-name-from-filespec (filespec)
     
    132136            (*declared-functions* (class-file-functions ,var))
    133137            (*declared-strings*   (class-file-strings ,var))
    134             (*declared-integers*  (class-file-integers ,var)))
     138            (*declared-integers*  (class-file-integers ,var))
     139            (*declared-floats*    (class-file-floats ,var))
     140            (*declared-doubles*   (class-file-doubles ,var)))
    135141       (progn ,@body)
    136142       (setf (class-file-pool ,var)         *pool*
     
    142148             (class-file-functions ,var)    *declared-functions*
    143149             (class-file-strings ,var)      *declared-strings*
    144              (class-file-integers ,var)     *declared-integers*))))
     150             (class-file-integers ,var)     *declared-integers*
     151             (class-file-floats ,var)       *declared-floats*
     152             (class-file-doubles ,var)      *declared-doubles*))))
    145153
    146154(defstruct compiland
Note: See TracChangeset for help on using the changeset viewer.