diff options
| -rw-r--r-- | ortho/debug/ortho_debug.adb | 2 | ||||
| -rw-r--r-- | ortho/ortho_nodes.common.ads | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ortho/debug/ortho_debug.adb b/ortho/debug/ortho_debug.adb index 7ca70c1..e61886e 100644 --- a/ortho/debug/ortho_debug.adb +++ b/ortho/debug/ortho_debug.adb @@ -1671,6 +1671,8 @@ package body Ortho_Debug is Add_Stmt (N); end New_Procedure_Call; + procedure New_Elsif_Stmt (Block : in out O_If_Block; Cond : O_Enode); + procedure Start_If_Stmt (Block : in out O_If_Block; Cond : O_Enode) is subtype O_Snode_If is O_Snode_Type (ON_If_Stmt); diff --git a/ortho/ortho_nodes.common.ads b/ortho/ortho_nodes.common.ads index 1d245db..e16b0a2 100644 --- a/ortho/ortho_nodes.common.ads +++ b/ortho/ortho_nodes.common.ads @@ -423,8 +423,6 @@ package ORTHO_NODES is -- Build an IF statement. procedure Start_If_Stmt (Block : in out O_If_Block; Cond : O_Enode); - -- COND is NULL for the final else statement. - procedure New_Elsif_Stmt (Block : in out O_If_Block; Cond : O_Enode); procedure New_Else_Stmt (Block : in out O_If_Block); procedure Finish_If_Stmt (Block : in out O_If_Block); |