From d61bd65a64aa5332fd5d4e585a27839712229d1f Mon Sep 17 00:00:00 2001 From: Douglas B Rupp Date: Wed, 5 Dec 2001 03:27:24 +0100 Subject: [PATCH] * 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 --- gcc/ada/ChangeLog | 8 ++++++++ gcc/ada/bindgen.adb | 18 +++++++++++++++++- 2 files changed, 25 insertions(+), 1 deletion(-) 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 + + * 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 * 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[");