[Bug ada/77535] GNAT.Perfect_Hash_Generators accesses invalid memory with non-1-based strings

[liam at liampwll dot com via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77535

--- Comment #3 from Liam Powell <liam at liampwll dot com> ---
Maybe this too since that package is a bit of a pain to inspect and performance
of the package itself doesn't really matter:

modified   gcc/ada/libgnat/s-pehage.adb
@@ -89,6 +89,8 @@ package body System.Perfect_Hash_Generators is
    --  assign values to all the vertices. It cannot assign a value to an
    --  already assigned vertex as G is acyclic.

+   pragma Unsuppress (All_Checks);
+
    subtype Word_Id   is Integer;
    subtype Key_Id    is Integer;
    subtype Vertex_Id is Integer;