Changeset 13467


Ignore:
Timestamp:
Feb 27, 2010, 4:56:57 PM (10 years ago)
Author:
gz
Message:

In heap-utilization-by-class, use the class of the function, not the function vector

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/misc.lisp

    r13440 r13467  
    10011001                          (class (class-of (if (eql typecode target::subtag-slot-vector)
    10021002                                             (uvref thing slot-vector.instance)
    1003                                              thing)))
     1003                                             (if (eql typecode target::subtag-function)
     1004                                               (function-vector-to-function thing)
     1005                                               thing))))
    10041006                          (index (or (gethash class map)
    10051007                                     (let ((count (hash-table-count map)))
Note: See TracChangeset for help on using the changeset viewer.