diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 14:17:49 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 14:17:49 +0000 |
| commit | 00447a62af3e0d56871c88c7921bd70399ede3a8 (patch) | |
| tree | 7b318b0aa2d40b866a94d8f0cc5cb527c26fafb2 /gcc/ada/s-parint.ads | |
| parent | c9c6fcb0403547b5d2796667389247a9a5783e7f (diff) | |
| download | gcc-00447a62af3e0d56871c88c7921bd70399ede3a8.tar.gz | |
2011-08-29 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_util.adb, gnat1drv.adb, s-parint.ads: Minor
reformatting.
2011-08-29 Matthew Heaney <heaney@adacore.com>
* a-cbhama.ads, a-cbhase.ads (Cursor): Default-initialize all
components of record type.
2011-08-29 Bob Duff <duff@adacore.com>
* s-tassta.adb (Task_Wrapper): Handle and ignore exceptions propagated
by the termination handler.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178241 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-parint.ads')
| -rw-r--r-- | gcc/ada/s-parint.ads | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/s-parint.ads b/gcc/ada/s-parint.ads index 457be066012..a6257cc72b3 100644 --- a/gcc/ada/s-parint.ads +++ b/gcc/ada/s-parint.ads @@ -38,7 +38,6 @@ with Interfaces; with System.RPC; package System.Partition_Interface is - pragma Elaborate_Body; type DSA_Implementation_Name is (No_DSA, GARLIC_DSA, PolyORB_DSA); @@ -46,13 +45,14 @@ package System.Partition_Interface is -- Identification of this DSA implementation variant PCS_Version : constant := 1; - -- Version of the PCS API (for Exp_Dist consistency check). + -- Version of the PCS API (for Exp_Dist consistency check) + -- -- This version number is matched against corresponding element of - -- Exp_Dist.PCS_Version_Number to ensure that the versions of Exp_Dist and - -- the PCS are consistent. + -- Exp_Dist.PCS_Version_Number to ensure that the versions of Exp_Dist + -- and the PCS are consistent. - -- RCI receiving stubs contain a table of descriptors for - -- all user subprograms exported by the unit. + -- RCI receiving stubs contain a table of descriptors for all user + -- subprograms exported by the unit. type Subprogram_Id is new Natural; First_RCI_Subprogram_Id : constant := 2; |