Skip to content
Snippets Groups Projects
Commit cb113a53 authored by gerd's avatar gerd
Browse files

(compile nil

	  '(lambda (a b c)
             (block b6
                    (logeqv (rem c -6758)
                            (rem b (max 44 (return-from b6 a)))))))
	 => error nil is not of type c::node

	* src/compiler/macros.lisp (do-nodes-backwards): Stop at unused
	continuations.  Reported by Paul Dietz.  Ported from SBCL/Alexey
	Dejneka.
parent 5e1b63ce
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.51 2003/04/19 20:52:42 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.52 2003/09/24 09:48:18 gerd Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -680,8 +680,9 @@ ...@@ -680,8 +680,9 @@
(,n-last (block-last ,n-block))) (,n-last (block-last ,n-block)))
(do* ((,cont-var (node-cont ,n-last) ,n-next) (do* ((,cont-var (node-cont ,n-last) ,n-next)
(,node-var ,n-last (continuation-use ,cont-var)) (,node-var ,n-last (continuation-use ,cont-var))
(,n-next (node-prev ,node-var) (node-prev ,node-var))) (,n-next (and ,node-var (node-prev ,node-var))
(()) (and ,node-var (node-prev ,node-var))))
((null ,node-var))
,@body ,@body
(when (eq ,n-next ,n-start) (when (eq ,n-next ,n-start)
(return nil)))))) (return nil))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment