Daily bump.

[pf3gnuchains/gcc-fork.git] / gcc / f / stt.c

diff --git a/gcc/f/stt.c b/gcc/f/stt.c
index aceb6ad..c48a505 100644 (file)
--- a/gcc/f/stt.c
+++ b/gcc/f/stt.c
@@ -1,6 +1,6 @@
 /* stt.c -- Implementation File (module.c template V1.0)
    Copyright (C) 1995, 1997 Free Software Foundation, Inc.
-   Contributed by James Craig Burley (burley@gnu.org).
+   Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
 
@@ -114,33 +114,6 @@ ffestt_caselist_create ()
   return new;
 }
 
-/* ffestt_caselist_dump -- Dump list of cases
-
-   ffesttCaseList list;
-   ffestt_caselist_dump(list);
-
-   The cases in the list are dumped with commas separating them.  */
-
-void
-ffestt_caselist_dump (ffesttCaseList list)
-{
-  ffesttCaseList next;
-
-  for (next = list->next; next != list; next = next->next)
-    {
-      if (next != list->next)
-       fputc (',', dmpout);
-      if (next->expr1 != NULL)
-       ffebld_dump (next->expr1);
-      if (next->range)
-       {
-         fputc (':', dmpout);
-         if (next->expr2 != NULL)
-           ffebld_dump (next->expr2);
-       }
-    }
-}
-
 /* ffestt_caselist_kill -- Kill list of cases
 
    ffesttCaseList list;
@@ -436,30 +409,6 @@ ffestt_dimlist_create ()
   return new;
 }
 
-/* ffestt_dimlist_dump -- Dump list of dims
-
-   ffesttDimList list;
-   ffestt_dimlist_dump(list);
-
-   The dims in the list are dumped with commas separating them.         */
-
-void
-ffestt_dimlist_dump (ffesttDimList list)
-{
-  ffesttDimList next;
-
-  for (next = list->next; next != list; next = next->next)
-    {
-      if (next != list->next)
-       fputc (',', dmpout);
-      if (next->lower != NULL)
-       ffebld_dump (next->lower);
-      fputc (':', dmpout);
-      if (next->upper != NULL)
-       ffebld_dump (next->upper);
-    }
-}
-
 /* ffestt_dimlist_kill -- Kill list of dims
 
    ffesttDimList list;
@@ -594,7 +543,7 @@ ffestt_exprlist_create ()
    at a time.  */
 
 void
-ffestt_exprlist_drive (ffesttExprList list, void (*fn) ())
+ffestt_exprlist_drive (ffesttExprList list, void (*fn) (ffebld, ffelexToken))
 {
   ffesttExprList next;
 
@@ -607,26 +556,6 @@ ffestt_exprlist_drive (ffesttExprList list, void (*fn) ())
     }
 }
 
-/* ffestt_exprlist_dump -- Dump list of exprs
-
-   ffesttExprList list;
-   ffestt_exprlist_dump(list);
-
-   The exprs in the list are dumped with commas separating them.  */
-
-void
-ffestt_exprlist_dump (ffesttExprList list)
-{
-  ffesttExprList next;
-
-  for (next = list->next; next != list; next = next->next)
-    {
-      if (next != list->next)
-       fputc (',', dmpout);
-      ffebld_dump (next->expr);
-    }
-}
-
 /* ffestt_exprlist_kill -- Kill list of exprs
 
    ffesttExprList list;
@@ -831,7 +760,7 @@ ffestt_implist_create ()
    The token pairs in the list are passed to the function one pair at a time.  */
 
 void
-ffestt_implist_drive (ffesttImpList list, void (*fn) ())
+ffestt_implist_drive (ffesttImpList list, void (*fn) (ffelexToken, ffelexToken))
 {
   ffesttImpList next;
 
@@ -844,33 +773,6 @@ ffestt_implist_drive (ffesttImpList list, void (*fn) ())
     }
 }
 
-/* ffestt_implist_dump -- Dump list of token pairs
-
-   ffesttImpList list;
-   ffestt_implist_dump(list);
-
-   The token pairs in the list are dumped with commas separating them. */
-
-void
-ffestt_implist_dump (ffesttImpList list)
-{
-  ffesttImpList next;
-
-  for (next = list->next; next != list; next = next->next)
-    {
-      if (next != list->next)
-       fputc (',', dmpout);
-      assert (ffelex_token_type (next->first) == FFELEX_typeNAME);
-      fputs (ffelex_token_text (next->first), dmpout);
-      if (next->last != NULL)
-       {
-         fputc ('-', dmpout);
-         assert (ffelex_token_type (next->last) == FFELEX_typeNAME);
-         fputs (ffelex_token_text (next->last), dmpout);
-       }
-    }
-}
-
 /* ffestt_implist_kill -- Kill list of token pairs
 
    ffesttImpList list;
@@ -934,7 +836,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);
@@ -943,7 +845,7 @@ ffestt_tokenlist_create ()
    The tokens in the list are passed to the given function.  */
 
 void
-ffestt_tokenlist_drive (ffesttTokenList tl, void (*fn) ())
+ffestt_tokenlist_drive (ffesttTokenList tl, void (*fn) (ffelexToken))
 {
   ffesttTokenItem ti;
 
@@ -956,42 +858,6 @@ ffestt_tokenlist_drive (ffesttTokenList tl, void (*fn) ())
     }
 }
 
-/* ffestt_tokenlist_dump -- Dump list of tokens
-
-   ffesttTokenList tl;
-   ffestt_tokenlist_dump(tl);
-
-   The tokens in the list are dumped with commas separating them.  */
-
-void
-ffestt_tokenlist_dump (ffesttTokenList tl)
-{
-  ffesttTokenItem ti;
-
-  for (ti = tl->first; ti != (ffesttTokenItem) &tl->first; ti = ti->next)
-    {
-      if (ti != tl->first)
-       fputc (',', dmpout);
-      switch (ffelex_token_type (ti->t))
-       {
-       case FFELEX_typeNUMBER:
-       case FFELEX_typeNAME:
-       case FFELEX_typeNAMES:
-         fputs (ffelex_token_text (ti->t), dmpout);
-         break;
-
-       case FFELEX_typeASTERISK:
-         fputc ('*', dmpout);
-         break;
-
-       default:
-         assert (FALSE);
-         fputc ('?', dmpout);
-         break;
-       }
-    }
-}
-
 /* ffestt_tokenlist_handle -- Handle list of tokens
 
    ffesttTokenList tl;