Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

Remove trailing spaces and tabulations from pascal language

Browse Source 
support sources.
	p-exp.y: Ditto.
	p-lang.c: Ditto.
	p-lang.h: Ditto.
	p-valprint.c: Ditto.
This commit is contained in:
Pierre Muller
2011-03-15 16:00:56 +00:00
parent 9373cf2619
commit 6ced15815d
5 changed files with 62 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gdb/p-lang.c
View File

@@ -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)
{