diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-02 07:35:01 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-02 07:35:01 +0200 |
commit | fbbdd1e3aeac3adcfa073f3953027972f36e2c82 (patch) | |
tree | 6770feccb72bf9c6f4f0900a8ddfd0fada205f79 /src/synth/synth-static_proc.adb | |
parent | c23324b6b718eda1b34302ea497e0f65fca1a9e1 (diff) | |
download | ghdl-fbbdd1e3aeac3adcfa073f3953027972f36e2c82.tar.gz ghdl-fbbdd1e3aeac3adcfa073f3953027972f36e2c82.tar.bz2 ghdl-fbbdd1e3aeac3adcfa073f3953027972f36e2c82.zip |
synth: rework - use valtyp for expressions.
Diffstat (limited to 'src/synth/synth-static_proc.adb')
-rw-r--r-- | src/synth/synth-static_proc.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-static_proc.adb b/src/synth/synth-static_proc.adb index f0a09a172..be0475b4a 100644 --- a/src/synth/synth-static_proc.adb +++ b/src/synth/synth-static_proc.adb @@ -30,10 +30,10 @@ package body Synth.Static_Proc is procedure Synth_Deallocate (Syn_Inst : Synth_Instance_Acc; Imp : Node) is Inter : constant Node := Get_Interface_Declaration_Chain (Imp); - Param : constant Value_Acc := Get_Value (Syn_Inst, Inter); + Param : constant Valtyp := Get_Value (Syn_Inst, Inter); begin - Synth.Heap.Synth_Deallocate (Param.Acc); - Param.Acc := Null_Heap_Index; + Synth.Heap.Synth_Deallocate (Param.Val.Acc); + Param.Val.Acc := Null_Heap_Index; end Synth_Deallocate; procedure Synth_Static_Procedure (Syn_Inst : Synth_Instance_Acc; |