aboutsummaryrefslogtreecommitdiff
path: root/gdb/p-lang.c
diff options
context:
space:
mode:
authorMichael Snyder <msnyder@vmware.com>2010-05-16 01:27:02 +0000
committerMichael Snyder <msnyder@vmware.com>2010-05-16 01:27:02 +0000
commitad3bbd48b65047845b258564db3fd2e64e00c7bc (patch)
tree6fa1e4fcc2207b1528a33e4097c13526e75db941 /gdb/p-lang.c
parent5cc80db34dcbe944fe7b480c9841f309c0cf6e96 (diff)
downloadgdb-ad3bbd48b65047845b258564db3fd2e64e00c7bc.zip
gdb-ad3bbd48b65047845b258564db3fd2e64e00c7bc.tar.gz
gdb-ad3bbd48b65047845b258564db3fd2e64e00c7bc.tar.bz2
2010-05-15 Michael Snyder <msnyder@vmware.com>
* parse.c: White space. * p-lang.c: White space. * posix-hdep.c: White space. * printcmd.c: White space. * progspace.c: White space. * prologue-value.c: White space. * psymtab.c: White space. * p-typeprint.c: White space. * p-valprint.c: White space.
Diffstat (limited to 'gdb/p-lang.c')
-rw-r--r--gdb/p-lang.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/gdb/p-lang.c b/gdb/p-lang.c
index 44aefa4..08738ac 100644
--- a/gdb/p-lang.c
+++ b/gdb/p-lang.c
@@ -137,6 +137,7 @@ is_pascal_string_type (struct type *type,int *length_pos,
if (char_type)
{
*char_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 2));
+
if (TYPE_CODE (*char_type) == TYPE_CODE_ARRAY)
*char_type = TYPE_TARGET_TYPE (*char_type);
}
@@ -157,7 +158,6 @@ static void pascal_one_char (int, struct ui_file *, int *);
static void
pascal_one_char (int c, struct ui_file *stream, int *in_quotes)
{
-
if (c == '\'' || ((unsigned int) c <= 0xff && (PRINT_LITERAL_FORM (c))))
{
if (!(*in_quotes))
@@ -190,6 +190,7 @@ static void
pascal_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
{
int in_quotes = 0;
+
pascal_one_char (c, stream, &in_quotes);
if (in_quotes)
fputs_filtered ("'", stream);
@@ -199,6 +200,7 @@ void
pascal_printchar (int c, struct type *type, struct ui_file *stream)
{
int in_quotes = 0;
+
pascal_one_char (c, stream, &in_quotes);
if (in_quotes)
fputs_filtered ("'", stream);
@@ -370,6 +372,7 @@ pascal_language_arch_info (struct gdbarch *gdbarch,
struct language_arch_info *lai)
{
const struct builtin_type *builtin = builtin_type (gdbarch);
+
lai->string_char_type = builtin->builtin_char;
lai->primitive_type_vector
= GDBARCH_OBSTACK_CALLOC (gdbarch, nr_pascal_primitive_types + 1,