Changeset 7318


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

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

Location:
branches/working-0709/ccl
Files:
1 added
6 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0709/ccl/compiler/X86/x86-arch.lisp

    r6930 r7318  
    4040    area-lock                           ; serialize access to gc
    4141    exception-lock                      ; serialize exception handling
    42     deleted-static-pairs                ; hash-consing
     42    static-conses                       ; when FREEZE is in effect
    4343    default-allocation-quantum          ; log2_heap_segment_size, as a fixnum.
    4444    intflag                             ; interrupt-pending flag
  • 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)))
  • branches/working-0709/ccl/level-1/l1-boot-2.lisp

    r6186 r7318  
    269269      (bin-load-provide "MCL-COMPAT" "mcl-compat")
    270270      (require "LOOP")
    271       (require "HASH-CONS")
    272271      (bin-load-provide "CCL-EXPORT-SYMS" "ccl-export-syms")
    273272      (l1-load-provide "VERSION" "version")
  • branches/working-0709/ccl/lib/compile-ccl.lisp

    r7294 r7318  
    193193        arglist
    194194        edit-callers
    195         hash-cons
    196195        describe
    197196        asdf
  • branches/working-0709/ccl/lib/macros.lisp

    r7200 r7318  
    29512951        (setf (,accessor ,dst ,i) (,accessor ,src ,i))))))
    29522952
    2953      
     2953(defmacro assert-pointer-type (pointer type)
     2954  "Assert that the pointer points to an instance of the specified foreign type.
     2955Return the pointer."
     2956  (let* ((ptr (gensym)))
     2957    `(let* ((,ptr ,pointer))
     2958      (%set-macptr-type ,ptr (foreign-type-ordinal (load-time-value (parse-foreign-type ',type))))
     2959      ,ptr)))
     2960
    29542961   
    29552962
  • branches/working-0709/ccl/lib/systems.lisp

    r5738 r7318  
    181181
    182182    (edit-callers          "ccl:bin;edit-callers"   ("ccl:lib;edit-callers.lisp"))
    183     (hash-cons        "ccl:library;hash-cons"    ("ccl:library;hash-cons.lisp"))
    184 ; (step             "ccl:bin;step"           ("ccl:lib;step.lisp"))
     183    ;; (hash-cons        "ccl:library;hash-cons"    ("ccl:library;hash-cons.lisp"))
     184    ;; (step             "ccl:bin;step"           ("ccl:lib;step.lisp"))
    185185    (ccl-export-syms  "ccl:bin;ccl-export-syms"  ("ccl:lib;ccl-export-syms.lisp"))
    186186    (systems          "ccl:bin;systems"        ("ccl:lib;systems.lisp"))
Note: See TracChangeset for help on using the changeset viewer.