X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=41c49a175416c3358c9a402ae8dd5426df6a2b99;hb=b387f6ae447b55e203f47fc40af4a36e756fe345;hp=e25597448ca93506218f421401874a402081b8d9;hpb=ec735ab75335c1744b39190314142a7e6f1ecdb3;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index e255974..41c49a1 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -87,6 +87,11 @@
 ;;; normally causes nested uses to be no-ops).
 (defvar *in-compilation-unit* nil)
 
+;;; This lock is siezed in the same situation: the compiler is not
+;;; presently thread-safe
+(defvar *big-compiler-lock*
+  (sb!thread:make-mutex :name "big compiler lock"))
+
 ;;; Count of the number of compilation units dynamically enclosed by
 ;;; the current active WITH-COMPILATION-UNIT that were unwound out of.
 (defvar *aborted-compilation-unit-count*)
@@ -127,7 +132,7 @@
 	;; Inside another WITH-COMPILATION-UNIT, a WITH-COMPILATION-UNIT is
 	;; ordinarily (unless OVERRIDE) basically a no-op.
 	(unwind-protect
-	    (multiple-value-prog1 (funcall fn) (setf succeeded-p t))
+	     (multiple-value-prog1 (funcall fn) (setf succeeded-p t))
 	  (unless succeeded-p
 	    (incf *aborted-compilation-unit-count*)))
 	;; FIXME: Now *COMPILER-FOO-COUNT* stuff is bound in more than
@@ -140,16 +145,17 @@
 	      (*compiler-note-count* 0)
 	      (*undefined-warnings* nil)
 	      (*in-compilation-unit* t))
-	  (handler-bind ((parse-unknown-type
-			  (lambda (c)
-			    (note-undefined-reference
-			     (parse-unknown-type-specifier c)
-			     :type))))
-	    (unwind-protect
-		(multiple-value-prog1 (funcall fn) (setf succeeded-p t))
-	      (unless succeeded-p
-		(incf *aborted-compilation-unit-count*))
-	      (summarize-compilation-unit (not succeeded-p))))))))
+	  (sb!thread:with-recursive-lock (*big-compiler-lock*)
+	    (handler-bind ((parse-unknown-type
+			    (lambda (c)
+			      (note-undefined-reference
+			       (parse-unknown-type-specifier c)
+			       :type))))
+	      (unwind-protect
+		   (multiple-value-prog1 (funcall fn) (setf succeeded-p t))
+		(unless succeeded-p
+		  (incf *aborted-compilation-unit-count*))
+		(summarize-compilation-unit (not succeeded-p)))))))))
 
 ;;; This is to be called at the end of a compilation unit. It signals
 ;;; any residual warnings about unknown stuff, then prints the total