git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/36031 (ARM -fshort-enums attribute not emitted for Fortran) 

PR fortran/36031

	* decl.c (set_enum_kind): Use global short-enums flag.
	* gfortran.h (gfc_option_t): Remove short_enums flag.
	* lang.opt (-fshort-enums): Refer to C documentation.
	* options.c (gfc_init_options, gfc_handle_option): Use global
	short-enums flag.

From-SVN: r147615
This commit is contained in:
François-Xavier Coudert 2009-05-16 16:11:11 +00:00
parent 70544f4432
commit cab129d134
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/fortran/decl.c
View File

@ -24,6 +24,7 @@ along with GCC; see the file COPYING3. If not see
#include "gfortran.h"
#include "match.h"
#include "parse.h"
#include "flags.h"
/* Macros to access allocate memory for gfc_data_variable,
@ -5295,7 +5296,7 @@ set_enum_kind(void)
if (max_enum == NULL || enum_history == NULL)
return;
if (!gfc_option.fshort_enums)
if (!flag_short_enums)
return;
i = 0;

1
gcc/fortran/gfortran.h
View File

@ -2060,7 +2060,6 @@ typedef struct
int warn_std;
int allow_std;
int fshort_enums;
int convert;
int record_marker;
int max_subrecord_length;

2
gcc/fortran/lang.opt
View File

@ -350,7 +350,7 @@ Append a second underscore if the name already contains an underscore
fshort-enums
Fortran
Use the narrowest integer type possible for enumeration types
; Documented in C
fsign-zero
Fortran

4
gcc/fortran/options.c
View File

@ -137,7 +137,7 @@ gfc_init_options (unsigned int argc, const char **argv)
set_default_std_flags ();
/* -fshort-enums can be default on some targets. */
gfc_option.fshort_enums = targetm.default_short_enums ();
flag_short_enums = targetm.default_short_enums ();
/* Initialize cpp-related options. */
gfc_cpp_init_options(argc, argv);
@ -858,7 +858,7 @@ gfc_handle_option (size_t scode, const char *arg, int value)
break;
case OPT_fshort_enums:
gfc_option.fshort_enums = 1;
flag_short_enums = 1;
break;
case OPT_fconvert_little_endian: