diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-10 18:29:48 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-10 18:29:48 +0100 |
| commit | 00319239e313633919ff821d2ffc81c0e5d605ff (patch) | |
| tree | b94d3bbdcacdb6e37912f795da815943a4bd900d | |
| parent | 7ac89fac25f4953a85e2c34307f329e58072fbc0 (diff) | |
| download | ghdl-00319239e313633919ff821d2ffc81c0e5d605ff.tar.gz ghdl-00319239e313633919ff821d2ffc81c0e5d605ff.tar.bz2 ghdl-00319239e313633919ff821d2ffc81c0e5d605ff.zip | |
vhdl-sem_inst: fix build of suspend state chain
| -rw-r--r-- | src/vhdl/vhdl-sem_inst.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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; |