From dabf31c2b12633033cea5a177f0deefe28c05c9b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 27 Jun 2022 20:59:16 +0200
Subject: netlists-disp_verilog: fix warning

---
 src/synth/netlists-disp_verilog.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/netlists-disp_verilog.adb b/src/synth/netlists-disp_verilog.adb
index 3097e758a..47fa0047a 100644
--- a/src/synth/netlists-disp_verilog.adb
+++ b/src/synth/netlists-disp_verilog.adb
@@ -246,13 +246,14 @@ package body Netlists.Disp_Verilog is
       --  Outputs
       Idx := 0;
       for O of Outputs (Inst) loop
+         Desc := Get_Output_Desc (Imod, Idx);
          if First then
             First := False;
          else
             Put_Line (",");
          end if;
          Put ("    .");
-         Put_Interface_Name (Get_Output_Desc (Imod, Idx).Name);
+         Put_Interface_Name (Desc.Name);
          Idx := Idx + 1;
          Put ("(");
          declare
-- 
cgit v1.2.3