mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-21 13:29:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Robert Dewar 2007-06-06 12:13:44 +02:00 committed by Arnaud Charlet
parent 47a5501df9
commit cecaf88a61
144 changed files with 677 additions and 2056 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/a-diocst.adb
View File

@ -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 --

8
gcc/ada/a-direio.adb
View File

@ -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;

8
gcc/ada/a-interr.adb
View File

@ -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);
--------------------

10
gcc/ada/a-sequio.adb
View File

@ -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);

6
gcc/ada/a-siocst.adb
View File

@ -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 --

6
gcc/ada/a-ssicst.adb
View File

@ -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 --

7
gcc/ada/a-storio.adb
View File

@ -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 --

12
gcc/ada/a-ststio.adb
View File

@ -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);

8
gcc/ada/a-stwima.adb
View File

@ -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);

8
gcc/ada/a-stzmap.adb
View File

@ -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);

32
gcc/ada/a-tasatt.adb
View File

@ -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);

6
gcc/ada/a-taside.adb
View File

@ -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

10
gcc/ada/a-taster.adb
View File

@ -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);
-----------------------------------

6
gcc/ada/a-tiocst.adb
View File

@ -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 --

13
gcc/ada/a-witeio.adb
View File

@ -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);

6
gcc/ada/a-wtcstr.adb
View File

@ -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 --

6
gcc/ada/a-ztcstr.adb
View File

@ -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 --

12
gcc/ada/a-ztexio.adb
View File

@ -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);

8
gcc/ada/g-crc32.adb
View File

@ -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));

10
gcc/ada/g-dirope.adb
View File

@ -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);

10
gcc/ada/g-dyntab.adb
View File

@ -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

6
gcc/ada/g-memdum.adb
View File

@ -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

1359
gcc/ada/g-regexp.adb
View File

File diff suppressed because it is too large Load Diff

18
gcc/ada/g-spipat.adb
View File

@ -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;

6
gcc/ada/g-spitbo.adb
View File

@ -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 --

33
gcc/ada/g-string.adb
View File

@ -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;

27
gcc/ada/g-string.ads
View File

@ -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;

8
gcc/ada/g-table.adb
View File

@ -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);

18
gcc/ada/g-thread.adb
View File

@ -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);

28
gcc/ada/i-cobol.adb
View File

@ -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
-----------------------

16
gcc/ada/i-cpoint.adb
View File

@ -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;

10
gcc/ada/i-cstrea-vms.adb
View File

@ -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);

6
gcc/ada/i-cstrea.adb
View File

@ -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;

8
gcc/ada/i-cstrin.adb
View File

@ -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 --

10
gcc/ada/i-pacdec.adb
View File

@ -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

6
gcc/ada/s-addima.adb
View File

@ -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);

8
gcc/ada/s-addope.adb
View File

@ -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.

12
gcc/ada/s-arit64.adb
View File

@ -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;
-------------------

38
gcc/ada/s-auxdec-vms_64.ads
View File

@ -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;

46
gcc/ada/s-auxdec.adb
View File

@ -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 --

34
gcc/ada/s-auxdec.ads
View File

@ -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;

8
gcc/ada/s-carsi8.adb
View File

@ -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 --

8
gcc/ada/s-carun8.adb
View File

@ -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 --

10
gcc/ada/s-casi16.adb
View File

@ -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 --

8
gcc/ada/s-casi32.adb
View File

@ -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 --

8
gcc/ada/s-casi64.adb
View File

@ -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 --

10
gcc/ada/s-caun16.adb
View File

@ -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 --

8
gcc/ada/s-caun32.adb
View File

@ -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 --

8
gcc/ada/s-caun64.adb
View File

@ -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 --

6
gcc/ada/s-direio.adb
View File

@ -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);

7
gcc/ada/s-fileio.adb
View File

@ -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)

4
gcc/ada/s-finimp.ads
View File

@ -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

12
gcc/ada/s-geveop.adb
View File

@ -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

10
gcc/ada/s-imgenu.adb
View File

@ -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);

12
gcc/ada/s-inmaop-vms.adb
View File

@ -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

10
gcc/ada/s-interr-sigaction.adb
View File

@ -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;

8
gcc/ada/s-interr-vms.adb
View File

@ -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;

10
gcc/ada/s-interr-vxworks.adb
View File

@ -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;

17
gcc/ada/s-mastop-irix.adb
View File

@ -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;

8
gcc/ada/s-mastop-vms.adb
View File

@ -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);
----------------------------

6
gcc/ada/s-osinte-hpux-dce.ads
View File

@ -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;

10
gcc/ada/s-osinte-hpux.ads
View File

@ -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);

6
gcc/ada/s-osinte-interix.ads
View File

@ -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;

6
gcc/ada/s-osinte-irix.ads
View File

@ -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;

8
gcc/ada/s-osinte-linux-hppa.ads
View File

@ -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;

8
gcc/ada/s-osinte-mingw.ads
View File

@ -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;

6
gcc/ada/s-osinte-solaris-posix.ads
View File

@ -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;

8
gcc/ada/s-osinte-solaris.ads
View File

@ -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;

62
gcc/ada/s-osinte-vms.ads
View File

@ -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;

6
gcc/ada/s-pack03.adb
View File

@ -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 --

6
gcc/ada/s-pack05.adb
View File

@ -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 --

8
gcc/ada/s-pack06.adb
View File

@ -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 --

6
gcc/ada/s-pack07.adb
View File

@ -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 --

6
gcc/ada/s-pack09.adb
View File

@ -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 --

8
gcc/ada/s-pack10.adb
View File

@ -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 --

6
gcc/ada/s-pack11.adb
View File

@ -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 --

8
gcc/ada/s-pack12.adb
View File

@ -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 --

6
gcc/ada/s-pack13.adb
View File

@ -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 --

8
gcc/ada/s-pack14.adb
View File

@ -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 --

6
gcc/ada/s-pack15.adb
View File

@ -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 --

6
gcc/ada/s-pack17.adb
View File

@ -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 --

8
gcc/ada/s-pack18.adb
View File

@ -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 --

6
gcc/ada/s-pack19.adb
View File

@ -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 --

8
gcc/ada/s-pack20.adb
View File

@ -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 --

6
gcc/ada/s-pack21.adb
View File

@ -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 --

8
gcc/ada/s-pack22.adb
View File

@ -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 --

6
gcc/ada/s-pack23.adb
View File

@ -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 --

8
gcc/ada/s-pack24.adb
View File

@ -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 --

6
gcc/ada/s-pack25.adb
View File

@ -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 --

8
gcc/ada/s-pack26.adb
View File

@ -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 --

6
gcc/ada/s-pack27.adb
View File

@ -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 --

8
gcc/ada/s-pack28.adb
View File

@ -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 --

6
gcc/ada/s-pack29.adb
View File

@ -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 --

8
gcc/ada/s-pack30.adb
View File

@ -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 --

6
gcc/ada/s-pack31.adb
View File

@ -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 --

6
gcc/ada/s-pack33.adb
View File

@ -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 --

8
gcc/ada/s-pack34.adb
View File

@ -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 --

6
gcc/ada/s-pack35.adb
View File

@ -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 --

8
gcc/ada/s-pack36.adb
View File

@ -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 --

6
gcc/ada/s-pack37.adb
View File

@ -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 --

Some files were not shown because too many files have changed in this diff Show More