diff options
| author | gingold | 2009-08-13 04:00:23 +0000 |
|---|---|---|
| committer | gingold | 2009-08-13 04:00:23 +0000 |
| commit | a91ee6a3d21f29017c7bcf81a73fa4b1aa189694 (patch) | |
| tree | aa2fa63ea688d402ce68273b8b840e0fc747dbeb | |
| parent | d1fddff66ad93c7efe5761a94029fa300d35aa4b (diff) | |
| download | ghdl-a91ee6a3d21f29017c7bcf81a73fa4b1aa189694.tar.gz ghdl-a91ee6a3d21f29017c7bcf81a73fa4b1aa189694.tar.bz2 ghdl-a91ee6a3d21f29017c7bcf81a73fa4b1aa189694.zip | |
Remove elsif.
| -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); |