diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-10-14 06:19:33 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-10-14 06:19:33 +0200 |
commit | 0e199cbea1070c016d29348cd659b9e6ca688afb (patch) | |
tree | 169e2c21b5e84998f03c2de76feed3e61cea503c /translate/trans_analyzes.adb | |
parent | 68d26922e31aad3cb34dd3b7689bcec75ad70fcb (diff) | |
download | ghdl-0e199cbea1070c016d29348cd659b9e6ca688afb.tar.gz ghdl-0e199cbea1070c016d29348cd659b9e6ca688afb.tar.bz2 ghdl-0e199cbea1070c016d29348cd659b9e6ca688afb.zip |
Initial support for package header and package instantiation.
Diffstat (limited to 'translate/trans_analyzes.adb')
-rw-r--r-- | translate/trans_analyzes.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/translate/trans_analyzes.adb b/translate/trans_analyzes.adb index c8fb14e62..cf800f0d4 100644 --- a/translate/trans_analyzes.adb +++ b/translate/trans_analyzes.adb @@ -70,7 +70,7 @@ package body Trans_Analyzes is (Get_Target (Stmt), Extract_Driver_Target'Access); when Iir_Kind_Procedure_Call_Statement => declare - Call : Iir; + Call : constant Iir := Get_Procedure_Call (Stmt); Assoc : Iir; Formal : Iir; Inter : Iir; @@ -78,10 +78,9 @@ package body Trans_Analyzes is -- Very pessimist. Has_After := True; - Call := Get_Procedure_Call (Stmt); Assoc := Get_Parameter_Association_Chain (Call); Inter := Get_Interface_Declaration_Chain - (Get_Named_Entity (Get_Implementation (Call))); + (Get_Implementation (Call)); while Assoc /= Null_Iir loop Formal := Get_Formal (Assoc); if Formal = Null_Iir then |