diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-03-09 20:37:32 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-03-09 20:37:32 +0100 |
commit | f634ad5b47eedde7599c4176001672401e2a0420 (patch) | |
tree | 10dd919c0742ac116fdc48ea04bc60f5056a5417 | |
parent | 298aa852d3a080f4d26d814faf5bdaa65228949b (diff) | |
download | ghdl-f634ad5b47eedde7599c4176001672401e2a0420.tar.gz ghdl-f634ad5b47eedde7599c4176001672401e2a0420.tar.bz2 ghdl-f634ad5b47eedde7599c4176001672401e2a0420.zip |
synthesis: handle slice of dynamic array.
-rw-r--r-- | src/synth/synth-stmts.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 2e9c0369c..1f5230a35 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -277,10 +277,7 @@ package body Synth.Stmts is Create_Onedimensional_Array_Subtype (Dest_Type, Res_Bnd); if Dest_Voff /= No_Net then -- Slice of a memory. - if Dest_Off /= 0 then - raise Internal_Error; - end if; - Dest_Off := Sl_Off; + Dest_Off := Dest_Off + Sl_Off; else if Dest_Obj.Kind in Value_Array .. Value_Const_Array then declare |