Skip to content
Snippets Groups Projects
Commit 41b08748 authored by ram's avatar ram
Browse files

Changed block compilation stuff to ignore block declarations if

block-compile is  NIL.
parent b5f74e63
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.39 1991/04/20 14:12:49 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.40 1991/05/06 14:58:50 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -892,7 +892,8 @@ ...@@ -892,7 +892,8 @@
;;; PROCESS-PROCLAIM -- Internal ;;; PROCESS-PROCLAIM -- Internal
;;; ;;;
;;; If a special block compilation delimiter, then start or end the block as ;;; If a special block compilation delimiter, then start or end the block as
;;; appropriate. Otherwise, just convert-and-maybe-compile the form. ;;; appropriate. Otherwise, just convert-and-maybe-compile the form. If
;;; *BLOCK-COMPILE* is NIL, then we ignore block declarations.
;;; ;;;
(defun process-proclaim (form path object) (defun process-proclaim (form path object)
(if (and (eql (length form) 2) (constantp (cadr form))) (if (and (eql (length form) 2) (constantp (cadr form)))
...@@ -900,10 +901,12 @@ ...@@ -900,10 +901,12 @@
(if (consp spec) (if (consp spec)
(case (first spec) (case (first spec)
(start-block (start-block
(finish-block-compilation object) (when *block-compile*
(setq *block-compile* t) (finish-block-compilation object)
(setq *entry-points* (rest spec))) (setq *block-compile* t)
(end-block (finish-block-compilation object)) (setq *entry-points* (rest spec))))
(end-block
(finish-block-compilation object))
(t (t
(convert-and-maybe-compile form path object))) (convert-and-maybe-compile form path object)))
(convert-and-maybe-compile form path object))) (convert-and-maybe-compile form path object)))
...@@ -1106,11 +1109,12 @@ ...@@ -1106,11 +1109,12 @@
;;; ;;;
(defun finish-block-compilation (object) (defun finish-block-compilation (object)
(declare (type object object)) (declare (type object object))
(when *top-level-lambdas* (when *block-compile*
(compile-top-level (nreverse *top-level-lambdas*) object) (when *top-level-lambdas*
(setq *top-level-lambdas* ())) (compile-top-level (nreverse *top-level-lambdas*) object)
(setq *block-compile* :specified) (setq *top-level-lambdas* ()))
(setq *entry-points* nil)) (setq *block-compile* :specified)
(setq *entry-points* nil)))
;;; Sub-Compile-File -- Internal ;;; Sub-Compile-File -- Internal
......
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