diff options
| -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 |