diff options
| author | Douglas B Rupp <rupp@gnat.com> | 2001-12-05 03:27:24 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-05 03:27:24 +0100 |
| commit | d61bd65a64aa5332fd5d4e585a27839712229d1f (patch) | |
| tree | 76fddb0a38b0039ea0adc1cba3fea0644bed7775 | |
| parent | 4ba603e2f26ff7061587496efeb6369bdb9c7181 (diff) | |
| download | gcc-d61bd65a64aa5332fd5d4e585a27839712229d1f.zip gcc-d61bd65a64aa5332fd5d4e585a27839712229d1f.tar.gz gcc-d61bd65a64aa5332fd5d4e585a27839712229d1f.tar.bz2 | |
* 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).
From-SVN: r47651
| -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 7d887e5..a1f08e2 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 677e495..d2af91b 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["); |