From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Fri, 27 Jul 2007 12:09:10 +0000 (+0000)
Subject: 1.0.8.8: restore reuse-sap value after incomplete writes in FROB-OUTPUT-LATER
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=05d9e55946615d14fa26d276b29072931f9dc5b5;p=sbcl.git

1.0.8.8: restore reuse-sap value after incomplete writes in FROB-OUTPUT-LATER

 * Unless we do this, we leak each reusable sap that happens to hit this
   code path.

 * Thanks to David Smith.
---

diff --git a/NEWS b/NEWS
index ad4ecb2..9434192 100644
--- a/NEWS
+++ b/NEWS
@@ -2,6 +2,8 @@
 changes in sbcl-1.0.9 relative to sbcl-1.0.8:
   * bug fix: new compiler transforms for MEMBER and ASSOC were affected
     by printer control variables. (reported by Dan Corkill)
+  * bug fix: system leaked memory when delayed output was performed by
+    the OS in smaller chunks then expected. (thanks to David Smith)
 
 changes in sbcl-1.0.8 relative to sbcl-1.0.7:
   * enhancement: experimental macro SB-EXT:COMPARE-AND-SWAP provides
diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index 26d8f07..37ae997 100644
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -219,7 +219,8 @@ bytes-per-buffer of memory.")
             ((not (null count)) ; sorta worked..
              (push (list base
                          (the index (+ start count))
-                         end)
+                         end
+                         reuse-sap)
                    (fd-stream-output-later stream))))))
   (unless (fd-stream-output-later stream)
     (remove-fd-handler (fd-stream-handler stream))
diff --git a/version.lisp-expr b/version.lisp-expr
index 4f269e8..614905e 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.8.7"
+"1.0.8.8"