/[cmucl]/src/compiler/debug-dump.lisp
ViewVC logotype

Diff of /src/compiler/debug-dump.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by ram, Thu Aug 16 16:10:40 1990 UTC revision 1.17 by wlott, Fri Aug 24 18:34:57 1990 UTC
# Line 110  Line 110 
110          0)          0)
111     *byte-buffer*)     *byte-buffer*)
112    
113    (let ((loc (label-location label)))    (let ((loc (label-position label)))
114      (write-var-integer (- loc *previous-location*) *byte-buffer*)      (write-var-integer (- loc *previous-location*) *byte-buffer*)
115      (setq *previous-location* loc))      (setq *previous-location* loc))
116    
# Line 498  Line 498 
498  ;;; at some particular time (after assembly) so that source map information is  ;;; at some particular time (after assembly) so that source map information is
499  ;;; available.  ;;; available.
500  ;;;  ;;;
501  (defun debug-info-for-component (component assem-nodes count)  (defun debug-info-for-component (component)
502    (declare (type component component) (simple-vector assem-nodes)    (declare (type component component))
            (type index count))  
503    (let ((level (cookie-debug *default-cookie*))    (let ((level (cookie-debug *default-cookie*))
504          (res (make-compiled-debug-info :name (component-name component)          (res (make-compiled-debug-info :name (component-name component)
505                                         :package (package-name *package*))))                                         :package (package-name *package*))))
# Line 525  Line 524 
524                                      (ir2-environment-return-pc 2env))                                      (ir2-environment-return-pc 2env))
525                          :old-fp (tn-sc-offset                          :old-fp (tn-sc-offset
526                                   (ir2-environment-old-fp 2env))                                   (ir2-environment-old-fp 2env))
527                          :start-pc (label-location                          :start-pc (label-position
528                                     (ir2-environment-environment-start 2env))                                     (ir2-environment-environment-start 2env))
529    
530                          :elsewhere-pc                          :elsewhere-pc
531                          (label-location                          (label-position
532                           (ir2-environment-elsewhere-start 2env)))))                           (ir2-environment-elsewhere-start 2env)))))
533    
534              (when (>= level 1)              (when (>= level 1)
# Line 556  Line 555 
555                           (setf (compiled-debug-function-returns dfun)                           (setf (compiled-debug-function-returns dfun)
556                                 (compute-debug-returns fun)))))))                                 (compute-debug-returns fun)))))))
557    
558              (dfuns (cons (label-location              (dfuns (cons (label-position
559                            (block-label                            (block-label
560                             (node-block                             (node-block
561                              (lambda-bind fun))))                              (lambda-bind fun))))

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5