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

(scm_getcwd, scm_readlink): Avoid memory leak on errors.

Browse source
This commit is contained in:
Kevin Ryde 2004-03-25 22:26:17 +00:00
parent 3cd232146f
commit 11e1db06ce
1 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/filesys.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1996,1997,1998,1999,2000,2001, 2002 Free Software Foundation, Inc.
/* Copyright (C) 1996,1997,1998,1999,2000,2001, 2002, 2004 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@ -929,7 +929,12 @@ SCM_DEFINE (scm_getcwd, "getcwd", 0, 0, 0,
wd = scm_malloc (size);
}
if (rv == 0)
SCM_SYSERROR;
{
int save_errno = errno;
free (wd);
errno = save_errno;
SCM_SYSERROR;
}
result = scm_mem2string (wd, strlen (wd));
free (wd);
return result;
@ -1349,7 +1354,12 @@ SCM_DEFINE (scm_readlink, "readlink", 1, 0, 0,
buf = scm_malloc (size);
}
if (rv == -1)
SCM_SYSERROR;
{
int save_errno = errno;
free (buf);
errno = save_errno;
SCM_SYSERROR;
}
result = scm_mem2string (buf, rv);
free (buf);
return result;