Example #1
0
static void show_symtree(g95_symtree *st) {

    show_indent();
    g95_status("symtree('%s', symbol=%s", st->name,
	       g95_symbol_name(st->n.sym));

    if (st->ambiguous)
	g95_status(", ambiguous=1");

    g95_status(")");

    if (st->n.sym->ns != g95_current_ns)
	g95_status("  # from namespace %s\n", st->n.sym->ns->proc_name->name);

    else {
	g95_status_char('\n');
	show_symbol(st->n.sym);
    }
}
Example #2
0
static void
show_symtree (gfc_symtree *st)
{
  int len, i;

  show_indent ();

  len = strlen(st->name);
  fprintf (dumpfile, "symtree: '%s'", st->name);

  for (i=len; i<12; i++)
    fputc(' ', dumpfile);

  if (st->ambiguous)
    fputs( " Ambiguous", dumpfile);

  if (st->n.sym->ns != gfc_current_ns)
    fprintf (dumpfile, "|| symbol: '%s' from namespace '%s'", st->n.sym->name,
	     st->n.sym->ns->proc_name->name);
  else
    show_symbol (st->n.sym);
}