diff options
Diffstat (limited to 'gcc/ada/a-except.adb')
| -rw-r--r-- | gcc/ada/a-except.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb index 3d3ba615cc7..3dae9c4dda1 100644 --- a/gcc/ada/a-except.adb +++ b/gcc/ada/a-except.adb @@ -1026,10 +1026,9 @@ package body Ada.Exceptions is Prefix : constant String := "adjust/finalize raised "; Orig_Msg : constant String := Exception_Message (X); Orig_Prefix_Length : constant Natural := - Integer'Min (Prefix'Length, Orig_Msg'Length); + Integer'Min (Prefix'Length, Orig_Msg'Length); Orig_Prefix : String renames Orig_Msg - (Orig_Msg'First .. - Orig_Msg'First + Orig_Prefix_Length - 1); + (Orig_Msg'First .. Orig_Msg'First + Orig_Prefix_Length - 1); begin -- Message already has proper prefix, just re-reraise |
