This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Fix bindgen outputs junk for "gnatmake -a -f -gnatL ..."
- From: Geert Bosch <bosch at darwin dot gnat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Tue, 4 Dec 2001 21:28:16 -0500 (EST)
- Subject: [Ada] Fix bindgen outputs junk for "gnatmake -a -f -gnatL ..."
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 (" ");