mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-02-17 13:10:12 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
* p-typeprint.c (pascal_type_print_base): Add support
	for TYPE_CODE_STRING and TYPE_CODE_BITSTRING.
This commit is contained in:
Pierre Muller 2002-05-02 11:32:24 +00:00
parent 0906b7396c
commit 6604db2ec0
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2002-05-02 Pierre Muller <muller@ics.u-strasbg.fr>
* p-typeprint.c (pascal_type_print_base): Add support
for TYPE_CODE_STRING and TYPE_CODE_BITSTRING.
2002-05-02 Pierre Muller <muller@ics.u-strasbg.fr>
* p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR

8
gdb/p-typeprint.c
View File

@ -788,6 +788,14 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
show - 1, level);
break;
case TYPE_CODE_BITSTRING:
fputs_filtered ("BitString", stream);
break;
case TYPE_CODE_STRING:
fputs_filtered ("String", stream);
break;
default:
/* Handle types not explicitly handled by the other cases,
such as fundamental types. For these, just print whatever