aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/runtime
diff options
context:
space:
mode:
authorJanne Blomqvist <jb@gcc.gnu.org>2013-03-19 13:13:32 +0200
committerJanne Blomqvist <jb@gcc.gnu.org>2013-03-19 13:13:32 +0200
commitf5e3ed2d42244eae5a54bc22642a9bbf6be5dd32 (patch)
treedcc5c9502972eb9dff14e321035a33826c97e179 /libgfortran/runtime
parent7469b1dc52d5cbd23c0b6e998adfe159c5034b28 (diff)
downloadgcc-f5e3ed2d42244eae5a54bc22642a9bbf6be5dd32.zip
gcc-f5e3ed2d42244eae5a54bc22642a9bbf6be5dd32.tar.gz
gcc-f5e3ed2d42244eae5a54bc22642a9bbf6be5dd32.tar.bz2
Use C99 bool instead of enum try.
2013-03-19 Janne Blomqvist <jb@gcc.gnu.org> * libgfortran.h: Include stdbool.h. (enum try): Remove. (notify_std): Change return type to bool. * intrinsics/chmod.c: Don't include stdbool.h. * intrinsics/execute_command_line.c: Likewise. * io/format.c: Likewise. * io/list_read.c (nml_parse_qualifier): Change return type to bool. (nml_read_obj): Likewise. (nml_get_obj_data): Likewise. * io/transfer.c (read_block_form): Fix comment. (write_buf): Change return type to bool. * io/write.c: Don't include stdbool.h. * io/write_float.def (output_float): Change return type to bool. (output_float_FMT_G_ ## x): Change type of result variable. * runtime/error.c (notify_std): Change return type to bool. From-SVN: r196791
Diffstat (limited to 'libgfortran/runtime')
-rw-r--r--libgfortran/runtime/error.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c
index f09fa20..5f04819 100644
--- a/libgfortran/runtime/error.c
+++ b/libgfortran/runtime/error.c
@@ -586,17 +586,17 @@ notification_std (int std)
feature. An error/warning will be issued if the currently selected
standard does not contain the requested bits. */
-try
+bool
notify_std (st_parameter_common *cmp, int std, const char * message)
{
int warning;
if (!compile_options.pedantic)
- return SUCCESS;
+ return true;
warning = compile_options.warn_std & std;
if ((compile_options.allow_std & std) != 0 && !warning)
- return SUCCESS;
+ return true;
if (!warning)
{
@@ -614,5 +614,5 @@ notify_std (st_parameter_common *cmp, int std, const char * message)
estr_write (message);
estr_write ("\n");
}
- return FAILURE;
+ return false;
}