diff options
Diffstat (limited to 'gcc/ada/a-except.adb')
| -rw-r--r-- | gcc/ada/a-except.adb | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb index 8e9e98c342d..c07790ab4fe 100644 --- a/gcc/ada/a-except.adb +++ b/gcc/ada/a-except.adb @@ -501,6 +501,7 @@ package body Ada.Exceptions is procedure Rcheck_26 (File : Big_String_Ptr; Line : Integer); procedure Rcheck_27 (File : Big_String_Ptr; Line : Integer); procedure Rcheck_28 (File : Big_String_Ptr; Line : Integer); + procedure Rcheck_29 (File : Big_String_Ptr; Line : Integer); pragma Export (C, Rcheck_00, "__gnat_rcheck_00"); pragma Export (C, Rcheck_01, "__gnat_rcheck_01"); @@ -531,6 +532,7 @@ package body Ada.Exceptions is pragma Export (C, Rcheck_26, "__gnat_rcheck_26"); pragma Export (C, Rcheck_27, "__gnat_rcheck_27"); pragma Export (C, Rcheck_28, "__gnat_rcheck_28"); + pragma Export (C, Rcheck_29, "__gnat_rcheck_29"); --------------------------------------------- -- Reason Strings for Run-Time Check Calls -- @@ -565,11 +567,13 @@ package body Ada.Exceptions is Rmsg_21 : constant String := "potentially blocking operation" & NUL; Rmsg_22 : constant String := "stubbed subprogram called" & NUL; Rmsg_23 : constant String := "unchecked union restriction" & NUL; - Rmsg_24 : constant String := "empty storage pool" & NUL; - Rmsg_25 : constant String := "explicit raise" & NUL; - Rmsg_26 : constant String := "infinite recursion" & NUL; - Rmsg_27 : constant String := "object too large" & NUL; - Rmsg_28 : constant String := "restriction violation" & NUL; + Rmsg_24 : constant String := "illegal use of" + & " remote access-to-class-wide type, see RM E.4(18)" & NUL; + Rmsg_25 : constant String := "empty storage pool" & NUL; + Rmsg_26 : constant String := "explicit raise" & NUL; + Rmsg_27 : constant String := "infinite recursion" & NUL; + Rmsg_28 : constant String := "object too large" & NUL; + Rmsg_29 : constant String := "restriction violation" & NUL; ----------------------- -- Polling Interface -- @@ -1146,7 +1150,7 @@ package body Ada.Exceptions is procedure Rcheck_24 (File : Big_String_Ptr; Line : Integer) is begin - Raise_Storage_Error_Msg (File, Line, To_Ptr (Rmsg_24'Address)); + Raise_Program_Error_Msg (File, Line, To_Ptr (Rmsg_24'Address)); end Rcheck_24; procedure Rcheck_25 (File : Big_String_Ptr; Line : Integer) is @@ -1169,6 +1173,11 @@ package body Ada.Exceptions is Raise_Storage_Error_Msg (File, Line, To_Ptr (Rmsg_28'Address)); end Rcheck_28; + procedure Rcheck_29 (File : Big_String_Ptr; Line : Integer) is + begin + Raise_Storage_Error_Msg (File, Line, To_Ptr (Rmsg_29'Address)); + end Rcheck_29; + ------------- -- Reraise -- ------------- |