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

re PR fortran/34153 (Debugging: Cannot set breakpoint in comment lines or "END PROGRAM")

Browse source 
2009-05-13  Tobias Burnus  <burnus@net-b.de>

        PR fortran/34153
        * gfortran.h (gfc_exec_op): Add EXEC_END_PROCEDURE.
        * dump-parse-tree.c (show_code_node): Use EXEC_END_PROCEDURE.
        * trans.c (gfc_trans_code): Ditto.
        * resolve.c (resolve_code): Ditto.
        * st.c (gfc_free_statement): Ditto.

From-SVN: r147477
This commit is contained in:
Tobias Burnus 2009-05-13 16:52:54 +02:00 • committed by Tobias Burnus
parent ebaa6ea7ad
commit 5c71a5e0e9
7 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gcc/fortran/ChangeLog
View file

@ -1,3 +1,13 @@
2009-05-13 Tobias Burnus <burnus@net-b.de>
PR fortran/34153
* gfortran.h (gfc_exec_op): Add EXEC_END_PROCEDURE.
* dump-parse-tree.c (show_code_node): Use EXEC_END_PROCEDURE.
* trans.c (gfc_trans_code): Ditto.
* resolve.c (resolve_code): Ditto.
* st.c (gfc_free_statement): Ditto.
* parse.c (accept_statement): Ditto.
2009-05-12 Tobias Burnus <burnus@net-b.de>
PR fortran/40110

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

@ -1148,6 +1148,9 @@ show_code_node (int level, gfc_code *c)
switch (c->op)
{
case EXEC_END_PROCEDURE:
break;
case EXEC_NOP:
fputs ("NOP", dumpfile);
break;

2
gcc/fortran/gfortran.h
View file

@ -1893,7 +1893,7 @@ typedef enum
EXEC_ENTRY, EXEC_PAUSE, EXEC_STOP, EXEC_CONTINUE, EXEC_INIT_ASSIGN,
EXEC_IF, EXEC_ARITHMETIC_IF, EXEC_DO, EXEC_DO_WHILE, EXEC_SELECT,
EXEC_FORALL, EXEC_WHERE, EXEC_CYCLE, EXEC_EXIT, EXEC_CALL_PPC,
EXEC_ALLOCATE, EXEC_DEALLOCATE,
EXEC_ALLOCATE, EXEC_DEALLOCATE, EXEC_END_PROCEDURE,
EXEC_OPEN, EXEC_CLOSE, EXEC_WAIT,
EXEC_READ, EXEC_WRITE, EXEC_IOLENGTH, EXEC_TRANSFER, EXEC_DT_END,
EXEC_BACKSPACE, EXEC_ENDFILE, EXEC_INQUIRE, EXEC_REWIND, EXEC_FLUSH,

5
gcc/fortran/parse.c
View file

@ -1496,6 +1496,11 @@ accept_statement (gfc_statement st)
new_st.op = EXEC_RETURN;
add_statement ();
}
else
{
new_st.op = EXEC_END_PROCEDURE;
add_statement ();
}
break;

1
gcc/fortran/resolve.c
View file

@ -6938,6 +6938,7 @@ resolve_code (gfc_code *code, gfc_namespace *ns)
break;
case EXEC_INIT_ASSIGN:
case EXEC_END_PROCEDURE:
break;
case EXEC_ASSIGN:

1
gcc/fortran/st.c
View file

@ -94,6 +94,7 @@ gfc_free_statement (gfc_code *p)
case EXEC_GOTO:
case EXEC_CYCLE:
case EXEC_RETURN:
case EXEC_END_PROCEDURE:
case EXEC_IF:
case EXEC_PAUSE:
case EXEC_STOP:

1
gcc/fortran/trans.c
View file

@ -1056,6 +1056,7 @@ gfc_trans_code (gfc_code * code)
{
case EXEC_NOP:
case EXEC_END_BLOCK:
case EXEC_END_PROCEDURE:
res = NULL_TREE;
break;