diff options
| author | Camm Maguire <camm@debian.org> | 2014-04-24 18:20:12 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014-04-25 19:36:51 +0000 |
| commit | bcbc616803fd60166662dad9cce44f275cf3685d (patch) | |
| tree | 8bf331c2ce456e9c6dd9f8f1e52c6e4d38575e67 | |
| parent | 6e502a2de42af5a8d1bcef406d6344e4c4ffd060 (diff) | |
| download | gcl-bcbc616803fd60166662dad9cce44f275cf3685d.tar.gz | |
free() file buffers and preserve malloc_list across saves
| -rwxr-xr-x | gcl/o/file.d | 7 | ||||
| -rwxr-xr-x | gcl/o/unixsave.c | 1 |
2 files changed, 1 insertions, 7 deletions
diff --git a/gcl/o/file.d b/gcl/o/file.d index b268684e..3d37b913 100755 --- a/gcl/o/file.d +++ b/gcl/o/file.d @@ -380,12 +380,7 @@ deallocate_stream_buffer(object strm) { if (strm->sm.sm_buffer==NULL) return; -/* SGC contblock pages: Its possible this is on an old page CM 20030827 */ -#ifdef SGC - insert_maybe_sgc_contblock(strm->sm.sm_buffer,BUFSIZ); -#else - insert_contblock(strm->sm.sm_buffer,BUFSIZ); -#endif + free(strm->sm.sm_buffer); massert(!setvbuf(strm->sm.sm_fp,strm->sm.sm_buffer=NULL,_IONBF,0)); diff --git a/gcl/o/unixsave.c b/gcl/o/unixsave.c index df5d9551..0ead235a 100755 --- a/gcl/o/unixsave.c +++ b/gcl/o/unixsave.c @@ -146,7 +146,6 @@ LFD(Lsave)() { check_arg(1); check_type_or_pathname_string_symbol_stream(&vs_base[0]); coerce_to_filename(vs_base[0], filename); - malloc_list=Cnil; _cleanup(); |