stop.c (stop_string,error_stop_string): Minor cleanup.

2011-05-22  Tobias Burnus  <burnus@net-b.de>

        * runtime/stop.c (stop_string,error_stop_string): Minor cleanup.

From-SVN: r174039

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6f5b0581b5a54bc8ef149afffaba6bf9c70b7c9f..5c1144fe000a405f5483c0e704cf3c9e28f0b1b0 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,36 +1,40 @@
+2011-05-22  Tobias Burnus  <burnus@net-b.de>
+
+       * runtime/stop.c (stop_string,error_stop_string): Minor cleanup.
+
 2011-05-22  Janne Blomqvist  <jb@gcc.gnu.org>
 
-        PR libfortran/48931
-        * configure.ac: Check for backtrace_symbols_fd instead of
+       PR libfortran/48931
+       * configure.ac: Check for backtrace_symbols_fd instead of
        backtrace_symbols, check for readlink.
-        * config.h.in: Regenerated.
-        * configure: Regenerated.
-        * runtime/backtrace.c (local_strcasestr): Remove.
-        (bt_header): New function.
-        (dump_glibc_backtrace): Remove.
-        (fd_gets): New function.
-        (show_backtrace): Rework to use backtrace_symbols_fd and pipes
+       * config.h.in: Regenerated.
+       * configure: Regenerated.
+       * runtime/backtrace.c (local_strcasestr): Remove.
+       (bt_header): New function.
+       (dump_glibc_backtrace): Remove.
+       (fd_gets): New function.
+       (show_backtrace): Rework to use backtrace_symbols_fd and pipes
        avoiding functions that are not async-signal-safe, reformat
        output.
-        * runtime/main.c (store_exe_path): Try to check /proc/self/exe
+       * runtime/main.c (store_exe_path): Try to check /proc/self/exe
        first.
 
 2011-05-20  Janne Blomqvist  <jb@gcc.gnu.org>
-        Uros Bizjak  <ubizjak@gmail.com>
+           Uros Bizjak  <ubizjak@gmail.com>
 
-        PR libfortran/48977
-        * configure.host: Swap order of glibc and x86 tests.
+       PR libfortran/48977
+       * configure.host: Swap order of glibc and x86 tests.
 
 2011-05-20  Janne Blomqvist  <jb@gcc.gnu.org>
 
-        * config/fpu-387.h (set_fpu): Use renamed inexact macro.
-        * config/fpu-aix.h (set_fpu): Clarify error messages, use renamed
-        inexact macro, set TRP_INEXACT for inexact exception instead of
-        TRP_UNDERFLOW.
-        * config/fpu-generic.h (set_fpu): Clarify error messages, use
-        renamed inexact macro.
-        * config/fpu-glibc.h (set_fpu): Likewise.
-        * config/fpu-sysv.h (set_fpu): Likewise.
+       * config/fpu-387.h (set_fpu): Use renamed inexact macro.
+       * config/fpu-aix.h (set_fpu): Clarify error messages, use renamed
+       inexact macro, set TRP_INEXACT for inexact exception instead of
+       TRP_UNDERFLOW.
+       * config/fpu-generic.h (set_fpu): Clarify error messages, use
+       renamed inexact macro.
+       * config/fpu-glibc.h (set_fpu): Likewise.
+       * config/fpu-sysv.h (set_fpu): Likewise.
 
 2011-05-14  Tobias Burnus  <burnus@net-b.de>
 

diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c
index 4c3a0f99c89e9e2010a3bc2e1400e8625cda6643..912dd54fbf77681139b7008312b242ba52a9461a 100644 (file)
--- a/libgfortran/runtime/stop.c
+++ b/libgfortran/runtime/stop.c
@@ -67,8 +67,7 @@ stop_string (const char *string, GFC_INTEGER_4 len)
   if (string)
     {
       estr_write ("STOP ");
-      ssize_t w = write (STDERR_FILENO, string, len);
-      (void) sizeof (w); /* Avoid compiler warning about not using w.  */
+      (void) write (STDERR_FILENO, string, len);
       estr_write ("\n");
     }
   exit (0);
@@ -88,8 +87,7 @@ void
 error_stop_string (const char *string, GFC_INTEGER_4 len)
 {
   estr_write ("ERROR STOP ");
-  ssize_t w = write (STDERR_FILENO, string, len);
-  (void) sizeof (w); /* Avoid compiler warning about not using w.  */
+  (void) write (STDERR_FILENO, string, len);
   estr_write ("\n");
 
   exit (1);