[Ada] Use Standard.Natural on indices in support routines for Ada.Tags
authorEric Botcazou <ebotcazou@adacore.com>
Sun, 15 Dec 2019 17:26:24 +0000 (18:26 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 2 Jun 2020 08:58:09 +0000 (04:58 -0400)
commitc2f285434dc5dff1a396cc3616959c7a2b80a750
treef9e75d24bd5732e8a09eb2cc6c1e481b591153e7
parent6618a9b67ca825c92d0cdd88df8c81bdf58de90c
[Ada] Use Standard.Natural on indices in support routines for Ada.Tags

2020-06-02  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* exp_atag.ads (Build_Inherit_Predefined_Prims): Change type
of Num_Predef_Prim parameter from Int to Nat.
* exp_atag.adb (Build_Range): New procedure.
(Build_Val): Likewise.
(Build_CW_Membership): Call Build_Val.
(Build_Get_Predefined_Prim_Op_Address): Likewise.
(Build_Inherit_CPP_Prims): Likewise.
(Build_Get_Prim_Op_Address): Likewise.
(Build_Set_Predefined_Prim_Op_Address): Likewise.
(Build_Inherit_Prims): Call Build_Range.
(Build_Inherit_Predefined_Prims): Likewise.  Change type of
Num_Predef_Prim parameter from Int to Nat.
gcc/ada/exp_atag.adb
gcc/ada/exp_atag.ads