Skip to content

R
riscv-gcc-1
Commit b4fac6a0 by Andreas Jaeger Committed by Andreas Jaeger
Options

std.c: Remove #if 0'ed functions. 

	* std.c: Remove #if 0'ed functions.

	* sta.c: Remove usage of HARD_F90, FFESTR_F90 and FFESTR_VXT.
	* stb.c: Likewise.
	* stb.h: Likewise.
	* stc.c: Likewise.
	* stc.h: Likewise.
	* std.c: Likewise.
	* std.h: Likewise.
	* ste.c: Likewise.
	* ste.h: Likewise.

	* str.h (FFESTR_F90): Remove macro.
	(FFESTR_VXT): Remove macro.

From-SVN: r67625
parent 56f0c0d8
Showing with 19 additions and 481 deletions
gcc/f/ChangeLog
2003-06-08 Andreas Jaeger <aj@suse.de> 2003-06-08 Andreas Jaeger <aj@suse.de>
* std.c: Remove #if 0'ed functions.
* sta.c: Remove usage of HARD_F90, FFESTR_F90 and FFESTR_VXT.
* stb.c: Likewise.
* stb.h: Likewise.
* stc.c: Likewise.
* stc.h: Likewise.
* std.c: Likewise.
* std.h: Likewise.
* ste.c: Likewise.
* ste.h: Likewise.
* str.h (FFESTR_F90): Remove macro.
(FFESTR_VXT): Remove macro.
* bld.c: Remove usage of FFETARGET_okCHARACTER2, * bld.c: Remove usage of FFETARGET_okCHARACTER2,
FFETARGET_okCHARACTER3, FFETARGET_okCHARACTER4, FFETARGET_okCHARACTER3, FFETARGET_okCHARACTER4,
FFETARGET_okCHARACTER5, FFETARGET_okCHARACTER6, FFETARGET_okCHARACTER5, FFETARGET_okCHARACTER6,
......
gcc/f/stb.c
This source diff could not be displayed because it is too large. You can view the blob instead.
gcc/f/stb.h
/* stb.h -- Private #include File (module.h template V1.0) /* stb.h -- Private #include File (module.h template V1.0)
Copyright (C) 1995, 1996 Free Software Foundation, Inc. Copyright (C) 1995, 1996, 2003 Free Software Foundation, Inc.
Contributed by James Craig Burley. Contributed by James Craig Burley.
This file is part of GNU Fortran. This file is part of GNU Fortran.
...@@ -79,15 +79,6 @@ struct _ffestb_args_ ...@@ -79,15 +79,6 @@ struct _ffestb_args_
ffeTokenLength len; /* Length of "STOP/PAUSE". */ ffeTokenLength len; /* Length of "STOP/PAUSE". */
} }
halt; halt;
#if FFESTR_F90
struct
{
const char *badname;
ffeTokenLength len; /* Length of "ALLOCATE/DEALLOCATE". */
ffeexprContext ctx; /* Either ALLOCATE or DEALLOCATE. */
}
heap;
#endif
struct struct
{ {
const char *badname; const char *badname;
...@@ -96,22 +87,6 @@ struct _ffestb_args_ ...@@ -96,22 +87,6 @@ struct _ffestb_args_
PRIVATE". */ PRIVATE". */
} }
varlist; varlist;
#if FFESTR_VXT
struct
{
const char *badname;
ffeTokenLength len; /* Length of "ENCODE/DECODE". */
}
vxtcode;
#endif
#if FFESTR_F90
struct
{
const char *badname;
ffeTokenLength len; /* Length of "ALLOCATABLE/POINTER/TARGET". */
}
dimlist;
#endif
struct struct
{ {
const char *badname; const char *badname;
...@@ -150,33 +125,9 @@ ffelexHandler ffestb_endxyz (ffelexToken t); ...@@ -150,33 +125,9 @@ ffelexHandler ffestb_endxyz (ffelexToken t);
ffelexHandler ffestb_decl_gentype (ffelexToken t); ffelexHandler ffestb_decl_gentype (ffelexToken t);
ffelexHandler ffestb_goto (ffelexToken t); ffelexHandler ffestb_goto (ffelexToken t);
ffelexHandler ffestb_halt (ffelexToken t); ffelexHandler ffestb_halt (ffelexToken t);
#if FFESTR_F90
ffelexHandler ffestb_heap (ffelexToken t);
#endif
ffelexHandler ffestb_if (ffelexToken t); ffelexHandler ffestb_if (ffelexToken t);
ffelexHandler ffestb_let (ffelexToken t); ffelexHandler ffestb_let (ffelexToken t);
#if FFESTR_F90
ffelexHandler ffestb_module (ffelexToken t);
#endif
#if FFESTR_F90
ffelexHandler ffestb_decl_recursive (ffelexToken t);
#endif
#if FFESTR_F90
ffelexHandler ffestb_type (ffelexToken t);
#endif
#if FFESTR_F90
ffelexHandler ffestb_decl_typetype (ffelexToken t);
#endif
ffelexHandler ffestb_varlist (ffelexToken t); ffelexHandler ffestb_varlist (ffelexToken t);
#if FFESTR_VXT
ffelexHandler ffestb_vxtcode (ffelexToken t);
#endif
#if FFESTR_F90
ffelexHandler ffestb_where (ffelexToken t);
#endif
#if HARD_F90
ffelexHandler ffestb_R423B (ffelexToken t);
#endif
ffelexHandler ffestb_R522 (ffelexToken t); ffelexHandler ffestb_R522 (ffelexToken t);
ffelexHandler ffestb_R524 (ffelexToken t); ffelexHandler ffestb_R524 (ffelexToken t);
ffelexHandler ffestb_R528 (ffelexToken t); ffelexHandler ffestb_R528 (ffelexToken t);
...@@ -185,9 +136,6 @@ ffelexHandler ffestb_decl_R539 (ffelexToken t); ...@@ -185,9 +136,6 @@ ffelexHandler ffestb_decl_R539 (ffelexToken t);
ffelexHandler ffestb_R542 (ffelexToken t); ffelexHandler ffestb_R542 (ffelexToken t);
ffelexHandler ffestb_R544 (ffelexToken t); ffelexHandler ffestb_R544 (ffelexToken t);
ffelexHandler ffestb_R547 (ffelexToken t); ffelexHandler ffestb_R547 (ffelexToken t);
#if FFESTR_F90
ffelexHandler ffestb_R624 (ffelexToken t);
#endif
ffelexHandler ffestb_R809 (ffelexToken t); ffelexHandler ffestb_R809 (ffelexToken t);
ffelexHandler ffestb_R810 (ffelexToken t); ffelexHandler ffestb_R810 (ffelexToken t);
ffelexHandler ffestb_R834 (ffelexToken t); ffelexHandler ffestb_R834 (ffelexToken t);
...@@ -203,36 +151,12 @@ ffelexHandler ffestb_R911 (ffelexToken t); ...@@ -203,36 +151,12 @@ ffelexHandler ffestb_R911 (ffelexToken t);
ffelexHandler ffestb_R923 (ffelexToken t); ffelexHandler ffestb_R923 (ffelexToken t);
ffelexHandler ffestb_R1001 (ffelexToken t); ffelexHandler ffestb_R1001 (ffelexToken t);
ffelexHandler ffestb_R1102 (ffelexToken t); ffelexHandler ffestb_R1102 (ffelexToken t);
#if FFESTR_F90
ffelexHandler ffestb_R1107 (ffelexToken t);
#endif
#if FFESTR_F90
ffelexHandler ffestb_R1202 (ffelexToken t);
#endif
ffelexHandler ffestb_R1212 (ffelexToken t); ffelexHandler ffestb_R1212 (ffelexToken t);
ffelexHandler ffestb_R1227 (ffelexToken t); ffelexHandler ffestb_R1227 (ffelexToken t);
#if FFESTR_F90
ffelexHandler ffestb_R1228 (ffelexToken t);
#endif
ffelexHandler ffestb_R1229 (ffelexToken t); ffelexHandler ffestb_R1229 (ffelexToken t);
ffelexHandler ffestb_S3P4 (ffelexToken t); ffelexHandler ffestb_S3P4 (ffelexToken t);
#if FFESTR_VXT
ffelexHandler ffestb_V003 (ffelexToken t);
ffelexHandler ffestb_V009 (ffelexToken t);
ffelexHandler ffestb_V012 (ffelexToken t);
#endif
ffelexHandler ffestb_V014 (ffelexToken t); ffelexHandler ffestb_V014 (ffelexToken t);
#if FFESTR_VXT
ffelexHandler ffestb_V016 (ffelexToken t);
ffelexHandler ffestb_V018 (ffelexToken t);
ffelexHandler ffestb_V019 (ffelexToken t);
#endif
ffelexHandler ffestb_V020 (ffelexToken t); ffelexHandler ffestb_V020 (ffelexToken t);
#if FFESTR_VXT
ffelexHandler ffestb_V021 (ffelexToken t);
ffelexHandler ffestb_V025 (ffelexToken t);
ffelexHandler ffestb_V026 (ffelexToken t);
#endif
ffelexHandler ffestb_V027 (ffelexToken t); ffelexHandler ffestb_V027 (ffelexToken t);
/* Define macros. */ /* Define macros. */
......
gcc/f/stc.c
This source diff could not be displayed because it is too large. You can view the blob instead.
gcc/f/stc.h
/* stc.h -- Private #include File (module.h template V1.0) /* stc.h -- Private #include File (module.h template V1.0)
Copyright (C) 1995 Free Software Foundation, Inc. Copyright (C) 1995, 2003 Free Software Foundation, Inc.
Contributed by James Craig Burley. Contributed by James Craig Burley.
This file is part of GNU Fortran. This file is part of GNU Fortran.
...@@ -77,36 +77,8 @@ void ffestc_init_4 (void); ...@@ -77,36 +77,8 @@ void ffestc_init_4 (void);
bool ffestc_is_decl_not_R1219 (void); bool ffestc_is_decl_not_R1219 (void);
bool ffestc_is_entry_in_subr (void); bool ffestc_is_entry_in_subr (void);
bool ffestc_is_let_not_V027 (void); bool ffestc_is_let_not_V027 (void);
#if FFESTR_F90
void ffestc_let (ffebld dest, ffebld source, ffelexToken source_token);
#else
#define ffestc_let ffestc_R737 #define ffestc_let ffestc_R737
#endif
#if FFESTR_F90
void ffestc_module (ffelexToken module_name, ffelexToken procedure_name);
#endif
#if FFESTR_F90
void ffestc_private (void);
#endif
void ffestc_terminate_4 (void); void ffestc_terminate_4 (void);
#if FFESTR_F90
void ffestc_R423A (void);
void ffestc_R423B (void);
void ffestc_R424 (ffelexToken access, ffestrOther access_kw, ffelexToken name);
void ffestc_R425 (ffelexToken name);
void ffestc_R426_start (ffestpType type, ffelexToken typet, ffebld kind,
ffelexToken kindt, ffebld len, ffelexToken lent);
void ffestc_R426_attrib (ffestpAttrib attrib, ffelexToken attribt,
ffestrOther intent_kw, ffesttDimList dims);
void ffestc_R426_item (ffelexToken name, ffebld kind, ffelexToken kindt,
ffesttDimList dims, ffebld len, ffelexToken lent, ffebld init,
ffelexToken initt, bool clist);
void ffestc_R426_itemstartvals (void);
void ffestc_R426_itemvalue (ffebld repeat, ffelexToken repeat_token,
ffebld value, ffelexToken value_token);
void ffestc_R426_itemendvals (ffelexToken t);
void ffestc_R426_finish (void);
#endif
void ffestc_R501_start (ffestpType type, ffelexToken typet, ffebld kind, void ffestc_R501_start (ffestpType type, ffelexToken typet, ffebld kind,
ffelexToken kindt, ffebld len, ffelexToken lent); ffelexToken kindt, ffebld len, ffelexToken lent);
void ffestc_R501_attrib (ffestpAttrib attrib, ffelexToken attribt, void ffestc_R501_attrib (ffestpAttrib attrib, ffelexToken attribt,
...@@ -119,22 +91,6 @@ void ffestc_R501_itemvalue (ffebld repeat, ffelexToken repeat_token, ...@@ -119,22 +91,6 @@ void ffestc_R501_itemvalue (ffebld repeat, ffelexToken repeat_token,
ffebld value, ffelexToken value_token); ffebld value, ffelexToken value_token);
void ffestc_R501_itemendvals (ffelexToken t); void ffestc_R501_itemendvals (ffelexToken t);
void ffestc_R501_finish (void); void ffestc_R501_finish (void);
#if FFESTR_F90
void ffestc_R519_start (ffelexToken intent, ffestrOther intent_kw);
void ffestc_R519_item (ffelexToken name);
void ffestc_R519_finish (void);
void ffestc_R520_start (void);
void ffestc_R520_item (ffelexToken name);
void ffestc_R520_finish (void);
void ffestc_R521A (void);
void ffestc_R521Astart (void);
void ffestc_R521Aitem (ffelexToken name);
void ffestc_R521Afinish (void);
void ffestc_R521B (void);
void ffestc_R521Bstart (void);
void ffestc_R521Bitem (ffelexToken name);
void ffestc_R521Bfinish (void);
#endif
void ffestc_R522 (void); void ffestc_R522 (void);
void ffestc_R522start (void); void ffestc_R522start (void);
void ffestc_R522item_object (ffelexToken name); void ffestc_R522item_object (ffelexToken name);
...@@ -143,17 +99,6 @@ void ffestc_R522finish (void); ...@@ -143,17 +99,6 @@ void ffestc_R522finish (void);
void ffestc_R524_start (bool virtual); void ffestc_R524_start (bool virtual);
void ffestc_R524_item (ffelexToken name, ffesttDimList dims); void ffestc_R524_item (ffelexToken name, ffesttDimList dims);
void ffestc_R524_finish (void); void ffestc_R524_finish (void);
#if FFESTR_F90
void ffestc_R525_start (void);
void ffestc_R525_item (ffelexToken name, ffesttDimList dims);
void ffestc_R525_finish (void);
void ffestc_R526_start (void);
void ffestc_R526_item (ffelexToken name, ffesttDimList dims);
void ffestc_R526_finish (void);
void ffestc_R527_start (void);
void ffestc_R527_item (ffelexToken name, ffesttDimList dims);
void ffestc_R527_finish (void);
#endif
void ffestc_R528_start (void); void ffestc_R528_start (void);
void ffestc_R528_item_object (ffebld expr, ffelexToken expr_token); void ffestc_R528_item_object (ffebld expr, ffelexToken expr_token);
void ffestc_R528_item_startvals (void); void ffestc_R528_item_startvals (void);
...@@ -181,21 +126,7 @@ void ffestc_R547_start (void); ...@@ -181,21 +126,7 @@ void ffestc_R547_start (void);
void ffestc_R547_item_object (ffelexToken name, ffesttDimList dims); void ffestc_R547_item_object (ffelexToken name, ffesttDimList dims);
void ffestc_R547_item_cblock (ffelexToken name); void ffestc_R547_item_cblock (ffelexToken name);
void ffestc_R547_finish (void); void ffestc_R547_finish (void);
#if FFESTR_F90
void ffestc_R620 (ffesttExprList objects, ffebld stat,
ffelexToken stat_token);
void ffestc_R624 (ffesttExprList pointers);
void ffestc_R625 (ffesttExprList objects, ffebld stat,
ffelexToken stat_token);
#endif
void ffestc_R737 (ffebld dest, ffebld source, ffelexToken source_token); void ffestc_R737 (ffebld dest, ffebld source, ffelexToken source_token);
#if FFESTR_F90
void ffestc_R738 (ffebld dest, ffebld source, ffelexToken source_token);
void ffestc_R740 (ffebld expr, ffelexToken expr_token);
void ffestc_R742 (ffebld expr, ffelexToken expr_token);
void ffestc_R744 (void);
void ffestc_R745 (void);
#endif
void ffestc_R803 (ffelexToken construct_name, ffebld expr, void ffestc_R803 (ffelexToken construct_name, ffebld expr,
ffelexToken expr_token); ffelexToken expr_token);
void ffestc_R804 (ffebld expr, ffelexToken expr_token, ffelexToken name); void ffestc_R804 (ffebld expr, ffelexToken expr_token, ffelexToken name);
...@@ -251,22 +182,8 @@ void ffestc_R923B_finish (void); ...@@ -251,22 +182,8 @@ void ffestc_R923B_finish (void);
void ffestc_R1001 (ffesttFormatList f); void ffestc_R1001 (ffesttFormatList f);
void ffestc_R1102 (ffelexToken name); void ffestc_R1102 (ffelexToken name);
void ffestc_R1103 (ffelexToken name); void ffestc_R1103 (ffelexToken name);
#if FFESTR_F90
void ffestc_R1105 (ffelexToken name);
void ffestc_R1106 (ffelexToken name);
void ffestc_R1107_start (ffelexToken name, bool only);
void ffestc_R1107_item (ffelexToken local, ffelexToken use);
void ffestc_R1107_finish (void);
#endif
void ffestc_R1111 (ffelexToken name); void ffestc_R1111 (ffelexToken name);
void ffestc_R1112 (ffelexToken name); void ffestc_R1112 (ffelexToken name);
#if FFESTR_F90
void ffestc_R1202 (ffestpDefinedOperator operator, ffelexToken name);
void ffestc_R1203 (void);
void ffestc_R1205_start (void);
void ffestc_R1205_item (ffelexToken name);
void ffestc_R1205_finish (void);
#endif
void ffestc_R1207_start (void); void ffestc_R1207_start (void);
void ffestc_R1207_item (ffelexToken name); void ffestc_R1207_item (ffelexToken name);
void ffestc_R1207_finish (void); void ffestc_R1207_finish (void);
...@@ -274,9 +191,6 @@ void ffestc_R1208_start (void); ...@@ -274,9 +191,6 @@ void ffestc_R1208_start (void);
void ffestc_R1208_item (ffelexToken name); void ffestc_R1208_item (ffelexToken name);
void ffestc_R1208_finish (void); void ffestc_R1208_finish (void);
void ffestc_R1212 (ffebld expr, ffelexToken expr_token); void ffestc_R1212 (ffebld expr, ffelexToken expr_token);
#if FFESTR_F90
void ffestc_R1213 (ffebld dest, ffebld source, ffelexToken source_token);
#endif
void ffestc_R1219 (ffelexToken funcname, ffesttTokenList args, void ffestc_R1219 (ffelexToken funcname, ffesttTokenList args,
ffelexToken final, ffestpType type, ffebld kind, ffelexToken kindt, ffelexToken final, ffestpType type, ffebld kind, ffelexToken kindt,
ffebld len, ffelexToken lent, ffelexToken recursive, ffelexToken result); ffebld len, ffelexToken lent, ffelexToken recursive, ffelexToken result);
...@@ -287,57 +201,17 @@ void ffestc_R1225 (ffelexToken name); ...@@ -287,57 +201,17 @@ void ffestc_R1225 (ffelexToken name);
void ffestc_R1226 (ffelexToken entryname, ffesttTokenList args, void ffestc_R1226 (ffelexToken entryname, ffesttTokenList args,
ffelexToken final); ffelexToken final);
void ffestc_R1227 (ffebld expr, ffelexToken expr_token); void ffestc_R1227 (ffebld expr, ffelexToken expr_token);
#if FFESTR_F90
void ffestc_R1228 (void);
#endif
void ffestc_R1229_start (ffelexToken name, ffesttTokenList args, void ffestc_R1229_start (ffelexToken name, ffesttTokenList args,
ffelexToken final); ffelexToken final);
void ffestc_R1229_finish (ffebld expr, ffelexToken expr_token); void ffestc_R1229_finish (ffebld expr, ffelexToken expr_token);
void ffestc_S3P4 (ffebld filename, ffelexToken filename_token); void ffestc_S3P4 (ffebld filename, ffelexToken filename_token);
#if FFESTR_VXT
void ffestc_V003_start (ffelexToken structure_name);
void ffestc_V003_item (ffelexToken name, ffesttDimList dims);
void ffestc_V003_finish (void);
void ffestc_V004 (void);
void ffestc_V009 (void);
void ffestc_V010 (void);
void ffestc_V012 (void);
void ffestc_V013 (void);
#endif
void ffestc_V014_start (void); void ffestc_V014_start (void);
void ffestc_V014_item_object (ffelexToken name); void ffestc_V014_item_object (ffelexToken name);
void ffestc_V014_item_cblock (ffelexToken name); void ffestc_V014_item_cblock (ffelexToken name);
void ffestc_V014_finish (void); void ffestc_V014_finish (void);
#if FFESTR_VXT
void ffestc_V016_start (void);
void ffestc_V016_item_structure (ffelexToken name);
void ffestc_V016_item_object (ffelexToken name, ffesttDimList dims);
void ffestc_V016_finish (void);
void ffestc_V018_start (void);
void ffestc_V018_item (ffebld expr, ffelexToken expr_token);
void ffestc_V018_finish (void);
void ffestc_V019_start (void);
void ffestc_V019_item (ffebld expr, ffelexToken expr_token);
void ffestc_V019_finish (void);
#endif
void ffestc_V020_start (void); void ffestc_V020_start (void);
void ffestc_V020_item (ffebld expr, ffelexToken expr_token); void ffestc_V020_item (ffebld expr, ffelexToken expr_token);
void ffestc_V020_finish (void); void ffestc_V020_finish (void);
#if FFESTR_VXT
void ffestc_V021 (void);
void ffestc_V022 (void);
void ffestc_V023_start (void);
void ffestc_V023_item (ffebld expr, ffelexToken expr_token);
void ffestc_V023_finish (void);
void ffestc_V024_start (void);
void ffestc_V024_item (ffebld expr, ffelexToken expr_token);
void ffestc_V024_finish (void);
void ffestc_V025_start (void);
void ffestc_V025_item (ffebld u, ffelexToken ut, ffebld m, ffelexToken mt,
ffebld n, ffelexToken nt, ffebld asv, ffelexToken asvt);
void ffestc_V025_finish (void);
void ffestc_V026 (void);
#endif
void ffestc_V027_start (void); void ffestc_V027_start (void);
void ffestc_V027_item (ffelexToken dest_token, ffebld source, void ffestc_V027_item (ffelexToken dest_token, ffebld source,
ffelexToken source_token); ffelexToken source_token);
......
gcc/f/std.c
This source diff could not be displayed because it is too large. You can view the blob instead.
gcc/f/std.h
/* std.h -- Private #include File (module.h template V1.0) /* std.h -- Private #include File (module.h template V1.0)
Copyright (C) 1995 Free Software Foundation, Inc. Copyright (C) 1995, 2003 Free Software Foundation, Inc.
Contributed by James Craig Burley. Contributed by James Craig Burley.
This file is part of GNU Fortran. This file is part of GNU Fortran.
...@@ -58,10 +58,6 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA ...@@ -58,10 +58,6 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
void ffestd_begin_uses (void); void ffestd_begin_uses (void);
void ffestd_do (bool ok); void ffestd_do (bool ok);
#if FFESTR_F90
void ffestd_end_uses (bool ok);
void ffestd_end_R740 (bool ok);
#endif
void ffestd_end_R807 (bool ok); void ffestd_end_R807 (bool ok);
void ffestd_exec_begin (void); void ffestd_exec_begin (void);
void ffestd_exec_end (void); void ffestd_exec_end (void);
...@@ -70,26 +66,6 @@ void ffestd_labeldef_any (ffelab label); ...@@ -70,26 +66,6 @@ void ffestd_labeldef_any (ffelab label);
void ffestd_labeldef_branch (ffelab label); void ffestd_labeldef_branch (ffelab label);
void ffestd_labeldef_format (ffelab label); void ffestd_labeldef_format (ffelab label);
void ffestd_labeldef_useless (ffelab label); void ffestd_labeldef_useless (ffelab label);
#if FFESTR_F90
void ffestd_R423A (void);
void ffestd_R423B (void);
void ffestd_R424 (ffelexToken access, ffestrOther access_kw, ffelexToken name);
void ffestd_R425 (bool ok);
void ffestd_R519_start (ffestrOther intent_kw);
void ffestd_R519_item (ffelexToken name);
void ffestd_R519_finish (void);
void ffestd_R520_start (void);
void ffestd_R520_item (ffelexToken name);
void ffestd_R520_finish (void);
void ffestd_R521A (void);
void ffestd_R521Astart (void);
void ffestd_R521Aitem (ffelexToken name);
void ffestd_R521Afinish (void);
void ffestd_R521B (void);
void ffestd_R521Bstart (void);
void ffestd_R521Bitem (ffelexToken name);
void ffestd_R521Bfinish (void);
#endif
void ffestd_R522 (void); void ffestd_R522 (void);
void ffestd_R522start (void); void ffestd_R522start (void);
void ffestd_R522item_object (ffelexToken name); void ffestd_R522item_object (ffelexToken name);
...@@ -98,17 +74,6 @@ void ffestd_R522finish (void); ...@@ -98,17 +74,6 @@ void ffestd_R522finish (void);
void ffestd_R524_start (bool virtual); void ffestd_R524_start (bool virtual);
void ffestd_R524_item (ffelexToken name, ffesttDimList dims); void ffestd_R524_item (ffelexToken name, ffesttDimList dims);
void ffestd_R524_finish (void); void ffestd_R524_finish (void);
#if FFESTR_F90
void ffestd_R525_start (void);
void ffestd_R525_item (ffelexToken name, ffesttDimList dims);
void ffestd_R525_finish (void);
void ffestd_R526_start (void);
void ffestd_R526_item (ffelexToken name, ffesttDimList dims);
void ffestd_R526_finish (void);
void ffestd_R527_start (void);
void ffestd_R527_item (ffelexToken name, ffesttDimList dims);
void ffestd_R527_finish (void);
#endif
void ffestd_R537_start (void); void ffestd_R537_start (void);
void ffestd_R537_item (ffebld dest, ffebld source); void ffestd_R537_item (ffebld dest, ffebld source);
void ffestd_R537_finish (void); void ffestd_R537_finish (void);
...@@ -128,20 +93,7 @@ void ffestd_R547_start (void); ...@@ -128,20 +93,7 @@ void ffestd_R547_start (void);
void ffestd_R547_item_object (ffelexToken name, ffesttDimList dims); void ffestd_R547_item_object (ffelexToken name, ffesttDimList dims);
void ffestd_R547_item_cblock (ffelexToken name); void ffestd_R547_item_cblock (ffelexToken name);
void ffestd_R547_finish (void); void ffestd_R547_finish (void);
#if FFESTR_F90
void ffestd_R620 (ffesttExprList exprlist, ffebld stat);
void ffestd_R624 (ffesttExprList pointers);
void ffestd_R625 (ffesttExprList exprlist, ffebld stat);
#endif
void ffestd_R737A (ffebld dest, ffebld source); void ffestd_R737A (ffebld dest, ffebld source);
#if FFESTR_F90
void ffestd_R737B (ffebld dest, ffebld source);
void ffestd_R738 (ffebld dest, ffebld source);
void ffestd_R740 (ffebld expr);
void ffestd_R742 (ffebld expr);
void ffestd_R744 (void);
void ffestd_R745 (bool ok);
#endif
void ffestd_R803 (ffelexToken construct_name, ffebld expr); void ffestd_R803 (ffelexToken construct_name, ffebld expr);
void ffestd_R804 (ffebld expr, ffelexToken name); void ffestd_R804 (ffebld expr, ffelexToken name);
void ffestd_R805 (ffelexToken name); void ffestd_R805 (ffelexToken name);
...@@ -188,22 +140,8 @@ void ffestd_R923B_finish (void); ...@@ -188,22 +140,8 @@ void ffestd_R923B_finish (void);
void ffestd_R1001 (ffesttFormatList f); void ffestd_R1001 (ffesttFormatList f);
void ffestd_R1102 (ffesymbol s, ffelexToken name); void ffestd_R1102 (ffesymbol s, ffelexToken name);
void ffestd_R1103 (bool ok); void ffestd_R1103 (bool ok);
#if FFESTR_F90
void ffestd_R1105 (ffelexToken name);
void ffestd_R1106 (bool ok);
void ffestd_R1107_start (ffelexToken name, bool only);
void ffestd_R1107_item (ffelexToken local, ffelexToken use);
void ffestd_R1107_finish (void);
#endif
void ffestd_R1111 (ffesymbol s, ffelexToken name); void ffestd_R1111 (ffesymbol s, ffelexToken name);
void ffestd_R1112 (bool ok); void ffestd_R1112 (bool ok);
#if FFESTR_F90
void ffestd_R1202 (ffestpDefinedOperator operator, ffelexToken name);
void ffestd_R1203 (bool ok);
void ffestd_R1205_start (void);
void ffestd_R1205_item (ffelexToken name);
void ffestd_R1205_finish (void);
#endif
void ffestd_R1207_start (void); void ffestd_R1207_start (void);
void ffestd_R1207_item (ffelexToken name); void ffestd_R1207_item (ffelexToken name);
void ffestd_R1207_finish (void); void ffestd_R1207_finish (void);
...@@ -211,9 +149,6 @@ void ffestd_R1208_start (void); ...@@ -211,9 +149,6 @@ void ffestd_R1208_start (void);
void ffestd_R1208_item (ffelexToken name); void ffestd_R1208_item (ffelexToken name);
void ffestd_R1208_finish (void); void ffestd_R1208_finish (void);
void ffestd_R1212 (ffebld expr); void ffestd_R1212 (ffebld expr);
#if FFESTR_F90
void ffestd_R1213 (ffebld dest, ffebld source);
#endif
void ffestd_R1219 (ffesymbol s, ffelexToken funcname, void ffestd_R1219 (ffesymbol s, ffelexToken funcname,
ffesttTokenList args, ffestpType type, ffebld kind, ffesttTokenList args, ffestpType type, ffebld kind,
ffelexToken kindt, ffebld len, ffelexToken lent, ffelexToken kindt, ffebld len, ffelexToken lent,
...@@ -225,55 +160,16 @@ void ffestd_R1223 (ffesymbol s, ffelexToken subrname, ffesttTokenList args, ...@@ -225,55 +160,16 @@ void ffestd_R1223 (ffesymbol s, ffelexToken subrname, ffesttTokenList args,
void ffestd_R1225 (bool ok); void ffestd_R1225 (bool ok);
void ffestd_R1226 (ffesymbol entry); void ffestd_R1226 (ffesymbol entry);
void ffestd_R1227 (ffebld expr); void ffestd_R1227 (ffebld expr);
#if FFESTR_F90
void ffestd_R1228 (void);
#endif
void ffestd_R1229_start (ffelexToken name, ffesttTokenList args); void ffestd_R1229_start (ffelexToken name, ffesttTokenList args);
void ffestd_R1229_finish (ffesymbol s); void ffestd_R1229_finish (ffesymbol s);
void ffestd_S3P4 (ffebld filename); void ffestd_S3P4 (ffebld filename);
#if FFESTR_VXT
void ffestd_V003_start (ffelexToken structure_name);
void ffestd_V003_item (ffelexToken name, ffesttDimList dims);
void ffestd_V003_finish (void);
void ffestd_V004 (bool ok);
void ffestd_V009 (void);
void ffestd_V010 (bool ok);
void ffestd_V012 (void);
void ffestd_V013 (bool ok);
#endif
void ffestd_V014_start (void); void ffestd_V014_start (void);
void ffestd_V014_item_object (ffelexToken name); void ffestd_V014_item_object (ffelexToken name);
void ffestd_V014_item_cblock (ffelexToken name); void ffestd_V014_item_cblock (ffelexToken name);
void ffestd_V014_finish (void); void ffestd_V014_finish (void);
#if FFESTR_VXT
void ffestd_V016_start (void);
void ffestd_V016_item_structure (ffelexToken name);
void ffestd_V016_item_object (ffelexToken name, ffesttDimList dims);
void ffestd_V016_finish (void);
void ffestd_V018_start (ffestvFormat format);
void ffestd_V018_item (ffebld expr);
void ffestd_V018_finish (void);
void ffestd_V019_start (ffestvFormat format);
void ffestd_V019_item (ffebld expr);
void ffestd_V019_finish (void);
#endif
void ffestd_V020_start (ffestvFormat format); void ffestd_V020_start (ffestvFormat format);
void ffestd_V020_item (ffebld expr); void ffestd_V020_item (ffebld expr);
void ffestd_V020_finish (void); void ffestd_V020_finish (void);
#if FFESTR_VXT
void ffestd_V021 (void);
void ffestd_V022 (void);
void ffestd_V023_start (void);
void ffestd_V023_item (ffebld expr);
void ffestd_V023_finish (void);
void ffestd_V024_start (void);
void ffestd_V024_item (ffebld expr);
void ffestd_V024_finish (void);
void ffestd_V025_start (void);
void ffestd_V025_item (ffebld u, ffebld m, ffebld n, ffebld asv);
void ffestd_V025_finish (void);
void ffestd_V026 (void);
#endif
void ffestd_V027_start (void); void ffestd_V027_start (void);
void ffestd_V027_item (ffelexToken dest_token, ffebld source); void ffestd_V027_item (ffelexToken dest_token, ffebld source);
void ffestd_V027_finish (void); void ffestd_V027_finish (void);
......
gcc/f/ste.c
...@@ -4436,54 +4436,6 @@ ffeste_R1227 (ffestw block UNUSED, ffebld expr) ...@@ -4436,54 +4436,6 @@ ffeste_R1227 (ffestw block UNUSED, ffebld expr)
/* REWRITE statement -- start. */ /* REWRITE statement -- start. */
#if FFESTR_VXT
void
ffeste_V018_start (ffestpRewriteStmt *info, ffestvFormat format)
{
ffeste_check_start_ ();
}
/* REWRITE statement -- I/O item. */
void
ffeste_V018_item (ffebld expr)
{
ffeste_check_item_ ();
}
/* REWRITE statement -- end. */
void
ffeste_V018_finish ()
{
ffeste_check_finish_ ();
}
/* ACCEPT statement -- start. */
void
ffeste_V019_start (ffestpAcceptStmt *info, ffestvFormat format)
{
ffeste_check_start_ ();
}
/* ACCEPT statement -- I/O item. */
void
ffeste_V019_item (ffebld expr)
{
ffeste_check_item_ ();
}
/* ACCEPT statement -- end. */
void
ffeste_V019_finish ()
{
ffeste_check_finish_ ();
}
#endif
/* TYPE statement -- start. */ /* TYPE statement -- start. */
void void
...@@ -4511,102 +4463,6 @@ ffeste_V020_finish () ...@@ -4511,102 +4463,6 @@ ffeste_V020_finish ()
/* DELETE statement. */ /* DELETE statement. */
#if FFESTR_VXT
void
ffeste_V021 (ffestpDeleteStmt *info)
{
ffeste_check_simple_ ();
}
/* UNLOCK statement. */
void
ffeste_V022 (ffestpBeruStmt *info)
{
ffeste_check_simple_ ();
}
/* ENCODE statement -- start. */
void
ffeste_V023_start (ffestpVxtcodeStmt *info)
{
ffeste_check_start_ ();
}
/* ENCODE statement -- I/O item. */
void
ffeste_V023_item (ffebld expr)
{
ffeste_check_item_ ();
}
/* ENCODE statement -- end. */
void
ffeste_V023_finish ()
{
ffeste_check_finish_ ();
}
/* DECODE statement -- start. */
void
ffeste_V024_start (ffestpVxtcodeStmt *info)
{
ffeste_check_start_ ();
}
/* DECODE statement -- I/O item. */
void
ffeste_V024_item (ffebld expr)
{
ffeste_check_item_ ();
}
/* DECODE statement -- end. */
void
ffeste_V024_finish ()
{
ffeste_check_finish_ ();
}
/* DEFINEFILE statement -- start. */
void
ffeste_V025_start ()
{
ffeste_check_start_ ();
}
/* DEFINE FILE statement -- item. */
void
ffeste_V025_item (ffebld u, ffebld m, ffebld n, ffebld asv)
{
ffeste_check_item_ ();
}
/* DEFINE FILE statement -- end. */
void
ffeste_V025_finish ()
{
ffeste_check_finish_ ();
}
/* FIND statement. */
void
ffeste_V026 (ffestpFindStmt *info)
{
ffeste_check_simple_ ();
}
#endif
#ifdef ENABLE_CHECKING #ifdef ENABLE_CHECKING
void void
......
gcc/f/ste.h
...@@ -114,31 +114,9 @@ void ffeste_R1221 (void); ...@@ -114,31 +114,9 @@ void ffeste_R1221 (void);
void ffeste_R1225 (void); void ffeste_R1225 (void);
void ffeste_R1226 (ffesymbol entry); void ffeste_R1226 (ffesymbol entry);
void ffeste_R1227 (ffestw block, ffebld expr); void ffeste_R1227 (ffestw block, ffebld expr);
#if FFESTR_VXT
void ffeste_V018_start (ffestpRewriteStmt *info, ffestvFormat format);
void ffeste_V018_item (ffebld expr);
void ffeste_V018_finish (void);
void ffeste_V019_start (ffestpAcceptStmt *info, ffestvFormat format);
void ffeste_V019_item (ffebld expr);
void ffeste_V019_finish (void);
#endif
void ffeste_V020_start (ffestpTypeStmt *info, ffestvFormat format); void ffeste_V020_start (ffestpTypeStmt *info, ffestvFormat format);
void ffeste_V020_item (ffebld expr); void ffeste_V020_item (ffebld expr);
void ffeste_V020_finish (void); void ffeste_V020_finish (void);
#if FFESTR_VXT
void ffeste_V021 (ffestpDeleteStmt *info);
void ffeste_V022 (ffestpBeruStmt *info);
void ffeste_V023_start (ffestpVxtcodeStmt *info);
void ffeste_V023_item (ffebld expr);
void ffeste_V023_finish (void);
void ffeste_V024_start (ffestpVxtcodeStmt *info);
void ffeste_V024_item (ffebld expr);
void ffeste_V024_finish (void);
void ffeste_V025_start (void);
void ffeste_V025_item (ffebld u, ffebld m, ffebld n, ffebld asv);
void ffeste_V025_finish (void);
void ffeste_V026 (ffestpFindStmt *info);
#endif
/* Define macros. */ /* Define macros. */
......
gcc/f/str.h
/* str.h -- Private #include File (module.h template V1.0) /* str.h -- Private #include File (module.h template V1.0)
Copyright (C) 1995 Free Software Foundation, Inc. Copyright (C) 1995, 2003 Free Software Foundation, Inc.
Contributed by James Craig Burley. Contributed by James Craig Burley.
This file is part of GNU Fortran. This file is part of GNU Fortran.
...@@ -30,11 +30,6 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA ...@@ -30,11 +30,6 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
#ifndef GCC_F_STR_H #ifndef GCC_F_STR_H
#define GCC_F_STR_H #define GCC_F_STR_H
/* Simple definitions and enumerations. */
#define FFESTR_F90 0 /* Unsupported F90 stuff. */
#define FFESTR_VXT 0 /* Unsupported VXT stuff. */
/* Typedefs. */ /* Typedefs. */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment