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 /sem_types.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 'sem_types.adb')
-rw-r--r-- | sem_types.adb | 5 |
1 files changed, 1 insertions, 4 deletions
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 |