[Ada] Avoid duplication for Sets functions
authorEtienne Servais <servais@adacore.com>
Fri, 5 Nov 2021 13:25:50 +0000 (14:25 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 1 Dec 2021 10:24:39 +0000 (10:24 +0000)
commitab5996842789356d512a5eb16e00be244b0b2875
tree6c03ee94101ff9fc00b15dddb6b44c5698764a73
parent659e775a17415341113dcbd4b23f52d6cd63f502
[Ada] Avoid duplication for Sets functions

gcc/ada/

* libgnat/a-cbhase.adb, libgnat/a-cborse.adb,
libgnat/a-cihase.adb, libgnat/a-ciorse.adb,
libgnat/a-cohase.adb, libgnat/a-coorse.adb
(Constant_Reference,Reference_Preserving_Key): Refactor using
the equivalence stated in the RM.
gcc/ada/libgnat/a-cbhase.adb
gcc/ada/libgnat/a-cborse.adb
gcc/ada/libgnat/a-cihase.adb
gcc/ada/libgnat/a-ciorse.adb
gcc/ada/libgnat/a-cohase.adb
gcc/ada/libgnat/a-coorse.adb