update: support of amd64 + more optimizations

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)