From 00319239e313633919ff821d2ffc81c0e5d605ff Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 10 Jan 2023 18:29:48 +0100
Subject: vhdl-sem_inst: fix build of suspend state chain

---
 src/vhdl/vhdl-sem_inst.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_inst.adb b/src/vhdl/vhdl-sem_inst.adb
index 54b31cc30..ba5c72acf 100644
--- a/src/vhdl/vhdl-sem_inst.adb
+++ b/src/vhdl/vhdl-sem_inst.adb
@@ -673,7 +673,7 @@ package body Vhdl.Sem_Inst is
                      begin
                         Set_Suspend_State_Chain (Res, Last);
                         Set_Suspend_State_Last (Decl, Res);
-                        if Decl = Null_Node then
+                        if Last = Null_Node then
                            Set_Suspend_State_Chain (Decl, Res);
                         end if;
                      end;
-- 
cgit v1.2.3