From d7704f76d244390ff0867b4371ff5201a9d95c0c Mon Sep 17 00:00:00 2001 From: Hans-Peter Nilsson Date: Thu, 22 Aug 2002 02:20:43 +0000 Subject: 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 --- gcc/f/lex.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gcc/f/lex.c') 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" -- cgit v1.1