OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

a-extiti.ads (Timer): The discriminant is a "not null access constant" in the Reference Manual.

Browse Source 
* a-extiti.ads (Timer): The discriminant is a "not null access
	constant" in the Reference Manual.
	(Cancel_Handler): Cancelled is an out parameter in the Reference Manual.

	* a-swuwha.adb: Remove junk RM header

	* g-bytswa-x86.adb (Swap2, Swap4, Swap8): Remove explicit "in" mode
	indicator

	* g-bytswa.ads: Minor reformatting

	* g-soccon-solaris-64.ads, g-soccon-hpux-ia64.ads: 
	Add new constant Thread_Blocking_IO, always True by default, set False
	on a per-runtime basis.
	(Need_Netdb_Buffer): New constant.

	* s-dsaser.ads (Get_Local_Partition_Id, Get_Passive_Partition_Id):
	Added renames for corresponding functions in System.Partition_Interface.

	* Makefile.in: Remove VMS specific System.CRTL packages which are no
	longer needed.

	* s-crtl-vms64.ads: Removed.

From-SVN: r128430
This commit is contained in:
Arnaud Charlet 2007-09-12 13:59:17 +02:00
parent d409ec5068
commit 95926a6445
7 changed files with 64 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/a-extiti.ads
View File

@ -28,11 +28,10 @@ package Ada.Execution_Time.Timers is
pragma Unimplemented_Unit;
type Timer (T : access Ada.Task_Identification.Task_Id) is
type Timer (T : not null access constant Ada.Task_Identification.Task_Id) is
tagged limited private;
type Timer_Handler is
access protected procedure (TM : in out Timer);
type Timer_Handler is access protected procedure (TM : in out Timer);
Min_Handler_Ceiling : constant System.Any_Priority := System.Priority'Last;
@ -50,7 +49,7 @@ package Ada.Execution_Time.Timers is
procedure Cancel_Handler
(TM : in out Timer;
Cancelled : in out Boolean);
Cancelled : out Boolean);
function Time_Remaining (TM : Timer) return Ada.Real_Time.Time_Span;

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

@ -6,11 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
-- apply solely to the contents of the part following the private keyword. --
-- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --

10
gcc/ada/g-bytswa-x86.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2006, AdaCore --
-- Copyright (C) 2006-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -98,7 +98,7 @@ package body GNAT.Byte_Swapping is
function As_U64 is new Ada.Unchecked_Conversion
(Source => Item, Target => Unsigned_64);
X : Unsigned_64 renames As_U64 (Input);
X : constant Unsigned_64 := As_U64 (Input);
type Two_Words is array (0 .. 1) of Unsigned_32;
for Two_Words'Component_Size use Unsigned_32'Size;
@ -125,7 +125,7 @@ package body GNAT.Byte_Swapping is
-- Swap2 --
-----------
procedure Swap2 (Location : in System.Address) is
procedure Swap2 (Location : System.Address) is
X : Unsigned_16;
for X'Address use Location;
@ -140,7 +140,7 @@ package body GNAT.Byte_Swapping is
-- Swap4 --
-----------
procedure Swap4 (Location : in System.Address) is
procedure Swap4 (Location : System.Address) is
X : Unsigned_32;
for X'Address use Location;
@ -168,7 +168,7 @@ package body GNAT.Byte_Swapping is
-- Swap8 --
-----------
procedure Swap8 (Location : in System.Address) is
procedure Swap8 (Location : System.Address) is
X : Unsigned_64;
for X'Address use Location;

