diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-07-19 19:12:51 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-07-19 19:12:51 +0200 |
| commit | 348dcc000d792200eb9e9853a1684ab6b3b25764 (patch) | |
| tree | 27a32cfba7f5b1086f700eb973f2f6a324aa0305 /parse.adb | |
| parent | be1cda652b00ebfe4a9b4ca4e3cda2106586e739 (diff) | |
| download | ghdl-348dcc000d792200eb9e9853a1684ab6b3b25764.tar.gz ghdl-348dcc000d792200eb9e9853a1684ab6b3b25764.tar.bz2 ghdl-348dcc000d792200eb9e9853a1684ab6b3b25764.zip | |
Add Entity_Name for architecture and configuration.
Diffstat (limited to 'parse.adb')
| -rw-r--r-- | parse.adb | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -5952,7 +5952,7 @@ package body Parse is -- BEGIN -- architecture_statement_part -- END [ ARCHITECTURE ] [ ARCHITECTURE_simple_name ] ; - procedure Parse_Architecture (Unit : Iir_Design_Unit) + procedure Parse_Architecture_Body (Unit : Iir_Design_Unit) is Res: Iir_Architecture_Body; begin @@ -5969,7 +5969,7 @@ package body Parse is else Expect (Tok_Of); Scan; - Set_Entity (Res, Parse_Name (False)); + Set_Entity_Name (Res, Parse_Name (False)); Expect (Tok_Is); end if; @@ -5992,7 +5992,7 @@ package body Parse is Check_End_Name (Res); Expect (Tok_Semi_Colon); Set_Library_Unit (Unit, Res); - end Parse_Architecture; + end Parse_Architecture_Body; -- precond : next token -- postcond: a token @@ -6375,7 +6375,7 @@ package body Parse is Set_Location (Res); Scan_Expect (Tok_Of); Scan; - Set_Entity (Res, Parse_Name (False)); + Set_Entity_Name (Res, Parse_Name (False)); Expect (Tok_Is); Scan; @@ -6643,7 +6643,7 @@ package body Parse is when Tok_Entity => Parse_Entity_Declaration (Res); when Tok_Architecture => - Parse_Architecture (Res); + Parse_Architecture_Body (Res); when Tok_Package => Parse_Package (Res); when Tok_Configuration => |