From 4e9f48a126a0812b87a7dba7dfcd11d441c48e80 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 26 Mar 2008 08:40:04 +0100 Subject: g-pehage.adb, [...]: Replace Raise_Exception by "raise with" construct. 2008-03-26 Robert Dewar * g-pehage.adb, g-regist.adb, g-spipat.ads, g-spipat.adb, s-asthan.adb, s-parint.adb, s-rpc.adb, s-stchop.adb: Replace Raise_Exception by "raise with" construct. From-SVN: r133568 --- gcc/ada/s-stchop.adb | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'gcc/ada/s-stchop.adb') diff --git a/gcc/ada/s-stchop.adb b/gcc/ada/s-stchop.adb index aacdad9..e403bc9 100644 --- a/gcc/ada/s-stchop.adb +++ b/gcc/ada/s-stchop.adb @@ -39,8 +39,6 @@ pragma Restrictions (No_Elaboration_Code); -- We want to guarantee the absence of elaboration code because the -- binder does not handle references to this package. -with Ada.Exceptions; - with System.Storage_Elements; use System.Storage_Elements; with System.Parameters; use System.Parameters; with System.Soft_Links; @@ -216,9 +214,7 @@ package body System.Stack_Checking.Operations is (not Stack_Grows_Down and then Stack_Address < Frame_Address) then - Ada.Exceptions.Raise_Exception - (E => Storage_Error'Identity, - Message => "stack overflow detected"); + raise Storage_Error with "stack overflow detected"; end if; -- This function first does a "cheap" check which is correct @@ -270,9 +266,7 @@ package body System.Stack_Checking.Operations is (not Stack_Grows_Down and then Stack_Address > My_Stack.Limit) then - Ada.Exceptions.Raise_Exception - (E => Storage_Error'Identity, - Message => "stack overflow detected"); + raise Storage_Error with "stack overflow detected"; end if; return My_Stack; -- cgit v1.1