diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-01-07 04:21:49 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-01-11 12:51:48 +0100 |
commit | 97314e1e9d5cf748c83ba63da8a449e339783009 (patch) | |
tree | 6673d09d1e3b2fe898ba22892ff4cbcb693e067e /src/vhdl/translate/trans.adb | |
parent | 2d0b6074af96f3375165afc7386b0e9071be206a (diff) | |
download | ghdl-97314e1e9d5cf748c83ba63da8a449e339783009.tar.gz ghdl-97314e1e9d5cf748c83ba63da8a449e339783009.tar.bz2 ghdl-97314e1e9d5cf748c83ba63da8a449e339783009.zip |
WIP: index arrays of unbounded elements.
Diffstat (limited to 'src/vhdl/translate/trans.adb')
-rw-r--r-- | src/vhdl/translate/trans.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index 4689150cc..06fc2c15d 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -1504,6 +1504,18 @@ package body Trans is Ptype => T.Ortho_Ptr_Type (Kind))); end E2M; + function E2M (E : O_Enode; + T : Type_Info_Acc; + Kind : Object_Kind_Type; + Vtype : O_Tnode; + Ptype : O_Tnode) + return Mnode is + begin + return Mnode'(M1 => (State => Mstate_E, + K => Kind, T => T, E => E, + Vtype => Vtype, Ptype => Ptype)); + end E2M; + function Lv2M (L : O_Lnode; T : Type_Info_Acc; Kind : Object_Kind_Type) return Mnode is begin |