diff options
Diffstat (limited to 'src/synth/synth-vhdl_static_proc.adb')
-rw-r--r-- | src/synth/synth-vhdl_static_proc.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_static_proc.adb b/src/synth/synth-vhdl_static_proc.adb index 5dc31318b..0bdb785f0 100644 --- a/src/synth/synth-vhdl_static_proc.adb +++ b/src/synth/synth-vhdl_static_proc.adb @@ -32,6 +32,10 @@ package body Synth.Vhdl_Static_Proc is Param : constant Valtyp := Get_Value (Syn_Inst, Inter); Val : Heap_Index; begin + if not Is_Static (Param.Val) then + -- Certainly an error (and certainly already reported). + return; + end if; Val := Read_Access (Param); if Val /= Null_Heap_Index then Elab.Vhdl_Heap.Synth_Deallocate (Val); |