diff options
| author | Rainer Orth <ro@TechFak.Uni-Bielefeld.DE> | 2007-06-15 10:26:16 +0000 |
|---|---|---|
| committer | Rainer Orth <ro@gcc.gnu.org> | 2007-06-15 10:26:16 +0000 |
| commit | bec38225d516144ffe9f291149aef57308cba9af (patch) | |
| tree | 0c6cb0f4b991ad4fab2084303320d9c92e13ced0 /libgfortran | |
| parent | 2be6658d869f5fbf18f38a02b0333a3407d9223f (diff) | |
| download | gcc-bec38225d516144ffe9f291149aef57308cba9af.zip gcc-bec38225d516144ffe9f291149aef57308cba9af.tar.gz gcc-bec38225d516144ffe9f291149aef57308cba9af.tar.bz2 | |
re PR libfortran/32345 (Unconditional snprintf use breaks all gfortran exec tests on Tru64 UNIX V4.0F)
PR libfortran/32345
* runtime/backtrace.c (show_backtrace): Only use snprintf if
available.
From-SVN: r125739
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/runtime/backtrace.c | 6 |
2 files changed, 11 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index cbd3e1e..8df6b35 100644 --- 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 --- 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); |