[Ada] Clean up of gnatbind output (for non-standard run times)

Arnaud Charlet charlet@adacore.com
Mon Oct 29 11:01:00 GMT 2012


A declaration for Is_Elaborated was emitted but never referenced.
No functional change.

Tested on x86_64-pc-linux-gnu, committed on trunk

2012-10-29  Tristan Gingold  <gingold@adacore.com>

	* bindgen.adb (Gen_Output_File_Ada): Do not emit declaration for
	Is_Elaborated if not referenced.

-------------- next part --------------
Index: bindgen.adb
===================================================================
--- bindgen.adb	(revision 192922)
+++ bindgen.adb	(working copy)
@@ -2394,8 +2394,13 @@
 
          --  The B.1 (39) implementation advice says that the adainit/adafinal
          --  routines should be idempotent. Generate a flag to ensure that.
+         --  This is not needed if we are suppressing the standard library
+         --  since it would never be referenced.
 
-         WBI ("   Is_Elaborated : Boolean := False;");
+         if not Suppress_Standard_Library_On_Target then
+            WBI ("   Is_Elaborated : Boolean := False;");
+         end if;
+
          WBI ("");
       end if;
 


More information about the Gcc-patches mailing list