/[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.44 by emarsden, Sun Feb 16 19:05:19 2003 UTC revision 1.45 by gerd, Mon Oct 6 12:39:58 2003 UTC
# Line 379  Line 379 
379           (kind (and tn (tn-kind tn)))           (kind (and tn (tn-kind tn)))
380           (flags 0))           (flags 0))
381      (declare (type index flags))      (declare (type index flags))
382        ;;
383        ;; FIXME: Dead code elimination sometimes leaves spurious
384        ;; references to unused lambda-vars.  Unused vars are not packed,
385        ;; and so have a tn but a null tn-offset.  Some of these cases
386        ;; have been fixed, but not all of them, and since it's not sure
387        ;; if/when all of them will be fixed, add a hack for these cases.
388        ;; -- gerd 2003-10-06
389        (when (and tn (null (tn-offset tn)))
390          (setq tn nil))
391    
392      (cond (minimal      (cond (minimal
393             (setq flags (logior flags compiled-debug-variable-minimal-p))             (setq flags (logior flags compiled-debug-variable-minimal-p))
394             (unless tn             (unless tn

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

  ViewVC Help
Powered by ViewVC 1.1.5