mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(st_flush): Increase buffer by 1.5x when growing, to

Browse source 
avoid lots of copying where previoulsy growing by only 80 bytes at a
time.
This commit is contained in:
Kevin Ryde 2005-08-12 00:59:49 +00:00
parent 141de6078d
commit 0aae457a4a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/strports.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1998,1999,2000,2001,2005 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -133,7 +133,7 @@ st_flush (SCM port)
if (pt->write_pos == pt->write_end)
{
st_resize_port (pt, pt->write_buf_size + SCM_WRITE_BLOCK);
st_resize_port (pt, pt->write_buf_size * 3 / 2 + SCM_WRITE_BLOCK);
}
pt->read_pos = pt->write_pos;
if (pt->read_pos > pt->read_end)