Changeset 5390

Timestamp:

Oct 21, 2006, 5:40:36 PM (18 years ago)

Author:

Gary Byers

Message:

Mostly locking changes (don't lock twice, etc.)

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (5 diffs)

trunk/ccl/level-1/l1-streams.lisp

@@ -477 +477 @@
   (declare (optimize (speed 3) (safety 0)))
   (if (ioblock-untyi-char ioblock)
-    (prog1 (%char-code (ioblock-untyi-char ioblock))
-      (setf (ioblock-untyi-char ioblock) nil))
-    (let* ((buf (ioblock-inbuf ioblock))
-           (idx (io-buffer-idx buf))
-           (limit (io-buffer-count buf)))
-      (declare (fixnum idx limit))
-      (when (= idx limit)
-        (unless (%ioblock-advance ioblock t)
-          (return-from %bivalent-ioblock-read-u8-byte :eof))
-        (setq idx (io-buffer-idx buf)
-              limit (io-buffer-count buf)))
-      (setf (io-buffer-idx buf) (the fixnum (1+ idx)))
-      (aref (the (simple-array (unsigned-byte 8) (*))
-              (io-buffer-buffer buf)) idx))))
+    (setf (ioblock-untyi-char ioblock) nil))
+  (let* ((buf (ioblock-inbuf ioblock))
+         (idx (io-buffer-idx buf))
+         (limit (io-buffer-count buf)))
+    (declare (fixnum idx limit))
+    (when (= idx limit)
+      (unless (%ioblock-advance ioblock t)
+        (return-from %bivalent-ioblock-read-u8-byte :eof))
+      (setq idx (io-buffer-idx buf)
+            limit (io-buffer-count buf)))
+    (setf (io-buffer-idx buf) (the fixnum (1+ idx)))
+    (aref (the (simple-array (unsigned-byte 8) (*))
+              (io-buffer-buffer buf)) idx)))
 
 
@@ -1169 +1168 @@
 (defun %locked-ioblock-read-u8-encoded-char (ioblock)
   (declare (optimize (speed 3) (safety 0)))
-  (with-ioblock-input-locked (ioblock)
+m  (with-ioblock-input-lock-grabbed (ioblock)
     (%ioblock-read-u8-encoded-char ioblock)))
 
@@ -3703 +3702 @@
     (let* ((ioblock (basic-stream-ioblock stream)))
       (with-ioblock-input-locked (ioblock)
-      (locally (declare (optimize (speed 3)))
-        (without-interrupts
-         (values
-          (funcall (ioblock-character-read-vector-function ioblock)
-                   ioblock vector start end))))))))
+        (locally (declare (optimize (speed 3)))
+          (without-interrupts
+           (values
+            (funcall (ioblock-character-read-vector-function ioblock)
+                     ioblock vector start end))))))))
 
 (defmethod stream-read-line ((stream basic-character-input-stream))
@@ -4524 +4523 @@
 
 (defmethod stream-read-byte ((stream buffered-binary-input-stream-mixin))
-  (with-stream-ioblock-input (ioblock stream :speedy t)
+  (let* ((ioblock (stream-ioblock stream t)))
     (locally (declare (optimize (speed 3)))
       (without-interrupts
@@ -4532 +4531 @@
 (defmethod stream-read-byte ((stream basic-binary-input-stream))
   (let* ((ioblock (basic-stream-ioblock stream)))
-    (with-ioblock-input-locked (ioblock)
-      (locally (declare (optimize (speed 3)))
-        (without-interrupts
-         (values
-          (funcall (ioblock-read-byte-function ioblock) ioblock)))))))
+    (locally (declare (optimize (speed 3)))
+      (without-interrupts
+       (values
+        (funcall (ioblock-read-byte-function ioblock) ioblock))))))
 
 (defmethod stream-eofp ((stream buffered-input-stream-mixin))