diff options
| author | Per Bothner <bothner@gcc.gnu.org> | 1994-02-15 19:52:30 -0800 |
|---|---|---|
| committer | Per Bothner <bothner@gcc.gnu.org> | 1994-02-15 19:52:30 -0800 |
| commit | 4042d44040b437576f9cc4afb61307c0541ffb69 (patch) | |
| tree | a28f85c02ddc0bd7d98a00e61999b4c8bb21c66a /gcc/dbxout.c | |
| parent | 70b78a2622feb275490802a1a69956d01096dcf1 (diff) | |
| download | gcc-4042d44040b437576f9cc4afb61307c0541ffb69.zip gcc-4042d44040b437576f9cc4afb61307c0541ffb69.tar.gz gcc-4042d44040b437576f9cc4afb61307c0541ffb69.tar.bz2 | |
Use new flag TYPE_STRING_FLAG instead of STRING_TYPE.
From-SVN: r6570
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 2517e69..c3e611d 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;", |