[Ada] Fix bindgen outputs junk for "gnatmake -a -f -gnatL ..."

[Geert Bosch]

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).

*** bindgen.adb	2001/09/30 18:51:38	1.203
--- bindgen.adb	2001/10/18 18:05:22	1.204
***************
*** 895,900 ****
--- 895,909 ----
           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;");
***************
*** 1043,1048 ****
--- 1052,1064 ----
              Write_Statement_Buffer;
           end if;
        end loop;
+ 
+       if Num = 0 then
+ 
+          --  Happens with "gnatmake -a -f -gnatL ..."
+ 
+          return;
+       end if;
  
        WBI (" ");