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

Diff of /src/compiler/ir1opt.lisp

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

revision 1.54 by ram, Wed Sep 23 13:45:24 1992 UTC revision 1.55 by ram, Thu Sep 24 16:41:49 1992 UTC
# Line 634  Line 634 
634  ;;;    (IF (IF A B C) D E) ==>  ;;;    (IF (IF A B C) D E) ==>
635  ;;;    (IF A (IF B D E) (IF C D E))  ;;;    (IF A (IF B D E) (IF C D E))
636  ;;;  ;;;
637    ;;;    We clobber the NODE-SOURCE-PATH of both the original and the new node so
638    ;;; that dead code deletion notes will definitely not consider either node to
639    ;;; be part of the original source.  One node might become unreachable,
640    ;;; resulting in a spurious note.
641    ;;;
642  (defun convert-if-if (use node)  (defun convert-if-if (use node)
643    (declare (type node use) (type cif node))    (declare (type node use) (type cif node))
644    (with-ir1-environment node    (with-ir1-environment node
# Line 660  Line 665 
665        (link-blocks new-block cblock)        (link-blocks new-block cblock)
666        (link-blocks new-block ablock)        (link-blocks new-block ablock)
667    
668          (push "<IF Duplication>" (node-source-path node))
669          (push "<IF Duplication>" (node-source-path new-node))
670    
671        (reoptimize-continuation test)        (reoptimize-continuation test)
672        (reoptimize-continuation new-cont)        (reoptimize-continuation new-cont)
673        (setf (component-reanalyze *current-component*) t)))        (setf (component-reanalyze *current-component*) t)))

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

  ViewVC Help
Powered by ViewVC 1.1.5