From 200cfbe7b94cb12757dc3089401c20aa679a2c01 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Fri, 19 Aug 2005 11:05:03 +0200 Subject: re PR fortran/23065 (MAXPATHLEN usage in fortran/{scanner,module}.c) 2005-08-19 Steven G. Kargl PR fortran/23065 * gfortran.h: Remove PATH_MAX definition. * module.c (write_module, gfc_dump_module): Use alloca to allocate buffers. * scanner.s (gfc_release_include_path, form_from_filename): Ditto. From-SVN: r103271 --- gcc/fortran/module.c | 22 ++++++++++++++++------ 1 file changed, 16 insertions(+), 6 deletions(-) (limited to 'gcc/fortran/module.c') diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 58af479..db510fd 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3479,14 +3479,22 @@ write_module (void) void gfc_dump_module (const char *name, int dump_flag) { - char filename[PATH_MAX], *p; + int n; + char *filename, *p; time_t now; - filename[0] = '\0'; + n = strlen (name) + strlen (MODULE_EXTENSION) + 1; if (gfc_option.module_dir != NULL) - strcpy (filename, gfc_option.module_dir); - - strcat (filename, name); + { + filename = (char *) alloca (n + strlen (gfc_option.module_dir)); + strcpy (filename, gfc_option.module_dir); + strcat (filename, name); + } + else + { + filename = (char *) alloca (n); + strcpy (filename, name); + } strcat (filename, MODULE_EXTENSION); if (!dump_flag) @@ -3532,10 +3540,12 @@ gfc_dump_module (const char *name, int dump_flag) void gfc_use_module (void) { - char filename[GFC_MAX_SYMBOL_LEN + 5]; + char *filename; gfc_state_data *p; int c, line; + filename = (char *) alloca(strlen(module_name) + strlen(MODULE_EXTENSION) + + 1); strcpy (filename, module_name); strcat (filename, MODULE_EXTENSION); -- cgit v1.1