diff options
Diffstat (limited to 'sem_names.adb')
| -rw-r--r-- | sem_names.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/sem_names.adb b/sem_names.adb index 1cd3635fd..749a3cdb3 100644 --- a/sem_names.adb +++ b/sem_names.adb @@ -15,22 +15,23 @@ -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Sem_Scopes; use Sem_Scopes; -with Sem_Expr; use Sem_Expr; with Evaluation; use Evaluation; with Iirs_Utils; use Iirs_Utils; with Libraries; with Errorout; use Errorout; with Flags; -with Sem; with Name_Table; with Std_Package; use Std_Package; with Types; use Types; -with Std_Names; with Iir_Chains; use Iir_Chains; +with Std_Names; +with Sem; +with Sem_Scopes; use Sem_Scopes; +with Sem_Expr; use Sem_Expr; with Sem_Stmts; use Sem_Stmts; with Sem_Decls; use Sem_Decls; with Sem_Assocs; use Sem_Assocs; +with Sem_Types; with Xrefs; use Xrefs; package body Sem_Names is @@ -667,6 +668,9 @@ package body Sem_Names is (Expr_Type, Min (Get_Type_Staticness (Prefix_Type), Get_Type_Staticness (Slice_Type))); Set_Type (Name, Expr_Type); + if Is_Signal_Object (Prefix) then + Sem_Types.Set_Type_Has_Signal (Expr_Type); + end if; end Finish_Sem_Slice_Name; procedure Finish_Sem_Function_Call (Call : Iir) |