/[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.53 by ram, Mon Sep 21 15:38:30 1992 UTC revision 1.54 by ram, Wed Sep 23 13:45:24 1992 UTC
# Line 1401  Line 1401 
1401  (defun ir1-optimize-mv-combination (node)  (defun ir1-optimize-mv-combination (node)
1402    (ecase (basic-combination-kind node)    (ecase (basic-combination-kind node)
1403      (:local      (:local
1404       (let ((fun (basic-combination-fun node)))       (let ((fun-cont (basic-combination-fun node)))
1405         (when (continuation-reoptimize fun)         (when (continuation-reoptimize fun-cont)
1406           (setf (continuation-reoptimize fun) nil)           (setf (continuation-reoptimize fun-cont) nil)
1407           (maybe-let-convert (combination-lambda node))))           (maybe-let-convert (combination-lambda node))))
1408       (setf (continuation-reoptimize (first (basic-combination-args node))) nil)       (setf (continuation-reoptimize (first (basic-combination-args node))) nil)
1409       (when (eq (functional-kind (combination-lambda node)) :mv-let)       (when (eq (functional-kind (combination-lambda node)) :mv-let)
# Line 1422  Line 1422 
1422           (let ((use (continuation-use fun)))           (let ((use (continuation-use fun)))
1423             (when (and (ref-p use) (functional-p (ref-leaf use)))             (when (and (ref-p use) (functional-p (ref-leaf use)))
1424               (convert-call-if-possible use node)               (convert-call-if-possible use node)
1425               (maybe-let-convert (ref-leaf use)))))               (when (eq (basic-combination-kind node) :local)
1426                   (maybe-let-convert (ref-leaf use))))))
1427         (unless (or (eq (basic-combination-kind node) :local)         (unless (or (eq (basic-combination-kind node) :local)
1428                     (eq (continuation-function-name fun) '%throw))                     (eq (continuation-function-name fun) '%throw))
1429           (ir1-optimize-mv-call node))           (ir1-optimize-mv-call node))

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

  ViewVC Help
Powered by ViewVC 1.1.5