[Ada] Overflow in string streaming
authorArnaud Charlet <charlet@adacore.com>
Fri, 5 Jun 2020 15:50:16 +0000 (11:50 -0400)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 16 Jul 2020 09:17:57 +0000 (05:17 -0400)
commite4a99831f4fee023e50f4116318e678757bdf4ed
tree5fb8028f19f8fc895fa30630c20b86fa79fed7b2
parent0f6898f9d8c981eb70410bb9fd19d08ce1f684b8
[Ada] Overflow in string streaming

gcc/ada/

* libgnat/s-ststop.ads: Fix typo.
* libgnat/s-ststop.adb (Read, Write): Fix block number
computation to avoid overflows in case of large strings.
gcc/ada/libgnat/s-ststop.adb
gcc/ada/libgnat/s-ststop.ads