summaryrefslogtreecommitdiff
path: root/gcc/ada/a-except-2005.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-07-29 13:24:47 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-07-29 13:24:47 +0000
commit1e4f3cfbad4bd20be4853c7cf733acd34f0a4416 (patch)
tree542aa6635d05a7788fedc10cb0cc8f14ab489077 /gcc/ada/a-except-2005.adb
parent26279d919aa3157c141cf78f3914df5ca11f851a (diff)
downloadgcc-1e4f3cfbad4bd20be4853c7cf733acd34f0a4416.tar.gz
2014-07-29 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Add section on Wide_Wide_Character encodings. * erroutc.adb (Output_Error_Msgs): Take wide characters into account in computing position of error flags. * sinput.adb (Get_Column_Number): Take wide characters into account. 2014-07-29 Ed Schonberg <schonberg@adacore.com> * par-ch3.adb (P_Access_Type_Definition): The subtype indication in an access type definition can carry a null_exclusion indicator. * sem_ch3.adb (Access_Type_Declaration): If the subtype indication carries a null_exclusion indicator, verify that the subtype indication denotes an access type, and create a null-excluding subtype for it. * sinfo.ads, sinfo.adb: New attribute Null_Excluding_Subtype, defined on N_Access_To_Object_Definition to indicate that the subtype indication carries a null_exclusion indicator. 2014-07-29 Hristian Kirtchev <kirtchev@adacore.com> * exp_ch6.adb (Add_Extra_Actual): Do not construct the extra actual by name, generate a reference instead. 2014-07-29 Arnaud Charlet <charlet@adacore.com> * sem_prag.adb (Analyze_Pragma): Do not crash analyzing Allow_Integer_Address if already set. * a-except-2005.adb (Rcheck_PE_Stream_Operation_Not_Allowed): Fix order, for consistency with Rmsg_xx declarations. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213172 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-except-2005.adb')
-rw-r--r--gcc/ada/a-except-2005.adb7
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/a-except-2005.adb b/gcc/ada/a-except-2005.adb
index 52de66f2187..ab29b0988f6 100644
--- a/gcc/ada/a-except-2005.adb
+++ b/gcc/ada/a-except-2005.adb
@@ -403,6 +403,9 @@ package body Ada.Exceptions is
-- These routines raise a specific exception with a reason message
-- attached. The parameters are the file name and line number in each
-- case. The names are defined by Exp_Ch11.Get_RT_Exception_Name.
+ -- Note that these routines should be declared in the same order as the
+ -- corresponding Rmsg_xx constants below, this is needed by the
+ -- .NET runtime (see exceptmsg.awk script).
procedure Rcheck_CE_Access_Check
(File : System.Address; Line : Integer);
@@ -462,8 +465,6 @@ package body Ada.Exceptions is
(File : System.Address; Line : Integer);
procedure Rcheck_PE_Potentially_Blocking_Operation
(File : System.Address; Line : Integer);
- procedure Rcheck_PE_Stream_Operation_Not_Allowed
- (File : System.Address; Line : Integer);
procedure Rcheck_PE_Stubbed_Subprogram_Called
(File : System.Address; Line : Integer);
procedure Rcheck_PE_Unchecked_Union_Restriction
@@ -476,6 +477,8 @@ package body Ada.Exceptions is
(File : System.Address; Line : Integer);
procedure Rcheck_SE_Object_Too_Large
(File : System.Address; Line : Integer);
+ procedure Rcheck_PE_Stream_Operation_Not_Allowed
+ (File : System.Address; Line : Integer);
procedure Rcheck_CE_Access_Check_Ext
(File : System.Address; Line, Column : Integer);