diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-09-15 03:32:13 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-15 03:32:13 +0200 |
| commit | a756fb5de1cdc475537d5c4cfbca52667e054f33 (patch) | |
| tree | 5e9d88a0a0f6c66f0177b3ec6fd28c9d6747e863 /src/vhdl | |
| parent | 1202fd28203f424a0a7431a289f244ed2d98557f (diff) | |
| download | ghdl-a756fb5de1cdc475537d5c4cfbca52667e054f33.tar.gz ghdl-a756fb5de1cdc475537d5c4cfbca52667e054f33.tar.bz2 ghdl-a756fb5de1cdc475537d5c4cfbca52667e054f33.zip | |
sem_stmts: reformatting.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/sem_stmts.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/vhdl/sem_stmts.adb b/src/vhdl/sem_stmts.adb index 7474dbec4..1c447dcd8 100644 --- a/src/vhdl/sem_stmts.adb +++ b/src/vhdl/sem_stmts.adb @@ -1596,9 +1596,9 @@ package body Sem_Stmts is procedure Sem_Block_Statement (Stmt: Iir_Block_Statement) is + Header : constant Iir_Block_Header := Get_Block_Header (Stmt); + Guard : constant Iir_Guard_Signal_Declaration := Get_Guard_Decl (Stmt); Expr: Iir; - Guard : Iir_Guard_Signal_Declaration; - Header : Iir_Block_Header; Generic_Chain : Iir; Port_Chain : Iir; begin @@ -1608,7 +1608,6 @@ package body Sem_Stmts is Set_Is_Within_Flag (Stmt, True); - Header := Get_Block_Header (Stmt); if Header /= Null_Iir then Generic_Chain := Get_Generic_Chain (Header); Sem_Interface_Chain (Generic_Chain, Generic_Interface_List); @@ -1637,7 +1636,6 @@ package body Sem_Stmts is -- implicitly declared at the beginning of the declarative part of the -- block, and the guard expression defined the value of that signal at -- any given time. - Guard := Get_Guard_Decl (Stmt); if Guard /= Null_Iir then -- LRM93 9.1 -- The type of the guard expression must be type BOOLEAN. |