dist/gas/dwarf2dbg.c

1326 static struct frag *
1332 static struct frag *
1404 get_frag_fix (fragS *frag, segT seg)
1408   if (frag->fr_next)
1409     return frag->fr_fix;
1415     if (fr->frch_last == frag)
1416       return (char *) obstack_next_free (&fr->frch_obstack) - frag->fr_literal;
1662 emit_fixed_inc_line_addr (int line_delta, addressT addr_delta, fragS *frag,
1682   pexp = symbol_get_value_expression (frag->fr_symbol);
1704       emit_expr_fix (&exp, sizeof_address, frag, p, TC_PARSE_CONS_RETURN_NONE);
1710       emit_expr_fix (pexp, 2, frag, p, TC_PARSE_CONS_RETURN_NONE);
1726 /* Generate a variant frag that we can use to relax address/line
1741   /* The maximum size of the frag is the line delta with a maximum
1753 /* The function estimates the size of a rs_dwarf2dbg variant frag
1758 dwarf2dbg_estimate_size_before_relax (fragS *frag)
1763   addr_delta = resolve_symbol_value (frag->fr_symbol);
1765     size = size_fixed_inc_line_addr (frag->fr_offset, addr_delta);
1767     size = size_inc_line_addr (frag->fr_offset, addr_delta);
1769   frag->fr_subtype = size;
1774 /* This function relaxes a rs_dwarf2dbg variant frag based on the
1776    of the frag.  This returns the change in frag length.  */
1779 dwarf2dbg_relax_frag (fragS *frag)
1783   old_size = frag->fr_subtype;
1784   new_size = dwarf2dbg_estimate_size_before_relax (frag);
1789 /* This function converts a rs_dwarf2dbg variant frag into a normal
1790    fill frag.  This is called after all relaxation has been done.
1791    fr_subtype will be the desired length of the frag.  */
1794 dwarf2dbg_convert_frag (fragS *frag)
1801 	 symbols in the frag->fr_symbol expression might change.  Hence we
1811       addr_diff = resolve_symbol_value (frag->fr_symbol);
1815     addr_diff = resolve_symbol_value (frag->fr_symbol);
1820   gas_assert (frag->fr_var >= (int) frag->fr_subtype);
1823     emit_fixed_inc_line_addr (frag->fr_offset, addr_diff, frag,
1824 			      frag->fr_literal + frag->fr_fix,
1825 			      frag->fr_subtype);
1827     emit_inc_line_addr (frag->fr_offset, addr_diff,
1828 			frag->fr_literal + frag->fr_fix, frag->fr_subtype);
1830   frag->fr_fix += frag->fr_subtype;
1831   frag->fr_type = rs_fill;
1832   frag->fr_var = 0;
1833   frag->fr_offset = 0;
1847   fragS *last_frag = NULL, *frag;
1936       frag = symbol_get_frag (lab);
1944 		 address of the same frag, and we know we might when
1945 		 we're in the beginning of a frag, and we were at the
1946 		 end of the previous frag.  */
1947 	      && (frag == last_frag
1956       else if (frag == last_frag && ! DWARF2_USE_FIXED_ADVANCE_PC)
1963       last_frag = frag;
1973   frag = last_frag_for_seg (seg);
1974   frag_ofs = get_frag_fix (frag, seg);
1975   if (frag == last_frag && ! DWARF2_USE_FIXED_ADVANCE_PC)
1979       lab = symbol_temp_new (seg, frag, frag_ofs);
2391       fragS *frag;
2394       frag = first_frag_for_seg (s->seg);
2395       beg = symbol_temp_new (s->seg, frag, 0);
2398       frag = last_frag_for_seg (s->seg);
2399       end = symbol_temp_new (s->seg, frag, get_frag_fix (frag, s->seg));
2442       fragS *frag;
2447       frag = first_frag_for_seg (s->seg);
2448       beg = symbol_temp_new (s->seg, frag, 0);
2451       frag = last_frag_for_seg (s->seg);
2452       end = symbol_temp_new (s->seg, frag, get_frag_fix (frag, s->seg));
2511       fragS *frag;
2514       frag = first_frag_for_seg (s->seg);
2515       beg = symbol_temp_new (s->seg, frag, 0);
2518       frag = last_frag_for_seg (s->seg);
2519       end = symbol_temp_new (s->seg, frag, get_frag_fix (frag, s->seg));