0.pre8.3
authorDaniel Barlow <dan@telent.net>
Tue, 25 Mar 2003 00:29:54 +0000 (00:29 +0000)
committerDaniel Barlow <dan@telent.net>
Tue, 25 Mar 2003 00:29:54 +0000 (00:29 +0000)
contrib fix: sb-bsd-sockets ought to without-gcing in some
places that it wasn't doing.  Bug unlikely to be exposed
in #-sb-thread, but showed up testing threaded araneida

contrib/sb-bsd-sockets/foreign-glue.lisp
version.lisp-expr

index 446b5d2..b205364 100644 (file)
       `(progn
        ;;(declaim (inline ,el (setf ,el)))
        (defun ,el (ptr &optional (index 0))
-         ,(template 'prog1 nil))
+         (declare (optimize (speed 3)))
+         (sb-sys:without-gcing 
+          ,(template 'prog1 nil)))
        (defconstant ,(intern (format nil "OFFSET-OF-~A" el)) ,offset)
        (defun (setf ,el) (newval ptr &optional (index 0))
-         ,(template 'setf 'newval))))))
+         (declare (optimize (speed 3)))
+         (sb-sys:without-gcing 
+          ,(template 'setf 'newval)))))))
 
 
 ;;; make memory allocator for appropriately-sized block of memory, and
index 55aaa35..e2bec33 100644 (file)
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre8.2"
+"0.pre8.3"