[Ada] Further adjustment and optimization of System.Value_N
authorEric Botcazou <ebotcazou@adacore.com>
Fri, 9 Apr 2021 11:29:44 +0000 (13:29 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 29 Jun 2021 14:23:46 +0000 (14:23 +0000)
commit1a9d13fff60c845a258d1e6607d42290db45e5e7
treee8234d8f2e9799d6c062ee95f52a5eb605db3870
parentb9ec951f4318f1ed8d8c8d5477eeb534ad0811ae
[Ada] Further adjustment and optimization of System.Value_N

gcc/ada/

* rtsfind.ads (RE_Id): Change RE_Valid_Enumeration_Value_NN into
RE_Valid_Value_Enumeration_NN.
(RE_Unit_Table): Adjust to above renaming.
* exp_imgv.adb (Expand_Valid_Value_Attribute): Likewise.
* libgnat/s-valuen.ads (Invalid): Remove.
(Value_Enumeration_Pos): Move to...
* libgnat/s-valuen.adb (Value_Enumeration_Pos): ...here.
Return -1 instead of Invalid.
(Value_Enumeration): Compare against 0 instead of Invalid.
(Valid_Enumeration_Value): Likewise.  Rename to...
(Valid_Value_Enumeration): ...this.
* libgnat/s-vaenu8.ads (Valid_Enumeration_Value_8): Rename into...
(Valid_Value_Enumeration_8): ...this.
* libgnat/s-vaen16.ads (Valid_Enumeration_Value_16): Rename into...
(Valid_Value_Enumeration_16): ...this.
* libgnat/s-vaen32.ads (Valid_Enumeration_Value_32): Rename into...
(Valid_Value_Enumeration_32): ...this.
gcc/ada/exp_imgv.adb
gcc/ada/libgnat/s-vaen16.ads
gcc/ada/libgnat/s-vaen32.ads
gcc/ada/libgnat/s-vaenu8.ads
gcc/ada/libgnat/s-valuen.adb
gcc/ada/libgnat/s-valuen.ads
gcc/ada/rtsfind.ads