From f5e3ed2d42244eae5a54bc22642a9bbf6be5dd32 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Tue, 19 Mar 2013 13:13:32 +0200 Subject: Use C99 bool instead of enum try. 2013-03-19 Janne Blomqvist * 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 --- libgfortran/runtime/error.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'libgfortran/runtime') 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; } -- cgit v1.1