diff options
| -rw-r--r-- | gcc/ada/a-extiti.ads | 7 | ||||
| -rw-r--r-- | gcc/ada/a-swuwha.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/g-bytswa-x86.adb | 10 | ||||
| -rw-r--r-- | gcc/ada/g-bytswa.ads | 34 | ||||
| -rw-r--r-- | gcc/ada/g-soccon-hpux-ia64.ads | 15 | ||||
| -rw-r--r-- | gcc/ada/g-soccon-solaris-64.ads | 15 | ||||
| -rw-r--r-- | gcc/ada/s-dsaser.ads | 11 |
7 files changed, 64 insertions, 34 deletions
diff --git a/gcc/ada/a-extiti.ads b/gcc/ada/a-extiti.ads index f2b62ca9ae6..411371dec0e 100644 --- a/gcc/ada/a-extiti.ads +++ b/gcc/ada/a-extiti.ads @@ -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; diff --git a/gcc/ada/a-swuwha.adb b/gcc/ada/a-swuwha.adb index e4572c2e0b2..0790faa19b9 100644 --- a/gcc/ada/a-swuwha.adb +++ b/gcc/ada/a-swuwha.adb @@ -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- -- diff --git a/gcc/ada/g-bytswa-x86.adb b/gcc/ada/g-bytswa-x86.adb index 1ec8a0f1be7..3af95161788 100644 --- a/gcc/ada/g-bytswa-x86.adb +++ b/gcc/ada/g-bytswa-x86.adb @@ -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; diff --git a/gcc/ada/g-bytswa.ads b/gcc/ada/g-bytswa.ads index 5c9741482ea..a8d2d9c4d15 100644 --- a/gcc/ada/g-bytswa.ads +++ b/gcc/ada/g-bytswa.ads @@ -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); diff --git a/gcc/ada/g-soccon-hpux-ia64.ads b/gcc/ada/g-soccon-hpux-ia64.ads index ea7a63d21fa..04cfc15a231 100644 --- a/gcc/ada/g-soccon-hpux-ia64.ads +++ b/gcc/ada/g-soccon-hpux-ia64.ads @@ -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; diff --git a/gcc/ada/g-soccon-solaris-64.ads b/gcc/ada/g-soccon-solaris-64.ads index be1fc4ffea3..46300e061e1 100644 --- a/gcc/ada/g-soccon-solaris-64.ads +++ b/gcc/ada/g-soccon-solaris-64.ads @@ -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; diff --git a/gcc/ada/s-dsaser.ads b/gcc/ada/s-dsaser.ads index 9d5eec4eda0..5275a79bf69 100644 --- a/gcc/ada/s-dsaser.ads +++ b/gcc/ada/s-dsaser.ads @@ -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; |