projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.11.8: also fix install-info on Debian
[sbcl.git]
/
contrib
/
sb-simple-streams
/
internal.lisp
diff --git
a/contrib/sb-simple-streams/internal.lisp
b/contrib/sb-simple-streams/internal.lisp
index
0aefd13
..
4a846a8
100644
(file)
--- a/
contrib/sb-simple-streams/internal.lisp
+++ b/
contrib/sb-simple-streams/internal.lisp
@@
-44,22
+44,19
@@
(defun buffer-copy (src soff dst doff length)
(declare (type simple-stream-buffer src dst)
(type fixnum soff doff length))
(defun buffer-copy (src soff dst doff length)
(declare (type simple-stream-buffer src dst)
(type fixnum soff doff length))
- (sb-sys:without-gcing ;; is this necessary??
+ ;; FIXME: Should probably be with-pinned-objects
+ (sb-sys:without-gcing
(sb-kernel:system-area-ub8-copy (buffer-sap src) soff
(buffer-sap dst) doff
length)))
(defun allocate-buffer (size)
(sb-kernel:system-area-ub8-copy (buffer-sap src) soff
(buffer-sap dst) doff
length)))
(defun allocate-buffer (size)
- (if (= size sb-impl::bytes-per-buffer)
- (sb-impl::next-available-buffer)
- (make-array size :element-type '(unsigned-byte 8))))
+ (make-array size :element-type '(unsigned-byte 8)))
(defun free-buffer (buffer)
(defun free-buffer (buffer)
- (when (sb-sys:system-area-pointer-p buffer)
- (push buffer sb-impl::*available-buffers*))
+ (sb-int:aver (typep buffer '(simple-array (unsigned-byte 8) (*))))
t)
t)
-
(defun make-control-table (&rest inits)
(let ((table (make-array 32 :initial-element nil)))
(do* ((char (pop inits) (pop inits))
(defun make-control-table (&rest inits)
(let ((table (make-array 32 :initial-element nil)))
(do* ((char (pop inits) (pop inits))