diff options
| author | Hans-Peter Nilsson <hp@bitrange.com> | 2002-08-22 02:20:43 +0000 |
|---|---|---|
| committer | Hans-Peter Nilsson <hp@gcc.gnu.org> | 2002-08-22 02:20:43 +0000 |
| commit | d7704f76d244390ff0867b4371ff5201a9d95c0c (patch) | |
| tree | cce6268d2a07aba745d731ecbaad376287a3b9a3 /gcc/f/lex.c | |
| parent | 44ddc79ad21811b041b844053fe1c6111ba7d075 (diff) | |
| download | gcc-d7704f76d244390ff0867b4371ff5201a9d95c0c.zip gcc-d7704f76d244390ff0867b4371ff5201a9d95c0c.tar.gz gcc-d7704f76d244390ff0867b4371ff5201a9d95c0c.tar.bz2 | |
where.h (struct _ffewhere_file_): Mark GTY.
* where.h (struct _ffewhere_file_): Mark GTY.
(ffewhere_file_kill): Remove prototype.
* where.c: Include ggc.h.
(struct _ffewhere_ll_, struct _ffewhere_root_ll_): Mark GTY.
(ffewhere_root_ll_): Ditto. Change type from struct
_ffewhere_root_ll_ to struct _ffewhere_root_ll_*. All uses
changed.
(ffewhere_file_kill): Remove.
(ffewhere_file_new): Use GC to allocate ffewhereFile objects.
(ffewhere_file_set): Use GC to allocate ffewhereLL_ objects.
(ffewhere_init_1): Use GC to allocate ffewhere_root_ll_ sentinel.
Include gt-f-where.h.
* lex.c (ffelex_current_wf_, ffelex_include_wherefile_): Mark GTY.
Include gt-f-lex.h.
* std.c (ffestd_S3P4): Don't call ffewhere_file_kill.
* config-lang.in (gtfiles): Add f/where.h f/where.c and f/lex.c.
* Make-lang.in (gt-f-lex.h gt-f-where.h): Add to dependents of
s-gtype.
(f/lex.o): Depend on gt-f-lex.h.
(f/where.o): Depend on gt-f-where.h.
From-SVN: r56502
Diffstat (limited to 'gcc/f/lex.c')
| -rw-r--r-- | gcc/f/lex.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/f/lex.c b/gcc/f/lex.c index b3e57ba..6d065dd 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -93,7 +93,7 @@ static ffelexType ffelex_first_char_[256]; /* The wf argument of the most recent active ffelex_file_(fixed,free) function. */ -static ffewhereFile ffelex_current_wf_; +static GTY (()) ffewhereFile ffelex_current_wf_; /* TRUE if an INCLUDE statement can be processed (ffelex_set_include can be called). */ @@ -106,7 +106,7 @@ static bool ffelex_set_include_; /* Information on the pending INCLUDE file. */ static FILE *ffelex_include_file_; static bool ffelex_include_free_form_; -static ffewhereFile ffelex_include_wherefile_; +static GTY(()) ffewhereFile ffelex_include_wherefile_; /* Current master line count. */ static ffewhereLineNumber ffelex_linecount_current_; @@ -4634,3 +4634,5 @@ ffelex_token_use (ffelexToken t) t->uses++; return t; } + +#include "gt-f-lex.h" |