2005-09-23 Rafael ��vila de Esp��ndola <rafael.espindola@gmail.com>

        * parse.y : Changed pointer declaration from "type* var" to "type *var"
        Removed trailing space.  Wrap long lines.

2005-09-23  Rafael ��vila de Esp��ndola  <rafael.espindola@gmail.com>

        * parse.y :  Fixed two compile warnings in "error" and "warning"
        invocations.  Removed trailing periods in messages.  Decapitalized the
        first word of each.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104569 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/treelang/ChangeLog b/gcc/treelang/ChangeLog
index 46f8872..4505683 100644 (file)
--- a/gcc/treelang/ChangeLog
+++ b/gcc/treelang/ChangeLog
@@ -1,3 +1,14 @@
+2005-09-23  Rafael Ávila de Espíndola  <rafael.espindola@gmail.com>
+
+       * parse.y : Changed pointer declaration from "type* var" to "type *var"
+       Removed trailing space.  Wrap long lines.
+
+2005-09-23  Rafael Ávila de Espíndola  <rafael.espindola@gmail.com>
+
+       * parse.y :  Fixed two compile warnings in "error" and "warning"
+       invocations.  Removed trailing periods in messages.  Decapitalized the
+       first word of each.
+

 2005-08-07  James A. Morrison  <phython@gcc.gnu.org>
 
        * tree-convert.c (convert): Use fold_build1 instead of
 2005-08-07  James A. Morrison  <phython@gcc.gnu.org>
 
        * tree-convert.c (convert): Use fold_build1 instead of

diff --git a/gcc/treelang/parse.y b/gcc/treelang/parse.y
index 3256c57..740237c 100644 (file)
--- a/gcc/treelang/parse.y
+++ b/gcc/treelang/parse.y
@@ -1,5 +1,5 @@
 /* -*- c -*- emacs mode c */
 /* -*- c -*- emacs mode c */

-/* TREELANG Compiler parser.  
+/* TREELANG Compiler parser.

 
 ---------------------------------------------------------------------
 
 
 ---------------------------------------------------------------------
 


@@ -23,7 +23,7 @@ Boston, MA 02110-1301, USA.
 
 In other words, you are welcome to use, share and improve this program.
 You are forbidden to forbid anyone else to use, share and improve
 
 In other words, you are welcome to use, share and improve this program.
 You are forbidden to forbid anyone else to use, share and improve

-what you give them.   Help stamp out software-hoarding!  
+what you give them.   Help stamp out software-hoarding!

 
 ---------------------------------------------------------------------
 
 
 ---------------------------------------------------------------------
 


@@ -34,7 +34,7 @@ the GCC compiler.  */
    *****************
    There are no conflicts in this grammar.  Please keep it that way.  */
 
    *****************
    There are no conflicts in this grammar.  Please keep it that way.  */
 

