Parent Directory | Revision Log | 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 *)); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |