From 012cd7bb501aea20b41fc63516e67256dc62fd5c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 3 May 2020 07:53:47 +0200 Subject: synth-environment: minor change to ease debugging. --- src/synth/synth-environment.adb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb index ff295dba9..6ae560a2f 100644 --- a/src/synth/synth-environment.adb +++ b/src/synth/synth-environment.adb @@ -51,7 +51,9 @@ package body Synth.Environment is end Get_Wire_Mark; function Alloc_Wire (Kind : Wire_Kind; Obj : Source.Syn_Src) - return Wire_Id is + return Wire_Id + is + Res : Wire_Id; begin Wire_Id_Table.Append ((Kind => Kind, Mark_Flag => False, @@ -60,7 +62,8 @@ package body Synth.Environment is Cur_Assign => No_Seq_Assign, Final_Assign => No_Conc_Assign, Nbr_Final_Assign => 0)); - return Wire_Id_Table.Last; + Res := Wire_Id_Table.Last; + return Res; end Alloc_Wire; procedure Free_Wire (Wid : Wire_Id) -- cgit v1.2.3