Changeset 12880


Ignore:
Timestamp:
08/09/10 08:48:58 (12 years ago)
Author:
ehuelsmann
Message:

Fix insertion of floats/doubles in the constant pool.

File:
1 edited

Legend:

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

    r12866 r12880  
    450450  (let ((entry (gethash (cons 4 float) (pool-entries pool))))
    451451    (unless entry
    452       (setf entry (make-constant-float (incf (pool-index pool)) float)
     452      (setf entry (make-constant-float (incf (pool-index pool))
     453                                       (sys::%float-bits float))
    453454            (gethash (cons 4 float) (pool-entries pool)) entry)
    454455      (push entry (pool-entries-list pool)))
     
    469470  (let ((entry (gethash (cons 6 double) (pool-entries pool))))
    470471    (unless entry
    471       (setf entry (make-constant-double (incf (pool-index pool)) double)
     472      (setf entry (make-constant-double (incf (pool-index pool))
     473                                        (sys::%float-bits double))
    472474            (gethash (cons 6 double) (pool-entries pool)) entry)
    473475      (push entry (pool-entries-list pool))
Note: See TracChangeset for help on using the changeset viewer.