diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-02-09 22:32:19 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-13 08:04:30 +0000 |
| commit | 83bacaa9b5d8b652f311633ca9584ea56cd71d86 (patch) | |
| tree | afbcec35ce9fd431e99c4e94e616b785dd199f56 /gcc/ada/set_targ.adb | |
| parent | cb50998584eda9bbd3377d3dca6a8d264d6c4891 (diff) | |
| download | gcc-83bacaa9b5d8b652f311633ca9584ea56cd71d86.zip gcc-83bacaa9b5d8b652f311633ca9584ea56cd71d86.tar.gz gcc-83bacaa9b5d8b652f311633ca9584ea56cd71d86.tar.bz2 | |
[Ada] Remove obsolete uses of Unchecked_Conversion from Ada 83
Similar to a recent removal of obsolete uses of Unchecked_Deallocation.
In Ada 83 the Unchecked_Conversion was a top-level unit; since Ada 95 it
is an obsolete renaming of Ada.Unchecked_Conversion. GNAT doesn't warn
yet about uses of these obsolete renamings, but it still seems better to
avoid them.
gcc/ada/
* atree.adb, gen_il-gen.adb, osint.adb, set_targ.adb,
sinput.adb, table.adb, treepr.adb, types.ads: Replace uses of
Unchecked_Conversion in the compiler itself.
* libgnarl/a-reatim.adb, libgnarl/s-osinte__gnu.ads,
libgnarl/s-osinte__kfreebsd-gnu.ads, libgnat/a-coboho.adb,
libgnat/a-stuten.ads, libgnat/s-putima.adb: Likewise in the
runtime.
* doc/gnat_ugn/gnat_and_program_execution.rst: Likewise in
documentation.
* gnat_ugn.texi: Regenerate.
Diffstat (limited to 'gcc/ada/set_targ.adb')
| -rw-r--r-- | gcc/ada/set_targ.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/set_targ.adb b/gcc/ada/set_targ.adb index dcb2fd0..160f510 100644 --- a/gcc/ada/set_targ.adb +++ b/gcc/ada/set_targ.adb @@ -31,7 +31,7 @@ with Output; use Output; with System; use System; with System.OS_Lib; use System.OS_Lib; -with Unchecked_Conversion; +with Ada.Unchecked_Conversion; package body Set_Targ is @@ -404,7 +404,7 @@ package body Set_Targ is -- Pointer to Nat or Pos value (it is harmless to treat Pos values and -- Nat values as Natural via Unchecked_Conversion). - function To_ANat is new Unchecked_Conversion (Address, ANat); + function To_ANat is new Ada.Unchecked_Conversion (Address, ANat); procedure AddC (C : Character); -- Add one character to buffer @@ -566,7 +566,7 @@ package body Set_Targ is -- Pointer to Nat or Pos value (it is harmless to treat Pos values -- as Nat via Unchecked_Conversion). - function To_ANat is new Unchecked_Conversion (Address, ANat); + function To_ANat is new Ada.Unchecked_Conversion (Address, ANat); VP : ANat; |