diff options
| -rw-r--r-- | src/synth/elab-vhdl_objtypes.adb | 8 | ||||
| -rw-r--r-- | src/synth/elab-vhdl_objtypes.ads | 11 |
2 files changed, 13 insertions, 6 deletions
diff --git a/src/synth/elab-vhdl_objtypes.adb b/src/synth/elab-vhdl_objtypes.adb index 0b876ffeb..4815a495a 100644 --- a/src/synth/elab-vhdl_objtypes.adb +++ b/src/synth/elab-vhdl_objtypes.adb @@ -230,6 +230,10 @@ package body Elab.Vhdl_Objtypes is begin return To_Type_Acc (Alloc (Current_Pool, (Kind => Type_Bit, Wkind => Wkind_Net, + Drange => (Left => 0, + Right => 1, + Dir => Dir_To, + Is_Signed => False), Al => 0, Sz => 1, W => 1))); @@ -242,6 +246,10 @@ package body Elab.Vhdl_Objtypes is begin return To_Type_Acc (Alloc (Current_Pool, (Kind => Type_Logic, Wkind => Wkind_Net, + Drange => (Left => 0, + Right => 8, + Dir => Dir_To, + Is_Signed => False), Al => 0, Sz => 1, W => 1))); diff --git a/src/synth/elab-vhdl_objtypes.ads b/src/synth/elab-vhdl_objtypes.ads index 257065e5c..6d8554994 100644 --- a/src/synth/elab-vhdl_objtypes.ads +++ b/src/synth/elab-vhdl_objtypes.ads @@ -148,26 +148,25 @@ package Elab.Vhdl_Objtypes is case Kind is when Type_Bit - | Type_Logic => - null; - when Type_Discrete => + | Type_Logic + | Type_Discrete => Drange : Discrete_Range_Type; when Type_Float => Frange : Float_Range_Type; when Type_Slice => Slice_El : Type_Acc; when Type_Array - | Type_Vector => + | Type_Vector => Abound : Bound_Type; Alast : Boolean; -- True for the last dimension Arr_El : Type_Acc; when Type_Unbounded_Array - | Type_Unbounded_Vector => + | Type_Unbounded_Vector => Uarr_El : Type_Acc; Ulast : Boolean; Uarr_Idx : Type_Acc; when Type_Record - | Type_Unbounded_Record => + | Type_Unbounded_Record => Rec : Rec_El_Array_Acc; when Type_Access => Acc_Acc : Type_Acc; |