-%{ 
+%{

 #include "config.h"
 #include "system.h"
 #include "coretypes.h"
 #include "config.h"
 #include "system.h"
 #include "coretypes.h"


@@ -47,7 +47,7 @@ the GCC compiler.  */
 #include "toplev.h"
 
 #define YYDEBUG 1
 #include "toplev.h"
 
 #define YYDEBUG 1

-#define YYPRINT(file, type, value) print_token (file, type, value) 
+#define YYPRINT(file, type, value) print_token (file, type, value)

 #define YYERROR_VERBOSE YES
 
   /* My yylex routine used to intercept calls to flex generated code, to
 #define YYERROR_VERBOSE YES
 
   /* My yylex routine used to intercept calls to flex generated code, to


@@ -55,7 +55,7 @@ the GCC compiler.  */
   int yylex (void);
   static inline int my_yylex (void);
 
   int yylex (void);
   static inline int my_yylex (void);
 

-  /* Call lex, but ensure time is charged to TV_LEX.  */ 
+  /* Call lex, but ensure time is charged to TV_LEX.  */

   static inline int
     my_yylex (void)
     {
   static inline int
     my_yylex (void)
     {


@@ -72,20 +72,20 @@ the GCC compiler.  */
   /* Local prototypes.  */
   static void yyerror (const char *error_message);
   int yyparse (void);
   /* Local prototypes.  */
   static void yyerror (const char *error_message);
   int yyparse (void);

-  void print_token (FILE * file, unsigned int type ATTRIBUTE_UNUSED,
+  void print_token (FILE *file, unsigned int type ATTRIBUTE_UNUSED,

                    YYSTYPE value);
   static struct prod_token_parm_item *reverse_prod_list
     (struct prod_token_parm_item *old_first);
   static void ensure_not_void (unsigned int type,
                    YYSTYPE value);
   static struct prod_token_parm_item *reverse_prod_list
     (struct prod_token_parm_item *old_first);
   static void ensure_not_void (unsigned int type,

-                              struct prod_token_parm_item* name);
+                              struct prod_token_parm_item *name);

   static int check_type_match (int type_num, struct prod_token_parm_item *exp);
   static int get_common_type (struct prod_token_parm_item *type1,
                              struct prod_token_parm_item *type2);
   static struct prod_token_parm_item *make_integer_constant
   static int check_type_match (int type_num, struct prod_token_parm_item *exp);
   static int get_common_type (struct prod_token_parm_item *type1,
                              struct prod_token_parm_item *type2);
   static struct prod_token_parm_item *make_integer_constant

-    (struct prod_token_parm_item* value);
+    (struct prod_token_parm_item *value);

   static struct prod_token_parm_item *make_plus_expression
   static struct prod_token_parm_item *make_plus_expression

-    (struct prod_token_parm_item* tok, struct prod_token_parm_item* op1,
-     struct prod_token_parm_item* op2, int type_code, int prod_code);
+    (struct prod_token_parm_item *tok, struct prod_token_parm_item *op1,
+     struct prod_token_parm_item *op2, int type_code, int prod_code);

   static void set_storage (struct prod_token_parm_item *prod);
 
   /* File global variables.  */
   static void set_storage (struct prod_token_parm_item *prod);
 
   /* File global variables.  */


@@ -143,8 +143,8 @@ the GCC compiler.  */
 %token PROD_VARIABLE_REFERENCE_EXPRESSION
 %token PROD_PARAMETER
 %token PROD_FUNCTION_INVOCATION
 %token PROD_VARIABLE_REFERENCE_EXPRESSION
 %token PROD_PARAMETER
 %token PROD_FUNCTION_INVOCATION

-%expect 0 
-%% 
+%expect 0
+%%

 
 file:
 /* Nil.  */ {
 
 file:
 /* Nil.  */ {


@@ -179,15 +179,15 @@ variable_def {
 
 variable_def:
 storage typename NAME init_opt SEMICOLON {
 
 variable_def:
 storage typename NAME init_opt SEMICOLON {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *prod;
   tok = $3;
   prod = make_production (PROD_VARIABLE_NAME, tok);
   SYMBOL_TABLE_NAME (prod) = tok;
   EXPRESSION_TYPE (prod) = $2;
   VAR_INIT (prod) = $4;
   struct prod_token_parm_item *prod;
   tok = $3;
   prod = make_production (PROD_VARIABLE_NAME, tok);
   SYMBOL_TABLE_NAME (prod) = tok;
   EXPRESSION_TYPE (prod) = $2;
   VAR_INIT (prod) = $4;

-  NUMERIC_TYPE (prod) = 
-    NUMERIC_TYPE (( (struct prod_token_parm_item*)EXPRESSION_TYPE (prod)));
+  NUMERIC_TYPE (prod) =
+    NUMERIC_TYPE (( (struct prod_token_parm_item *)EXPRESSION_TYPE (prod)));

   ensure_not_void (NUMERIC_TYPE (prod), tok);
   if (insert_tree_name (prod))
     {
   ensure_not_void (NUMERIC_TYPE (prod), tok);
   if (insert_tree_name (prod))
     {


@@ -198,10 +198,11 @@ storage typename NAME init_opt SEMICOLON {
 
   if (VAR_INIT (prod))
     {
 
   if (VAR_INIT (prod))
     {

-      gcc_assert (((struct prod_token_parm_item*)VAR_INIT (prod))->tp.pro.code);
+      gcc_assert (((struct prod_token_parm_item *)
+                  VAR_INIT (prod))->tp.pro.code);

       if (STORAGE_CLASS (prod) == EXTERNAL_REFERENCE_STORAGE)
        {
       if (STORAGE_CLASS (prod) == EXTERNAL_REFERENCE_STORAGE)
        {

-         error("%HExternal reference variable %q.*s has an initial value.",
+         error("%Hexternal reference variable %q.*s has an initial value",

                &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
          YYERROR;
          VAR_INIT (prod) = NULL;
                &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
          YYERROR;
          VAR_INIT (prod) = NULL;


@@ -210,12 +211,12 @@ storage typename NAME init_opt SEMICOLON {
     }
 
   prod->tp.pro.code = tree_code_create_variable
     }
 
   prod->tp.pro.code = tree_code_create_variable

-    (STORAGE_CLASS (prod), 
-     ((struct prod_token_parm_item*)SYMBOL_TABLE_NAME (prod))->tp.tok.chars,
-     ((struct prod_token_parm_item*)SYMBOL_TABLE_NAME (prod))->tp.tok.length,
+    (STORAGE_CLASS (prod),
+     ((struct prod_token_parm_item *)SYMBOL_TABLE_NAME (prod))->tp.tok.chars,
+     ((struct prod_token_parm_item *)SYMBOL_TABLE_NAME (prod))->tp.tok.length,

      NUMERIC_TYPE (prod),
      VAR_INIT (prod) ?
      NUMERIC_TYPE (prod),
      VAR_INIT (prod) ?

-     ((struct prod_token_parm_item*)VAR_INIT (prod))->tp.pro.code : NULL,
+     ((struct prod_token_parm_item *)VAR_INIT (prod))->tp.pro.code : NULL,

      tok->tp.tok.location);
   gcc_assert (prod->tp.pro.code);
 }
      tok->tp.tok.location);
   gcc_assert (prod->tp.pro.code);
 }


@@ -230,7 +231,7 @@ STATIC
 
 parameter:
 typename NAME {
 
 parameter:
 typename NAME {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *prod;
   struct prod_token_parm_item *prod2;
   tok = $2;
   struct prod_token_parm_item *prod;
   struct prod_token_parm_item *prod2;
   tok = $2;


@@ -238,7 +239,7 @@ typename NAME {
   SYMBOL_TABLE_NAME (prod) = $2;
   EXPRESSION_TYPE (prod) = $1;
   NUMERIC_TYPE (prod) =
   SYMBOL_TABLE_NAME (prod) = $2;
   EXPRESSION_TYPE (prod) = $1;
   NUMERIC_TYPE (prod) =

-    NUMERIC_TYPE (( (struct prod_token_parm_item*)EXPRESSION_TYPE (prod)));
+    NUMERIC_TYPE (( (struct prod_token_parm_item *)EXPRESSION_TYPE (prod)));

   ensure_not_void (NUMERIC_TYPE (prod), tok);
   if (insert_tree_name (prod))
     {
   ensure_not_void (NUMERIC_TYPE (prod), tok);
   if (insert_tree_name (prod))
     {


@@ -252,12 +253,12 @@ typename NAME {
 
 function_prototype:
 storage typename NAME LEFT_PARENTHESIS parameters_opt RIGHT_PARENTHESIS SEMICOLON {
 
 function_prototype:
 storage typename NAME LEFT_PARENTHESIS parameters_opt RIGHT_PARENTHESIS SEMICOLON {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *prod;
   struct prod_token_parm_item *type;
   struct prod_token_parm_item *prod;
   struct prod_token_parm_item *type;

-  struct prod_token_parm_item* first_parms;
-  struct prod_token_parm_item* last_parms;
-  struct prod_token_parm_item* this_parms;
+  struct prod_token_parm_item *first_parms;
+  struct prod_token_parm_item *last_parms;
+  struct prod_token_parm_item *this_parms;

   struct prod_token_parm_item *this_parm;
   struct prod_token_parm_item *this_parm_var;
   tok = $3;
   struct prod_token_parm_item *this_parm;
   struct prod_token_parm_item *this_parm_var;
   tok = $3;


@@ -265,20 +266,20 @@ storage typename NAME LEFT_PARENTHESIS parameters_opt RIGHT_PARENTHESIS SEMICOLO
   SYMBOL_TABLE_NAME (prod) = $3;
   EXPRESSION_TYPE (prod) = $2;
   NUMERIC_TYPE (prod) =
   SYMBOL_TABLE_NAME (prod) = $3;
   EXPRESSION_TYPE (prod) = $2;
   NUMERIC_TYPE (prod) =

-    NUMERIC_TYPE (( (struct prod_token_parm_item*)EXPRESSION_TYPE (prod)));
-  PARAMETERS (prod) = reverse_prod_list ($5); 
+    NUMERIC_TYPE (( (struct prod_token_parm_item *)EXPRESSION_TYPE (prod)));
+  PARAMETERS (prod) = reverse_prod_list ($5);

   insert_tree_name (prod);
   STORAGE_CLASS_TOKEN (prod) = $1;
   set_storage (prod);
   switch (STORAGE_CLASS (prod))
   insert_tree_name (prod);
   STORAGE_CLASS_TOKEN (prod) = $1;
   set_storage (prod);
   switch (STORAGE_CLASS (prod))

-    { 
+    {

     case STATIC_STORAGE:
     case EXTERNAL_DEFINITION_STORAGE:
     case EXTERNAL_REFERENCE_STORAGE:
       break;
     case STATIC_STORAGE:
     case EXTERNAL_DEFINITION_STORAGE:
     case EXTERNAL_REFERENCE_STORAGE:
       break;

-      
+

     case AUTOMATIC_STORAGE:
     case AUTOMATIC_STORAGE:

-      error ("%HFunction %q.*s cannot be automatic.",
+      error ("%Hfunction %q.*s cannot be automatic",

             &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
       break;
             &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
       break;


@@ -304,8 +305,8 @@ storage typename NAME LEFT_PARENTHESIS parameters_opt RIGHT_PARENTHESIS SEMICOLO
       this_parms->tp.par.variable_name =
        this_parm_var->tp.pro.main_token->tp.tok.chars;
       this_parms->category = parameter_category;
       this_parms->tp.par.variable_name =
        this_parm_var->tp.pro.main_token->tp.tok.chars;
       this_parms->category = parameter_category;

-      this_parms->type = NUMERIC_TYPE 
-        (( (struct prod_token_parm_item*)EXPRESSION_TYPE (this_parm_var)));
+      this_parms->type = NUMERIC_TYPE
+        (( (struct prod_token_parm_item *)EXPRESSION_TYPE (this_parm_var)));

       if (last_parms)
         {
           last_parms->tp.par.next = this_parms;
       if (last_parms)
         {
           last_parms->tp.par.next = this_parms;


@@ -316,8 +317,8 @@ storage typename NAME LEFT_PARENTHESIS parameters_opt RIGHT_PARENTHESIS SEMICOLO
           first_parms = this_parms;
           last_parms = this_parms;
         }
           first_parms = this_parms;
           last_parms = this_parms;
         }

-      this_parms->tp.par.where_to_put_var_tree = 
-        & (( (struct prod_token_parm_item*)VARIABLE (this_parm))->tp.pro.code);
+      this_parms->tp.par.where_to_put_var_tree =
+        & (((struct prod_token_parm_item *)VARIABLE (this_parm))->tp.pro.code);

     }
   FIRST_PARMS (prod) = first_parms;
 
     }
   FIRST_PARMS (prod) = first_parms;
 


@@ -333,8 +334,9 @@ storage typename NAME LEFT_PARENTHESIS parameters_opt RIGHT_PARENTHESIS SEMICOLO
        this_parm;
        this_parm = this_parm->tp.pro.next)
     {
        this_parm;
        this_parm = this_parm->tp.pro.next)
     {

-      gcc_assert ((struct prod_token_parm_item*)VARIABLE (this_parm));
-      gcc_assert (((struct prod_token_parm_item*)VARIABLE (this_parm))->tp.pro.code);
+      gcc_assert ((struct prod_token_parm_item *)VARIABLE (this_parm));
+      gcc_assert (((struct prod_token_parm_item *)
+                  VARIABLE (this_parm))->tp.pro.code);

     }
 #endif
 }
     }
 #endif
 }


@@ -344,14 +346,14 @@ function:
 NAME LEFT_BRACE {
   struct prod_token_parm_item *proto;
   struct prod_token_parm_item search_prod;
 NAME LEFT_BRACE {
   struct prod_token_parm_item *proto;
   struct prod_token_parm_item search_prod;

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   tok = $1;
   SYMBOL_TABLE_NAME ((&search_prod)) = tok;
   search_prod.category = token_category;
   current_function = proto = lookup_tree_name (&search_prod);
   if (!proto)
     {
   tok = $1;
   SYMBOL_TABLE_NAME ((&search_prod)) = tok;
   search_prod.category = token_category;
   current_function = proto = lookup_tree_name (&search_prod);
   if (!proto)
     {

-      error ("%HNo prototype found for %q.*s", &tok->tp.tok.location,
+      error ("%Hno prototype found for %q.*s", &tok->tp.tok.location,

             tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
     }
             tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
     }


@@ -362,7 +364,7 @@ NAME LEFT_BRACE {
 }
 
 variable_defs_opt statements_opt RIGHT_BRACE {
 }
 
 variable_defs_opt statements_opt RIGHT_BRACE {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   tok = $1;
   tree_code_create_function_wrapup (tok->tp.tok.location);
   current_function = NULL;
   tok = $1;
   tree_code_create_function_wrapup (tok->tp.tok.location);
   current_function = NULL;


@@ -398,7 +400,7 @@ variable_def {
 
 typename:
 INT {
 
 typename:
 INT {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);
   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);


@@ -407,7 +409,7 @@ INT {
   $$ = prod;
 }
 |UNSIGNED INT {
   $$ = prod;
 }
 |UNSIGNED INT {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);
   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);


@@ -416,7 +418,7 @@ INT {
   $$ = prod;
 }
 |CHAR {
   $$ = prod;
 }
 |CHAR {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);
   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);


@@ -425,7 +427,7 @@ INT {
   $$ = prod;
 }
 |UNSIGNED CHAR {
   $$ = prod;
 }
 |UNSIGNED CHAR {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);
   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);


@@ -434,7 +436,7 @@ INT {
   $$ = prod;
 }
 |VOID {
   $$ = prod;
 }
 |VOID {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);
   struct prod_token_parm_item *prod;
   tok = $1;
   prod = make_production (PROD_TYPE_NAME, tok);


@@ -492,7 +494,7 @@ expression SEMICOLON {
 
 if_statement:
 IF LEFT_PARENTHESIS expression RIGHT_PARENTHESIS {
 
 if_statement:
 IF LEFT_PARENTHESIS expression RIGHT_PARENTHESIS {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *exp;
   tok = $1;
   exp = $3;
   struct prod_token_parm_item *exp;
   tok = $1;
   exp = $3;


@@ -503,12 +505,12 @@ LEFT_BRACE variable_defs_opt statements_opt RIGHT_BRACE {
   /* Just let the statements flow.  */
 }
 ELSE {
   /* Just let the statements flow.  */
 }
 ELSE {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   tok = $1;
   tree_code_if_else (tok->tp.tok.location);
 }
 LEFT_BRACE variable_defs_opt statements_opt RIGHT_BRACE {
   tok = $1;
   tree_code_if_else (tok->tp.tok.location);
 }
 LEFT_BRACE variable_defs_opt statements_opt RIGHT_BRACE {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   tok = $1;
   tree_code_if_end (tok->tp.tok.location);
 }
   tok = $1;
   tree_code_if_end (tok->tp.tok.location);
 }


@@ -527,14 +529,13 @@ tl_RETURN expression_opt {
       tree_code_generate_return (type_prod->tp.pro.code, NULL);
     else
       {
       tree_code_generate_return (type_prod->tp.pro.code, NULL);
     else
       {

-       warning (0, "%HRedundant expression in return.",
-                &ret_tok->tp.tok.location, ret_tok->tp.tok.length,
-                ret_tok->tp.tok.chars);
+       warning (0, "%Hredundant expression in return",
+                &ret_tok->tp.tok.location);

         tree_code_generate_return (type_prod->tp.pro.code, NULL);
        }
   else
     if (exp == NULL)
         tree_code_generate_return (type_prod->tp.pro.code, NULL);
        }
   else
     if (exp == NULL)

-       error ("%HExpression missing in return.", &ret_tok->tp.tok.location);
+       error ("%Hexpression missing in return", &ret_tok->tp.tok.location);

     else
       {
         /* Check same type.  */
     else
       {
         /* Check same type.  */


@@ -559,7 +560,7 @@ expression_opt:
   struct prod_token_parm_item *exp;
   exp = $1;
   gcc_assert (exp->tp.pro.code);
   struct prod_token_parm_item *exp;
   exp = $1;
   gcc_assert (exp->tp.pro.code);

-  
+

   $$ = $1;
 }
 ;
   $$ = $1;
 }
 ;


@@ -617,7 +618,7 @@ INTEGER {
 function_invocation:
 NAME LEFT_PARENTHESIS expressions_with_commas_opt RIGHT_PARENTHESIS {
   struct prod_token_parm_item *prod;
 function_invocation:
 NAME LEFT_PARENTHESIS expressions_with_commas_opt RIGHT_PARENTHESIS {
   struct prod_token_parm_item *prod;

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item search_prod;
   struct prod_token_parm_item *proto;
   struct prod_token_parm_item *exp;
   struct prod_token_parm_item search_prod;
   struct prod_token_parm_item *proto;
   struct prod_token_parm_item *exp;


@@ -627,7 +628,7 @@ NAME LEFT_PARENTHESIS expressions_with_commas_opt RIGHT_PARENTHESIS {
   int exp_count;
   tree parms;
   tree type;
   int exp_count;
   tree parms;
   tree type;

-  
+

   tok = $1;
   prod = make_production (PROD_FUNCTION_INVOCATION, tok);
   SYMBOL_TABLE_NAME (prod) = tok;
   tok = $1;
   prod = make_production (PROD_FUNCTION_INVOCATION, tok);
   SYMBOL_TABLE_NAME (prod) = tok;


@@ -637,14 +638,14 @@ NAME LEFT_PARENTHESIS expressions_with_commas_opt RIGHT_PARENTHESIS {
   proto = lookup_tree_name (&search_prod);
   if (!proto)
     {
   proto = lookup_tree_name (&search_prod);
   if (!proto)
     {

-      error ("%HFunction prototype not found for %q.*%s.",
+      error ("%Hfunction prototype not found for %q.*s",

             &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
     }
   EXPRESSION_TYPE (prod) = EXPRESSION_TYPE (proto);
   NUMERIC_TYPE (prod) = NUMERIC_TYPE (proto);
   /* Count the expressions and ensure they match the prototype.  */
             &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
     }
   EXPRESSION_TYPE (prod) = EXPRESSION_TYPE (proto);
   NUMERIC_TYPE (prod) = NUMERIC_TYPE (proto);
   /* Count the expressions and ensure they match the prototype.  */

-  for (exp_proto_count = 0, exp_proto = PARAMETERS (proto); 
+  for (exp_proto_count = 0, exp_proto = PARAMETERS (proto);

        exp_proto; exp_proto = exp_proto->tp.pro.next)
     exp_proto_count++;
 
        exp_proto; exp_proto = exp_proto->tp.pro.next)
     exp_proto_count++;
 


@@ -653,7 +654,7 @@ NAME LEFT_PARENTHESIS expressions_with_commas_opt RIGHT_PARENTHESIS {
 
   if (exp_count !=  exp_proto_count)
     {
 
   if (exp_count !=  exp_proto_count)
     {

-      error ("%HExpression count mismatch %q.*s with prototype.",
+      error ("%Hexpression count mismatch %q.*s with prototype",

             &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
     }
             &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
     }


@@ -683,7 +684,7 @@ NAME LEFT_PARENTHESIS expressions_with_commas_opt RIGHT_PARENTHESIS {
 }
 ;
 
 }
 ;
 

-expressions_with_commas_opt: 
+expressions_with_commas_opt:

 /* Nil.  */ {
 $$ = 0
 }
 /* Nil.  */ {
 $$ = 0
 }


@@ -711,7 +712,7 @@ NAME {
   struct prod_token_parm_item search_prod;
   struct prod_token_parm_item *prod;
   struct prod_token_parm_item *symbol_table_entry;
   struct prod_token_parm_item search_prod;
   struct prod_token_parm_item *prod;
   struct prod_token_parm_item *symbol_table_entry;

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   tree type;
 
   tok = $1;
   tree type;
 
   tok = $1;


@@ -720,7 +721,7 @@ NAME {
   symbol_table_entry = lookup_tree_name (&search_prod);
   if (!symbol_table_entry)
     {
   symbol_table_entry = lookup_tree_name (&search_prod);
   if (!symbol_table_entry)
     {

-      error ("%HVariable %q.*s not defined.",
+      error ("%Hvariable %q.*s not defined",

             &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
     }
             &tok->tp.tok.location, tok->tp.tok.length, tok->tp.tok.chars);
       YYERROR;
     }


@@ -731,7 +732,7 @@ NAME {
   if (!NUMERIC_TYPE (prod))
     YYERROR;
   OP1 (prod) = $1;
   if (!NUMERIC_TYPE (prod))
     YYERROR;
   OP1 (prod) = $1;

-  
+

   prod->tp.pro.code =
     tree_code_get_expression (EXP_REFERENCE, type,
                              symbol_table_entry->tp.pro.code, NULL, NULL,
   prod->tp.pro.code =
     tree_code_get_expression (EXP_REFERENCE, type,
                              symbol_table_entry->tp.pro.code, NULL, NULL,


@@ -767,7 +768,7 @@ INTEGER {
    type. */
 
 void
    type. */
 
 void

-print_token (FILE * file, unsigned int type ATTRIBUTE_UNUSED, YYSTYPE value) 
+print_token (FILE *file, unsigned int type ATTRIBUTE_UNUSED, YYSTYPE value)

 {
   struct prod_token_parm_item *tok;
   unsigned int  ix;
 {
   struct prod_token_parm_item *tok;
   unsigned int  ix;


@@ -802,18 +803,18 @@ reverse_prod_list (struct prod_token_parm_item *old_first)
   struct prod_token_parm_item *current;
   struct prod_token_parm_item *next;
   struct prod_token_parm_item *prev = NULL;
   struct prod_token_parm_item *current;
   struct prod_token_parm_item *next;
   struct prod_token_parm_item *prev = NULL;

-  
+

   current = old_first;
   prev = NULL;
 
   current = old_first;
   prev = NULL;
 

-  while (current) 
+  while (current)

     {
       gcc_assert (current->category == production_category);
 
       next = current->tp.pro.next;
       current->tp.pro.next = prev;
       prev = current;
     {
       gcc_assert (current->category == production_category);
 
       next = current->tp.pro.next;
       current->tp.pro.next = prev;
       prev = current;

-      current = next; 
+      current = next;

     }
   return prev;
 }
     }
   return prev;
 }


@@ -824,14 +825,14 @@ static void
 ensure_not_void (unsigned int type, struct prod_token_parm_item* name)
 {
   if (type == VOID_TYPE)
 ensure_not_void (unsigned int type, struct prod_token_parm_item* name)
 {
   if (type == VOID_TYPE)

-    error ("%HType must not be void in this context.",
+    error ("%Htype must not be void in this context",

           &name->tp.tok.location);
 }
 
 /* Check TYPE1 and TYPE2 which are integral types.  Return the lowest
    common type (min is signed int).  */
 
           &name->tp.tok.location);
 }
 
 /* Check TYPE1 and TYPE2 which are integral types.  Return the lowest
    common type (min is signed int).  */
 

-static int 
+static int

 get_common_type (struct prod_token_parm_item *type1,
                 struct prod_token_parm_item *type2)
 {
 get_common_type (struct prod_token_parm_item *type1,
                 struct prod_token_parm_item *type2)
 {


@@ -847,7 +848,7 @@ get_common_type (struct prod_token_parm_item *type1,
    OK else 0.  Must be exact match - same name unless it is an
    integral type.  */
 
    OK else 0.  Must be exact match - same name unless it is an
    integral type.  */
 

-static int 
+static int

 check_type_match (int type_num, struct prod_token_parm_item *exp)
 {
   switch (type_num)
 check_type_match (int type_num, struct prod_token_parm_item *exp)
 {
   switch (type_num)


@@ -863,17 +864,17 @@ check_type_match (int type_num, struct prod_token_parm_item *exp)
         case SIGNED_CHAR:
         case UNSIGNED_CHAR:
           return 1;
         case SIGNED_CHAR:
         case UNSIGNED_CHAR:
           return 1;

-          
+

         case VOID_TYPE:
         case VOID_TYPE:

-        default: 
+        default:

           gcc_unreachable ();
         }
       break;
           gcc_unreachable ();
         }
       break;

-      
+

     case VOID_TYPE:
     default:
       gcc_unreachable ();
     case VOID_TYPE:
     default:
       gcc_unreachable ();

-      
+

     }
 }
 
     }
 }
 


@@ -882,7 +883,7 @@ check_type_match (int type_num, struct prod_token_parm_item *exp)
 static struct prod_token_parm_item *
 make_integer_constant (struct prod_token_parm_item* value)
 {
 static struct prod_token_parm_item *
 make_integer_constant (struct prod_token_parm_item* value)
 {

-  struct prod_token_parm_item* tok;
+  struct prod_token_parm_item *tok;

   struct prod_token_parm_item *prod;
   tok = value;
   prod = make_production (PROD_INTEGER_CONSTANT, tok);
   struct prod_token_parm_item *prod;
   tok = value;
   prod = make_production (PROD_INTEGER_CONSTANT, tok);


@@ -901,9 +902,9 @@ make_integer_constant (struct prod_token_parm_item* value)
    and EQUALS expressions.  */
 
 static struct prod_token_parm_item *
    and EQUALS expressions.  */
 
 static struct prod_token_parm_item *

-make_plus_expression (struct prod_token_parm_item* tok,
-                     struct prod_token_parm_item* op1,
-                     struct prod_token_parm_item* op2,
+make_plus_expression (struct prod_token_parm_item *tok,
+                     struct prod_token_parm_item *op1,
+                     struct prod_token_parm_item *op2,

                      int type_code, int prod_code)
 {
   struct prod_token_parm_item *prod;
                      int type_code, int prod_code)
 {
   struct prod_token_parm_item *prod;


@@ -921,7 +922,7 @@ make_plus_expression (struct prod_token_parm_item* tok,
 
   OP1 (prod) = op1;
   OP2 (prod) = op2;
 
   OP1 (prod) = op1;
   OP2 (prod) = op2;

-      
+

   prod->tp.pro.code = tree_code_get_expression (prod_code, type,
                                                op1->tp.pro.code,
                                                op2->tp.pro.code, NULL,
   prod->tp.pro.code = tree_code_get_expression (prod_code, type,
                                                op1->tp.pro.code,
                                                op2->tp.pro.code, NULL,


@@ -936,18 +937,18 @@ make_plus_expression (struct prod_token_parm_item* tok,
 static void
 set_storage (struct prod_token_parm_item *prod)
 {
 static void
 set_storage (struct prod_token_parm_item *prod)
 {

-  struct prod_token_parm_item* stg_class;
+  struct prod_token_parm_item *stg_class;

   stg_class = STORAGE_CLASS_TOKEN (prod);
   switch (stg_class->type)
     {
     case STATIC:
       STORAGE_CLASS (prod) = STATIC_STORAGE;
       break;
   stg_class = STORAGE_CLASS_TOKEN (prod);
   switch (stg_class->type)
     {
     case STATIC:
       STORAGE_CLASS (prod) = STATIC_STORAGE;
       break;

-      
+

     case AUTOMATIC:
       STORAGE_CLASS (prod) = AUTOMATIC_STORAGE;
       break;
     case AUTOMATIC:
       STORAGE_CLASS (prod) = AUTOMATIC_STORAGE;
       break;

-      
+

     case EXTERNAL_DEFINITION:
       STORAGE_CLASS (prod) = EXTERNAL_DEFINITION_STORAGE;
       break;
     case EXTERNAL_DEFINITION:
       STORAGE_CLASS (prod) = EXTERNAL_DEFINITION_STORAGE;
       break;