Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    2e460b97
    (funcall (compile nil · 2e460b97
    gerd authored
    	                  '(lambda (a b c)
    	                      (declare (optimize (speed 0) (debug 0)))
    	                        (logcount
    	                          (let ((v3 (if a (block b3 a) b)))
    	                          c))))
    	         46611128 -69 -133775)
    	=> segmentation violation
    
    	* src/compiler/byte-comp.lisp (output-branch): Always emit
    	conditional branches even if they go to the following instruction,
    	because conditional branches have the side effect of popping the
    	eval stack.  Reported by Paul Dietz.
    2e460b97
    History
    (funcall (compile nil
    gerd authored
    	                  '(lambda (a b c)
    	                      (declare (optimize (speed 0) (debug 0)))
    	                        (logcount
    	                          (let ((v3 (if a (block b3 a) b)))
    	                          c))))
    	         46611128 -69 -133775)
    	=> segmentation violation
    
    	* src/compiler/byte-comp.lisp (output-branch): Always emit
    	conditional branches even if they go to the following instruction,
    	because conditional branches have the side effect of popping the
    	eval stack.  Reported by Paul Dietz.