diff options
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 8 |
1 files changed, 4 insertions, 4 deletions
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 |