[Ada] Bindgen: protect reference to System.Parameters with Sec_Stack_Used

2018-06-11  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/
	* bindgen.adb (Gen_Adainit): Protect reference to System.Parameters
	with Sec_Stack_Used.

From-SVN: r261401

gcc/ada/ChangeLog

+2018-06-11  Arnaud Charlet  <charlet@adacore.com>
+
+	* bindgen.adb (Gen_Adainit): Protect reference to System.Parameters
+	with Sec_Stack_Used.
+
 2018-06-11  Hristian Kirtchev  <kirtchev@adacore.com>
 
 	* sem_ch8.adb (Find_Direct_Name): Mode the declaration of

gcc/ada/bindgen.adb

@@ -745,10 +745,14 @@ package body Bindgen is
          WBI ("      Default_Stack_Size : Integer;");
          WBI ("      pragma Import (C, Default_Stack_Size, " &
               """__gl_default_stack_size"");");
-         WBI ("      Default_Secondary_Stack_Size : " &
-              "System.Parameters.Size_Type;");
-         WBI ("      pragma Import (C, Default_Secondary_Stack_Size, " &
-              """__gnat_default_ss_size"");");
+
+         if Sec_Stack_Used then
+            WBI ("      Default_Secondary_Stack_Size : " &
+                 "System.Parameters.Size_Type;");
+            WBI ("      pragma Import (C, Default_Secondary_Stack_Size, " &
+                 """__gnat_default_ss_size"");");
+         end if;
+
          WBI ("      Leap_Seconds_Support : Integer;");
          WBI ("      pragma Import (C, Leap_Seconds_Support, " &
               """__gl_leap_seconds_support"");");