From 202fe2d6a76fa5743f576742f475ee33d8f21ec5 Mon Sep 17 00:00:00 2001 From: Dave Brolley Date: Thu, 4 Jun 1998 13:15:44 +0000 Subject: [PATCH] dbxout.c (dbxout_type): Output arrays of bits as if they were bitstrings for Chill Thu Jun 4 16:09:51 1998 Dave Brolley * dbxout.c (dbxout_type): Output arrays of bits as if they were bitstrings for Chill From-SVN: r20230 --- gcc/ChangeLog | 5 +++++ gcc/dbxout.c | 14 ++++++++++++++ 2 files changed, 19 insertions(+) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 0e5a1d46d732..f5b124103b7b 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +Thu Jun 4 16:09:51 1998 Dave Brolley + + * dbxout.c (dbxout_type): Output arrays of bits as if + they were bitstrings for Chill + Thu Jun 4 14:35:27 1998 David Edelsohn * tree.c (get_inner_array_type): New function. diff --git a/gcc/dbxout.c b/gcc/dbxout.c index a2abc7fc9441..13bef7de95db 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. -- 2.39.5