diff options
Diffstat (limited to 'contrib/gcc/f/lab.c')
| -rw-r--r-- | contrib/gcc/f/lab.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/contrib/gcc/f/lab.c b/contrib/gcc/f/lab.c index a870a7f..1d27874 100644 --- a/contrib/gcc/f/lab.c +++ b/contrib/gcc/f/lab.c @@ -1,5 +1,5 @@ /* lab.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -94,7 +94,7 @@ ffelab_find (ffelabValue v) Kill all the labels on the list. */ void -ffelab_finish () +ffelab_finish (void) { ffelab l; ffelab pl; @@ -115,7 +115,7 @@ ffelab_finish () unit is going to be processed. */ void -ffelab_init_3 () +ffelab_init_3 (void) { ffelab_list_ = NULL; ffelab_num_news_ = 0; @@ -141,11 +141,9 @@ ffelab_new (ffelabValue v) ffelab l; ++ffelab_num_news_; - l = (ffelab) malloc_new_ks (ffe_pool_any_unit (), "FFELAB label", sizeof (*l)); + l = malloc_new_ks (ffe_pool_any_unit (), "FFELAB label", sizeof (*l)); l->next = ffelab_list_; -#ifdef FFECOM_labelHOOK l->hook = FFECOM_labelNULL; -#endif l->value = v; l->firstref_line = ffewhere_line_unknown (); l->firstref_col = ffewhere_column_unknown (); |
