From 1fb5e0b79a8428ca3b0826bfdf4865d28350376a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 23 Jan 2015 04:12:03 +0100 Subject: Style fix. --- src/vhdl/sem_stmts.adb | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'src') 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 -- cgit v1.2.3