Ignore:
Timestamp:
Feb 26, 2010, 8:26:02 PM (10 years ago)
Author:
gz
Message:

add :image arg to core-open specify an image file, use it to load any readonly areas missing from the core file (which is usually where class and packae names live)

File:
1 edited

Legend:

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

    r13460 r13465  
    4848  )
    4949
    50 (defun open-core-graph (pathname)
     50(defun open-core-graph (pathname &key image)
    5151  (let ((cg (%cons-cg)))
    52     (open-core pathname :core-info cg)
     52    (open-core pathname :core-info cg :image image)
    5353    (let ((area-ptr (core-q (kernel-global-address 'tenured-area))))
    5454      (setf (cg.heap-base cg) (core-q area-ptr target::area.low))
Note: See TracChangeset for help on using the changeset viewer.