re PR libfortran/32345 (Unconditional snprintf use breaks all gfortran exec tests...

	PR libfortran/32345
	* runtime/backtrace.c (show_backtrace): Only use snprintf if
	available.

From-SVN: r125739

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index cbd3e1e..8df6b35 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-06-15  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
+
+       PR libfortran/32345
+       * runtime/backtrace.c (show_backtrace): Only use snprintf if
+       available.
+
 2007-06-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/32235

diff --git a/libgfortran/runtime/backtrace.c b/libgfortran/runtime/backtrace.c
index 3b17a39..3577c64 100644 (file)
--- a/libgfortran/runtime/backtrace.c
+++ b/libgfortran/runtime/backtrace.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2006 Free Software Foundation, Inc.
+/* Copyright (C) 2006, 2007 Free Software Foundation, Inc.
    Contributed by François-Xavier Coudert
 
 This file is part of the GNU Fortran 95 runtime library (libgfortran).
@@ -301,7 +301,11 @@ fallback:
 
        st_printf ("\nBacktrace for this error:\n");
        arg[0] = (char *) "pstack";
+#ifdef HAVE_SNPRINTF
        snprintf (buf, sizeof(buf), "%d", (int) getppid ());
+#else
+       sprintf (buf, "%d", (int) getppid ());
+#endif
        arg[1] = buf;
        arg[2] = NULL;
        execvp (arg[0], arg);