diff options
| author | bothner <bothner@138bc75d-0d04-0410-961f-82ee72b054a4> | 1994-02-16 03:52:30 +0000 |
|---|---|---|
| committer | bothner <bothner@138bc75d-0d04-0410-961f-82ee72b054a4> | 1994-02-16 03:52:30 +0000 |
| commit | 11aea978c36026bdc79fe7b08588d5226951bb13 (patch) | |
| tree | a28f85c02ddc0bd7d98a00e61999b4c8bb21c66a /gcc/dwarfout.c | |
| parent | 3ad9d2721d106a8153b92abb9f6feb60d3a132ea (diff) | |
| download | gcc-11aea978c36026bdc79fe7b08588d5226951bb13.tar.gz | |
Use new flag TYPE_STRING_FLAG instead of STRING_TYPE.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@6570 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/dwarfout.c')
| -rw-r--r-- | gcc/dwarfout.c | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c index 48cce48b89a..b3d31725674 100644 --- a/gcc/dwarfout.c +++ b/gcc/dwarfout.c @@ -1409,7 +1409,6 @@ type_is_fundamental (type) case METHOD_TYPE: case POINTER_TYPE: case REFERENCE_TYPE: - case STRING_TYPE: case FILE_TYPE: case OFFSET_TYPE: case LANG_TYPE: @@ -4003,11 +4002,6 @@ output_type (type, containing_scope) abort (); /* No way to represent these in Dwarf yet! */ break; - case STRING_TYPE: - output_type (TREE_TYPE (type), containing_scope); - output_die (output_string_type_die, type); - break; - case FUNCTION_TYPE: /* Force out return type (in case it wasn't forced out already). */ output_type (TREE_TYPE (type), containing_scope); @@ -4024,17 +4018,23 @@ output_type (type, containing_scope) end_sibling_chain (); break; - case ARRAY_TYPE: - { - register tree element_type; + case ARRAY_TYPE: + if (TYPE_STRING_FLAG (type) && TREE_CODE(TREE_TYPE(type)) == CHAR_TYPE) + { + output_type (TREE_TYPE (type), containing_scope); + output_die (output_string_type_die, type); + } + else + { + register tree element_type; - element_type = TREE_TYPE (type); - while (TREE_CODE (element_type) == ARRAY_TYPE) - element_type = TREE_TYPE (element_type); + element_type = TREE_TYPE (type); + while (TREE_CODE (element_type) == ARRAY_TYPE) + element_type = TREE_TYPE (element_type); - output_type (element_type, containing_scope); - output_die (output_array_type_die, type); - } + output_type (element_type, containing_scope); + output_die (output_array_type_die, type); + } break; case ENUMERAL_TYPE: |