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-types.ads | |
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-types.ads')
-rw-r--r-- | translate/grt/grt-types.ads | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/translate/grt/grt-types.ads b/translate/grt/grt-types.ads index 96bd97b51..fed822554 100644 --- a/translate/grt/grt-types.ads +++ b/translate/grt/grt-types.ads @@ -171,7 +171,23 @@ package Grt.Types is (Mode_B1, Mode_E8, Mode_E32, Mode_I32, Mode_I64, Mode_F64); type Ghdl_B1_Array is array (Ghdl_Index_Type range <>) of Ghdl_B1; + subtype Ghdl_B1_Array_Base is Ghdl_B1_Array (Ghdl_Index_Type); + type Ghdl_B1_Array_Base_Ptr is access Ghdl_B1_Array_Base; + function To_Ghdl_B1_Array_Base_Ptr is new Ada.Unchecked_Conversion + (Source => Ghdl_Ptr, Target => Ghdl_B1_Array_Base_Ptr); + type Ghdl_E8_Array is array (Ghdl_Index_Type range <>) of Ghdl_E8; + subtype Ghdl_E8_Array_Base is Ghdl_E8_Array (Ghdl_Index_Type); + type Ghdl_E8_Array_Base_Ptr is access Ghdl_E8_Array_Base; + function To_Ghdl_E8_Array_Base_Ptr is new Ada.Unchecked_Conversion + (Source => Ghdl_Ptr, Target => Ghdl_E8_Array_Base_Ptr); + + type Ghdl_E32_Array is array (Ghdl_Index_Type range <>) of Ghdl_E32; + subtype Ghdl_E32_Array_Base is Ghdl_E32_Array (Ghdl_Index_Type); + type Ghdl_E32_Array_Base_Ptr is access Ghdl_E32_Array_Base; + function To_Ghdl_E32_Array_Base_Ptr is new Ada.Unchecked_Conversion + (Source => Ghdl_Ptr, Target => Ghdl_E32_Array_Base_Ptr); + type Ghdl_I32_Array is array (Ghdl_Index_Type range <>) of Ghdl_I32; type Value_Union (Mode : Mode_Type := Mode_B1) is record |