diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-02-18 07:57:51 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-02-18 07:58:15 +0100 |
| commit | 8356ea3bb4e8d0e5ad8638c3d50914b64fc360ec (patch) | |
| tree | 23cd039d23cab2d962d684a0c442725f9923fd3f | |
| parent | 93dd7a3edf88dd069d41dd4d52428df99118f774 (diff) | |
| download | ghdl-8356ea3bb4e8d0e5ad8638c3d50914b64fc360ec.tar.gz ghdl-8356ea3bb4e8d0e5ad8638c3d50914b64fc360ec.tar.bz2 ghdl-8356ea3bb4e8d0e5ad8638c3d50914b64fc360ec.zip | |
grt-signals.adb: fix access. Fix #1652
| -rw-r--r-- | src/grt/grt-signals.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/grt/grt-signals.adb b/src/grt/grt-signals.adb index 11efa1527..ea714ae20 100644 --- a/src/grt/grt-signals.adb +++ b/src/grt/grt-signals.adb @@ -553,7 +553,7 @@ package body Grt.Signals is Proc := Get_Current_Process; for I in 0 .. Sig.S.Nbr_Drivers - 1 loop if Sig.S.Drivers (I).Proc = Proc then - return Sig.S.Drivers (I)'Access; + return Sig.S.Drivers (I)'Unrestricted_Access; end if; end loop; return null; |