From 0e199cbea1070c016d29348cd659b9e6ca688afb Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 14 Oct 2014 06:19:33 +0200 Subject: Initial support for package header and package instantiation. --- sem_types.adb | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'sem_types.adb') diff --git a/sem_types.adb b/sem_types.adb index 8c4c5a48e..6f54e9e3e 100644 --- a/sem_types.adb +++ b/sem_types.adb @@ -387,10 +387,7 @@ package body Sem_Types is Val := Sem_Expression (Get_Physical_Literal (Unit), Def); if Val /= Null_Iir then Set_Physical_Literal (Unit, Val); - Val := Eval_Static_Expr (Val); - if Get_Kind (Val) = Iir_Kind_Unit_Declaration then - Val := Create_Physical_Literal (1, Val); - end if; + Val := Eval_Physical_Literal (Val); Set_Physical_Unit_Value (Unit, Val); -- LRM93 §3.1 -- cgit v1.2.3