diff options
Diffstat (limited to 'gcc/ada/s-pooloc.adb')
| -rw-r--r-- | gcc/ada/s-pooloc.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/s-pooloc.adb b/gcc/ada/s-pooloc.adb index 2a161f49de3..ebada306114 100644 --- a/gcc/ada/s-pooloc.adb +++ b/gcc/ada/s-pooloc.adb @@ -112,6 +112,8 @@ package body System.Pool_Local is if Prev (Allocated).all = Null_Address then Pool.First := Next (Allocated).all; + -- Comment needed + if Pool.First /= Null_Address then Prev (Pool.First).all := Null_Address; end if; |