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/dbxout.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/dbxout.c')
| -rw-r--r-- | gcc/dbxout.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/dbxout.c b/gcc/dbxout.c index 2517e6954c3..c3e611d17a5 100644 --- a/gcc/dbxout.c +++ b/gcc/dbxout.c @@ -1100,6 +1100,16 @@ dbxout_type (type, full, show_arg_types) break; case SET_TYPE: + if (use_gnu_debug_info_extensions) + { + have_used_extensions = 1; + fprintf (asmfile, "@s%d;", + BITS_PER_UNIT * int_size_in_bytes (type)); + /* Check if a bitstring type, which in Chill is + different from a [power]set. */ + if (TYPE_STRING_FLAG (type)) + fprintf (asmfile, "@S;"); + } putc ('S', asmfile); CHARS (1); dbxout_type (TYPE_DOMAIN (type), 0, 0); @@ -1110,6 +1120,13 @@ dbxout_type (type, full, show_arg_types) for the index type of the array followed by a reference to the target-type. ar1;0;N;M for a C array of type M and size N+1. */ + /* Check if a character string type, which in Chill is + different from an array of characters. */ + if (TYPE_STRING_FLAG (type) && use_gnu_debug_info_extensions) + { + have_used_extensions = 1; + fprintf (asmfile, "@S;"); + } tem = TYPE_DOMAIN (type); if (tem == NULL) fprintf (asmfile, "ar%d;0;-1;", |