* 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

+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

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[");