OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

lang.opt (-fmodule-private): Remove option. 

* lang.opt (-fmodule-private): Remove option.
* gfortran.h (gfc_option_t): Remove module_access_private flag.
* options.c (gfc_init_options): Remove initialization for it.
(gfc_process_option): Remove handling for -fmodule-private.
* module.c (gfc_check_access): Add comments, remove check for
gfc_option.flag_module_access_private.

(Also fixed tab-damage in preceeding changelog entry.)

From-SVN: r118668
This commit is contained in:
Brooks Moses 2006-11-10 14:34:26 -08:00
parent 3e916873cb
commit 131ac5dd47
5 changed files with 18 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gcc/fortran/ChangeLog
View File

@ -1,9 +1,18 @@
2006-11-10 Brooks Moses <brooks.moses@codesourcery.com>
* lang.opt (-fmodule-private): Remove option.
* gfortran.h (gfc_option_t): Remove module_access_private flag.
* options.c (gfc_init_options): Remove initialization for it.
(gfc_process_option): Remove handling for -fmodule-private.
* module.c (gfc_check_access): Add comments, remove check for
gfc_option.flag_module_access_private.
2006-11-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/29758
* check.c (gfc_check_reshape): Check that there are enough
elements in the source array as to be able to fill an array
defined by shape, when pad is absent.
PR fortran/29758
* check.c (gfc_check_reshape): Check that there are enough
elements in the source array as to be able to fill an array
defined by shape, when pad is absent.
2006-11-10 Paul Thomas <pault@gcc.gnu.org>

1
gcc/fortran/gfortran.h
View File

@ -1640,7 +1640,6 @@ typedef struct
int flag_second_underscore;
int flag_implicit_none;
int flag_max_stack_var_size;
int flag_module_access_private;
int flag_no_backend;
int flag_range_check;
int flag_pack_derived;

4
gcc/fortran/lang.opt
View File

@ -181,10 +181,6 @@ fmax-stack-var-size=
Fortran RejectNegative Joined UInteger
-fmax-stack-var-size=<n> Size in bytes of the largest array that will be put on the stack
fmodule-private
Fortran
Set default accessibility of module entities to PRIVATE
fno-backend
Fortran RejectNegative
Don't generate code, just do syntax and semantics checking

12
gcc/fortran/module.c
View File

@ -3413,7 +3413,10 @@ read_module (void)
/* Given an access type that is specific to an entity and the default
access, return nonzero if the entity is publicly accessible. */
access, return nonzero if the entity is publicly accessible. If the
element is declared as PUBLIC, then it is public; if declared
PRIVATE, then private, and otherwise it is public unless the default
access in this context has been declared PRIVATE. */
bool
gfc_check_access (gfc_access specific_access, gfc_access default_access)
@ -3424,12 +3427,7 @@ gfc_check_access (gfc_access specific_access, gfc_access default_access)
if (specific_access == ACCESS_PRIVATE)
return FALSE;
if (gfc_option.flag_module_access_private)
return default_access == ACCESS_PUBLIC;
else
return default_access != ACCESS_PRIVATE;
return FALSE;
return default_access != ACCESS_PRIVATE;
}

5
gcc/fortran/options.c
View File

@ -73,7 +73,6 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
gfc_option.flag_second_underscore = -1;
gfc_option.flag_implicit_none = 0;
gfc_option.flag_max_stack_var_size = 32768;
gfc_option.flag_module_access_private = 0;
gfc_option.flag_no_backend = 0;
gfc_option.flag_range_check = 1;
gfc_option.flag_pack_derived = 0;
@ -521,10 +520,6 @@ gfc_handle_option (size_t scode, const char *arg, int value)
gfc_option.flag_max_stack_var_size = value;
break;
case OPT_fmodule_private:
gfc_option.flag_module_access_private = value;
break;
case OPT_fno_backend:
gfc_option.flag_no_backend = value;
break;