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>
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)
{
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);