From: Pierre Muller <muller@sourceware.org>
Date: Thu, 2 May 2002 11:26:01 +0000 (+0000)
Subject: 2002-05-02  Pierre Muller  <muller@ics.u-strasbg.fr>
X-Git-Tag: binutils-2_13-branchpoint~1125
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0906b7396c79ae9d420bcb3c5d69a82b428e9ba0;p=external%2Fbinutils.git

2002-05-02  Pierre Muller  <muller@ics.u-strasbg.fr>

	* p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR
	for fondamental pascal 'char' type.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 63512ac..21d5692 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 2002-05-02  Pierre Muller  <muller@ics.u-strasbg.fr>
 
+	* p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR
+	for fondamental pascal 'char' type.
+
+2002-05-02  Pierre Muller  <muller@ics.u-strasbg.fr>
+
 	* p-lang.h (is_pascal_string_type): Declaration changed,
 	new sixth argument of type char ** added.
 	* p-lang.c (is_pascal_string_type): Implementation 
diff --git a/gdb/p-lang.c b/gdb/p-lang.c
index 6d518ee..4796da5 100644
--- a/gdb/p-lang.c
+++ b/gdb/p-lang.c
@@ -293,7 +293,7 @@ pascal_create_fundamental_type (struct objfile *objfile, int typeid)
 			0, "void", objfile);
       break;
     case FT_CHAR:
-      type = init_type (TYPE_CODE_INT,
+      type = init_type (TYPE_CODE_CHAR,
 			TARGET_CHAR_BIT / TARGET_CHAR_BIT,
 			0, "char", objfile);
       break;