diff options
| author | dje <dje@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-11-21 21:18:45 +0000 |
|---|---|---|
| committer | dje <dje@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-11-21 21:18:45 +0000 |
| commit | 20e18aeb7f28c66570c0cd9e5755c639cc9c7079 (patch) | |
| tree | 78cd72bd087b6d697b94d744765e65f92a813055 /gcc/dwarf2out.c | |
| parent | 22c77b9b305cd581b16d5ca65158a077435ff4ab (diff) | |
| download | gcc-20e18aeb7f28c66570c0cd9e5755c639cc9c7079.tar.gz | |
2003-11-21 Daniel Berlin <dberlin@dberlin.org>
David Edelsohn <edelsohn@gnu.org>
* dwarf2out.c (add_location_or_const_value_attribute): Add support
for PARALLEL.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@73817 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 972ad7cd948..78c6bdf0110 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -9456,6 +9456,33 @@ add_location_or_const_value_attribute (dw_die_ref die, tree decl) add_AT_location_description (die, DW_AT_location, descr); break; + case PARALLEL: + { + rtvec par_elems = XVEC (rtl, 0); + int num_elem = GET_NUM_ELEM (par_elems); + enum machine_mode mode; + int i; + + /* Create the first one, so we have something to add to. */ + descr = loc_descriptor (XEXP (RTVEC_ELT (par_elems, 0), 0)); + mode = GET_MODE (XEXP (RTVEC_ELT (par_elems, 0), 0)); + add_loc_descr (&descr, + new_loc_descr (DW_OP_piece, GET_MODE_SIZE (mode), 0)); + for (i = 1; i < num_elem; i++) + { + dw_loc_descr_ref temp; + + temp = loc_descriptor (XEXP (RTVEC_ELT (par_elems, i), 0)); + add_loc_descr (&descr, temp); + mode = GET_MODE (XEXP (RTVEC_ELT (par_elems, i), 0)); + add_loc_descr (&descr, + new_loc_descr (DW_OP_piece, + GET_MODE_SIZE (mode), 0)); + } + } + add_AT_location_description (die, DW_AT_location, descr); + break; + default: abort (); } |