git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Burnus 2011-05-22 21:34:16 +02:00
parent 5e70c0b572
commit 1523ffa92a
2 changed files with 27 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
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> 2011-05-22 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/48931 PR libfortran/48931

6
libgfortran/runtime/stop.c
View File

@ -67,8 +67,7 @@ stop_string (const char *string, GFC_INTEGER_4 len)
if (string) if (string)
{ {
estr_write ("STOP "); estr_write ("STOP ");
ssize_t w = write (STDERR_FILENO, string, len); (void) write (STDERR_FILENO, string, len);
(void) sizeof (w); /* Avoid compiler warning about not using w. */
estr_write ("\n"); estr_write ("\n");
} }
exit (0); exit (0);
@ -88,8 +87,7 @@ void
error_stop_string (const char *string, GFC_INTEGER_4 len) error_stop_string (const char *string, GFC_INTEGER_4 len)
{ {
estr_write ("ERROR STOP "); estr_write ("ERROR STOP ");
ssize_t w = write (STDERR_FILENO, string, len); (void) write (STDERR_FILENO, string, len);
(void) sizeof (w); /* Avoid compiler warning about not using w. */
estr_write ("\n"); estr_write ("\n");
exit (1); exit (1);