diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0a392c5..162da2e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2011-05-07 Eric Botcazou <ebotcazou@adacore.com> + + * f95-lang.c (global_bindings_p): Return bool and simplify. + 2011-05-07 Tobias Burnus <burnus@net-b.de> PR fortran/18918 diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index eb38484..e247d70 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -91,7 +91,7 @@ static void gfc_finish (void); static void gfc_write_global_declarations (void); static void gfc_print_identifier (FILE *, tree, int); void do_function_end (void); -int global_bindings_p (void); +bool global_bindings_p (void); static void clear_binding_stack (void); static void gfc_be_parse_file (void); static alias_set_type gfc_get_alias_set (tree); @@ -373,12 +373,12 @@ static GTY(()) struct binding_level *global_binding_level; static struct binding_level clear_binding_level = { NULL, NULL, NULL }; -/* Return nonzero if we are currently in the global binding level. */ +/* Return true if we are in the global binding level. */ -int +bool global_bindings_p (void) { - return current_binding_level == global_binding_level ? -1 : 0; + return current_binding_level == global_binding_level; } tree |