diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-11 05:39:42 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-11 05:39:42 +0200 |
| commit | 76790ce35751b7db120cbde496782c161d376c60 (patch) | |
| tree | 368d1bd7202fd68fce7ef0394ac6a60696edb7ce /translate/grt/grt-values.adb | |
| parent | bc29eec25beb8e337bc7ad8ac38734d9491fbe94 (diff) | |
| download | ghdl-76790ce35751b7db120cbde496782c161d376c60.tar.gz ghdl-76790ce35751b7db120cbde496782c161d376c60.tar.bz2 ghdl-76790ce35751b7db120cbde496782c161d376c60.zip | |
vhdl2008: add translation and support for most of implicit operators.
Diffstat (limited to 'translate/grt/grt-values.adb')
| -rw-r--r-- | translate/grt/grt-values.adb | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/translate/grt/grt-values.adb b/translate/grt/grt-values.adb index 209f658a5..3d703bc85 100644 --- a/translate/grt/grt-values.adb +++ b/translate/grt/grt-values.adb @@ -602,22 +602,7 @@ package body Grt.Values is Error_E ("'"); end if; - case Multiple.Kind is - when Ghdl_Rtik_Unit64 => - Mult := To_Ghdl_Rtin_Unit64_Acc (Multiple).Value; - when Ghdl_Rtik_Unitptr => - case Rti.Kind is - when Ghdl_Rtik_Type_P64 => - Mult := To_Ghdl_Rtin_Unitptr_Acc (Multiple).Addr.I64; - when Ghdl_Rtik_Type_P32 => - Mult := Ghdl_I64 - (To_Ghdl_Rtin_Unitptr_Acc (Multiple).Addr.I32); - when others => - Internal_Error ("values.physical_type(P32/P64-1)"); - end case; - when others => - Internal_Error ("values.physical_type(P32/P64-2)"); - end case; + Mult := Grt.Rtis_Utils.Get_Physical_Unit_Value (Multiple, Rti); if Lit_End = 0 then return Mult; |