diff options
| author | Dave Brolley <brolley@cygnus.com> | 1998-06-04 13:15:44 +0000 |
|---|---|---|
| committer | Dave Brolley <brolley@gcc.gnu.org> | 1998-06-04 09:15:44 -0400 |
| commit | 202fe2d6a76fa5743f576742f475ee33d8f21ec5 (patch) | |
| tree | 07ddeeded5460efe93a232920de789b93e07d5f6 | |
| parent | a260abc996f80102ba3820e02f4b281bd9b86a4a (diff) | |
| download | gcc-202fe2d6a76fa5743f576742f475ee33d8f21ec5.zip gcc-202fe2d6a76fa5743f576742f475ee33d8f21ec5.tar.gz gcc-202fe2d6a76fa5743f576742f475ee33d8f21ec5.tar.bz2 | |
dbxout.c (dbxout_type): Output arrays of bits as if they were bitstrings for Chill
Thu Jun 4 16:09:51 1998 Dave Brolley <brolley@cygnus.com>
* dbxout.c (dbxout_type): Output arrays of bits as if
they were bitstrings for Chill
From-SVN: r20230
| -rw-r--r-- | gcc/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/dbxout.c | 14 |
2 files changed, 19 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 0e5a1d4..f5b1241 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +Thu Jun 4 16:09:51 1998 Dave Brolley <brolley@cygnus.com> + + * dbxout.c (dbxout_type): Output arrays of bits as if + they were bitstrings for Chill + Thu Jun 4 14:35:27 1998 David Edelsohn <edelsohn@mhpcc.edu> * tree.c (get_inner_array_type): New function. diff --git a/gcc/dbxout.c b/gcc/dbxout.c index a2abc7f..13bef7d 100644 --- a/gcc/dbxout.c +++ b/gcc/dbxout.c @@ -1276,6 +1276,20 @@ dbxout_type (type, full, show_arg_types) break; case ARRAY_TYPE: + /* Make arrays of packed bits look like bitstrings for chill. */ + if (TYPE_PACKED (type) && use_gnu_debug_info_extensions) + { + have_used_extensions = 1; + fputs ("@s", asmfile); + fprintf (asmfile, HOST_WIDE_INT_PRINT_DEC, + BITS_PER_UNIT * int_size_in_bytes (type)); + fputc (';', asmfile); + fprintf (asmfile, "@S;"); + putc ('S', asmfile); + CHARS (1); + dbxout_type (TYPE_DOMAIN (type), 0, 0); + break; + } /* Output "a" followed by a range type definition for the index type of the array followed by a reference to the target-type. |