* 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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7d887e51666ea3a9373ee8dd831ef392f2e939a5..a1f08e2d18d3c1fe5b989c07487bd416d13403f4 100644 (file)
--- 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 677e495cd7993d288f2221793bbfd2ceed8a6293..d2af91bc8d6b4fb84cc5f9daa235c27d1977479b 100644 (file)
--- 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[");