34
gcc/ada/g-bytswa.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2006, AdaCore --
-- Copyright (C) 2006-2007, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -31,14 +31,14 @@
-- --
------------------------------------------------------------------------------
-- Simple routines for swapping the bytes of 16-, 32-, and 64-bit objects.
-- Simple routines for swapping the bytes of 16-, 32-, and 64-bit objects
-- The generic functions should be instantiated with types that
-- are of a size in bytes corresponding to the name of the generic. For
-- example, a 2-byte integer type would be compatible with Swapped2, 4-byte
-- integer with Swapped4, and so on. Failure to do so will result in a
-- warning when compiling the instantiation; this warning should be heeded.
-- Ignoring this warning can result in unexpected results.
-- The generic functions should be instantiated with types that are of a size
-- in bytes corresponding to the name of the generic. For example, a 2-byte
-- integer type would be compatible with Swapped2, 4-byte integer with
-- Swapped4, and so on. Failure to do so will result in a warning when
-- compiling the instantiation; this warning should be heeded. Ignoring this
-- warning can result in unexpected results.
-- An example of proper usage follows:
@ -85,12 +85,12 @@
-- ...
-- end;
-- A properly-sized record type will also be acceptable, and so forth.
-- A properly-sized record type will also be acceptable, and so forth
-- However, as described, a size mismatch must be avoided. In the following
-- we instantiate one of the generics with a type that is too large. The
-- result of the function call is undefined, such that assignment to an
-- object can result in garbage values.
-- However, as described, a size mismatch must be avoided. In the following we
-- instantiate one of the generics with a type that is too large. The result
-- of the function call is undefined, such that assignment to an object can
-- result in garbage values.
-- Wrong: declare
-- subtype String16 is String (1 .. 16);
@ -114,8 +114,8 @@
-- Put_Line (S);
-- end Wrong;
-- When the size of the type is larger than 8 bytes, the use of the
-- non-generic procedures is an alternative because no function result is
-- When the size of the type is larger than 8 bytes, the use of the non-
-- generic procedures is an alternative because no function result is
-- involved; manipulation of the object is direct.
-- The procedures are passed the address of an object to manipulate. They will
@ -141,8 +141,8 @@
-- Put_Line (S8);
-- end;
-- If an object of a type larger than N is passed, the remaining
-- bytes of the object are undisturbed. For example:
-- If an object of a type larger than N is passed, the remaining bytes of the
-- object are undisturbed. For example:
-- declare
-- subtype String16 is String (1 .. 16);

15
gcc/ada/g-soccon-hpux-ia64.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2000-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2000-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -178,4 +178,17 @@ package GNAT.Sockets.Constants is
SIZEOF_tv_sec : constant := 8; -- tv_sec
SIZEOF_tv_usec : constant := 8; -- tv_usec
----------------------------------------
-- Properties of supported interfaces --
----------------------------------------
Need_Netdb_Buffer : constant := 0; -- Need buffer for Netdb ops
----------------------
-- Additional flags --
----------------------
Thread_Blocking_IO : constant Boolean := True;
-- Set False for contexts where socket i/o are process blocking
end GNAT.Sockets.Constants;

15
gcc/ada/g-soccon-solaris-64.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2000-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2000-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -178,4 +178,17 @@ package GNAT.Sockets.Constants is
SIZEOF_tv_sec : constant := 8; -- tv_sec
SIZEOF_tv_usec : constant := 8; -- tv_usec
----------------------------------------
-- Properties of supported interfaces --
----------------------------------------
Need_Netdb_Buffer : constant := 1; -- Need buffer for Netdb ops
----------------------
-- Additional flags --
----------------------
Thread_Blocking_IO : constant Boolean := True;
-- Set False for contexts where socket i/o are process blocking
end GNAT.Sockets.Constants;

11
gcc/ada/s-dsaser.ads
View File

@ -42,6 +42,15 @@ package System.DSA_Services is
function Get_Active_Partition_ID
(Name : Partition_Interface.Unit_Name) return RPC.Partition_ID
renames Partition_Interface.Get_Active_Partition_ID;
-- Returns the partition ID of the partition in which Name resides
-- Return the partition ID of the partition in which unit Name resides
function Get_Local_Partition_ID return RPC.Partition_ID
renames Partition_Interface.Get_Local_Partition_ID;
-- Return the Partition_ID of the current partition
function Get_Passive_Partition_ID
(Name : Partition_Interface.Unit_Name) return RPC.Partition_ID
renames Partition_Interface.Get_Passive_Partition_ID;
-- Return the Partition_ID of the given shared passive partition
end System.DSA_Services;