mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-10 19:05:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

dbxout.c (dbxout_type): Output arrays of bits as if they were bitstrings for Chill

Browse Source 
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
This commit is contained in:
Dave Brolley 1998-06-04 13:15:44 +00:00 committed by Dave Brolley
parent a260abc996
commit 202fe2d6a7
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -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> Thu Jun 4 14:35:27 1998 David Edelsohn <edelsohn@mhpcc.edu>
* tree.c (get_inner_array_type): New function. * tree.c (get_inner_array_type): New function.

14
gcc/dbxout.c
View File

@ -1276,6 +1276,20 @@ dbxout_type (type, full, show_arg_types)
break; break;
case ARRAY_TYPE: 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 /* Output "a" followed by a range type definition
for the index type of the array for the index type of the array
followed by a reference to the target-type. followed by a reference to the target-type.