Skip to content

R
riscv-gcc-1
Commit cecaf88a by Robert Dewar Committed by Arnaud Charlet
Options

a-taster.adb, [...]: Replace Unchecked_* by Ada.Unchecked_* 

2007-04-20  Robert Dewar  <dewar@adacore.com>

	* a-taster.adb, s-osinte-hpux.ads, s-osinte-solaris-posix.ads,
	s-osinte-irix.ads, s-interr-sigaction.adb, s-mastop-irix.adb,
	s-osinte-hpux-dce.ads, s-osinte-interix.ads, s-osinte-solaris.ads,
	s-taspri-solaris.ads, s-inmaop-vms.adb, s-interr-vms.adb,
	s-mastop-vms.adb, s-osinte-vms.ads, s-tpopde-vms.adb,
	s-osinte-mingw.ads, s-interr-vxworks.adb, i-cstrea-vms.adb,
	a-diocst.adb, a-direio.adb, a-interr.adb, a-sequio.adb, a-siocst.adb,
	a-ssicst.adb, a-storio.adb, a-ststio.adb, a-stwima.adb, a-tasatt.adb,
	a-taside.adb, a-tiocst.adb, a-witeio.adb, a-wtcstr.adb, g-crc32.adb,
	g-dirope.adb, g-dyntab.adb, g-memdum.adb, g-regexp.adb, g-spipat.adb,
	g-spitbo.adb, g-string.adb, g-string.ads, g-table.adb, g-thread.adb,
	i-cobol.adb, i-cpoint.adb, i-cstrea.adb, i-cstrin.adb, i-pacdec.adb,
	s-addima.adb, s-arit64.adb, s-auxdec.adb, s-auxdec.ads,
	s-auxdec-vms_64.ads, s-carsi8.adb, s-carun8.adb, s-casi16.adb,
	s-casi32.adb, s-casi64.adb, s-caun16.adb, s-caun32.adb, s-caun64.adb,
	s-direio.adb, s-fileio.adb, s-finimp.ads, s-geveop.adb, s-imgenu.adb,
	s-pack03.adb, s-pack05.adb, s-pack06.adb, s-pack07.adb, s-pack09.adb,
	s-pack10.adb, s-pack11.adb, s-pack12.adb, s-pack13.adb, s-pack14.adb,
 	s-pack15.adb, s-pack17.adb, s-pack18.adb, s-pack19.adb, s-pack20.adb,
	s-pack21.adb, s-pack22.adb, s-pack23.adb, s-pack24.adb, s-pack25.adb,
	s-pack26.adb, s-pack27.adb, s-pack28.adb, s-pack29.adb, s-pack30.adb,
	s-pack31.adb, s-pack33.adb, s-pack34.adb, s-pack35.adb, s-pack36.adb,
	s-pack37.adb, s-pack38.adb, s-pack39.adb, s-pack40.adb, s-pack41.adb,
	s-pack42.adb, s-pack43.adb, s-pack44.adb, s-pack45.adb, s-pack46.adb,
	s-pack47.adb, s-pack48.adb, s-pack49.adb, s-pack50.adb, s-pack51.adb,
	s-pack52.adb, s-pack53.adb, s-pack54.adb, s-pack55.adb, s-pack56.adb,
	s-pack57.adb, s-pack58.adb, s-pack59.adb, s-pack60.adb, s-pack61.adb,
	s-pack62.adb, s-pack63.adb, s-pooloc.adb, s-poosiz.adb, s-scaval.adb,
	s-sequio.adb, s-shasto.adb, s-stalib.ads, s-stratt.adb, s-strcom.adb,
	s-taasde.adb, s-tasdeb.adb, s-tasuti.ads, s-tataat.ads, s-tpoben.ads,
	s-valenu.adb, s-widenu.adb, s-wwdenu.adb, s-addope.adb, a-stzmap.adb,
	a-ztcstr.adb, a-ztexio.adb, s-osinte-linux-hppa.ads: Replace
	Unchecked_* by Ada.Unchecked_*

