mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-10-27 18:40:41 +00:00
parent 8b0f07460a
commit dbd1132b9c
4 changed files with 0 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,7 +1,3 @@
2007-10-27 Ludovic Courtès <ludo@gnu.org>
* NEWS: Mention `putenv' memory leak fix.
2007-10-24 Neil Jerram <neil@ossau.uklinux.net> 2007-10-24 Neil Jerram <neil@ossau.uklinux.net>
* .cvsignore: Add "lib". * .cvsignore: Add "lib".

1
NEWS
View file

@ -43,7 +43,6 @@ Changes in 1.8.4 (since 1.8.3)
** CR (ASCII 0x0d) is (again) recognized as a token delimiter by the reader ** CR (ASCII 0x0d) is (again) recognized as a token delimiter by the reader
** Fixed a segmentation fault which occurred when displaying the ** Fixed a segmentation fault which occurred when displaying the
backtrace of a stack with a promise object (made by `delay') in it. backtrace of a stack with a promise object (made by `delay') in it.
** Fixed memory leak in `putenv'
Changes in 1.8.3 (since 1.8.2) Changes in 1.8.3 (since 1.8.2)

2
libguile/ChangeLog
View file

@ -1,7 +1,5 @@
2007-10-27 Ludovic Courtès <ludo@gnu.org> 2007-10-27 Ludovic Courtès <ludo@gnu.org>
* posix.c (scm_putenv): Make sure C_STR gets freed.
* fports.c (scm_i_evict_port): Expect a port, rather than a pair * fports.c (scm_i_evict_port): Expect a port, rather than a pair
containing the port. Fixes a bug in the new port table (2007-08-26). containing the port. Fixes a bug in the new port table (2007-08-26).
(scm_evict_ports): Use `scm_c_port_for_each ()'. (scm_evict_ports): Use `scm_c_port_for_each ()'.

8
libguile/posix.c
View file

@ -1385,8 +1385,6 @@ SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
#else #else
/* otherwise traditional putenv("NAME") */ /* otherwise traditional putenv("NAME") */
rv = putenv (c_str); rv = putenv (c_str);
free (c_str);
if (rv < 0) if (rv < 0)
SCM_SYSERROR; SCM_SYSERROR;
#endif #endif
@ -1408,9 +1406,7 @@ SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
char *ptr = scm_malloc (len+2); char *ptr = scm_malloc (len+2);
strcpy (ptr, c_str); strcpy (ptr, c_str);
strcpy (ptr+len, " "); strcpy (ptr+len, " ");
rv = putenv (ptr); rv = putenv (ptr);
free (ptr);
if (rv < 0) if (rv < 0)
{ {
int eno = errno; int eno = errno;
@ -1423,8 +1419,6 @@ SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
ptr = getenv (c_str); ptr = getenv (c_str);
if (ptr) if (ptr)
ptr[0] = '\0'; ptr[0] = '\0';
free (c_str);
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }
} }
@ -1433,8 +1427,6 @@ SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
/* Leave c_str in the environment. */ /* Leave c_str in the environment. */
rv = putenv (c_str); rv = putenv (c_str);
free (c_str);
if (rv < 0) if (rv < 0)
SCM_SYSERROR; SCM_SYSERROR;
} }