Remove trailing spaces and tabulations from pascal language

	support sources.
	p-exp.y: Ditto.
	p-lang.c: Ditto.
	p-lang.h: Ditto.
	p-valprint.c: Ditto.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 6342675eb8d733832d6ecc7da6bf54d685e111e3..bc783798400b79b085b3d2685999eaa677abd19b 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,12 @@
+2011-03-15  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       Remove trailing spaces and tabulations from pascal language
+       support sources.
+       p-exp.y: Ditto.
+       p-lang.c: Ditto.
+       p-lang.h: Ditto.
+       p-valprint.c: Ditto.
+
 2011-03-15  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
        * dwarf2read.c (dwarf2_get_pc_bounds): Require HIGH strictly higher

diff --git a/gdb/p-exp.y b/gdb/p-exp.y
index 183f001335d49a137fb57b4791e8d03db28f9178..2b7cb2ab52a2399b008cf484a4a631078ab5fc04 100644 (file)
--- a/gdb/p-exp.y
+++ b/gdb/p-exp.y
@@ -73,12 +73,12 @@
 #define        yylval  pascal_lval
 #define        yychar  pascal_char
 #define        yydebug pascal_debug
-#define        yypact  pascal_pact     
-#define        yyr1    pascal_r1                       
-#define        yyr2    pascal_r2                       
-#define        yydef   pascal_def              
-#define        yychk   pascal_chk              
-#define        yypgo   pascal_pgo              
+#define        yypact  pascal_pact
+#define        yyr1    pascal_r1
+#define        yyr2    pascal_r2
+#define        yydef   pascal_def
+#define        yychk   pascal_chk
+#define        yypgo   pascal_pgo
 #define        yyact   pascal_act
 #define        yyexca  pascal_exca
 #define yyerrflag pascal_errflag
@@ -181,7 +181,7 @@ static int search_field;
    Contexts where this distinction is not important can use the
    nonterminal "name", which matches either NAME or TYPENAME.  */
 
-%token <sval> STRING 
+%token <sval> STRING
 %token <sval> FIELDNAME
 %token <voidval> COMPLETE
 %token <ssym> NAME /* BLOCKNAME defined below to give it higher precedence.  */
@@ -260,12 +260,12 @@ exp1      :       exp
 /* Expressions, not including the comma operator.  */
 exp    :       exp '^'   %prec UNARY
                        { write_exp_elt_opcode (UNOP_IND);
-                         if (current_type) 
+                         if (current_type)
                            current_type = TYPE_TARGET_TYPE (current_type); }
        ;
 
 exp    :       '@' exp    %prec UNARY
