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

Diff of /src/compiler/checkgen.lisp

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

revision 1.10.1.1 by ram, Tue Jun 12 11:54:01 1990 UTC revision 1.10.1.2 by ram, Wed Jun 27 09:52:42 1990 UTC
# Line 342  Line 342 
342          (node-ends-block (continuation-use prev)))          (node-ends-block (continuation-use prev)))
343    
344        (let* ((prev-block (continuation-block prev))        (let* ((prev-block (continuation-block prev))
              (prev-cleanup (block-start-cleanup prev-block))  
345               (new-block (continuation-block new-start))               (new-block (continuation-block new-start))
346               (dummy (make-continuation)))               (dummy (make-continuation)))
347          (dolist (block (block-pred prev-block))          (dolist (block (block-pred prev-block))
# Line 350  Line 349 
349          (ir1-convert new-start dummy (make-type-check-form types))          (ir1-convert new-start dummy (make-type-check-form types))
350          (assert (eq (continuation-block dummy) new-block))          (assert (eq (continuation-block dummy) new-block))
351    
         (setf (block-start-cleanup new-block) prev-cleanup)  
         (setf (block-end-cleanup new-block) prev-cleanup)  
   
352          (let ((node (continuation-use dummy)))          (let ((node (continuation-use dummy)))
353            (setf (block-last new-block) node)            (setf (block-last new-block) node)
354            (delete-continuation-use node)            (delete-continuation-use node)

Legend:
Removed from v.1.10.1.1  
changed lines
  Added in v.1.10.1.2

  ViewVC Help
Powered by ViewVC 1.1.5