diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 02:27:24 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 02:27:24 +0000 |
| commit | c669eb7a887d38719ae472b4e6d14c2e8057aa5c (patch) | |
| tree | 76fddb0a38b0039ea0adc1cba3fea0644bed7775 | |
| parent | 08c47197dd7656049532c6dc422b1bffadf85d50 (diff) | |
| download | ppe42-gcc-c669eb7a887d38719ae472b4e6d14c2e8057aa5c.tar.gz ppe42-gcc-c669eb7a887d38719ae472b4e6d14c2e8057aa5c.zip | |
* bindgen.adb:
(Gen_Exception_Table_Ada): Write "begin" and then return if Num
exceptions equals 0.
(Gen_Exception_Table_C): Return if Num exceptions equals 0.
Fixes PIWG E tests (which have to be run with -gnatL).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47651 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/ada/bindgen.adb | 18 |
2 files changed, 25 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7d887e51666..a1f08e2d18d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2001-12-04 Douglas B. Rupp <rupp@gnat.com> + + * bindgen.adb: + (Gen_Exception_Table_Ada): Write "begin" and then return if Num + exceptions equals 0. + (Gen_Exception_Table_C): Return if Num exceptions equals 0. + Fixes PIWG E tests (which have to be run with -gnatL). + 2001-12-04 Robert Dewar <dewar@gnat.com> * einfo.ads: Minor reformatting diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 677e495cd79..d2af91bc8d6 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.201 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -895,6 +895,15 @@ package body Bindgen is end if; end loop; + if Num = 0 then + + -- Happens with "gnatmake -a -f -gnatL ..." + + WBI (" "); + WBI (" begin"); + return; + end if; + WBI (" procedure SDP_Table_Build"); WBI (" (SDP_Addresses : System.Address;"); WBI (" SDP_Count : Natural;"); @@ -1044,6 +1053,13 @@ package body Bindgen is end if; end loop; + if Num = 0 then + + -- Happens with "gnatmake -a -f -gnatL ..." + + return; + end if; + WBI (" "); Set_String (" void **st["); |
