diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-09-18 04:47:50 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-09-18 04:47:50 +0200 |
commit | eb9974cf1578e1bd4f4c167601fa767398db3e80 (patch) | |
tree | a6c7c8287fadc0af3036ea80fae1ab1bbda1e494 /src/vhdl/translate/trans-chap3.adb | |
parent | 358f0a800e3b3836e96606ff444df80964f31909 (diff) | |
download | ghdl-eb9974cf1578e1bd4f4c167601fa767398db3e80.tar.gz ghdl-eb9974cf1578e1bd4f4c167601fa767398db3e80.tar.bz2 ghdl-eb9974cf1578e1bd4f4c167601fa767398db3e80.zip |
translate: for alias of signal slice: trsnslate name subtype.
Fix #649
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index fb7a53aeb..ced7e1a94 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -3203,6 +3203,18 @@ package body Trans.Chap3 is Tinfo.B.Bounds_Ptr_Type)); end Allocate_Unbounded_Composite_Bounds; + procedure Translate_Array_Subtype (Arr_Type : Iir) is + begin + Chap3.Translate_Subtype_Definition + (Arr_Type, Get_Base_Type (Arr_Type), False); + Chap3.Create_Composite_Subtype_Bounds_Var (Arr_Type, False); + end Translate_Array_Subtype; + + procedure Elab_Array_Subtype (Arr_Type : Iir) is + begin + Chap3.Elab_Composite_Subtype_Bounds (Arr_Type); + end Elab_Array_Subtype; + procedure Create_Array_Subtype (Sub_Type : Iir) is Mark : Id_Mark_Type; |