Ignore:
Timestamp:
Sep 28, 2007, 11:35:03 PM (13 years ago)
Author:
gb
Message:

Elf-symbol/profiling changes. Work-in-progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0709/ccl/level-0/l0-misc.lisp

    r7305 r7318  
    129129  t)
    130130
    131 (defun frozen-space-size ()
     131(defun frozen-space-dnodes ()
    132132  "Returns the current size of the frozen area."
    133133  (%fixnum-ref-natural (%get-kernel-global 'tenured-area)
     
    150150                (incf library bytes)
    151151                (incf static bytes))))))
    152       (let* ((hons-size (ash (openmcl-hons:hons-space-size) target::dnode-shift)))
    153         (decf dynamic hons-size)
    154         (values dynamic static library hons-size))))
     152      (let* ((frozen-size (ash (frozen-space-dnodes) target::dnode-shift)))
     153        (decf dynamic frozen-size)
     154        (values dynamic static library frozen-size))))
    155155
    156156
     
    836836         (declare (fixnum state))
    837837         (cond ((> state 0)
    838                 (unless (eql (%get-object ptr target::tcr.writer) tcr)
     838                (unless (eql (%get-object ptr target::rwlock.writer) tcr)
    839839                  (setf (%get-natural ptr target::rwlock.spin) 0)
    840840                  (error :not-lock-owner :lock lock)))
Note: See TracChangeset for help on using the changeset viewer.