diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-03 04:41:55 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-03 04:41:55 +0200 |
| commit | 6d8c5299f20b4cd8f1e049f7eea454c00a3102b7 (patch) | |
| tree | e06fd1ab55f2398d2e121ad6d7a7b3236aaeda6b /configuration.adb | |
| parent | e6ffb98cb5ad3f07bcaf79323d8ab8411688c494 (diff) | |
| download | ghdl-6d8c5299f20b4cd8f1e049f7eea454c00a3102b7.tar.gz ghdl-6d8c5299f20b4cd8f1e049f7eea454c00a3102b7.tar.bz2 ghdl-6d8c5299f20b4cd8f1e049f7eea454c00a3102b7.zip | |
Fix ghdl_simul (after previous change).
Diffstat (limited to 'configuration.adb')
| -rw-r--r-- | configuration.adb | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/configuration.adb b/configuration.adb index 997c9d287..b9391f7eb 100644 --- a/configuration.adb +++ b/configuration.adb @@ -206,14 +206,10 @@ package body Configuration is while Stmt /= Null_Iir loop case Get_Kind (Stmt) is when Iir_Kind_Component_Instantiation_Statement => - declare - Unit : constant Iir := Get_Instantiated_Unit (Stmt); - begin - if Get_Kind (Unit) not in Iir_Kinds_Denoting_Name then - -- Entity or configuration instantiation. - Add_Design_Aspect (Unit, True); - end if; - end; + if Is_Entity_Instantiation (Stmt) then + -- Entity or configuration instantiation. + Add_Design_Aspect (Get_Instantiated_Unit (Stmt), True); + end if; when Iir_Kind_Generate_Statement | Iir_Kind_Block_Statement => Add_Design_Concurrent_Stmts (Stmt); |