[Sbcl-commits] CVS: sbcl/src/code debug-int.lisp,1.68,1.69

[Daniel B. <da...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv17580/src/code

Modified Files:
	debug-int.lisp 
Log Message:
0.pre8.32
		   === Threads merge, 25 metres ===

	struct thread now contains a control_stack_end element,
	eventually allowing for different threads to have different 
	stack sizes



Index: debug-int.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/debug-int.lisp,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -d -r1.68 -r1.69
--- debug-int.lisp	2 Apr 2003 11:15:12 -0000	1.68
+++ debug-int.lisp	3 Apr 2003 15:33:24 -0000	1.69
@@ -530,15 +530,14 @@
   (let* ((control-stack-start
 	  (descriptor-sap sb!vm::*control-stack-start*))
 	 (control-stack-end
-	  (sap+
-	   (descriptor-sap sb!vm::*binding-stack-start*) -4)))
-  #!-stack-grows-downward-not-upward
-  (and (sap< x (current-sp))
+	  (descriptor-sap sb!vm::*control-stack-end*)))
+    #!-stack-grows-downward-not-upward
+    (and (sap< x (current-sp))
 	 (sap<= control-stack-start
-	      x)
-       (zerop (logand (sap-int x) #b11)))
-  #!+stack-grows-downward-not-upward
-  (and (sap>= x (current-sp))
+		x)
+	 (zerop (logand (sap-int x) #b11)))
+    #!+stack-grows-downward-not-upward
+    (and (sap>= x (current-sp))
 	 (sap> control-stack-end x)
 	 (zerop (logand (sap-int x) #b11)))))