From-SVN: r125359
parent 47a5501d
Showing with 503 additions and 537 deletions
gcc/ada/a-diocst.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -35,7 +35,7 @@ with Interfaces.C_Streams; use Interfaces.C_Streams;
with System.File_IO;
with System.File_Control_Block;
with System.Direct_IO;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Direct_IO.C_Streams is
......@@ -45,7 +45,7 @@ package body Ada.Direct_IO.C_Streams is
subtype AP is FCB.AFCB_Ptr;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
--------------
-- C_Stream --
......
gcc/ada/a-direio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -43,7 +43,7 @@ with System.File_Control_Block;
with System.File_IO;
with System.Direct_IO;
with System.Storage_Elements;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
use type System.Direct_IO.Count;
......@@ -63,8 +63,8 @@ package body Ada.Direct_IO is
subtype FP is DIO.File_Type;
subtype DPCount is DIO.Positive_Count;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_DIO is new Unchecked_Conversion (FCB.File_Mode, File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_DIO is new Ada.Unchecked_Conversion (FCB.File_Mode, File_Mode);
use type System.CRTL.size_t;
......
gcc/ada/a-interr.adb
......@@ -7,7 +7,7 @@
-- B o d y --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, AdaCore --
-- Copyright (C) 1995-2007, AdaCore --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -32,16 +32,16 @@
-- --
------------------------------------------------------------------------------
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Interrupts is
package SI renames System.Interrupts;
function To_System is new Unchecked_Conversion
function To_System is new Ada.Unchecked_Conversion
(Parameterless_Handler, SI.Parameterless_Handler);
function To_Ada is new Unchecked_Conversion
function To_Ada is new Ada.Unchecked_Conversion
(SI.Parameterless_Handler, Parameterless_Handler);
--------------------
......
gcc/ada/a-sequio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -42,7 +42,7 @@ with System.CRTL;
with System.File_Control_Block;
with System.File_IO;
with System.Storage_Elements;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Sequential_IO is
......@@ -56,8 +56,8 @@ package body Ada.Sequential_IO is
subtype AP is FCB.AFCB_Ptr;
subtype FP is SIO.File_Type;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_SIO is new Unchecked_Conversion (FCB.File_Mode, File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_SIO is new Ada.Unchecked_Conversion (FCB.File_Mode, File_Mode);
use type System.CRTL.size_t;
......@@ -202,7 +202,7 @@ package body Ada.Sequential_IO is
-- which can't possibly come this way, and for which the
-- size of the access types differs.
function To_ItemP is new Unchecked_Conversion (SAP, ItemP);
function To_ItemP is new Ada.Unchecked_Conversion (SAP, ItemP);
pragma Warnings (On);
......
gcc/ada/a-siocst.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -35,7 +35,7 @@ with Interfaces.C_Streams; use Interfaces.C_Streams;
with System.File_IO;
with System.File_Control_Block;
with System.Sequential_IO;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Sequential_IO.C_Streams is
......@@ -45,7 +45,7 @@ package body Ada.Sequential_IO.C_Streams is
subtype AP is FCB.AFCB_Ptr;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
--------------
-- C_Stream --
......
gcc/ada/a-ssicst.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -34,7 +34,7 @@
with Interfaces.C_Streams; use Interfaces.C_Streams;
with System.File_IO;
with System.File_Control_Block;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Streams.Stream_IO.C_Streams is
......@@ -43,7 +43,7 @@ package body Ada.Streams.Stream_IO.C_Streams is
subtype AP is FCB.AFCB_Ptr;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
--------------
-- C_Stream --
......
gcc/ada/a-storio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,14 +31,15 @@
-- --
------------------------------------------------------------------------------
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Storage_IO is
type Buffer_Ptr is access all Buffer_Type;
type Elmt_Ptr is access all Element_Type;
function To_Buffer_Ptr is new Unchecked_Conversion (Elmt_Ptr, Buffer_Ptr);
function To_Buffer_Ptr is
new Ada.Unchecked_Conversion (Elmt_Ptr, Buffer_Ptr);
----------
-- Read --
......
gcc/ada/a-ststio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -38,8 +38,8 @@ with System.File_IO;
with System.Soft_Links;
with System.CRTL;
with Unchecked_Conversion;
with Unchecked_Deallocation;
with Ada.Unchecked_Conversion;
with Ada.Unchecked_Deallocation;
package body Ada.Streams.Stream_IO is
......@@ -48,8 +48,8 @@ package body Ada.Streams.Stream_IO is
subtype AP is FCB.AFCB_Ptr;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_SIO is new Unchecked_Conversion (FCB.File_Mode, File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_SIO is new Ada.Unchecked_Conversion (FCB.File_Mode, File_Mode);
use type FCB.File_Mode;
use type FCB.Shared_Status_Type;
......@@ -90,7 +90,7 @@ package body Ada.Streams.Stream_IO is
type FCB_Ptr is access all Stream_AFCB;
FT : FCB_Ptr := FCB_Ptr (File);
procedure Free is new Unchecked_Deallocation (Stream_AFCB, FCB_Ptr);
procedure Free is new Ada.Unchecked_Deallocation (Stream_AFCB, FCB_Ptr);
begin
Free (FT);
......
gcc/ada/a-stwima.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
with Unchecked_Deallocation;
with Ada.Unchecked_Deallocation;
package body Ada.Strings.Wide_Maps is
......@@ -363,7 +363,7 @@ package body Ada.Strings.Wide_Maps is
procedure Finalize (Object : in out Wide_Character_Mapping) is
procedure Free is new Unchecked_Deallocation
procedure Free is new Ada.Unchecked_Deallocation
(Wide_Character_Mapping_Values,
Wide_Character_Mapping_Values_Access);
......@@ -375,7 +375,7 @@ package body Ada.Strings.Wide_Maps is
procedure Finalize (Object : in out Wide_Character_Set) is
procedure Free is new Unchecked_Deallocation
procedure Free is new Ada.Unchecked_Deallocation
(Wide_Character_Ranges,
Wide_Character_Ranges_Access);
......
gcc/ada/a-stzmap.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
with Unchecked_Deallocation;
with Ada.Unchecked_Deallocation;
package body Ada.Strings.Wide_Wide_Maps is
......@@ -365,7 +365,7 @@ package body Ada.Strings.Wide_Wide_Maps is
procedure Finalize (Object : in out Wide_Wide_Character_Mapping) is
procedure Free is new Unchecked_Deallocation
procedure Free is new Ada.Unchecked_Deallocation
(Wide_Wide_Character_Mapping_Values,
Wide_Wide_Character_Mapping_Values_Access);
......@@ -377,7 +377,7 @@ package body Ada.Strings.Wide_Wide_Maps is
procedure Finalize (Object : in out Wide_Wide_Character_Set) is
procedure Free is new Unchecked_Deallocation
procedure Free is new Ada.Unchecked_Deallocation
(Wide_Wide_Character_Ranges,
Wide_Wide_Character_Ranges_Access);
......
gcc/ada/a-tasatt.adb
......@@ -7,7 +7,7 @@
-- B o d y --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, AdaCore --
-- Copyright (C) 1995-2007, AdaCore --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -102,8 +102,8 @@
-- In the first approach the objects on the attribute list are all derived
-- from one controlled type, say T, and are linked using an access type to
-- T'Class. The runtime system has an Unchecked_Deallocation for T'Class with
-- access type T'Class, and uses this to deallocate and finalize all the
-- T'Class. The runtime system has an Ada.Unchecked_Deallocation for T'Class
-- with access type T'Class, and uses this to deallocate and finalize all the
-- items in the list. The limitation of this approach is that each
-- instantiation of the package Ada.Task_Attributes derives a new record
-- extension of T, and since T is controlled (RM 3.9.1 (3)), instantiation is
......@@ -239,8 +239,8 @@ with System.Tasking;
-- Direct_Index
with System.Tasking.Initialization;
-- Used for Defer_Abortion
-- Undefer_Abortion
-- Used for Defer_Abort
-- Undefer_Abort
-- Initialize_Attributes_Link
-- Finalize_Attributes_Link
......@@ -255,8 +255,8 @@ with System.Tasking.Task_Attributes;
with Ada.Exceptions;
-- Used for Raise_Exception
with Unchecked_Conversion;
with Unchecked_Deallocation;
with Ada.Unchecked_Conversion;
with Ada.Unchecked_Deallocation;
pragma Elaborate_All (System.Tasking.Task_Attributes);
-- To ensure the initialization of object Local (below) will work
......@@ -290,16 +290,16 @@ package body Ada.Task_Attributes is
-- the compiler will generate warnings for the occurrences in the large
-- attribute case, even though they will not actually be used.
function To_Attribute_Handle is new Unchecked_Conversion
function To_Attribute_Handle is new Ada.Unchecked_Conversion
(System.Address, Attribute_Handle);
function To_Direct_Attribute_Element is new Unchecked_Conversion
function To_Direct_Attribute_Element is new Ada.Unchecked_Conversion
(System.Address, Direct_Attribute_Element);
-- For reference to directly addressed task attributes
type Access_Integer_Address is access all
System.Storage_Elements.Integer_Address;
function To_Attribute_Handle is new Unchecked_Conversion
function To_Attribute_Handle is new Ada.Unchecked_Conversion
(Access_Integer_Address, Attribute_Handle);
-- For reference to directly addressed task attributes
......@@ -307,12 +307,12 @@ package body Ada.Task_Attributes is
-- End of warnings off region for directly addressed
-- attribute conversion functions.
function To_Access_Address is new Unchecked_Conversion
function To_Access_Address is new Ada.Unchecked_Conversion
(Access_Node, Access_Address);
-- To store pointer to list of indirect attributes
pragma Warnings (Off);
function To_Access_Wrapper is new Unchecked_Conversion
function To_Access_Wrapper is new Ada.Unchecked_Conversion
(Access_Dummy_Wrapper, Access_Wrapper);
pragma Warnings (On);
-- To fetch pointer to actual wrapper of attribute node. We turn off
......@@ -321,17 +321,17 @@ package body Ada.Task_Attributes is
-- real wrapper type (we never actually allocate objects of type
-- Dummy_Wrapper).
function To_Access_Dummy_Wrapper is new Unchecked_Conversion
function To_Access_Dummy_Wrapper is new Ada.Unchecked_Conversion
(Access_Wrapper, Access_Dummy_Wrapper);
-- To store pointer to actual wrapper of attribute node
function To_Task_Id is new Unchecked_Conversion
function To_Task_Id is new Ada.Unchecked_Conversion
(Task_Identification.Task_Id, Task_Id);
-- To access TCB of identified task
type Local_Deallocator is access procedure (P : in out Access_Node);
function To_Lib_Level_Deallocator is new Unchecked_Conversion
function To_Lib_Level_Deallocator is new Ada.Unchecked_Conversion
(Local_Deallocator, Deallocator);
-- To defeat accessibility check
......@@ -366,7 +366,7 @@ package body Ada.Task_Attributes is
for Wrapper'Alignment use Standard'Maximum_Alignment;
procedure Free is
new Unchecked_Deallocation (Wrapper, Access_Wrapper);
new Ada.Unchecked_Deallocation (Wrapper, Access_Wrapper);
procedure Deallocate (P : in out Access_Node) is
T : Access_Wrapper := To_Access_Wrapper (P.Wrapper);
......
gcc/ada/a-taside.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -35,7 +35,7 @@ with System.Address_Image;
with System.Parameters;
with System.Soft_Links;
with System.Task_Primitives.Operations;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
pragma Warnings (Off);
-- Allow withing of non-Preelaborated units in Ada 2005 mode where this
......@@ -114,7 +114,7 @@ package body Ada.Task_Identification is
function Image (T : Task_Id) return String is
function To_Address is new
Unchecked_Conversion (Task_Id, System.Address);
Ada.Unchecked_Conversion (Task_Id, System.Address);
begin
if T = Null_Task_Id then
......
gcc/ada/a-taster.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2005-2006, Free Software Foundation, Inc. --
-- Copyright (C) 2005-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -48,7 +48,7 @@ with System.Soft_Links;
-- use for Abort_Defer
-- Abort_Undefer
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Task_Termination is
......@@ -63,13 +63,13 @@ package body Ada.Task_Termination is
-- Local subprograms --
-----------------------
function To_TT is new Unchecked_Conversion
function To_TT is new Ada.Unchecked_Conversion
(System.Tasking.Termination_Handler, Termination_Handler);
function To_ST is new Unchecked_Conversion
function To_ST is new Ada.Unchecked_Conversion
(Termination_Handler, System.Tasking.Termination_Handler);
function To_Task_Id is new Unchecked_Conversion
function To_Task_Id is new Ada.Unchecked_Conversion
(Ada.Task_Identification.Task_Id, System.Tasking.Task_Id);
-----------------------------------
......
gcc/ada/a-tiocst.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -34,7 +34,7 @@
with Interfaces.C_Streams; use Interfaces.C_Streams;
with System.File_IO;
with System.File_Control_Block;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Text_IO.C_Streams is
......@@ -43,7 +43,7 @@ package body Ada.Text_IO.C_Streams is
subtype AP is FCB.AFCB_Ptr;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
--------------
-- C_Stream --
......
gcc/ada/a-witeio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -40,8 +40,8 @@ with System.File_IO;
with System.WCh_Cnv; use System.WCh_Cnv;
with System.WCh_Con; use System.WCh_Con;
with Unchecked_Conversion;
with Unchecked_Deallocation;
with Ada.Unchecked_Conversion;
with Ada.Unchecked_Deallocation;
pragma Elaborate_All (System.File_IO);
-- Needed because of calls to Chain_File in package body elaboration
......@@ -52,8 +52,8 @@ package body Ada.Wide_Text_IO is
subtype AP is FCB.AFCB_Ptr;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_TIO is new Unchecked_Conversion (FCB.File_Mode, File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_TIO is new Ada.Unchecked_Conversion (FCB.File_Mode, File_Mode);
use type FCB.File_Mode;
use type System.CRTL.size_t;
......@@ -122,7 +122,8 @@ package body Ada.Wide_Text_IO is
type FCB_Ptr is access all Wide_Text_AFCB;
FT : FCB_Ptr := FCB_Ptr (File);
procedure Free is new Unchecked_Deallocation (Wide_Text_AFCB, FCB_Ptr);
procedure Free is
new Ada.Unchecked_Deallocation (Wide_Text_AFCB, FCB_Ptr);
begin
Free (FT);
......
gcc/ada/a-wtcstr.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -34,7 +34,7 @@
with Interfaces.C_Streams; use Interfaces.C_Streams;
with System.File_IO;
with System.File_Control_Block;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Wide_Text_IO.C_Streams is
......@@ -43,7 +43,7 @@ package body Ada.Wide_Text_IO.C_Streams is
subtype AP is FCB.AFCB_Ptr;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
--------------
-- C_Stream --
......
gcc/ada/a-ztcstr.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -34,7 +34,7 @@
with Interfaces.C_Streams; use Interfaces.C_Streams;
with System.File_IO;
with System.File_Control_Block;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Ada.Wide_Wide_Text_IO.C_Streams is
......@@ -43,7 +43,7 @@ package body Ada.Wide_Wide_Text_IO.C_Streams is
subtype AP is FCB.AFCB_Ptr;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
--------------
-- C_Stream --
......
gcc/ada/a-ztexio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -40,8 +40,8 @@ with System.File_IO;
with System.WCh_Cnv; use System.WCh_Cnv;
with System.WCh_Con; use System.WCh_Con;
with Unchecked_Conversion;
with Unchecked_Deallocation;
with Ada.Unchecked_Conversion;
with Ada.Unchecked_Deallocation;
pragma Elaborate_All (System.File_IO);
-- Needed because of calls to Chain_File in package body elaboration
......@@ -52,8 +52,8 @@ package body Ada.Wide_Wide_Text_IO is
subtype AP is FCB.AFCB_Ptr;
function To_FCB is new Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_TIO is new Unchecked_Conversion (FCB.File_Mode, File_Mode);
function To_FCB is new Ada.Unchecked_Conversion (File_Mode, FCB.File_Mode);
function To_TIO is new Ada.Unchecked_Conversion (FCB.File_Mode, File_Mode);
use type FCB.File_Mode;
use type System.CRTL.size_t;
......@@ -123,7 +123,7 @@ package body Ada.Wide_Wide_Text_IO is
FT : FCB_Ptr := FCB_Ptr (File);
procedure Free is new
Unchecked_Deallocation (Wide_Wide_Text_AFCB, FCB_Ptr);
Ada.Unchecked_Deallocation (Wide_Wide_Text_AFCB, FCB_Ptr);
begin
Free (FT);
......
gcc/ada/g-crc32.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2001-2005, AdaCore --
-- Copyright (C) 2001-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body GNAT.CRC32 is
......@@ -47,7 +47,7 @@ package body GNAT.CRC32 is
end Update;
procedure Update (C : in out CRC32; Value : Ada.Streams.Stream_Element) is
function To_Char is new Unchecked_Conversion
function To_Char is new Ada.Unchecked_Conversion
(Ada.Streams.Stream_Element, Character);
V : constant Character := To_Char (Value);
begin
......@@ -70,7 +70,7 @@ package body GNAT.CRC32 is
procedure Wide_Update (C : in out CRC32; Value : Wide_Character) is
subtype S2 is String (1 .. 2);
function To_S2 is new Unchecked_Conversion (Wide_Character, S2);
function To_S2 is new Ada.Unchecked_Conversion (Wide_Character, S2);
VS : constant S2 := To_S2 (Value);
begin
Update (C, VS (1));
......
gcc/ada/g-dirope.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1998-2006, AdaCore --
-- Copyright (C) 1998-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -34,8 +34,8 @@
with Ada.Characters.Handling;
with Ada.Strings.Fixed;
with Unchecked_Deallocation;
with Unchecked_Conversion;
with Ada.Unchecked_Deallocation;
with Ada.Unchecked_Conversion;
with System; use System;
with System.CRTL; use System.CRTL;
......@@ -54,7 +54,7 @@ package body GNAT.Directory_Operations is
-- 1024 is the value of FILENAME_MAX in stdio.h
procedure Free is new
Unchecked_Deallocation (Dir_Type_Value, Dir_Type);
Ada.Unchecked_Deallocation (Dir_Type_Value, Dir_Type);
---------------
-- Base_Name --
......@@ -689,7 +689,7 @@ package body GNAT.Directory_Operations is
type Path_String_Access is access Path_String;
function Address_To_Access is new
Unchecked_Conversion
Ada.Unchecked_Conversion
(Source => Address,
Target => Path_String_Access);
......
gcc/ada/g-dyntab.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2000-2006, AdaCore --
-- Copyright (C) 2000-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -35,7 +35,7 @@ with GNAT.Heap_Sort_G;
with System; use System;
with System.Memory; use System.Memory;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body GNAT.Dynamic_Tables is
......@@ -55,8 +55,8 @@ package body GNAT.Dynamic_Tables is
-- These unchecked conversions are in fact safe, since they never
-- generate improperly aliased pointer values.
function To_Address is new Unchecked_Conversion (Table_Ptr, Address);
function To_Pointer is new Unchecked_Conversion (Address, Table_Ptr);
function To_Address is new Ada.Unchecked_Conversion (Table_Ptr, Address);
function To_Pointer is new Ada.Unchecked_Conversion (Address, Table_Ptr);
pragma Warnings (On);
......@@ -269,7 +269,7 @@ package body GNAT.Dynamic_Tables is
-- Local subprograms
function Index_Of (Idx : Natural) return Table_Index_Type;
-- Apply Natural to indexs of the table
-- Return index of Idx'th element of table
function Lower_Than (Op1, Op2 : Natural) return Boolean;
-- Compare two components
......
gcc/ada/g-memdum.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2003-2005, AdaCore --
-- Copyright (C) 2003-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -37,7 +37,7 @@ with System.Storage_Elements; use System.Storage_Elements;
with GNAT.IO; use GNAT.IO;
with GNAT.Debug_Utilities; use GNAT.Debug_Utilities;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body GNAT.Memory_Dump is
......@@ -70,7 +70,7 @@ package body GNAT.Memory_Dump is
type Char_Ptr is access all Character;
function To_Char_Ptr is new Unchecked_Conversion (Address, Char_Ptr);
function To_Char_Ptr is new Ada.Unchecked_Conversion (Address, Char_Ptr);
begin
while Ctr /= 0 loop
......
gcc/ada/g-spipat.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1998-2006, AdaCore --
-- Copyright (C) 1998-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -43,8 +43,8 @@ with GNAT.Debug_Utilities; use GNAT.Debug_Utilities;
with System; use System;
with Unchecked_Conversion;
with Unchecked_Deallocation;
with Ada.Unchecked_Conversion;
with Ada.Unchecked_Deallocation;
package body GNAT.Spitbol.Patterns is
......@@ -75,7 +75,7 @@ package body GNAT.Spitbol.Patterns is
subtype String_Ptr is Ada.Strings.Unbounded.String_Access;
subtype File_Ptr is Ada.Text_IO.File_Access;
function To_Address is new Unchecked_Conversion (PE_Ptr, Address);
function To_Address is new Ada.Unchecked_Conversion (PE_Ptr, Address);
-- Used only for debugging output purposes
subtype AFC is Ada.Finalization.Controlled;
......@@ -2324,8 +2324,8 @@ package body GNAT.Spitbol.Patterns is
procedure Finalize (Object : in out Pattern) is
procedure Free is new Unchecked_Deallocation (PE, PE_Ptr);
procedure Free is new Unchecked_Deallocation (String, String_Ptr);
procedure Free is new Ada.Unchecked_Deallocation (PE, PE_Ptr);
procedure Free is new Ada.Unchecked_Deallocation (String, String_Ptr);
begin
-- Nothing to do if already freed
......@@ -3544,7 +3544,7 @@ package body GNAT.Spitbol.Patterns is
------------
function Str_BF (A : Boolean_Func) return String is
function To_A is new Unchecked_Conversion (Boolean_Func, Address);
function To_A is new Ada.Unchecked_Conversion (Boolean_Func, Address);
begin
return "BF(" & Image (To_A (A)) & ')';
end Str_BF;
......@@ -3563,7 +3563,7 @@ package body GNAT.Spitbol.Patterns is
------------
function Str_NF (A : Natural_Func) return String is
function To_A is new Unchecked_Conversion (Natural_Func, Address);
function To_A is new Ada.Unchecked_Conversion (Natural_Func, Address);
begin
return "NF(" & Image (To_A (A)) & ')';
end Str_NF;
......@@ -3591,7 +3591,7 @@ package body GNAT.Spitbol.Patterns is
------------
function Str_VF (A : VString_Func) return String is
function To_A is new Unchecked_Conversion (VString_Func, Address);
function To_A is new Ada.Unchecked_Conversion (VString_Func, Address);
begin
return "VF(" & Image (To_A (A)) & ')';
end Str_VF;
......
gcc/ada/g-spitbo.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1998-2006, AdaCore --
-- Copyright (C) 1998-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -37,7 +37,7 @@ with Ada.Strings.Unbounded.Aux; use Ada.Strings.Unbounded.Aux;
with GNAT.Debug_Utilities; use GNAT.Debug_Utilities;
with GNAT.IO; use GNAT.IO;
with Unchecked_Deallocation;
with Ada.Unchecked_Deallocation;
package body GNAT.Spitbol is
......@@ -320,7 +320,7 @@ package body GNAT.Spitbol is
package body Table is
procedure Free is new
Unchecked_Deallocation (Hash_Element, Hash_Element_Ptr);
Ada.Unchecked_Deallocation (Hash_Element, Hash_Element_Ptr);
-----------------------
-- Local Subprograms --
......
gcc/ada/g-string.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1995-2002 Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,31 +31,8 @@
-- --
------------------------------------------------------------------------------
package body GNAT.Strings is
-- This package does not require a body, since it is a package renaming. We
-- provide a dummy file containing a No_Body pragma so that previous versions
-- of the body (which did exist) will not intefere.
----------
-- Free --
----------
procedure Free (Arg : in out String_List_Access) is
X : String_Access;
procedure Free_Array is new Unchecked_Deallocation
(Object => String_List, Name => String_List_Access);
begin
-- First free all the String_Access components if any
if Arg /= null then
for J in Arg'Range loop
X := Arg (J);
Free (X);
end loop;
end if;
-- Now free the allocated array
Free_Array (Arg);
end Free;
end GNAT.Strings;
pragma No_Body;
gcc/ada/g-string.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1995-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,27 +33,8 @@
-- Common String access types and related subprograms
with Unchecked_Deallocation;
-- See file s-string.ads for full documentation of the interface
package GNAT.Strings is
pragma Preelaborate;
with System.Strings;
type String_Access is access all String;
-- General purpose string access type. Note that the caller is
-- responsible for freeing allocated strings to avoid memory leaks.
procedure Free is new Unchecked_Deallocation
(Object => String, Name => String_Access);
-- This procedure is provided for freeing allocated values of type
-- String_Access.
type String_List is array (Positive range <>) of String_Access;
type String_List_Access is access all String_List;
-- General purpose array and pointer for list of string accesses
procedure Free (Arg : in out String_List_Access);
-- Frees the given array and all strings that its elements reference,
-- and then sets the argument to null. Provided for freeing allocated
-- values of this type.
end GNAT.Strings;
package GNAT.Strings renames System.Strings;
gcc/ada/g-table.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1998-2005, AdaCore --
-- Copyright (C) 1998-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -34,7 +34,7 @@
with System; use System;
with System.Memory; use System.Memory;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body GNAT.Table is
......@@ -65,8 +65,8 @@ package body GNAT.Table is
-- internally in this package, and cannot never result in any instances
-- of improperly aliased pointers for the client of the package.
function To_Address is new Unchecked_Conversion (Table_Ptr, Address);
function To_Pointer is new Unchecked_Conversion (Address, Table_Ptr);
function To_Address is new Ada.Unchecked_Conversion (Table_Ptr, Address);
function To_Pointer is new Ada.Unchecked_Conversion (Address, Table_Ptr);
pragma Warnings (On);
......
gcc/ada/g-thread.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1998-2006 AdaCore --
-- Copyright (C) 1998-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -37,7 +37,7 @@ with System.Tasking;
with System.Tasking.Stages; use System.Tasking.Stages;
with System.OS_Interface; use System.OS_Interface;
with System.Soft_Links; use System.Soft_Links;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body GNAT.Threads is
......@@ -51,12 +51,12 @@ package body GNAT.Threads is
-- The following unchecked conversions are aliasing safe, since they
-- are never used to create pointers to improperly aliased data.
function To_Addr is new Unchecked_Conversion (Task_Id, Address);
function To_Id is new Unchecked_Conversion (Address, Task_Id);
function To_Id is new Unchecked_Conversion (Address, Tasking.Task_Id);
function To_Tid is new Unchecked_Conversion
function To_Addr is new Ada.Unchecked_Conversion (Task_Id, Address);
function To_Id is new Ada.Unchecked_Conversion (Address, Task_Id);
function To_Id is new Ada.Unchecked_Conversion (Address, Tasking.Task_Id);
function To_Tid is new Ada.Unchecked_Conversion
(Address, Ada.Task_Identification.Task_Id);
function To_Thread is new Unchecked_Conversion (Address, Thread_Id_Ptr);
function To_Thread is new Ada.Unchecked_Conversion (Address, Thread_Id_Ptr);
pragma Warnings (On);
......@@ -91,7 +91,7 @@ package body GNAT.Threads is
is
TP : Tptr;
function To_CP is new Unchecked_Conversion (Address, Code_Proc);
function To_CP is new Ada.Unchecked_Conversion (Address, Code_Proc);
begin
TP := new Thread (Size, Prio, Parm, To_CP (Code));
......@@ -174,7 +174,7 @@ package body GNAT.Threads is
----------------
function To_Task_Id
(Id : System.Address) return Ada.Task_Identification.Task_Id
(Id : System.Address) return Ada.Task_Identification.Task_Id
is
begin
return To_Tid (Id);
......
gcc/ada/i-cobol.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -38,7 +38,7 @@
with Interfaces; use Interfaces;
with System; use System;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Interfaces.COBOL is
......@@ -52,22 +52,22 @@ package body Interfaces.COBOL is
subtype B8 is Byte_Array (1 .. 8);
-- Representations for 1,2,4,8 byte binary values
function To_B1 is new Unchecked_Conversion (Integer_8, B1);
function To_B2 is new Unchecked_Conversion (Integer_16, B2);
function To_B4 is new Unchecked_Conversion (Integer_32, B4);
function To_B8 is new Unchecked_Conversion (Integer_64, B8);
function To_B1 is new Ada.Unchecked_Conversion (Integer_8, B1);
function To_B2 is new Ada.Unchecked_Conversion (Integer_16, B2);
function To_B4 is new Ada.Unchecked_Conversion (Integer_32, B4);
function To_B8 is new Ada.Unchecked_Conversion (Integer_64, B8);
-- Conversions from native binary to external binary
function From_B1 is new Unchecked_Conversion (B1, Integer_8);
function From_B2 is new Unchecked_Conversion (B2, Integer_16);
function From_B4 is new Unchecked_Conversion (B4, Integer_32);
function From_B8 is new Unchecked_Conversion (B8, Integer_64);
function From_B1 is new Ada.Unchecked_Conversion (B1, Integer_8);
function From_B2 is new Ada.Unchecked_Conversion (B2, Integer_16);
function From_B4 is new Ada.Unchecked_Conversion (B4, Integer_32);
function From_B8 is new Ada.Unchecked_Conversion (B8, Integer_64);
-- Conversions from external binary to signed native binary
function From_B1U is new Unchecked_Conversion (B1, Unsigned_8);
function From_B2U is new Unchecked_Conversion (B2, Unsigned_16);
function From_B4U is new Unchecked_Conversion (B4, Unsigned_32);
function From_B8U is new Unchecked_Conversion (B8, Unsigned_64);
function From_B1U is new Ada.Unchecked_Conversion (B1, Unsigned_8);
function From_B2U is new Ada.Unchecked_Conversion (B2, Unsigned_16);
function From_B4U is new Ada.Unchecked_Conversion (B4, Unsigned_32);
function From_B8U is new Ada.Unchecked_Conversion (B8, Unsigned_64);
-- Conversions from external binary to unsigned native binary
-----------------------
......
gcc/ada/i-cpoint.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -34,16 +34,16 @@
with Interfaces.C.Strings; use Interfaces.C.Strings;
with System; use System;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Interfaces.C.Pointers is
type Addr is mod Memory_Size;
function To_Pointer is new Unchecked_Conversion (Addr, Pointer);
function To_Addr is new Unchecked_Conversion (Pointer, Addr);
function To_Addr is new Unchecked_Conversion (ptrdiff_t, Addr);
function To_Ptrdiff is new Unchecked_Conversion (Addr, ptrdiff_t);
function To_Pointer is new Ada.Unchecked_Conversion (Addr, Pointer);
function To_Addr is new Ada.Unchecked_Conversion (Pointer, Addr);
function To_Addr is new Ada.Unchecked_Conversion (ptrdiff_t, Addr);
function To_Ptrdiff is new Ada.Unchecked_Conversion (Addr, ptrdiff_t);
Elmt_Size : constant ptrdiff_t :=
(Element_Array'Component_Size
......@@ -197,7 +197,7 @@ package body Interfaces.C.Pointers is
subtype A is Element_Array (L .. H);
type PA is access A;
function To_PA is new Unchecked_Conversion (Pointer, PA);
function To_PA is new Ada.Unchecked_Conversion (Pointer, PA);
begin
return To_PA (Ref).all;
......@@ -240,7 +240,7 @@ package body Interfaces.C.Pointers is
subtype A is Element_Array (L .. H);
type PA is access A;
function To_PA is new Unchecked_Conversion (Pointer, PA);
function To_PA is new Ada.Unchecked_Conversion (Pointer, PA);
begin
return To_PA (Ref).all;
......
gcc/ada/i-cstrea-vms.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1996-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1996-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
-- This is the Alpha/VMS version
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Interfaces.C_Streams is
use type System.CRTL.size_t;
......@@ -81,7 +81,7 @@ package body Interfaces.C_Streams is
type Buffer_Type is array (size_t range 1 .. count,
size_t range 1 .. size) of Character;
type Buffer_Access is access Buffer_Type;
function To_BA is new Unchecked_Conversion (voids, Buffer_Access);
function To_BA is new Ada.Unchecked_Conversion (voids, Buffer_Access);
BA : constant Buffer_Access := To_BA (buffer);
Ch : int;
......@@ -119,7 +119,7 @@ package body Interfaces.C_Streams is
type Buffer_Type is array (size_t range 1 .. count,
size_t range 1 .. size) of Character;
type Buffer_Access is access Buffer_Type;
function To_BA is new Unchecked_Conversion (voids, Buffer_Access);
function To_BA is new Ada.Unchecked_Conversion (voids, Buffer_Access);
BA : constant Buffer_Access := To_BA (buffer);
Ch : int;
......@@ -181,7 +181,7 @@ package body Interfaces.C_Streams is
type Buffer_Type is array (size_t range 1 .. count,
size_t range 1 .. size) of Character;
type Buffer_Access is access Buffer_Type;
function To_BA is new Unchecked_Conversion (voids, Buffer_Access);
function To_BA is new Ada.Unchecked_Conversion (voids, Buffer_Access);
BA : constant Buffer_Access := To_BA (buffer);
......
gcc/ada/i-cstrea.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1996-2003 Free Software Foundation, Inc. --
-- Copyright (C) 1996-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -35,7 +35,7 @@
-- Note: the reason that we provide for specialization here is that on
-- some systems, notably VMS, we may need to worry about buffering.
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Interfaces.C_Streams is
......@@ -94,7 +94,7 @@ package body Interfaces.C_Streams is
type Acc_Bytes is access all Byte_Buffer;
function To_Acc_Bytes is new Unchecked_Conversion (voids, Acc_Bytes);
function To_Acc_Bytes is new Ada.Unchecked_Conversion (voids, Acc_Bytes);
function fread
(buffer : voids;
......
gcc/ada/i-cstrin.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -34,7 +34,7 @@
with System; use System;
with System.Storage_Elements; use System.Storage_Elements;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body Interfaces.C.Strings is
......@@ -44,10 +44,10 @@ package body Interfaces.C.Strings is
-- this type will in fact be used for aliasing values of other types.
function To_chars_ptr is
new Unchecked_Conversion (Address, chars_ptr);
new Ada.Unchecked_Conversion (Address, chars_ptr);
function To_Address is
new Unchecked_Conversion (chars_ptr, Address);
new Ada.Unchecked_Conversion (chars_ptr, Address);
-----------------------
-- Local Subprograms --
......
gcc/ada/i-pacdec.adb
......@@ -7,7 +7,7 @@
-- B o d y --
-- (Version for IBM Mainframe Packed Decimal Format) --
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -32,8 +32,9 @@
-- --
------------------------------------------------------------------------------
with System; use System;
with Unchecked_Conversion;
with System; use System;
with Ada.Unchecked_Conversion;
package body Interfaces.Packed_Decimal is
......@@ -41,7 +42,8 @@ package body Interfaces.Packed_Decimal is
-- The type used internally to represent packed decimal
type Packed_Ptr is access Packed;
function To_Packed_Ptr is new Unchecked_Conversion (Address, Packed_Ptr);
function To_Packed_Ptr is
new Ada.Unchecked_Conversion (Address, Packed_Ptr);
-- The following array is used to convert a value in the range 0-99 to
-- a packed decimal format with two hexadecimal nibbles. It is worth
......
gcc/ada/s-addima.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
function System.Address_Image (A : Address) return String is
......@@ -46,7 +46,7 @@ function System.Address_Image (A : Address) return String is
type Bytes is array (1 .. Address'Size / Storage_Unit) of Byte;
for Bytes'Size use Address'Size;
function To_Bytes is new Unchecked_Conversion (Address, Bytes);
function To_Bytes is new Ada.Unchecked_Conversion (Address, Bytes);
Byte_Sequence : constant Bytes := To_Bytes (A);
......
gcc/ada/s-addope.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2006 Free Software Foundation, Inc. --
-- Copyright (C) 2004-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,15 +31,15 @@
-- --
------------------------------------------------------------------------------
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Address_Operations is
type IA is mod 2 ** Address'Size;
-- The type used to provide the actual desired operations
function I is new Unchecked_Conversion (Address, IA);
function A is new Unchecked_Conversion (IA, Address);
function I is new Ada.Unchecked_Conversion (Address, IA);
function A is new Ada.Unchecked_Conversion (IA, Address);
-- The operations are implemented by unchecked conversion to type IA,
-- followed by doing the intrinsic operation on the IA values, followed
-- by converting the result back to type Address.
......
gcc/ada/s-arit64.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,10 +31,8 @@
-- --
------------------------------------------------------------------------------
with System.Pure_Exceptions; use System.Pure_Exceptions;
with Interfaces; use Interfaces;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Arith_64 is
......@@ -42,8 +40,8 @@ package body System.Arith_64 is
pragma Suppress (Range_Check);
subtype Uns64 is Unsigned_64;
function To_Uns is new Unchecked_Conversion (Int64, Uns64);
function To_Int is new Unchecked_Conversion (Uns64, Int64);
function To_Uns is new Ada.Unchecked_Conversion (Int64, Uns64);
function To_Int is new Ada.Unchecked_Conversion (Uns64, Int64);
subtype Uns32 is Unsigned_32;
......@@ -379,7 +377,7 @@ package body System.Arith_64 is
procedure Raise_Error is
begin
Raise_Exception (CE, "64-bit arithmetic overflow");
raise Constraint_Error with "64-bit arithmetic overflow";
end Raise_Error;
-------------------
......
gcc/ada/s-auxdec-vms_64.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1996-2006 Free Software Foundation, Inc. --
-- Copyright (C) 1996-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -37,9 +37,9 @@
-- These definitions can be used directly by withing this package, or merged
-- with System using pragma Extend_System (Aux_DEC)
-- This is the VMS 64 bit version.
-- This is the VMS 64 bit version
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.Aux_DEC is
pragma Preelaborate;
......@@ -60,7 +60,7 @@ package System.Aux_DEC is
-- not available.
Short_Memory_Size : constant := 2 ** 32;
-- Defined for convenience of porting.
-- Defined for convenience of porting
type Integer_8 is range -2 ** (8 - 1) .. +2 ** (8 - 1) - 1;
for Integer_8'Size use 8;
......@@ -495,61 +495,61 @@ private
-- detectable by a program)
function To_Unsigned_Byte_A is new
Unchecked_Conversion (Bit_Array_8, Unsigned_Byte);
Ada.Unchecked_Conversion (Bit_Array_8, Unsigned_Byte);
function To_Unsigned_Byte (X : Bit_Array_8) return Unsigned_Byte
renames To_Unsigned_Byte_A;
function To_Bit_Array_8_A is new
Unchecked_Conversion (Unsigned_Byte, Bit_Array_8);
Ada.Unchecked_Conversion (Unsigned_Byte, Bit_Array_8);
function To_Bit_Array_8 (X : Unsigned_Byte) return Bit_Array_8
renames To_Bit_Array_8_A;
function To_Unsigned_Word_A is new
Unchecked_Conversion (Bit_Array_16, Unsigned_Word);
Ada.Unchecked_Conversion (Bit_Array_16, Unsigned_Word);
function To_Unsigned_Word (X : Bit_Array_16) return Unsigned_Word
renames To_Unsigned_Word_A;
function To_Bit_Array_16_A is new
Unchecked_Conversion (Unsigned_Word, Bit_Array_16);
Ada.Unchecked_Conversion (Unsigned_Word, Bit_Array_16);
function To_Bit_Array_16 (X : Unsigned_Word) return Bit_Array_16
renames To_Bit_Array_16_A;
function To_Unsigned_Longword_A is new
Unchecked_Conversion (Bit_Array_32, Unsigned_Longword);
Ada.Unchecked_Conversion (Bit_Array_32, Unsigned_Longword);
function To_Unsigned_Longword (X : Bit_Array_32) return Unsigned_Longword
renames To_Unsigned_Longword_A;
function To_Bit_Array_32_A is new
Unchecked_Conversion (Unsigned_Longword, Bit_Array_32);
Ada.Unchecked_Conversion (Unsigned_Longword, Bit_Array_32);
function To_Bit_Array_32 (X : Unsigned_Longword) return Bit_Array_32
renames To_Bit_Array_32_A;
function To_Unsigned_32_A is new
Unchecked_Conversion (Bit_Array_32, Unsigned_32);
Ada.Unchecked_Conversion (Bit_Array_32, Unsigned_32);
function To_Unsigned_32 (X : Bit_Array_32) return Unsigned_32
renames To_Unsigned_32_A;
function To_Bit_Array_32_A is new
Unchecked_Conversion (Unsigned_32, Bit_Array_32);
Ada.Unchecked_Conversion (Unsigned_32, Bit_Array_32);
function To_Bit_Array_32 (X : Unsigned_32) return Bit_Array_32
renames To_Bit_Array_32_A;
function To_Unsigned_Quadword_A is new
Unchecked_Conversion (Bit_Array_64, Unsigned_Quadword);
Ada.Unchecked_Conversion (Bit_Array_64, Unsigned_Quadword);
function To_Unsigned_Quadword (X : Bit_Array_64) return Unsigned_Quadword
renames To_Unsigned_Quadword_A;
function To_Bit_Array_64_A is new
Unchecked_Conversion (Unsigned_Quadword, Bit_Array_64);
Ada.Unchecked_Conversion (Unsigned_Quadword, Bit_Array_64);
function To_Bit_Array_64 (X : Unsigned_Quadword) return Bit_Array_64
renames To_Bit_Array_64_A;
......@@ -560,7 +560,7 @@ private
-- want warnings when we compile on such systems.
function To_Address_A is new
Unchecked_Conversion (Integer, Address);
Ada.Unchecked_Conversion (Integer, Address);
pragma Pure_Function (To_Address_A);
function To_Address (X : Integer) return Address
......@@ -568,7 +568,7 @@ private
pragma Pure_Function (To_Address);
function To_Address_Long_A is new
Unchecked_Conversion (Unsigned_Longword, Address);
Ada.Unchecked_Conversion (Unsigned_Longword, Address);
pragma Pure_Function (To_Address_Long_A);
function To_Address_Long (X : Unsigned_Longword) return Address
......@@ -576,19 +576,19 @@ private
pragma Pure_Function (To_Address_Long);
function To_Integer_A is new
Unchecked_Conversion (Address, Integer);
Ada.Unchecked_Conversion (Address, Integer);
function To_Integer (X : Address) return Integer
renames To_Integer_A;
function To_Unsigned_Longword_A is new
Unchecked_Conversion (Address, Unsigned_Longword);
Ada.Unchecked_Conversion (Address, Unsigned_Longword);
function To_Unsigned_Longword (X : Address) return Unsigned_Longword
renames To_Unsigned_Longword_A;
function To_Unsigned_Longword_A is new
Unchecked_Conversion (AST_Handler, Unsigned_Longword);
Ada.Unchecked_Conversion (AST_Handler, Unsigned_Longword);
function To_Unsigned_Longword (X : AST_Handler) return Unsigned_Longword
renames To_Unsigned_Longword_A;
......
gcc/ada/s-auxdec.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/Or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -51,8 +51,8 @@ package body System.Aux_DEC is
type LIU is mod 2 ** Largest_Integer'Size;
-- Unsigned type of same length as Largest_Integer
function To_LI is new Unchecked_Conversion (LIU, Largest_Integer);
function From_LI is new Unchecked_Conversion (Largest_Integer, LIU);
function To_LI is new Ada.Unchecked_Conversion (LIU, Largest_Integer);
function From_LI is new Ada.Unchecked_Conversion (Largest_Integer, LIU);
function "not" (Left : Largest_Integer) return Largest_Integer is
begin
......@@ -86,8 +86,8 @@ package body System.Aux_DEC is
type SA is range -(2 ** Asiz) .. 2 ** Asiz - 1;
-- Signed type of same size as Address
function To_A is new Unchecked_Conversion (SA, Address);
function From_A is new Unchecked_Conversion (Address, SA);
function To_A is new Ada.Unchecked_Conversion (SA, Address);
function From_A is new Ada.Unchecked_Conversion (Address, SA);
function "+" (Left : Address; Right : Integer) return Address is
begin
......@@ -117,7 +117,7 @@ package body System.Aux_DEC is
function Fetch_From_Address (A : Address) return Target is
type T_Ptr is access all Target;
function To_T_Ptr is new Unchecked_Conversion (Address, T_Ptr);
function To_T_Ptr is new Ada.Unchecked_Conversion (Address, T_Ptr);
Ptr : constant T_Ptr := To_T_Ptr (A);
begin
return Ptr.all;
......@@ -129,7 +129,7 @@ package body System.Aux_DEC is
procedure Assign_To_Address (A : Address; T : Target) is
type T_Ptr is access all Target;
function To_T_Ptr is new Unchecked_Conversion (Address, T_Ptr);
function To_T_Ptr is new Ada.Unchecked_Conversion (Address, T_Ptr);
Ptr : constant T_Ptr := To_T_Ptr (A);
begin
Ptr.all := T;
......@@ -145,8 +145,8 @@ package body System.Aux_DEC is
type BU is mod 2 ** Unsigned_Byte'Size;
-- Unsigned type of same length as Unsigned_Byte
function To_B is new Unchecked_Conversion (BU, Unsigned_Byte);
function From_B is new Unchecked_Conversion (Unsigned_Byte, BU);
function To_B is new Ada.Unchecked_Conversion (BU, Unsigned_Byte);
function From_B is new Ada.Unchecked_Conversion (Unsigned_Byte, BU);
function "not" (Left : Unsigned_Byte) return Unsigned_Byte is
begin
......@@ -178,8 +178,8 @@ package body System.Aux_DEC is
type WU is mod 2 ** Unsigned_Word'Size;
-- Unsigned type of same length as Unsigned_Word
function To_W is new Unchecked_Conversion (WU, Unsigned_Word);
function From_W is new Unchecked_Conversion (Unsigned_Word, WU);
function To_W is new Ada.Unchecked_Conversion (WU, Unsigned_Word);
function From_W is new Ada.Unchecked_Conversion (Unsigned_Word, WU);
function "not" (Left : Unsigned_Word) return Unsigned_Word is
begin
......@@ -211,8 +211,8 @@ package body System.Aux_DEC is
type LWU is mod 2 ** Unsigned_Longword'Size;
-- Unsigned type of same length as Unsigned_Longword
function To_LW is new Unchecked_Conversion (LWU, Unsigned_Longword);
function From_LW is new Unchecked_Conversion (Unsigned_Longword, LWU);
function To_LW is new Ada.Unchecked_Conversion (LWU, Unsigned_Longword);
function From_LW is new Ada.Unchecked_Conversion (Unsigned_Longword, LWU);
function "not" (Left : Unsigned_Longword) return Unsigned_Longword is
begin
......@@ -244,8 +244,8 @@ package body System.Aux_DEC is
type U32 is mod 2 ** Unsigned_32'Size;
-- Unsigned type of same length as Unsigned_32
function To_U32 is new Unchecked_Conversion (U32, Unsigned_32);
function From_U32 is new Unchecked_Conversion (Unsigned_32, U32);
function To_U32 is new Ada.Unchecked_Conversion (U32, Unsigned_32);
function From_U32 is new Ada.Unchecked_Conversion (Unsigned_32, U32);
function "not" (Left : Unsigned_32) return Unsigned_32 is
begin
......@@ -277,8 +277,8 @@ package body System.Aux_DEC is
type QWU is mod 2 ** 64; -- 64 = Unsigned_Quadword'Size
-- Unsigned type of same length as Unsigned_Quadword
function To_QW is new Unchecked_Conversion (QWU, Unsigned_Quadword);
function From_QW is new Unchecked_Conversion (Unsigned_Quadword, QWU);
function To_QW is new Ada.Unchecked_Conversion (QWU, Unsigned_Quadword);
function From_QW is new Ada.Unchecked_Conversion (Unsigned_Quadword, QWU);
function "not" (Left : Unsigned_Quadword) return Unsigned_Quadword is
begin
......@@ -451,11 +451,11 @@ package body System.Aux_DEC is
type IU is mod 2 ** Integer'Size;
type LU is mod 2 ** Long_Integer'Size;
function To_IU is new Unchecked_Conversion (Integer, IU);
function From_IU is new Unchecked_Conversion (IU, Integer);
function To_IU is new Ada.Unchecked_Conversion (Integer, IU);
function From_IU is new Ada.Unchecked_Conversion (IU, Integer);
function To_LU is new Unchecked_Conversion (Long_Integer, LU);
function From_LU is new Unchecked_Conversion (LU, Long_Integer);
function To_LU is new Ada.Unchecked_Conversion (Long_Integer, LU);
function From_LU is new Ada.Unchecked_Conversion (LU, Long_Integer);
procedure And_Atomic
(To : in out Aligned_Integer;
......@@ -582,8 +582,8 @@ package body System.Aux_DEC is
Backward : QR_Ptr;
end record;
function To_QR_Ptr is new Unchecked_Conversion (Address, QR_Ptr);
function From_QR_Ptr is new Unchecked_Conversion (QR_Ptr, Address);
function To_QR_Ptr is new Ada.Unchecked_Conversion (Address, QR_Ptr);
function From_QR_Ptr is new Ada.Unchecked_Conversion (QR_Ptr, Address);
------------
-- Insqhi --
......
gcc/ada/s-auxdec.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1996-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1996-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -37,7 +37,7 @@
-- These definitions can be used directly by withing this package, or merged
-- with System using pragma Extend_System (Aux_DEC)
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.Aux_DEC is
pragma Preelaborate;
......@@ -485,61 +485,61 @@ private
-- detectable by a program)
function To_Unsigned_Byte_A is new
Unchecked_Conversion (Bit_Array_8, Unsigned_Byte);
Ada.Unchecked_Conversion (Bit_Array_8, Unsigned_Byte);
function To_Unsigned_Byte (X : Bit_Array_8) return Unsigned_Byte
renames To_Unsigned_Byte_A;
function To_Bit_Array_8_A is new
Unchecked_Conversion (Unsigned_Byte, Bit_Array_8);
Ada.Unchecked_Conversion (Unsigned_Byte, Bit_Array_8);
function To_Bit_Array_8 (X : Unsigned_Byte) return Bit_Array_8
renames To_Bit_Array_8_A;
function To_Unsigned_Word_A is new
Unchecked_Conversion (Bit_Array_16, Unsigned_Word);
Ada.Unchecked_Conversion (Bit_Array_16, Unsigned_Word);
function To_Unsigned_Word (X : Bit_Array_16) return Unsigned_Word
renames To_Unsigned_Word_A;
function To_Bit_Array_16_A is new
Unchecked_Conversion (Unsigned_Word, Bit_Array_16);
Ada.Unchecked_Conversion (Unsigned_Word, Bit_Array_16);
function To_Bit_Array_16 (X : Unsigned_Word) return Bit_Array_16
renames To_Bit_Array_16_A;
function To_Unsigned_Longword_A is new
Unchecked_Conversion (Bit_Array_32, Unsigned_Longword);
Ada.Unchecked_Conversion (Bit_Array_32, Unsigned_Longword);
function To_Unsigned_Longword (X : Bit_Array_32) return Unsigned_Longword
renames To_Unsigned_Longword_A;
function To_Bit_Array_32_A is new
Unchecked_Conversion (Unsigned_Longword, Bit_Array_32);
Ada.Unchecked_Conversion (Unsigned_Longword, Bit_Array_32);
function To_Bit_Array_32 (X : Unsigned_Longword) return Bit_Array_32
renames To_Bit_Array_32_A;
function To_Unsigned_32_A is new
Unchecked_Conversion (Bit_Array_32, Unsigned_32);
Ada.Unchecked_Conversion (Bit_Array_32, Unsigned_32);
function To_Unsigned_32 (X : Bit_Array_32) return Unsigned_32
renames To_Unsigned_32_A;
function To_Bit_Array_32_A is new
Unchecked_Conversion (Unsigned_32, Bit_Array_32);
Ada.Unchecked_Conversion (Unsigned_32, Bit_Array_32);
function To_Bit_Array_32 (X : Unsigned_32) return Bit_Array_32
renames To_Bit_Array_32_A;
function To_Unsigned_Quadword_A is new
Unchecked_Conversion (Bit_Array_64, Unsigned_Quadword);
Ada.Unchecked_Conversion (Bit_Array_64, Unsigned_Quadword);
function To_Unsigned_Quadword (X : Bit_Array_64) return Unsigned_Quadword
renames To_Unsigned_Quadword_A;
function To_Bit_Array_64_A is new
Unchecked_Conversion (Unsigned_Quadword, Bit_Array_64);
Ada.Unchecked_Conversion (Unsigned_Quadword, Bit_Array_64);
function To_Bit_Array_64 (X : Unsigned_Quadword) return Bit_Array_64
renames To_Bit_Array_64_A;
......@@ -550,7 +550,7 @@ private
-- want warnings when we compile on such systems.
function To_Address_A is new
Unchecked_Conversion (Integer, Address);
Ada.Unchecked_Conversion (Integer, Address);
pragma Pure_Function (To_Address_A);
function To_Address (X : Integer) return Address
......@@ -558,7 +558,7 @@ private
pragma Pure_Function (To_Address);
function To_Address_Long_A is new
Unchecked_Conversion (Unsigned_Longword, Address);
Ada.Unchecked_Conversion (Unsigned_Longword, Address);
pragma Pure_Function (To_Address_Long_A);
function To_Address_Long (X : Unsigned_Longword) return Address
......@@ -566,19 +566,19 @@ private
pragma Pure_Function (To_Address_Long);
function To_Integer_A is new
Unchecked_Conversion (Address, Integer);
Ada.Unchecked_Conversion (Address, Integer);
function To_Integer (X : Address) return Integer
renames To_Integer_A;
function To_Unsigned_Longword_A is new
Unchecked_Conversion (Address, Unsigned_Longword);
Ada.Unchecked_Conversion (Address, Unsigned_Longword);
function To_Unsigned_Longword (X : Address) return Unsigned_Longword
renames To_Unsigned_Longword_A;
function To_Unsigned_Longword_A is new
Unchecked_Conversion (AST_Handler, Unsigned_Longword);
Ada.Unchecked_Conversion (AST_Handler, Unsigned_Longword);
function To_Unsigned_Longword (X : AST_Handler) return Unsigned_Longword
renames To_Unsigned_Longword_A;
......
gcc/ada/s-carsi8.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2006 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Address_Operations; use System.Address_Operations;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Compare_Array_Signed_8 is
......@@ -53,10 +53,10 @@ package body System.Compare_Array_Signed_8 is
-- Array type used to access by bytes
function To_Big_Words is new
Unchecked_Conversion (System.Address, Big_Words_Ptr);
Ada.Unchecked_Conversion (System.Address, Big_Words_Ptr);
function To_Big_Bytes is new
Unchecked_Conversion (System.Address, Big_Bytes_Ptr);
Ada.Unchecked_Conversion (System.Address, Big_Bytes_Ptr);
----------------------
-- Compare_Array_S8 --
......
gcc/ada/s-carun8.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2006 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Address_Operations; use System.Address_Operations;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Compare_Array_Unsigned_8 is
......@@ -52,10 +52,10 @@ package body System.Compare_Array_Unsigned_8 is
-- Array type used to access by bytes
function To_Big_Words is new
Unchecked_Conversion (System.Address, Big_Words_Ptr);
Ada.Unchecked_Conversion (System.Address, Big_Words_Ptr);
function To_Big_Bytes is new
Unchecked_Conversion (System.Address, Big_Bytes_Ptr);
Ada.Unchecked_Conversion (System.Address, Big_Bytes_Ptr);
----------------------
-- Compare_Array_U8 --
......
gcc/ada/s-casi16.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Address_Operations; use System.Address_Operations;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Compare_Array_Signed_16 is
......@@ -55,9 +55,9 @@ package body System.Compare_Array_Signed_16 is
type HP is access Half;
type UP is access Uhalf;
function W is new Unchecked_Conversion (Address, WP);
function H is new Unchecked_Conversion (Address, HP);
function U is new Unchecked_Conversion (Address, UP);
function W is new Ada.Unchecked_Conversion (Address, WP);
function H is new Ada.Unchecked_Conversion (Address, HP);
function U is new Ada.Unchecked_Conversion (Address, UP);
-----------------------
-- Compare_Array_S16 --
......
gcc/ada/s-casi32.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Address_Operations; use System.Address_Operations;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Compare_Array_Signed_32 is
......@@ -51,8 +51,8 @@ package body System.Compare_Array_Signed_32 is
type WP is access Word;
type UP is access Uword;
function W is new Unchecked_Conversion (Address, WP);
function U is new Unchecked_Conversion (Address, UP);
function W is new Ada.Unchecked_Conversion (Address, WP);
function U is new Ada.Unchecked_Conversion (Address, UP);
-----------------------
-- Compare_Array_S32 --
......
gcc/ada/s-casi64.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Address_Operations; use System.Address_Operations;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Compare_Array_Signed_64 is
......@@ -51,8 +51,8 @@ package body System.Compare_Array_Signed_64 is
type WP is access Word;
type UP is access Uword;
function W is new Unchecked_Conversion (Address, WP);
function U is new Unchecked_Conversion (Address, UP);
function W is new Ada.Unchecked_Conversion (Address, WP);
function U is new Ada.Unchecked_Conversion (Address, UP);
-----------------------
-- Compare_Array_S64 --
......
gcc/ada/s-caun16.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Address_Operations; use System.Address_Operations;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Compare_Array_Unsigned_16 is
......@@ -55,9 +55,9 @@ package body System.Compare_Array_Unsigned_16 is
type HP is access Half;
type UP is access Uhalf;
function W is new Unchecked_Conversion (Address, WP);
function H is new Unchecked_Conversion (Address, HP);
function U is new Unchecked_Conversion (Address, UP);
function W is new Ada.Unchecked_Conversion (Address, WP);
function H is new Ada.Unchecked_Conversion (Address, HP);
function U is new Ada.Unchecked_Conversion (Address, UP);
-----------------------
-- Compare_Array_U16 --
......
gcc/ada/s-caun32.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Address_Operations; use System.Address_Operations;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Compare_Array_Unsigned_32 is
......@@ -51,8 +51,8 @@ package body System.Compare_Array_Unsigned_32 is
type WP is access Word;
type UP is access Uword;
function W is new Unchecked_Conversion (Address, WP);
function U is new Unchecked_Conversion (Address, UP);
function W is new Ada.Unchecked_Conversion (Address, WP);
function U is new Ada.Unchecked_Conversion (Address, UP);
-----------------------
-- Compare_Array_U32 --
......
gcc/ada/s-caun64.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Address_Operations; use System.Address_Operations;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Compare_Array_Unsigned_64 is
......@@ -50,8 +50,8 @@ package body System.Compare_Array_Unsigned_64 is
type WP is access Word;
type UP is access Uword;
function W is new Unchecked_Conversion (Address, WP);
function U is new Unchecked_Conversion (Address, UP);
function W is new Ada.Unchecked_Conversion (Address, WP);
function U is new Ada.Unchecked_Conversion (Address, UP);
-----------------------
-- Compare_Array_U64 --
......
gcc/ada/s-direio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -37,7 +37,7 @@ with System; use System;
with System.CRTL;
with System.File_IO;
with System.Soft_Links;
with Unchecked_Deallocation;
with Ada.Unchecked_Deallocation;
package body System.Direct_IO is
......@@ -92,7 +92,7 @@ package body System.Direct_IO is
FT : FCB_Ptr := FCB_Ptr (File);
procedure Free is new
Unchecked_Deallocation (Direct_AFCB, FCB_Ptr);
Ada.Unchecked_Deallocation (Direct_AFCB, FCB_Ptr);
begin
Free (FT);
......
gcc/ada/s-fileio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -36,7 +36,7 @@ with Ada.IO_Exceptions; use Ada.IO_Exceptions;
with Interfaces.C_Streams; use Interfaces.C_Streams;
with System.CRTL;
with System.Soft_Links;
with Unchecked_Deallocation;
with Ada.Unchecked_Deallocation;
package body System.File_IO is
......@@ -86,6 +86,7 @@ package body System.File_IO is
-- environment task is finalized.
text_translation_required : Boolean;
for text_translation_required'Size use Character'Size;
pragma Import
(C, text_translation_required, "__gnat_text_translation_required");
-- If true, add appropriate suffix to control string for Open
......@@ -94,7 +95,7 @@ package body System.File_IO is
-- Local Subprograms --
-----------------------
procedure Free_String is new Unchecked_Deallocation (String, Pstring);
procedure Free_String is new Ada.Unchecked_Deallocation (String, Pstring);
subtype Fopen_String is String (1 .. 4);
-- Holds open string (longest is "w+b" & nul)
......
gcc/ada/s-finimp.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -133,7 +133,7 @@ package System.Finalization_Implementation is
end record;
procedure Initialize (Object : in out Limited_Record_Controller);
-- Does nothing currently.
-- Does nothing currently
procedure Finalize (Object : in out Limited_Record_Controller);
-- Finalize the controlled components of the enclosing record by following
......
gcc/ada/s-geveop.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
-- Copyright (C) 2002-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -35,7 +35,7 @@ with System; use System;
with System.Address_Operations; use System.Address_Operations;
with System.Storage_Elements; use System.Storage_Elements;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Generic_Vector_Operations is
......@@ -65,8 +65,8 @@ package body System.Generic_Vector_Operations is
type Vector_Ptr is access all Vectors.Vector;
type Element_Ptr is access all Element;
function VP is new Unchecked_Conversion (Address, Vector_Ptr);
function EP is new Unchecked_Conversion (Address, Element_Ptr);
function VP is new Ada.Unchecked_Conversion (Address, Vector_Ptr);
function EP is new Ada.Unchecked_Conversion (Address, Element_Ptr);
SA : constant Address :=
AddA (XA, To_Address
......@@ -110,8 +110,8 @@ package body System.Generic_Vector_Operations is
type Vector_Ptr is access all Vectors.Vector;
type Element_Ptr is access all Element;
function VP is new Unchecked_Conversion (Address, Vector_Ptr);
function EP is new Unchecked_Conversion (Address, Element_Ptr);
function VP is new Ada.Unchecked_Conversion (Address, Vector_Ptr);
function EP is new Ada.Unchecked_Conversion (Address, Element_Ptr);
SA : constant Address :=
AddA (XA, To_Address
......
gcc/ada/s-imgenu.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
-- Copyright (C) 2000-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Img_Enum is
......@@ -50,7 +50,7 @@ package body System.Img_Enum is
type Index_Table_Ptr is access Index_Table;
function To_Index_Table_Ptr is
new Unchecked_Conversion (System.Address, Index_Table_Ptr);
new Ada.Unchecked_Conversion (System.Address, Index_Table_Ptr);
IndexesT : constant Index_Table_Ptr := To_Index_Table_Ptr (Indexes);
......@@ -80,7 +80,7 @@ package body System.Img_Enum is
type Index_Table_Ptr is access Index_Table;
function To_Index_Table_Ptr is
new Unchecked_Conversion (System.Address, Index_Table_Ptr);
new Ada.Unchecked_Conversion (System.Address, Index_Table_Ptr);
IndexesT : constant Index_Table_Ptr := To_Index_Table_Ptr (Indexes);
......@@ -110,7 +110,7 @@ package body System.Img_Enum is
type Index_Table_Ptr is access Index_Table;
function To_Index_Table_Ptr is
new Unchecked_Conversion (System.Address, Index_Table_Ptr);
new Ada.Unchecked_Conversion (System.Address, Index_Table_Ptr);
IndexesT : constant Index_Table_Ptr := To_Index_Table_Ptr (Indexes);
......
gcc/ada/s-inmaop-vms.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
-- This is a OpenVMS/Alpha version of this package.
-- This is a OpenVMS/Alpha version of this package
with System.OS_Interface;
-- used for various type, constant, and operations
......@@ -49,7 +49,7 @@ with System.Task_Primitives.Operations;
with System.Task_Primitives.Operations.DEC;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Interrupt_Management.Operations is
......@@ -58,7 +58,9 @@ package body System.Interrupt_Management.Operations is
use System.Tasking;
use type unsigned_short;
function To_Address is new Unchecked_Conversion (Task_Id, System.Address);
function To_Address is
new Ada.Unchecked_Conversion (Task_Id, System.Address);
package POP renames System.Task_Primitives.Operations;
----------------------------
......@@ -116,7 +118,7 @@ package body System.Interrupt_Management.Operations is
--------------------
function To_unsigned_long is new
Unchecked_Conversion (System.Aux_DEC.Short_Address, unsigned_long);
Ada.Unchecked_Conversion (System.Aux_DEC.Short_Address, unsigned_long);
function Interrupt_Wait (Mask : access Interrupt_Mask)
return Interrupt_ID
......
gcc/ada/s-interr-sigaction.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1998-2006, Free Software Fundation --
-- Copyright (C) 1998-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -68,7 +68,7 @@ with System.Parameters;
with Interfaces.C;
-- used for int
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Interrupts is
......@@ -83,7 +83,7 @@ package body System.Interrupts is
subtype int is Interfaces.C.int;
function To_System is new Unchecked_Conversion
function To_System is new Ada.Unchecked_Conversion
(Ada.Task_Identification.Task_Id, Task_Id);
type Handler_Kind is (Unknown, Task_Entry, Protected_Procedure);
......@@ -143,7 +143,7 @@ package body System.Interrupts is
type Handler_Ptr is access procedure (Sig : Interrupt_ID);
function TISR is new Unchecked_Conversion (Handler_Ptr, isr_address);
function TISR is new Ada.Unchecked_Conversion (Handler_Ptr, isr_address);
--------------------
-- Signal_Handler --
......@@ -502,7 +502,7 @@ package body System.Interrupts is
Handler_Addr : System.Address;
end record;
function To_Fat_Ptr is new Unchecked_Conversion
function To_Fat_Ptr is new Ada.Unchecked_Conversion
(Parameterless_Handler, Fat_Ptr);
Fat : Fat_Ptr;
......
gcc/ada/s-interr-vms.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -113,7 +113,7 @@ with System.Tasking.Initialization;
with System.Parameters;
-- used for Single_Lock
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Interrupts is
......@@ -126,7 +126,7 @@ package body System.Interrupts is
package IMNG renames System.Interrupt_Management;
package IMOP renames System.Interrupt_Management.Operations;
function To_System is new Unchecked_Conversion
function To_System is new Ada.Unchecked_Conversion
(Ada.Task_Identification.Task_Id, Task_Id);
-----------------
......@@ -302,7 +302,7 @@ package body System.Interrupts is
Handler_Addr : System.Address;
end record;
function To_Fat_Ptr is new Unchecked_Conversion
function To_Fat_Ptr is new Ada.Unchecked_Conversion
(Parameterless_Handler, Fat_Ptr);
Ptr : R_Link;
......
gcc/ada/s-interr-vxworks.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -65,7 +65,7 @@
-- This is the VxWorks version of this package, supporting vectored hardware
-- interrupts.
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
with System.OS_Interface; use System.OS_Interface;
......@@ -107,10 +107,10 @@ package body System.Interrupts is
package POP renames System.Task_Primitives.Operations;
function To_Ada is new Unchecked_Conversion
function To_Ada is new Ada.Unchecked_Conversion
(System.Tasking.Task_Id, Ada.Task_Identification.Task_Id);
function To_System is new Unchecked_Conversion
function To_System is new Ada.Unchecked_Conversion
(Ada.Task_Identification.Task_Id, Task_Id);
-----------------
......@@ -598,7 +598,7 @@ package body System.Interrupts is
Handler_Addr : System.Address;
end record;
function To_Fat_Ptr is new Unchecked_Conversion
function To_Fat_Ptr is new Ada.Unchecked_Conversion
(Parameterless_Handler, Fat_Ptr);
Ptr : R_Link;
......
gcc/ada/s-mastop-irix.adb
......@@ -7,7 +7,7 @@
-- B o d y --
-- (Version for IRIX/MIPS) --
-- --
-- Copyright (C) 1999-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1999-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -39,7 +39,7 @@
with System.Machine_Code; use System.Machine_Code;
with System.Memory;
with System.Soft_Links; use System.Soft_Links;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Machine_State_Operations is
......@@ -92,16 +92,19 @@ package body System.Machine_State_Operations is
-- within the Sigcontext.
function To_Sigcontext_Ptr is
new Unchecked_Conversion (Machine_State, Sigcontext_Ptr);
new Ada.Unchecked_Conversion (Machine_State, Sigcontext_Ptr);
type Addr_Int is mod 2 ** Long_Integer'Size;
-- An unsigned integer type whose size is the same as System.Address.
-- We rely on the fact that Long_Integer'Size = System.Address'Size in
-- all ABIs. Type Addr_Int can be converted to Uns64.
function To_Code_Loc is new Unchecked_Conversion (Addr_Int, Code_Loc);
function To_Addr_Int is new Unchecked_Conversion (System.Address, Addr_Int);
function To_Uns32_Ptr is new Unchecked_Conversion (Addr_Int, Uns32_Ptr);
function To_Code_Loc is
new Ada.Unchecked_Conversion (Addr_Int, Code_Loc);
function To_Addr_Int is
new Ada.Unchecked_Conversion (System.Address, Addr_Int);
function To_Uns32_Ptr is
new Ada.Unchecked_Conversion (Addr_Int, Uns32_Ptr);
--------------------------------
-- ABI-Dependent Declarations --
......@@ -157,7 +160,7 @@ package body System.Machine_State_Operations is
type Address_Int is mod 2 ** Standard'Address_Size;
function To_I_Type_Ptr is new
Unchecked_Conversion (Address_Int, I_Type_Ptr);
Ada.Unchecked_Conversion (Address_Int, I_Type_Ptr);
Ret_Ins : constant I_Type_Ptr := To_I_Type_Ptr (Address_Int (Scp.SC_PC));
GP_Ptr : Uns32_Ptr;
......
gcc/ada/s-mastop-vms.adb
......@@ -7,7 +7,7 @@
-- B o d y --
-- (Version for Alpha/VMS) --
-- --
-- Copyright (C) 2001-2006, AdaCore --
-- Copyright (C) 2001-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -37,7 +37,7 @@
with System.Memory;
with System.Aux_DEC; use System.Aux_DEC;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Machine_State_Operations is
......@@ -131,10 +131,10 @@ package body System.Machine_State_Operations is
function Fetch is new Fetch_From_Address (Code_Loc);
function To_Invo_Handle_Access is new Unchecked_Conversion
function To_Invo_Handle_Access is new Ada.Unchecked_Conversion
(Machine_State, Invo_Handle_Access_Type);
function To_Machine_State is new Unchecked_Conversion
function To_Machine_State is new Ada.Unchecked_Conversion
(System.Address, Machine_State);
----------------------------
......
gcc/ada/s-osinte-hpux-dce.ads
......@@ -7,7 +7,7 @@
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -41,7 +41,7 @@
-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Interfaces.C;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.OS_Interface is
pragma Preelaborate;
......@@ -240,7 +240,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body);
Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is private;
subtype Thread_Id is pthread_t;
......
gcc/ada/s-osinte-hpux.ads
......@@ -7,7 +7,7 @@
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -44,7 +44,7 @@
-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Interfaces.C;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.OS_Interface is
pragma Preelaborate;
......@@ -229,7 +229,7 @@ package System.OS_Interface is
function To_Target_Priority
(Prio : System.Any_Priority) return Interfaces.C.int;
-- Maps System.Any_Priority to a POSIX priority.
-- Maps System.Any_Priority to a POSIX priority
-------------
-- Process --
......@@ -258,7 +258,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body);
Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is private;
subtype Thread_Id is pthread_t;
......@@ -280,7 +280,7 @@ package System.OS_Interface is
-----------
Stack_Base_Available : constant Boolean := False;
-- Indicates wether the stack base is available on this target.
-- Indicates wether the stack base is available on this target
function Get_Stack_Base (thread : pthread_t) return Address;
pragma Inline (Get_Stack_Base);
......
gcc/ada/s-osinte-interix.ads
......@@ -7,7 +7,7 @@
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -41,7 +41,7 @@
-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Interfaces.C;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.OS_Interface is
pragma Preelaborate;
......@@ -241,7 +241,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body);
Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is private;
subtype Thread_Id is pthread_t;
......
gcc/ada/s-osinte-irix.ads
......@@ -7,7 +7,7 @@
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -41,7 +41,7 @@
-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Interfaces.C;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.OS_Interface is
......@@ -245,7 +245,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body);
Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is private;
subtype Thread_Id is pthread_t;
......
gcc/ada/s-osinte-linux-hppa.ads
......@@ -8,7 +8,7 @@
-- (GNU/Linux-HPPA Version) --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -42,7 +42,7 @@
-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Interfaces.C;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.OS_Interface is
pragma Preelaborate;
......@@ -277,12 +277,12 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body);
Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is new unsigned_long;
subtype Thread_Id is pthread_t;
function To_pthread_t is new Unchecked_Conversion
function To_pthread_t is new Ada.Unchecked_Conversion
(unsigned_long, pthread_t);
type pthread_mutex_t is limited private;
......
gcc/ada/s-osinte-mingw.ads
......@@ -7,7 +7,7 @@
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -42,7 +42,7 @@
with Interfaces.C;
with Interfaces.C.Strings;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.OS_Interface is
pragma Preelaborate;
......@@ -189,7 +189,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body);
Ada.Unchecked_Conversion (System.Address, Thread_Body);
procedure SwitchToThread;
pragma Import (Stdcall, SwitchToThread, "SwitchToThread");
......@@ -226,7 +226,7 @@ package System.OS_Interface is
pragma Convention (Stdcall, PTHREAD_START_ROUTINE);
function To_PTHREAD_START_ROUTINE is new
Unchecked_Conversion (System.Address, PTHREAD_START_ROUTINE);
Ada.Unchecked_Conversion (System.Address, PTHREAD_START_ROUTINE);
type SECURITY_ATTRIBUTES is record
nLength : DWORD;
......
gcc/ada/s-osinte-solaris-posix.ads
......@@ -7,7 +7,7 @@
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -41,7 +41,7 @@
-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Interfaces.C;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.OS_Interface is
pragma Preelaborate;
......@@ -249,7 +249,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body);
Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is private;
subtype Thread_Id is pthread_t;
......
gcc/ada/s-osinte-solaris.ads
......@@ -7,7 +7,7 @@
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -41,7 +41,7 @@
-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Interfaces.C;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.OS_Interface is
pragma Preelaborate;
......@@ -301,7 +301,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body);
Ada.Unchecked_Conversion (System.Address, Thread_Body);
THR_DETACHED : constant := 64;
THR_BOUND : constant := 1;
......@@ -312,7 +312,7 @@ package System.OS_Interface is
subtype Thread_Id is thread_t;
-- These types should be commented ???
function To_thread_t is new Unchecked_Conversion (Integer, thread_t);
function To_thread_t is new Ada.Unchecked_Conversion (Integer, thread_t);
type mutex_t is limited private;
......
gcc/ada/s-osinte-vms.ads
......@@ -7,7 +7,7 @@
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2006, Free Software Foundation, Inc. --
-- Copyright (C) 1995-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -41,7 +41,7 @@
-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Interfaces.C;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package System.OS_Interface is
pragma Preelaborate;
......@@ -123,9 +123,9 @@ package System.OS_Interface is
(Status : out Cond_Value_Type;
Devnam : String;
Chan : out unsigned_short;
Acmode : in unsigned_short := 0;
Acmode : unsigned_short := 0;
Mbxnam : String := String'Null_Parameter;
Flags : in unsigned_long := 0);
Flags : unsigned_long := 0);
pragma Interface (External, Sys_Assign);
pragma Import_Valued_Procedure
(Sys_Assign, "SYS$ASSIGN",
......@@ -148,7 +148,7 @@ package System.OS_Interface is
procedure Sys_Cantim
(Status : out Cond_Value_Type;
Reqidt : Address;
Acmode : in unsigned);
Acmode : unsigned);
pragma Interface (External, Sys_Cantim);
pragma Import_Valued_Procedure
(Sys_Cantim, "SYS$CANTIM",
......@@ -175,12 +175,12 @@ package System.OS_Interface is
(Status : out Cond_Value_Type;
Prmflg : Boolean;
Chan : out unsigned_short;
Maxmsg : in unsigned_long := 0;
Bufquo : in unsigned_long := 0;
Promsk : in unsigned_short := 0;
Acmode : in unsigned_short := 0;
Maxmsg : unsigned_long := 0;
Bufquo : unsigned_long := 0;
Promsk : unsigned_short := 0;
Acmode : unsigned_short := 0;
Lognam : String;
Flags : in unsigned_long := 0);
Flags : unsigned_long := 0);
pragma Interface (External, Sys_Crembx);
pragma Import_Valued_Procedure
(Sys_Crembx, "SYS$CREMBX",
......@@ -208,33 +208,33 @@ package System.OS_Interface is
procedure Sys_QIO
(Status : out Cond_Value_Type;
EFN : in unsigned_long := 0;
Chan : in unsigned_short;
Func : in unsigned_long := 0;
EFN : unsigned_long := 0;
Chan : unsigned_short;
Func : unsigned_long := 0;
Iosb : out IO_Status_Block_Type;
Astadr : AST_Handler := No_AST_Handler;
Astprm : Address := Null_Address;
P1 : in unsigned_long := 0;
P2 : in unsigned_long := 0;
P3 : in unsigned_long := 0;
P4 : in unsigned_long := 0;
P5 : in unsigned_long := 0;
P6 : in unsigned_long := 0);
P1 : unsigned_long := 0;
P2 : unsigned_long := 0;
P3 : unsigned_long := 0;
P4 : unsigned_long := 0;
P5 : unsigned_long := 0;
P6 : unsigned_long := 0);
procedure Sys_QIO
(Status : out Cond_Value_Type;
EFN : in unsigned_long := 0;
Chan : in unsigned_short;
Func : in unsigned_long := 0;
EFN : unsigned_long := 0;
Chan : unsigned_short;
Func : unsigned_long := 0;
Iosb : Address := Null_Address;
Astadr : AST_Handler := No_AST_Handler;
Astprm : Address := Null_Address;
P1 : in unsigned_long := 0;
P2 : in unsigned_long := 0;
P3 : in unsigned_long := 0;
P4 : in unsigned_long := 0;
P5 : in unsigned_long := 0;
P6 : in unsigned_long := 0);
P1 : unsigned_long := 0;
P2 : unsigned_long := 0;
P3 : unsigned_long := 0;
P4 : unsigned_long := 0;
P5 : unsigned_long := 0;
P6 : unsigned_long := 0);
pragma Interface (External, Sys_QIO);
pragma Import_Valued_Procedure
......@@ -274,11 +274,11 @@ package System.OS_Interface is
--
procedure Sys_Setimr
(Status : out Cond_Value_Type;
EFN : in unsigned_long;
EFN : unsigned_long;
Tim : Long_Integer;
AST : AST_Handler;
Reqidt : Address;
Flags : in unsigned_long);
Flags : unsigned_long);
pragma Interface (External, Sys_Setimr);
pragma Import_Valued_Procedure
(Sys_Setimr, "SYS$SETIMR",
......@@ -362,7 +362,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body);
Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is private;
subtype Thread_Id is pthread_t;
......
gcc/ada/s-pack03.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_03 is
......@@ -71,7 +71,7 @@ package body System.Pack_03 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_03 --
......
gcc/ada/s-pack05.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_05 is
......@@ -71,7 +71,7 @@ package body System.Pack_05 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_05 --
......
gcc/ada/s-pack06.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_06 is
......@@ -71,7 +71,7 @@ package body System.Pack_06 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_06 or SetU_06 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_06 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_06 --
......
gcc/ada/s-pack07.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_07 is
......@@ -71,7 +71,7 @@ package body System.Pack_07 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_07 --
......
gcc/ada/s-pack09.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_09 is
......@@ -71,7 +71,7 @@ package body System.Pack_09 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_09 --
......
gcc/ada/s-pack10.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_10 is
......@@ -71,7 +71,7 @@ package body System.Pack_10 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_10 or SetU_10 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_10 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_10 --
......
gcc/ada/s-pack11.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_11 is
......@@ -71,7 +71,7 @@ package body System.Pack_11 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_11 --
......
gcc/ada/s-pack12.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_12 is
......@@ -71,7 +71,7 @@ package body System.Pack_12 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_12 or SetU_12 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_12 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_12 --
......
gcc/ada/s-pack13.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_13 is
......@@ -71,7 +71,7 @@ package body System.Pack_13 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_13 --
......
gcc/ada/s-pack14.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_14 is
......@@ -71,7 +71,7 @@ package body System.Pack_14 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_14 or SetU_14 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_14 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_14 --
......
gcc/ada/s-pack15.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_15 is
......@@ -71,7 +71,7 @@ package body System.Pack_15 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_15 --
......
gcc/ada/s-pack17.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_17 is
......@@ -71,7 +71,7 @@ package body System.Pack_17 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_17 --
......
gcc/ada/s-pack18.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_18 is
......@@ -71,7 +71,7 @@ package body System.Pack_18 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_18 or SetU_18 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_18 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_18 --
......
gcc/ada/s-pack19.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_19 is
......@@ -71,7 +71,7 @@ package body System.Pack_19 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_19 --
......
gcc/ada/s-pack20.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_20 is
......@@ -71,7 +71,7 @@ package body System.Pack_20 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_20 or SetU_20 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_20 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_20 --
......
gcc/ada/s-pack21.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_21 is
......@@ -71,7 +71,7 @@ package body System.Pack_21 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_21 --
......
gcc/ada/s-pack22.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_22 is
......@@ -71,7 +71,7 @@ package body System.Pack_22 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_22 or SetU_22 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_22 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_22 --
......
gcc/ada/s-pack23.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_23 is
......@@ -71,7 +71,7 @@ package body System.Pack_23 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_23 --
......
gcc/ada/s-pack24.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_24 is
......@@ -71,7 +71,7 @@ package body System.Pack_24 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_24 or SetU_24 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_24 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_24 --
......
gcc/ada/s-pack25.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_25 is
......@@ -71,7 +71,7 @@ package body System.Pack_25 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_25 --
......
gcc/ada/s-pack26.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_26 is
......@@ -71,7 +71,7 @@ package body System.Pack_26 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_26 or SetU_26 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_26 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_26 --
......
gcc/ada/s-pack27.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_27 is
......@@ -71,7 +71,7 @@ package body System.Pack_27 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_27 --
......
gcc/ada/s-pack28.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_28 is
......@@ -71,7 +71,7 @@ package body System.Pack_28 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_28 or SetU_28 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_28 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_28 --
......
gcc/ada/s-pack29.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_29 is
......@@ -71,7 +71,7 @@ package body System.Pack_29 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_29 --
......
gcc/ada/s-pack30.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_30 is
......@@ -71,7 +71,7 @@ package body System.Pack_30 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_30 or SetU_30 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_30 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_30 --
......
gcc/ada/s-pack31.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_31 is
......@@ -71,7 +71,7 @@ package body System.Pack_31 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_31 --
......
gcc/ada/s-pack33.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_33 is
......@@ -71,7 +71,7 @@ package body System.Pack_33 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_33 --
......
gcc/ada/s-pack34.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_34 is
......@@ -71,7 +71,7 @@ package body System.Pack_34 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_34 or SetU_34 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_34 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_34 --
......
gcc/ada/s-pack35.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_35 is
......@@ -71,7 +71,7 @@ package body System.Pack_35 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_35 --
......
gcc/ada/s-pack36.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_36 is
......@@ -71,7 +71,7 @@ package body System.Pack_36 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
-- The following declarations are for the case where the address
-- passed to GetU_36 or SetU_36 is not guaranteed to be aligned.
......@@ -84,7 +84,7 @@ package body System.Pack_36 is
type ClusterU_Ref is access ClusterU;
function To_Ref is new
Unchecked_Conversion (System.Address, ClusterU_Ref);
Ada.Unchecked_Conversion (System.Address, ClusterU_Ref);
------------
-- Get_36 --
......
gcc/ada/s-pack37.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -33,7 +33,7 @@
with System.Storage_Elements;
with System.Unsigned_Types;
with Unchecked_Conversion;
with Ada.Unchecked_Conversion;
package body System.Pack_37 is
......@@ -71,7 +71,7 @@ package body System.Pack_37 is
type Cluster_Ref is access Cluster;
function To_Ref is new
Unchecked_Conversion (System.Address, Cluster_Ref);
Ada.Unchecked_Conversion (System.Address, Cluster_Ref);
------------
-- Get_37 --
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment