2012-01-09 Harald Anlauf <anlauf@gmx.de>

[pf3gnuchains/gcc-fork.git] / libgfortran / runtime / backtrace.c

diff --git a/libgfortran/runtime/backtrace.c b/libgfortran/runtime/backtrace.c
index 70aae91..5ebd972 100644 (file)
--- a/libgfortran/runtime/backtrace.c
+++ b/libgfortran/runtime/backtrace.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2006, 2007, 2009, 2011 Free Software Foundation, Inc.
+/* Copyright (C) 2006, 2007, 2009, 2011, 2012 Free Software Foundation, Inc.
    Contributed by François-Xavier Coudert
 
 This file is part of the GNU Fortran runtime library (libgfortran).
@@ -25,6 +25,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #include "libgfortran.h"
 
 #include <string.h>
+#include <stdlib.h>
 
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
@@ -196,7 +197,7 @@ show_backtrace (void)
   state.frame_number = 0;
   state.error = 0;
 
-  estr_write ("\nA fatal error occurred! Backtrace for this error:\n");
+  estr_write ("\nBacktrace for this error:\n");
 
 #if CAN_PIPE
 
@@ -210,7 +211,7 @@ show_backtrace (void)
     int f[2], pid, inp[2];
 
     /* Don't output an error message if something goes wrong, we'll simply
-       fall back to the pstack and glibc backtraces.  */
+       fall back to printing the addresses.  */
     if (pipe (f) != 0)
       break;
     if (pipe (inp) != 0)