/[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.41 by ram, Mon Oct 31 04:27:28 1994 UTC revision 1.42 by pw, Sun Mar 4 20:12:14 2001 UTC
# Line 60  Line 60 
60    
61  ;;; IR2-BLOCK-ENVIRONMENT  --  Interface  ;;; IR2-BLOCK-ENVIRONMENT  --  Interface
62  ;;;  ;;;
63  (proclaim '(inline ir2-block-environment))  (declaim (inline ir2-block-environment))
64  (defun ir2-block-environment (2block)  (defun ir2-block-environment (2block)
65    (declare (type ir2-block 2block))    (declare (type ir2-block 2block))
66    (block-environment (ir2-block-block 2block)))    (block-environment (ir2-block-block 2block)))
# Line 100  Line 100 
100  ;;; The PC for the location most recently dumped.  ;;; The PC for the location most recently dumped.
101  ;;;  ;;;
102  (defvar *previous-location*)  (defvar *previous-location*)
103  (proclaim '(type index *previous-location*))  (declaim (type index *previous-location*))
104    
105  ;;; DUMP-1-LOCATION  --  Internal  ;;; DUMP-1-LOCATION  --  Internal
106  ;;;  ;;;

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

  ViewVC Help
Powered by ViewVC 1.1.5