/[guile]/guile/guile-core/libguile/putenv.c
ViewVC logotype

Diff of /guile/guile-core/libguile/putenv.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by ttn, Mon Jul 9 07:36:47 2001 UTC revision 1.10 by hanwen, Fri Aug 16 22:01:10 2002 UTC
# Line 115  putenv (const char *string) Line 115  putenv (const char *string)
115    if (*ep == NULL)    if (*ep == NULL)
116      {      {
117        static char **last_environ = NULL;        static char **last_environ = NULL;
118        char **new_environ = (char **) malloc ((size + 2) * sizeof (char *));        char **new_environ = (char **) scm_malloc ((size + 2) * sizeof (char *));
119        if (new_environ == NULL)        if (new_environ == NULL)
120          return -1;          return -1;
121        memcpy ((char *) new_environ, (char *) environ, size * sizeof (char *));        memcpy ((char *) new_environ, (char *) environ, size * sizeof (char *));

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26