OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

dump-parse-tree.c (debug): Add for symbol_attribute *, symbol_attribute and gfc_ref * arguments. 

2019-03-31  Thomas Koenig  <tkoenig@gcc.gnu.org>

    * dump-parse-tree.c (debug):  Add for symbol_attribute *,
    symbol_attribute and gfc_ref * arguments.

From-SVN: r270044
This commit is contained in:
Thomas Koenig 2019-03-31 15:21:10 +00:00
parent 1605fb3ed0
commit 60e8cda674
2 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2019-03-31 Thomas Koenig <tkoenig@gcc.gnu.org>
* dump-parse-tree.c (debug): Add for symbol_attribute *,
symbol_attribute and gfc_ref * arguments.
2019-03-30 Paul Thomas <pault@gcc.gnu.org>
PR fortran/89841

25
gcc/fortran/dump-parse-tree.c
View File

@ -50,10 +50,26 @@ static void show_namespace (gfc_namespace *ns);
static void show_code (int, gfc_code *);
static void show_symbol (gfc_symbol *);
static void show_typespec (gfc_typespec *);
static void show_ref (gfc_ref *);
static void show_attr (symbol_attribute *, const char *);
/* Allow dumping of an expression in the debugger. */
void gfc_debug_expr (gfc_expr *);
void debug (symbol_attribute *attr)
{
FILE *tmp = dumpfile;
dumpfile = stderr;
show_attr (attr, NULL);
fputc ('\n', dumpfile);
dumpfile = tmp;
}
void debug (symbol_attribute attr)
{
debug (&attr);
}
void debug (gfc_expr *e)
{
FILE *tmp = dumpfile;
@ -79,6 +95,15 @@ void debug (gfc_typespec ts)
debug (&ts);
}
void debug (gfc_ref *p)
{
FILE *tmp = dumpfile;
dumpfile = stderr;
show_ref (p);
fputc ('\n', dumpfile);
dumpfile = tmp;
}
void
gfc_debug_expr (gfc_expr *e)
{