diff options
| author | Greg McGary <gkm@gnu.org> | 1999-10-16 01:26:10 +0000 |
|---|---|---|
| committer | Greg McGary <gkm@gcc.gnu.org> | 1999-10-16 01:26:10 +0000 |
| commit | 02f06e649d274e60c4c26267ec82d917daddd15b (patch) | |
| tree | fb5c7005318a50727d08ebfd421953c5982fe66f /gcc/f/top.h | |
| parent | 13f9ac51e34061acb318e8d7a8195debf87e0ec3 (diff) | |
| download | gcc-02f06e649d274e60c4c26267ec82d917daddd15b.zip gcc-02f06e649d274e60c4c26267ec82d917daddd15b.tar.gz gcc-02f06e649d274e60c4c26267ec82d917daddd15b.tar.bz2 | |
top.h (ffe_is_subscript_check_): Remove extern decl.
* top.h (ffe_is_subscript_check_): Remove extern decl.
(ffe_is_subscript_check, ffe_set_is_subscript_check): Remove macros.
* top.c (ffe_is_subscript_check_): Remove global variable.
(ffe_decode_option): Remove "(no-)bounds-check" flag handling.
Set flag_bounds_check for "(no-)fortran-bounds-check".
* com.c
(ffecom_arrayref_): s/ffe_is_subscript_check ()/flag_bounds_check/
(ffecom_char_args_x_): Ditto.
From-SVN: r30037
Diffstat (limited to 'gcc/f/top.h')
| -rw-r--r-- | gcc/f/top.h | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/f/top.h b/gcc/f/top.h index c5deea8..3c92c26 100644 --- a/gcc/f/top.h +++ b/gcc/f/top.h @@ -1,5 +1,5 @@ /* top.h -- Public #include File (module.h template V1.0) - Copyright (C) 1995-1997 Free Software Foundation, Inc. + Copyright (C) 1995-1997, 1999 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -98,7 +98,6 @@ extern bool ffe_is_mainprog_; extern bool ffe_is_null_version_; extern bool ffe_is_onetrip_; extern bool ffe_is_silent_; -extern bool ffe_is_subscript_check_; extern bool ffe_is_typeless_boz_; extern bool ffe_is_pedantic_; extern bool ffe_is_saveall_; @@ -191,7 +190,6 @@ void ffe_terminate_4 (void); #define ffe_is_saveall() ffe_is_saveall_ #define ffe_is_second_underscore() ffe_is_second_underscore_ #define ffe_is_silent() ffe_is_silent_ -#define ffe_is_subscript_check() ffe_is_subscript_check_ #define ffe_is_typeless_boz() ffe_is_typeless_boz_ #define ffe_is_ugly_args() ffe_is_ugly_args_ #define ffe_is_ugly_assign() ffe_is_ugly_assign_ @@ -243,7 +241,6 @@ void ffe_terminate_4 (void); #define ffe_set_is_saveall(f) (ffe_is_saveall_ = (f)) #define ffe_set_is_second_underscore(f) (ffe_is_second_underscore_ = (f)) #define ffe_set_is_silent(f) (ffe_is_silent_ = (f)) -#define ffe_set_is_subscript_check(f) (ffe_is_subscript_check_ = (f)) #define ffe_set_is_typeless_boz(f) (ffe_is_typeless_boz_ = (f)) #define ffe_set_is_ugly_args(f) (ffe_is_ugly_args_ = (f)) #define ffe_set_is_ugly_assign(f) (ffe_is_ugly_assign_ = (f)) |