/[cmucl]/src/compiler/life.lisp
ViewVC logotype

Diff of /src/compiler/life.lisp

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

revision 1.7 by ram, Mon Apr 16 10:40:09 1990 UTC revision 1.8 by ram, Mon Apr 23 12:21:19 1990 UTC
# Line 642  Line 642 
642                (setf (vop-save-set vop) ss)                (setf (vop-save-set vop) ss)
643                (when (eq save-p :force-to-stack)                (when (eq save-p :force-to-stack)
644                  (do-live-tns (tn ss block)                  (do-live-tns (tn ss block)
645                    (when (eq (tn-kind tn) :normal)                    (unless (eq (tn-kind tn) :component)
646                      (force-tn-to-stack tn)                      (force-tn-to-stack tn)
647                      (convert-to-environment-tn tn)))))))                      (convert-to-environment-tn tn)))))))
648    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5