-                       { write_exp_elt_opcode (UNOP_ADDR); 
+                       { write_exp_elt_opcode (UNOP_ADDR);
                          if (current_type)
                            current_type = TYPE_POINTER_TYPE (current_type); }
        ;
@@ -288,16 +288,16 @@ exp       :       DECREMENT  '(' exp ')'   %prec UNARY
 
 
 field_exp      :       exp '.' %prec UNARY
-                       { search_field = 1; } 
+                       { search_field = 1; }
        ;
 
-exp    :       field_exp FIELDNAME 
+exp    :       field_exp FIELDNAME
                        { write_exp_elt_opcode (STRUCTOP_STRUCT);
-                         write_exp_string ($2); 
+                         write_exp_string ($2);
                          write_exp_elt_opcode (STRUCTOP_STRUCT);
-                         search_field = 0; 
+                         search_field = 0;
                          if (current_type)
-                           { 
+                           {
                              while (TYPE_CODE (current_type)
                                     == TYPE_CODE_PTR)
                                current_type =
@@ -306,16 +306,17 @@ exp       :       field_exp FIELDNAME
                                current_type, $2.ptr, 0);
                            }
                         }
-       ; 
+       ;
+
 
 exp    :       field_exp name
                        { mark_struct_expression ();
                          write_exp_elt_opcode (STRUCTOP_STRUCT);
                          write_exp_string ($2);
                          write_exp_elt_opcode (STRUCTOP_STRUCT);
-                         search_field = 0; 
+                         search_field = 0;
                          if (current_type)
-                           { 
+                           {
                              while (TYPE_CODE (current_type)
                                     == TYPE_CODE_PTR)
                                current_type =
@@ -338,21 +339,21 @@ exp       :       field_exp COMPLETE
 
 exp    :       exp '['
                        /* We need to save the current_type value.  */
-                       { char *arrayname; 
+                       { char *arrayname;
                          int arrayfieldindex;
                          arrayfieldindex = is_pascal_string_type (
                                current_type, NULL, NULL,
-                               NULL, NULL, &arrayname); 
-                         if (arrayfieldindex) 
+                               NULL, NULL, &arrayname);
+                         if (arrayfieldindex)
                            {
                              struct stoken stringsval;
                              stringsval.ptr = alloca (strlen (arrayname) + 1);
                              stringsval.length = strlen (arrayname);
                              strcpy (stringsval.ptr, arrayname);
                              current_type = TYPE_FIELD_TYPE (current_type,
-                               arrayfieldindex - 1); 
+                               arrayfieldindex - 1);
                              write_exp_elt_opcode (STRUCTOP_STRUCT);
-                             write_exp_string (stringsval); 
+                             write_exp_string (stringsval);
                              write_exp_elt_opcode (STRUCTOP_STRUCT);
                            }
                          push_current_type ();  }
@@ -371,7 +372,7 @@ exp :       exp '('
                arglist ')'     %prec ARROW
                        { write_exp_elt_opcode (OP_FUNCALL);
                          write_exp_elt_longcst ((LONGEST) end_arglist ());
-                         write_exp_elt_opcode (OP_FUNCALL); 
+                         write_exp_elt_opcode (OP_FUNCALL);
                          pop_current_type ();
                          if (current_type)
                            current_type = TYPE_TARGET_TYPE (current_type);
@@ -396,7 +397,7 @@ exp :       type '(' exp ')' %prec UNARY
                            }
                          write_exp_elt_opcode (UNOP_CAST);
                          write_exp_elt_type ($1);
-                         write_exp_elt_opcode (UNOP_CAST); 
+                         write_exp_elt_opcode (UNOP_CAST);
                          current_type = $1; }
        ;
 
@@ -413,9 +414,9 @@ exp :       exp '*' exp
 exp    :       exp '/' {
                          if (current_type && is_integral_type (current_type))
                            leftdiv_is_integer = 1;
-                       } 
+                       }
                exp
-                       { 
+                       {
                          if (leftdiv_is_integer && current_type
                              && is_integral_type (current_type))
                            {
@@ -426,7 +427,7 @@ exp :       exp '/' {
                              leftdiv_is_integer = 0;
                            }
 
-                         write_exp_elt_opcode (BINOP_DIV); 
+                         write_exp_elt_opcode (BINOP_DIV);
                        }
        ;
 
@@ -455,37 +456,37 @@ exp       :       exp RSH exp
        ;
 
 exp    :       exp '=' exp
-                       { write_exp_elt_opcode (BINOP_EQUAL); 
+                       { write_exp_elt_opcode (BINOP_EQUAL);
                          current_type = parse_type->builtin_bool;
                        }
        ;
 
 exp    :       exp NOTEQUAL exp
-                       { write_exp_elt_opcode (BINOP_NOTEQUAL); 
+                       { write_exp_elt_opcode (BINOP_NOTEQUAL);
                          current_type = parse_type->builtin_bool;
                        }
        ;
 
 exp    :       exp LEQ exp
-                       { write_exp_elt_opcode (BINOP_LEQ); 
+                       { write_exp_elt_opcode (BINOP_LEQ);
                          current_type = parse_type->builtin_bool;
                        }
        ;
 
 exp    :       exp GEQ exp
-                       { write_exp_elt_opcode (BINOP_GEQ); 
+                       { write_exp_elt_opcode (BINOP_GEQ);
                          current_type = parse_type->builtin_bool;
                        }
        ;
 
 exp    :       exp '<' exp
-                       { write_exp_elt_opcode (BINOP_LESS); 
+                       { write_exp_elt_opcode (BINOP_LESS);
                          current_type = parse_type->builtin_bool;
                        }
        ;
 
 exp    :       exp '>' exp
-                       { write_exp_elt_opcode (BINOP_GTR); 
+                       { write_exp_elt_opcode (BINOP_GTR);
                          current_type = parse_type->builtin_bool;
                        }
        ;
@@ -578,7 +579,7 @@ exp :       SIZEOF '(' type ')'     %prec UNARY
 
 exp    :       SIZEOF  '(' exp ')'      %prec UNARY
                        { write_exp_elt_opcode (UNOP_SIZEOF); }
-       
+
 exp    :       STRING
                        { /* C strings are converted into array constants with
                             an explicit null byte added at the end.  Thus
@@ -605,13 +606,13 @@ exp       :       STRING
 
 /* Object pascal  */
 exp    :       THIS
-                       { 
+                       {
                          struct value * this_val;
                          struct type * this_type;
                          write_exp_elt_opcode (OP_THIS);
-                         write_exp_elt_opcode (OP_THIS); 
+                         write_exp_elt_opcode (OP_THIS);
                          /* We need type of this.  */
-                         this_val = value_of_this (0); 
+                         this_val = value_of_this (0);
                          if (this_val)
                            this_type = value_type (this_val);
                          else
@@ -624,7 +625,7 @@ exp :       THIS
                                  write_exp_elt_opcode (UNOP_IND);
                                }
                            }
-               
+
                          current_type = this_type;
                        }
        ;
@@ -759,7 +760,7 @@ variable:   name_not_typename
                              write_exp_string ($1.stoken);
                              write_exp_elt_opcode (STRUCTOP_PTR);
                              /* We need type of this.  */
-                             this_val = value_of_this (0); 
+                             this_val = value_of_this (0);
                              if (this_val)
                                this_type = value_type (this_val);
                              else
@@ -769,7 +770,7 @@ variable:   name_not_typename
                                  this_type,
                                  copy_name ($1.stoken), 0);
                              else
-                               current_type = NULL; 
+                               current_type = NULL;
                            }
                          else
                            {
@@ -958,7 +959,7 @@ parse_number (char *p, int len, int parsed_float, YYSTYPE *putithere)
         FIXME: This check is wrong; for example it doesn't find overflow
         on 0x123456789 when LONGEST is 32 bits.  */
       if (c != 'l' && c != 'u' && n != 0)
-       {       
+       {
          if ((unsigned_p && (ULONGEST) prevn >= (ULONGEST) n))
            error ("Numeric constant too large.");
        }
@@ -1047,7 +1048,7 @@ push_current_type (void)
   tpnew->next = tp_top;
   tpnew->stored = current_type;
   current_type = NULL;
-  tp_top = tpnew; 
+  tp_top = tpnew;
 }
 
 static void
@@ -1130,7 +1131,7 @@ yylex (void)
   static char *tempbuf;
   static int tempbufsize;
   int saw_structop = last_was_structop;
- 
+
   last_was_structop = 0;
  retry:
 
@@ -1591,10 +1592,10 @@ yylex (void)
        tempbuf = (char *) realloc (tempbuf, namelen + 1);
        strncpy (tempbuf, tokstart, namelen); tempbuf [namelen] = 0;
        yylval.sval.ptr = tempbuf;
-       yylval.sval.length = namelen; 
+       yylval.sval.length = namelen;
        free (uptokstart);
        return FIELDNAME;
-      } 
+      }
     /* Call lookup_symtab, not lookup_partial_symtab, in case there are
        no psymtabs (coff, xcoff, or some future change to blow away the
        psymtabs once once symbols are read).  */

diff --git a/gdb/p-lang.c b/gdb/p-lang.c
index 0469de57cfe61fd58acd59e8af8a439b39c77a2e..655279bcfae86939c4b6da26d6b4c1f418026866 100644 (file)
--- a/gdb/p-lang.c
+++ b/gdb/p-lang.c
@@ -31,7 +31,7 @@
 #include "valprint.h"
 #include "value.h"
 #include <ctype.h>
- 
+
 extern void _initialize_pascal_language (void);
 
 
@@ -107,7 +107,7 @@ is_pascal_string_type (struct type *type,int *length_pos,
       /* Two fields: length and st.  */
       if (TYPE_NFIELDS (type) == 2
          && TYPE_FIELD_NAME (type, 0)
-         && strcmp (TYPE_FIELD_NAME (type, 0), "length") == 0 
+         && strcmp (TYPE_FIELD_NAME (type, 0), "length") == 0
          && TYPE_FIELD_NAME (type, 1)
          && strcmp (TYPE_FIELD_NAME (type, 1), "st") == 0)
         {
@@ -268,7 +268,7 @@ pascal_printstr (struct ui_file *stream, struct type *type,
 
       rep1 = i + 1;
       reps = 1;
-      while (rep1 < length 
+      while (rep1 < length
             && extract_unsigned_integer (string + rep1 * width, width,
                                          byte_order) == current_char)
        {

diff --git a/gdb/p-lang.h b/gdb/p-lang.h
index a5ecb37b01c9cf403930270a246f63c762083ba6..c284c1dfa57b33b15e36255c093e27b24c125a3c 100644 (file)
--- a/gdb/p-lang.h
+++ b/gdb/p-lang.h
@@ -49,7 +49,7 @@ extern void pascal_type_print_method_args (char *, char *,
 
 /* These are in p-lang.c: */
 
-extern int 
+extern int
   is_pascal_string_type (struct type *, int *, int *, int *,
                         struct type **, char **);
 

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 618fc17ce4fad2f93fb238d75955594de6a851cf..d2efa5b3d20fd1c5d0c1e383b62cb2ae7aef77a6 100644 (file)
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -68,7 +68,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
   switch (TYPE_CODE (type))
     {
     case TYPE_CODE_ARRAY:
-      if (get_array_bounds (type, &low_bound, &high_bound)) 
+      if (get_array_bounds (type, &low_bound, &high_bound))
        {
          len = high_bound - low_bound + 1;
          elttype = check_typedef (TYPE_TARGET_TYPE (type));
@@ -317,7 +317,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
              len = extract_unsigned_integer (valaddr + embedded_offset
                                              + length_pos, length_size,
                                              byte_order);
-             LA_PRINT_STRING (stream, char_type, 
+             LA_PRINT_STRING (stream, char_type,
                               valaddr + embedded_offset + string_pos,
                               len, NULL, 0, options);
            }
@@ -590,7 +590,7 @@ pascal_value_print (struct value *val, struct ui_file *stream,
     {
       /* Hack:  remove (char *) for char strings.  Their
          type is indicated by the quoted string anyway.  */
-      if (TYPE_CODE (type) == TYPE_CODE_PTR 
+      if (TYPE_CODE (type) == TYPE_CODE_PTR
          && TYPE_NAME (type) == NULL
          && TYPE_NAME (TYPE_TARGET_TYPE (type)) != NULL
          && strcmp (TYPE_NAME (TYPE_TARGET_TYPE (type)), "char") == 0)