OpenCores
URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [gas/] [dwarf2dbg.c] - Diff between revs 160 and 163

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 160 Rev 163
Line 205... Line 205...
  1, 1, 0, 0,
  1, 1, 0, 0,
  DWARF2_LINE_DEFAULT_IS_STMT ? DWARF2_FLAG_IS_STMT : 0,
  DWARF2_LINE_DEFAULT_IS_STMT ? DWARF2_FLAG_IS_STMT : 0,
  0
  0
};
};
 
 
 
/* Lines that are at the same location as CURRENT, and which are waiting
 
   for a label.  */
 
static struct line_entry *pending_lines, **pending_lines_tail = &pending_lines;
 
 
/* The size of an address on the target.  */
/* The size of an address on the target.  */
static unsigned int sizeof_address;
static unsigned int sizeof_address;


static unsigned int get_filenum (const char *, unsigned int);
static unsigned int get_filenum (const char *, unsigned int);
 
 
Line 278... Line 282...
  last_line_subseg = lss;
  last_line_subseg = lss;
 
 
  return lss;
  return lss;
}
}
 
 
/* Record an entry for LOC occurring at LABEL.  */
/* Push LOC onto the pending lines list.  */
 
 
static void
static void
dwarf2_gen_line_info_1 (symbolS *label, struct dwarf2_line_info *loc)
dwarf2_push_line (struct dwarf2_line_info *loc)
{
{
  struct line_subseg *lss;
 
  struct line_entry *e;
  struct line_entry *e;
 
 
  e = (struct line_entry *) xmalloc (sizeof (*e));
  e = (struct line_entry *) xmalloc (sizeof (*e));
  e->next = NULL;
  e->next = NULL;
  e->label = label;
  e->label = NULL;
  e->loc = *loc;
  e->loc = *loc;
 
 
 
  *pending_lines_tail = e;
 
  pending_lines_tail = &(*pending_lines_tail)->next;
 
}
 
 
 
/* Emit all pending line information.  LABEL is the label with which the
 
   lines should be associated, or null if they should be associated with
 
   the current position.  */
 
 
 
static void
 
dwarf2_flush_pending_lines (symbolS *label)
 
{
 
  if (pending_lines)
 
    {
 
      struct line_subseg *lss;
 
      struct line_entry *e;
 
 
 
      if (!label)
 
        label = symbol_temp_new_now ();
 
 
 
      for (e = pending_lines; e; e = e->next)
 
        e->label = label;
 
 
  lss = get_line_subseg (now_seg, now_subseg);
  lss = get_line_subseg (now_seg, now_subseg);
  *lss->ptail = e;
      *lss->ptail = pending_lines;
  lss->ptail = &e->next;
      lss->ptail = pending_lines_tail;
 
 
 
      pending_lines = NULL;
 
      pending_lines_tail = &pending_lines;
 
    }
}
}
 
 
/* Record an entry for LOC occurring at OFS within the current fragment.  */
/* Record an entry for LOC occurring at OFS within the current fragment.  */
 
 
void
void
dwarf2_gen_line_info (addressT ofs, struct dwarf2_line_info *loc)
dwarf2_gen_line_info (addressT ofs, struct dwarf2_line_info *loc)
{
{
  static unsigned int line = -1;
  static unsigned int line = -1;
  static unsigned int filenum = -1;
  static unsigned int filenum = -1;
 
 
  symbolS *sym;
 
 
 
  /* Early out for as-yet incomplete location information.  */
  /* Early out for as-yet incomplete location information.  */
  if (loc->filenum == 0 || loc->line == 0)
  if (loc->filenum == 0 || loc->line == 0)
    return;
    return;
 
 
  /* Don't emit sequences of line symbols for the same line when the
  /* Don't emit sequences of line symbols for the same line when the
Line 321... Line 348...
    return;
    return;
 
 
  line = loc->line;
  line = loc->line;
  filenum = loc->filenum;
  filenum = loc->filenum;
 
 
  sym = symbol_temp_new (now_seg, ofs, frag_now);
  dwarf2_push_line (loc);
  dwarf2_gen_line_info_1 (sym, loc);
  dwarf2_flush_pending_lines (symbol_temp_new (now_seg, ofs, frag_now));
}
}
 
 
/* Returns the current source information.  If .file directives have
/* Returns the current source information.  If .file directives have
   been encountered, the info for the corresponding source file is
   been encountered, the info for the corresponding source file is
   returned.  Otherwise, the info for the assembly source file is
   returned.  Otherwise, the info for the assembly source file is
Line 383... Line 410...
   it has been used.  */
   it has been used.  */
 
 
void
void
dwarf2_consume_line_info (void)
dwarf2_consume_line_info (void)
{
{
 
  /* If the consumer has stashed the current location away for later use,
 
     assume that any earlier location information should be associated
 
     with ".".  */
 
  dwarf2_flush_pending_lines (NULL);
 
 
  /* Unless we generate DWARF2 debugging information for each
  /* Unless we generate DWARF2 debugging information for each
     assembler line, we only emit one line symbol for one LOC.  */
     assembler line, we only emit one line symbol for one LOC.  */
  dwarf2_loc_directive_seen = FALSE;
  dwarf2_loc_directive_seen = FALSE;
 
 
  current.flags &= ~(DWARF2_FLAG_BASIC_BLOCK
  current.flags &= ~(DWARF2_FLAG_BASIC_BLOCK
Line 414... Line 446...
 
 
  dwarf2_where (&loc);
  dwarf2_where (&loc);
 
 
  loc.flags |= DWARF2_FLAG_BASIC_BLOCK;
  loc.flags |= DWARF2_FLAG_BASIC_BLOCK;
 
 
  dwarf2_gen_line_info_1 (label, &loc);
  dwarf2_push_line (&loc);
 
  dwarf2_flush_pending_lines (label);
  dwarf2_consume_line_info ();
  dwarf2_consume_line_info ();
}
}
 
 
/* Get a .debug_line file number for FILENAME.  If NUM is nonzero,
/* Get a .debug_line file number for FILENAME.  If NUM is nonzero,
   allocate it on that file table slot, otherwise return the first
   allocate it on that file table slot, otherwise return the first
Line 574... Line 607...
  offsetT filenum, line;
  offsetT filenum, line;
 
 
  /* If we see two .loc directives in a row, force the first one to be
  /* If we see two .loc directives in a row, force the first one to be
     output now.  */
     output now.  */
  if (dwarf2_loc_directive_seen)
  if (dwarf2_loc_directive_seen)
    dwarf2_emit_insn (0);
    dwarf2_push_line (&current);
 
 
  filenum = get_absolute_expression ();
  filenum = get_absolute_expression ();
  SKIP_WHITESPACE ();
  SKIP_WHITESPACE ();
  line = get_absolute_expression ();
  line = get_absolute_expression ();
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.