diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-23 04:12:03 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-23 04:12:03 +0100 |
| commit | 1fb5e0b79a8428ca3b0826bfdf4865d28350376a (patch) | |
| tree | 930ee4fb0600ebd45476d802eeadcf0762288ae0 /src | |
| parent | e18db47d92bb735f782e4409abb77d7b9233672f (diff) | |
| download | ghdl-1fb5e0b79a8428ca3b0826bfdf4865d28350376a.tar.gz ghdl-1fb5e0b79a8428ca3b0826bfdf4865d28350376a.tar.bz2 ghdl-1fb5e0b79a8428ca3b0826bfdf4865d28350376a.zip | |
Style fix.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/sem_stmts.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/vhdl/sem_stmts.adb b/src/vhdl/sem_stmts.adb index 6707624c0..e4c89961b 100644 --- a/src/vhdl/sem_stmts.adb +++ b/src/vhdl/sem_stmts.adb @@ -1284,15 +1284,12 @@ package body Sem_Stmts is -- ports and generics (either a entity_declaration or a component -- declaration). function Sem_Instantiated_Unit - (Stmt : Iir_Component_Instantiation_Statement) - return Iir + (Stmt : Iir_Component_Instantiation_Statement) return Iir is - Inst : Iir; + Inst : constant Iir := Get_Instantiated_Unit (Stmt); Comp_Name : Iir; Comp : Iir; begin - Inst := Get_Instantiated_Unit (Stmt); - if Get_Kind (Inst) in Iir_Kinds_Denoting_Name then Comp := Get_Named_Entity (Inst); if Comp /= Null_Iir then |