Changeset 7318 for branches/working-0709/ccl/level-0/l0-misc.lisp

Timestamp:

Sep 28, 2007, 11:35:03 PM (13 years ago)

Author:

gb

Message:

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

File:

• branches/working-0709/ccl/level-0/l0-misc.lisp (modified) (3 diffs)

branches/working-0709/ccl/level-0/l0-misc.lisp

@@ -129 +129 @@
   t)
 
-(defun frozen-space-size ()
+(defun frozen-space-dnodes ()
   "Returns the current size of the frozen area."
   (%fixnum-ref-natural (%get-kernel-global 'tenured-area)
@@ -150 +150 @@
                 (incf library bytes)
                 (incf static bytes))))))
-      (let* ((hons-size (ash (openmcl-hons:hons-space-size) target::dnode-shift)))
-        (decf dynamic hons-size)
-        (values dynamic static library hons-size))))
+      (let* ((frozen-size (ash (frozen-space-dnodes) target::dnode-shift)))
+        (decf dynamic frozen-size)
+        (values dynamic static library frozen-size))))
 
 
@@ -836 +836 @@
          (declare (fixnum state))
          (cond ((> state 0)
-                (unless (eql (%get-object ptr target::tcr.writer) tcr)
+                (unless (eql (%get-object ptr target::rwlock.writer) tcr)
                   (setf (%get-natural ptr target::rwlock.spin) 0)
                   (error :not-lock-owner :lock lock)))