diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-02 08:20:42 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-02 19:45:47 +0200 |
commit | 013c41bf28a636e32d7b62e89293f4ff172a5491 (patch) | |
tree | 1def9199177c040cb4ab005870196c31c3aa4fa4 /src/synth/synth-heap.adb | |
parent | cea5cdaaacc5b599ce7d9007315f029095ff1321 (diff) | |
download | ghdl-013c41bf28a636e32d7b62e89293f4ff172a5491.tar.gz ghdl-013c41bf28a636e32d7b62e89293f4ff172a5491.tar.bz2 ghdl-013c41bf28a636e32d7b62e89293f4ff172a5491.zip |
synth: more cleanup (and use of valtyp).
Diffstat (limited to 'src/synth/synth-heap.adb')
-rw-r--r-- | src/synth/synth-heap.adb | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/synth/synth-heap.adb b/src/synth/synth-heap.adb index 8db5b77de..76935a93c 100644 --- a/src/synth/synth-heap.adb +++ b/src/synth/synth-heap.adb @@ -37,10 +37,10 @@ package body Synth.Heap is when Type_Bit | Type_Logic => return new Value_Type' - (Kind => Value_Discrete, Typ => T, Scal => 0); + (Kind => Value_Discrete, Scal => 0); when Type_Discrete => return new Value_Type' - (Kind => Value_Discrete, Typ => T, Scal => T.Drange.Left); + (Kind => Value_Discrete, Scal => T.Drange.Left); when Type_Array => declare Len : constant Uns32 := Get_Array_Flat_Length (T); @@ -52,7 +52,7 @@ package body Synth.Heap is Arr.V (I) := Allocate_By_Type (El_Typ); end loop; return new Value_Type' - (Kind => Value_Const_Array, Typ => T, Arr => Arr); + (Kind => Value_Const_Array, Arr => Arr); end; when others => raise Internal_Error; @@ -73,8 +73,7 @@ package body Synth.Heap is | Value_Wire => raise Internal_Error; when Value_Discrete => - return new Value_Type' - (Kind => Value_Discrete, Typ => V.Typ, Scal => V.Val.Scal); + return new Value_Type'(Kind => Value_Discrete, Scal => V.Val.Scal); when Value_Array | Value_Const_Array => declare @@ -86,8 +85,7 @@ package body Synth.Heap is Arr.V (I) := Allocate_By_Value ((El_Typ, V.Val.Arr.V (I))); end loop; - return new Value_Type' - (Kind => Value_Const_Array, Typ => V.Typ, Arr => Arr); + return new Value_Type'(Kind => Value_Const_Array, Arr => Arr); end; when others => raise Internal_Error; |