Changeset 11896


Ignore:
Timestamp:
05/18/09 20:28:02 (9 years ago)
Author:
ehuelsmann
Message:

Followup to r11892: use the field class too
when caching, the caller assumes that specific
class.

Note to self: this definitely needs cleanup later.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r11892 r11896  
    21982198
    21992199The field type of the object is specified by OBJ-REF."
    2200   (let ((field-name (gethash1 obj *declared-objects*)))
     2200  (let ((field-name (gethash1 (list obj obj-ref) *declared-objects*)))
    22012201    (if field-name
    22022202        field-name
     
    22142214          (emit 'putstatic *this-class* g2 obj-ref)
    22152215          (setf *static-code* *code*)
    2216           (setf (gethash obj *declared-objects*) g2))))))
     2216          (setf (gethash (list obj obj-ref) *declared-objects*) g2))))))
    22172217
    22182218(defun declare-lambda (obj)
  • trunk/abcl/src/org/armedbear/lisp/jvm.lisp

    r11892 r11896  
    108108  (floats (make-hash-table :test 'eql))
    109109  (doubles (make-hash-table :test 'eql))
    110   (objects (make-hash-table :test 'eq)))
     110  (objects (make-hash-table :test 'equal)))
    111111
    112112(defun class-name-from-filespec (filespec)
Note: See TracChangeset for help on using the changeset viewer.