diff options
-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(); |