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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@20230 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 0e5a1d4..f5b1241 100644 (file)
--- 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 (file)
--- 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.