diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2004-09-21 12:38:34 +0000 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-09-21 14:38:34 +0200 |
| commit | c6847e25b997c686563a537de5fb9eaa34568730 (patch) | |
| tree | 15e69fd9c82b5c56916211a2a3e1f19fbaf48919 /libgfortran/intrinsics/env.c | |
| parent | 936f1f064115f94425c521a5c94f0957f67a480d (diff) | |
| download | gcc-c6847e25b997c686563a537de5fb9eaa34568730.zip gcc-c6847e25b997c686563a537de5fb9eaa34568730.tar.gz gcc-c6847e25b997c686563a537de5fb9eaa34568730.tar.bz2 | |
libgfortran.h: define gfc_alloca()
2004-09-21 Steven G. Kargl <kargls@comcast.net>
* libgfortran.h: define gfc_alloca()
* intrinsics/env.c (getenv, get_environment_variable_i4): Use it.
From-SVN: r87801
Diffstat (limited to 'libgfortran/intrinsics/env.c')
| -rw-r--r-- | libgfortran/intrinsics/env.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libgfortran/intrinsics/env.c b/libgfortran/intrinsics/env.c index b50c1f0..ab596fc 100644 --- a/libgfortran/intrinsics/env.c +++ b/libgfortran/intrinsics/env.c @@ -24,7 +24,6 @@ Boston, MA 02111-1307, USA. */ #include <sys/types.h> #include <stdlib.h> #include <string.h> -#include <alloca.h> #include "libgfortran.h" @@ -55,7 +54,7 @@ prefix(getenv) (char * name, name_len--; /* Make a null terminated copy of the string. */ - name_nt = alloca (name_len + 1); + name_nt = gfc_alloca (name_len + 1); memcpy (name_nt, name, name_len); name_nt[name_len] = '\0'; @@ -131,7 +130,7 @@ prefix(get_environment_variable_i4) name_len--; } /* Make a null terminated copy of the name. */ - name_nt = alloca (name_len + 1); + name_nt = gfc_alloca (name_len + 1); memcpy (name_nt, name, name_len); name_nt[name_len] = '\0'; |