]> git.ipfire.org Git - thirdparty/binutils-gdb.git/commitdiff
2002-05-02 Pierre Muller <muller@ics.u-strasbg.fr>
authorPierre Muller <muller@sourceware.org>
Thu, 2 May 2002 11:26:01 +0000 (11:26 +0000)
committerPierre Muller <muller@sourceware.org>
Thu, 2 May 2002 11:26:01 +0000 (11:26 +0000)
* p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR
for fondamental pascal 'char' type.

gdb/ChangeLog
gdb/p-lang.c

index 63512ac9748484d9d0827d6d960fbeb4021174f5..21d56920de97097f9bbd185d410b32d6b5aee3aa 100644 (file)
@@ -1,3 +1,8 @@
+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,
index 6d518ee951ff89e2d4f49a170de1bd969d1577cc..4796da5f17b67c851707dd49901b651f7bc3bc7b 100644 (file)
@@ -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;