Changeset 13492


Ignore:
Timestamp:
Mar 8, 2010, 5:06:05 PM (10 years ago)
Author:
gz
Message:

get rid of open-core-graph, make it so can just use open-core

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/dominance.lisp

    r13490 r13492  
    2020;(setq *print-simple-bit-vector* nil)
    2121
    22 (export '(open-core-graph idom-heap-utilization))
     22(export '(idom-heap-utilization))
    2323
    2424#|
    25 (setq cg (open-core-graph  "home:core.28209"))
     25(open-core "home:core.28209")
    2626(idom-heap-utilization :unit nil :sort :size)
    2727|#
     
    3434  (heap-base 0 :type fixnum)
    3535  (heap-end 0 :type fixnum)
    36   (stage nil) ;; indication of what has been computed, and what hasn't so can restart.
    37   (head-p (make-array 0 :element-type 'bit) :type simple-bit-vector)
    38   (ptrs-p (make-array 0 :element-type 'bit) :type simple-bit-vector)
     36  (stage nil) ;; indication of what has been computed and what hasn't, so can restart.
     37  (head-p #.(make-array 0 :element-type 'bit) :type simple-bit-vector)
     38  (ptrs-p #.(make-array 0 :element-type 'bit) :type simple-bit-vector)
    3939  ;; Nodes after eliminating single-entry and leaf objects
    4040  (nodes #() :type simple-vector) ;; map postorder-idx -> dnode
     
    4949  )
    5050
     51(setq *core-info-class* 'core-graph)
     52
     53
    5154(defun open-core-graph (pathname &key image)
    5255  (let ((cg (%cons-cg)))
    5356    (open-core pathname :core-info cg :image image)
    54     (let ((area-ptr (core-q (kernel-global-address 'tenured-area))))
    55       (setf (cg.heap-base cg) (core-q area-ptr target::area.low))
    56       (setf (cg.heap-end cg) (core-q area-ptr target::area.active)))
    5757    cg))
    5858
     
    6262  (assert (memq stage *cg-stages*))
    6363  (check-type cg core-graph)
     64  (when (eql (cg.heap-base cg) 0)
     65    (let ((area-ptr (core-q (kernel-global-address 'tenured-area))))
     66      (setf (cg.heap-base cg) (core-q area-ptr target::area.low))
     67      (setf (cg.heap-end cg) (core-q area-ptr target::area.active))))
    6468  ;; ensure have all the prereqs
    6569  (loop for undone = (cdr (memq (cg.stage cg) *cg-stages*))
Note: See TracChangeset for help on using the changeset viewer.