From e3f1699f5554776a9211b410f3ebdaa6120e62df Mon Sep 17 00:00:00 2001 From: Akim Demaille Date: Mon, 5 Nov 2001 14:19:29 +0000 Subject: [PATCH] * src/reader.c (symbols_output): New, extracted from... (packsymbols): here. (reader): Adjust. --- ChangeLog | 6 ++++++ src/reader.c | 24 +++++++++++++++++------- 2 files changed, 23 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index c0b7ebe5..6f8a7942 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2001-11-05 Akim Demaille + + * src/reader.c (symbols_output): New, extracted from... + (packsymbols): here. + (reader): Adjust. + 2001-11-05 Akim Demaille * src/lex.c (parse_percent_token): s/quotearg/quote/. diff --git a/src/reader.c b/src/reader.c index bf6eef0d..03c0d311 100644 --- a/src/reader.c +++ b/src/reader.c @@ -1832,6 +1832,22 @@ packsymbols (void) error_token_number = errtoken->value; + if (startval->class == unknown_sym) + fatal (_("the start symbol %s is undefined"), startval->tag); + else if (startval->class == token_sym) + fatal (_("the start symbol %s is a token"), startval->tag); + + start_symbol = startval->value; +} + + +/*-----------------------------------. +| Output definition of token names. | +`-----------------------------------*/ + +static void +symbols_output (void) +{ { struct obstack tokendefs; obstack_init (&tokendefs); @@ -1846,13 +1862,6 @@ packsymbols (void) output_token_defines (&table_obstack); #endif - if (startval->class == unknown_sym) - fatal (_("the start symbol %s is undefined"), startval->tag); - else if (startval->class == token_sym) - fatal (_("the start symbol %s is a token"), startval->tag); - - start_symbol = startval->value; - if (defines_flag) { output_token_defines (&defines_obstack); @@ -2020,6 +2029,7 @@ reader (void) /* Assign the symbols their symbol numbers. Write #defines for the token symbols into FDEFINES if requested. */ packsymbols (); + symbols_output (); /* Convert the grammar into the format described in gram.h. */ packgram (); } -- 2.47.2