diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:37:33 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:37:33 +0000 |
| commit | 726ace2b071657807c0e35a969d6bbbb1ea21533 (patch) | |
| tree | 5e000a55efc0822988383d971a8b00fa7a96fab1 /gcc/ada/s-stratt.adb | |
| parent | d6cba86091d59e81c87f2eb8e95dd5e07037bf4b (diff) | |
| download | gcc-726ace2b071657807c0e35a969d6bbbb1ea21533.tar.gz | |
* exp_dist.adb:
Declare subprogram index in Build_RPC_Receiver_Body, to reduce the
amount of PCS-specific code in RACW stubs generation.
(Copy_Specification): Set Etype on copied formal parameter entities, as
this information is needed for PolyORB stubs generation.
(PolyORB_Support.Build_Subprogram_Receiving_Stubs): Remove unused
variable Dynamic_Async.
(Build_Subprogram_Receiving_Stubs): Make PCS-specific
(Build_RPC_Receiver_Specification): Make generic again, as recent
changes have allowed RPC receivers to have the same profile for both
variants of the PCS.
Reorganise RPC receiver generation to reduce differences between the
structure of GARLIC and PolyORB RPC receivers.
(Add_Receiving_Stubs_To_Declarations): Make this subprogram
PCS-specific.
Simplify elaboration code for RCI packages.
* s-parint.ads, s-parint.adb, rtsfind.ads: Reorganise RPC receiver
generation to reduce differences between the structure of GARLIC and
PolyORB RPC receivers.
* s-stratt.adb: Fix typo in comment.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92837 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-stratt.adb')
| -rw-r--r-- | gcc/ada/s-stratt.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-stratt.adb b/gcc/ada/s-stratt.adb index a81895fd8aa..91fec45d153 100644 --- a/gcc/ada/s-stratt.adb +++ b/gcc/ada/s-stratt.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2003, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -39,7 +39,7 @@ package body System.Stream_Attributes is Err : exception renames Ada.IO_Exceptions.End_Error; -- Exception raised if insufficient data read (note that the RM implies - -- that Data_Error might be the appropriate choice, but AI195-00132 + -- that Data_Error might be the appropriate choice, but AI95-00132 -- decides with a binding interpretation that End_Error is preferred). SU : constant := System.Storage_Unit; |