[Sbcl-commits] CVS: sbcl/src/compiler fndb.lisp,1.51,1.51.2.1 knownfun.lisp,1.25,1.25.4.1

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

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1:/tmp/cvs-serv897/src/compiler

Modified Files:
      Tag: dan_native_threads_2_branch
	fndb.lisp knownfun.lisp 
Log Message:
0.7.11.10.thread.7
	CAUTION: WORK IN REGRESS

	POSIX job control is probably not the best idea after all, 
	being hard to debug, hard to understand, and probably 
	conflicting with the shell's attempt to do the same

	This is an insurance commit of a non-working job-controlled
	implementation	before I hack it all out again, just in case
	I was right the first time.



Index: fndb.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.51
retrieving revision 1.51.2.1
diff -u -d -r1.51 -r1.51.2.1
--- fndb.lisp	4 Jan 2003 10:12:44 -0000	1.51
+++ fndb.lisp	18 Feb 2003 17:09:00 -0000	1.51.2.1
@@ -1255,6 +1255,9 @@
 
 (defknown get-bytes-consed () unsigned-byte (flushable))
 
+(defknown sb!thread::thread-stopped-p (t) boolean (foldable flushable movable))
+
+
 ;;; PCOUNTERs
 (defknown incf-pcounter (pcounter unsigned-byte) pcounter)
 (defknown pcounter->integer (pcounter) unsigned-byte)

Index: knownfun.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/knownfun.lisp,v
retrieving revision 1.25
retrieving revision 1.25.4.1
diff -u -d -r1.25 -r1.25.4.1
--- knownfun.lisp	2 Dec 2002 01:33:58 -0000	1.25
+++ knownfun.lisp	18 Feb 2003 17:09:02 -0000	1.25.4.1
@@ -63,7 +63,7 @@
   unsafely-flushable
   ;; may be moved with impunity. Has no side effects except possibly
   ;; consing, and is affected only by its arguments.
-  movable
+  movable 
   ;; The function is a true predicate likely to be open-coded. Convert
   ;; any non-conditional uses into (IF <pred> T NIL). Not usually
   ;; specified to DEFKNOWN, since this is implementation dependent,