X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fsockets.lisp;h=3134e7df50466481815a444f8e9e6ae5d63f36ee;hb=b7eed59f1877263e1af5ad80299e641e8276f77d;hp=ed03482dc4f5342c2b966b2079a2d07748233cde;hpb=e449254c6a6a768b42a878274a90db9bb7d2ba2b;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/sockets.lisp b/contrib/sb-bsd-sockets/sockets.lisp
index ed03482..3134e7d 100644
--- a/contrib/sb-bsd-sockets/sockets.lisp
+++ b/contrib/sb-bsd-sockets/sockets.lisp
@@ -62,7 +62,7 @@ See also bind(2)"))
 (defmethod socket-bind ((socket socket)
                         &rest address)
   (let ((sockaddr (apply #'make-sockaddr-for socket nil address)))
-    (if (= (sb-sys:without-gcing
+    (if (= (sb-sys:with-pinned-objects (sockaddr)
 	    (sockint::bind (socket-file-descriptor socket)
 			   (sockint::array-data-address sockaddr)
 			   (size-of-sockaddr socket)))
@@ -76,28 +76,28 @@ newly-created connected socket and the peer address as multiple
 values"))
   
 (defmethod socket-accept ((socket socket))
-  (let* ((sockaddr (make-sockaddr-for socket))
-         (fd (sb-sys:without-gcing
-	      (sockint::accept (socket-file-descriptor socket)
-			       (sockint::array-data-address sockaddr)
-			       (size-of-sockaddr socket)))))
-    (apply #'values
-	   (if (= fd -1)
-	       (socket-error "accept") 
-	       (let ((s (make-instance (class-of socket)
-				       :type (socket-type socket)
-				       :protocol (socket-protocol socket)
-				       :descriptor fd)))
-		 (sb-ext:finalize s (lambda () (sockint::close fd)))))
-	   (multiple-value-list (bits-of-sockaddr socket sockaddr)))))
-
+  (let ((sockaddr (make-sockaddr-for socket)))
+    (sb-ext::with-pointers-preserved (sockaddr)
+      (let ((fd (sockint::accept (socket-file-descriptor socket)
+				 (sockint::array-data-address sickint)
+				 (size-of-sockaddr socket))))
+	(apply #'values
+	       (if (= fd -1)
+		   (socket-error "accept")
+		   (let ((s (make-instance (class-of socket)
+					   :type (socket-type socket)
+					   :protocol (socket-protocol socket)
+					   :descriptor fd)))
+		     (sb-ext:finalize s (lambda () (sockint::close fd)))))
+	       (multiple-value-list (bits-of-sockaddr socket sockaddr)))))))
+    
 (defgeneric socket-connect (socket &rest address)
   (:documentation "Perform the connect(2) call to connect SOCKET to a
   remote PEER.  No useful return value."))
 
 (defmethod socket-connect ((socket socket) &rest peer)
   (let* ((sockaddr (apply #'make-sockaddr-for socket nil peer)))
-    (if (= (sb-sys:without-gcing
+    (if (= (sb-sys:with-pinned-objects (sockaddr)
 	    (sockint::connect (socket-file-descriptor socket)
 			      (sockint::array-data-address sockaddr)
 			      (size-of-sockaddr socket)))
@@ -110,7 +110,7 @@ values"))
   
 (defmethod socket-peername ((socket socket))
   (let* ((sockaddr (make-sockaddr-for socket)))
-    (when (= (sb-sys:without-gcing
+    (when (= (sb-sys:with-pinned-objects (sockaddr)
 	      (sockint::getpeername (socket-file-descriptor socket)
 				    (sockint::array-data-address sockaddr)
 				    (size-of-sockaddr socket)))
@@ -124,7 +124,7 @@ values"))
 
 (defmethod socket-name ((socket socket))
   (let* ((sockaddr (make-sockaddr-for socket)))
-    (when (= (sb-sys:without-gcing
+    (when (= (sb-sys:with-pinned-objects (sockaddr)
 	      (sockint::getsockname (socket-file-descriptor socket)
 				    (sockint::array-data-address sockaddr)
 				    (size-of-sockaddr socket)))
@@ -169,7 +169,7 @@ small"))
       (setf buffer (make-array length :element-type element-type)))
     (sb-alien:with-alien ((sa-len (array (sb-alien:unsigned 32) 2)))
       (setf (sb-alien:deref sa-len 0) (size-of-sockaddr socket))
-      (sb-sys:without-gcing 
+      (sb-sys:with-pinned-objects (buffer sockaddr) 
        (let ((len
 	      (sockint::recvfrom (socket-file-descriptor socket)
 				 (sockint::array-data-address buffer)
@@ -230,7 +230,9 @@ SB-SYS:MAKE-FD-STREAM."))
 	 (and (slot-boundp socket 'stream) (slot-value socket 'stream))))
     (unless stream
       (setf stream (apply #'sb-sys:make-fd-stream
-			  (socket-file-descriptor socket) args))
+			  (socket-file-descriptor socket)
+			  :name "a constant string"
+			  args))
       (setf (slot-value socket 'stream) stream)
       (sb-ext:cancel-finalization socket))
     stream))