From f634ad5b47eedde7599c4176001672401e2a0420 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 9 Mar 2020 20:37:32 +0100 Subject: synthesis: handle slice of dynamic array. --- src/synth/synth-stmts.adb | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src') 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 -- cgit v1.2.3