procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

dump-parse-tree.c (show_code): Add prototype.

Browse source 
2016-11-14  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* dump-parse-tree.c (show_code):  Add prototype.
	(gfc_debug_code):  New function.
	(show_code_node):  Add space after SELECT TYPE.

From-SVN: r242393
This commit is contained in:
Thomas Koenig 2016-11-14 18:15:36 +00:00
parent d809e15a19
commit d32e1fd8b9
2 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2016-11-14 Thomas Koenig <tkoenig@gcc.gnu.org>
* dump-parse-tree.c (show_code): Add prototype.
(gfc_debug_code): New function.
(show_code_node): Add space after SELECT TYPE.
2016-11-14 Janus Weil <janus@gcc.gnu.org>
PR fortran/78300

15
gcc/fortran/dump-parse-tree.c
View file

@ -47,6 +47,7 @@ static FILE *dumpfile;
static void show_expr (gfc_expr *p);
static void show_code_node (int, gfc_code *);
static void show_namespace (gfc_namespace *ns);
static void show_code (int, gfc_code *);
/* Allow dumping of an expression in the debugger. */
@ -62,6 +63,18 @@ gfc_debug_expr (gfc_expr *e)
dumpfile = tmp;
}
/* Allow for dumping of a piece of code in the debugger. */
void gfc_debug_code (gfc_code *c);
void
gfc_debug_code (gfc_code *c)
{
FILE *tmp = dumpfile;
dumpfile = stderr;
show_code (1, c);
fputc ('\n', dumpfile);
dumpfile = tmp;
}
/* Do indentation for a specific level. */
@ -1987,7 +2000,7 @@ show_code_node (int level, gfc_code *c)
case EXEC_SELECT_TYPE:
d = c->block;
if (c->op == EXEC_SELECT_TYPE)
fputs ("SELECT TYPE", dumpfile);
fputs ("SELECT TYPE ", dumpfile);
else
fputs ("SELECT CASE ", dumpfile);
show_expr (c->expr1);