diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 11:12:58 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 11:12:58 +0000 |
| commit | 7d57741b525b095d0939732b559ce5cad571567b (patch) | |
| tree | a09f36a00b03affdcdc0059ef6b0c845b9eee7c8 /gcc/ada/bindgen.adb | |
| parent | 53c179ea5916bba5222b8f1c26c676ec7a7eef94 (diff) | |
| download | gcc-7d57741b525b095d0939732b559ce5cad571567b.tar.gz | |
Code clean up.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178206 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 8d402736e95..2a161fad534 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -1455,9 +1455,8 @@ package body Bindgen is Write_Statement_Buffer; Set_String (" procedure Raise_From_Controlled_"); - Set_String ("Operation "); - Set_String ("(X : Ada.Exceptions.Exception_Occurrence; "); - Set_String (" From_Abort : Boolean);"); + Set_String ("Operation (X : Ada.Exceptions.Exception_"); + Set_String ("Occurrence);"); Write_Statement_Buffer; Set_String (" pragma Import (Ada, Raise_From_"); @@ -1466,7 +1465,7 @@ package body Bindgen is Write_Statement_Buffer; WBI (" begin"); - WBI (" Raise_From_Controlled_Operation (LE, False);"); + WBI (" Raise_From_Controlled_Operation (LE);"); WBI (" end;"); -- VM-specific code, use regular Ada to produce the desired behavior |