Skip to content

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

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

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

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

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