summaryrefslogtreecommitdiff
path: root/gcc/f/stt.c
diff options
context:
space:
mode:
authorfx <fx@138bc75d-0d04-0410-961f-82ee72b054a4>1998-06-16 02:23:44 +0000
committerfx <fx@138bc75d-0d04-0410-961f-82ee72b054a4>1998-06-16 02:23:44 +0000
commit502325edbf50cf753ccd3defe38cfad8f4465d7e (patch)
treec5d64b68c6b98dba2288a4954b8f7a54c140001e /gcc/f/stt.c
parent80158a86ecfc35826bb2298fd46fd18cdaaad616 (diff)
downloadgcc-502325edbf50cf753ccd3defe38cfad8f4465d7e.tar.gz
Mon Jun 15 22:21:57 1998 Craig Burley <burley@gnu.org>
Cutover to system.h: * Make-lang.in: * Makefile.in: * ansify.c: * bad.c: * bld.c: * com.c: * com.h: * expr.c: * fini.c: * g77spec.c: * implic.c: * intdoc.c: * intrin.c: * lex.c: * lex.h: * parse.c: * proj.c: * proj.h: * src.c: * src.h: * stb.c: * ste.c: * target.c: * top.c: * system.j: New file. Use toplev.h where appropriate: * Make-lang.in: * Makefile.in: * bad.c: * bld.c: * com.c: * lex.c: * ste.c: * top.c: * toplev.j: New file. Conditionalize all dumping/reporting routines so they don't get built for gcc/egcs: * bld.c: * bld.h: * com.c: * equiv.c: * equiv.h: * sta.c: * stt.c: * stt.h: * symbol.c: * symbol.h: Use hconfig.h instead of config.h where appropriate: * Makefile.in (proj-h.o): Compile with -DUSE_HCONFIG. * fini.c: Define USE_HCONFIG before including proj.h. * Makefile.in (deps-kinda): Redirect stderr to stdout, to eliminate diagnostics vis-a-vis g77spec.c. * Makefile.in: Regenerate dependencies via deps-kinda. * lex.c (ffelex_file_fixed, ffelex_file_free): Eliminate apparently spurious warnings about uninitialized variables `c', `column', and so on. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@20520 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/f/stt.c')
-rw-r--r--gcc/f/stt.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/gcc/f/stt.c b/gcc/f/stt.c
index aceb6ad2fa6..d2db3798a3d 100644
--- a/gcc/f/stt.c
+++ b/gcc/f/stt.c
@@ -121,6 +121,7 @@ ffestt_caselist_create ()
The cases in the list are dumped with commas separating them. */
+#if FFECOM_targetCURRENT == FFECOM_targetFFE
void
ffestt_caselist_dump (ffesttCaseList list)
{
@@ -140,6 +141,7 @@ ffestt_caselist_dump (ffesttCaseList list)
}
}
}
+#endif
/* ffestt_caselist_kill -- Kill list of cases
@@ -443,6 +445,7 @@ ffestt_dimlist_create ()
The dims in the list are dumped with commas separating them. */
+#if FFECOM_targetCURRENT == FFECOM_targetFFE
void
ffestt_dimlist_dump (ffesttDimList list)
{
@@ -459,6 +462,7 @@ ffestt_dimlist_dump (ffesttDimList list)
ffebld_dump (next->upper);
}
}
+#endif
/* ffestt_dimlist_kill -- Kill list of dims
@@ -614,6 +618,7 @@ ffestt_exprlist_drive (ffesttExprList list, void (*fn) ())
The exprs in the list are dumped with commas separating them. */
+#if FFECOM_targetCURRENT == FFECOM_targetFFE
void
ffestt_exprlist_dump (ffesttExprList list)
{
@@ -626,6 +631,7 @@ ffestt_exprlist_dump (ffesttExprList list)
ffebld_dump (next->expr);
}
}
+#endif
/* ffestt_exprlist_kill -- Kill list of exprs
@@ -851,6 +857,7 @@ ffestt_implist_drive (ffesttImpList list, void (*fn) ())
The token pairs in the list are dumped with commas separating them. */
+#if FFECOM_targetCURRENT == FFECOM_targetFFE
void
ffestt_implist_dump (ffesttImpList list)
{
@@ -870,6 +877,7 @@ ffestt_implist_dump (ffesttImpList list)
}
}
}
+#endif
/* ffestt_implist_kill -- Kill list of token pairs
@@ -934,7 +942,7 @@ ffestt_tokenlist_create ()
return tl;
}
-/* ffestt_tokenlist_drive -- Dump list of tokens
+/* ffestt_tokenlist_drive -- Drive list of tokens
ffesttTokenList tl;
void fn(ffelexToken t);
@@ -963,6 +971,7 @@ ffestt_tokenlist_drive (ffesttTokenList tl, void (*fn) ())
The tokens in the list are dumped with commas separating them. */
+#if FFECOM_targetCURRENT == FFECOM_targetFFE
void
ffestt_tokenlist_dump (ffesttTokenList tl)
{
@@ -991,6 +1000,7 @@ ffestt_tokenlist_dump (ffesttTokenList tl)
}
}
}
+#endif
/* ffestt_tokenlist_handle -- Handle list of tokens