OSDN Git Service

2011-02-15 Steven G. Kargl <kargl@gcc.gnu.org>
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 15 Feb 2011 19:38:51 +0000 (19:38 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 15 Feb 2011 19:38:51 +0000 (19:38 +0000)
PR fortran/47633
. simplify.c (gfc_simplify_compiler_version): Fix off-by-one issue.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@170195 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/simplify.c

index 8b4f63f..346bb9e 100644 (file)
@@ -1,3 +1,8 @@
+2011-02-15  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+       PR fortran/47633
+       . simplify.c (gfc_simplify_compiler_version): Fix off-by-one issue.
+
 2011-02-14  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/47730
index ba88044..bb8b575 100644 (file)
@@ -6844,9 +6844,9 @@ gfc_simplify_compiler_version (void)
   char *buffer;
   size_t len;
 
-  len = strlen ("GCC version ") + strlen (version_string) + 1;
-  buffer = (char*) alloca (len);
-  snprintf (buffer, len, "GCC version %s", version_string);
+  len = strlen ("GCC version ") + strlen (version_string);
+  buffer = XALLOCAVEC (char, len + 1);
+  snprintf (buffer, len + 1, "GCC version %s", version_string);
   return gfc_get_character_expr (gfc_default_character_kind,
                                 &gfc_current_locus, buffer, len);
 }