[Ada] Reference in Unbounded_String is almost never null
authorPiotr Trojanek <trojanek@adacore.com>
Tue, 15 Jun 2021 21:32:51 +0000 (23:32 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 25 Oct 2021 15:07:20 +0000 (15:07 +0000)
commit98f939e9c98403636f10168be568bb9b800aac41
treefe0630350214e1d1f21bdaef6e0a3099f16cba6e
parentf977a792721cdaa0d6cbda689b3a6930cf510f7e
[Ada] Reference in Unbounded_String is almost never null

gcc/ada/

* libgnat/a-strunb.ads (Unbounded_String): Reference is never
null.
* libgnat/a-strunb.adb (Finalize): Copy reference while it needs
to be deallocated.
gcc/ada/libgnat/a-strunb.adb
gcc/ada/libgnat/a-strunb.ads