/[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.45 by gerd, Mon Oct 6 12:39:58 2003 UTC revision 1.46 by gerd, Fri Oct 17 10:06:30 2003 UTC
# Line 615  Line 615 
615             (setf (compiled-debug-function-arguments dfun)             (setf (compiled-debug-function-arguments dfun)
616                   (compute-arguments fun var-locs))))                   (compute-arguments fun var-locs))))
617    
618      (when (>= level 2)      (if (>= level 2)
619        (multiple-value-bind (blocks tlf-num)          (multiple-value-bind (blocks tlf-num)
620                             (compute-debug-blocks fun var-locs)              (compute-debug-blocks fun var-locs)
621          (setf (compiled-debug-function-tlf-number dfun) tlf-num)            (setf (compiled-debug-function-tlf-number dfun) tlf-num)
622          (setf (compiled-debug-function-blocks dfun) blocks)))            (setf (compiled-debug-function-blocks dfun) blocks))
623            (setf (compiled-debug-function-tlf-number dfun)
624                  (find-tlf-number fun)))
625    
626      (if (external-entry-point-p fun)      (if (external-entry-point-p fun)
627          (setf (compiled-debug-function-returns dfun) :standard)          (setf (compiled-debug-function-returns dfun) :standard)

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

  ViewVC Help
Powered by ViewVC 1.1.5