From 05d9e55946615d14fa26d276b29072931f9dc5b5 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 27 Jul 2007 12:09:10 +0000 Subject: [PATCH] 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. --- NEWS | 2 ++ src/code/fd-stream.lisp | 3 ++- version.lisp-expr | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) 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" -- 1.7.10.4