/[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.62 by wlott, Thu Aug 19 23:12:09 1993 UTC revision 1.63 by ram, Tue Aug 31 22:52:26 1993 UTC
# Line 1388  Line 1388 
1388            (setf (continuation-reoptimize arg) nil)))            (setf (continuation-reoptimize arg) nil)))
1389    
1390        (dolist (ref (leaf-refs fun))        (dolist (ref (leaf-refs fun))
1391          (unless (eq ref this-ref)          (let ((dest (continuation-dest (node-cont ref))))
1392            (setq union            (unless (or (eq ref this-ref) (not dest))
1393                  (mapcar #'(lambda (this-arg old)              (setq union
1394                              (when old                    (mapcar #'(lambda (this-arg old)
1395                                (setf (continuation-reoptimize this-arg) nil)                                (when old
1396                                (type-union (continuation-type this-arg) old)))                                  (setf (continuation-reoptimize this-arg) nil)
1397                          (basic-combination-args                                  (type-union (continuation-type this-arg) old)))
1398                           (continuation-dest (node-cont ref)))                            (basic-combination-args dest)
1399                          union))))                            union)))))
1400    
1401        (mapc #'(lambda (var type)        (mapc #'(lambda (var type)
1402                  (when type                  (when type

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

  ViewVC Help
Powered by ViewVC 1.1.5