From: Patrick Bernardi <bernardi@adacore.com>
Date: Fri, 25 May 2018 09:04:27 +0000 (+0000)
Subject: [Ada] Disable the creation of the main task secondary stack by the binder
X-Git-Tag: basepoints/gcc-10~6476
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=733a4a3dbc7873df5749f70a1563ea816efe7146;p=thirdparty%2Fgcc.git

[Ada] Disable the creation of the main task secondary stack by the binder

Users can now specify that the binder should not create a secondary stack for
the main (environment) task through the binder switch -Q0. This is useful for
ZFP runtime users who allocate secondary stacks for their application
themselves.

2018-05-25  Patrick Bernardi  <bernardi@adacore.com>

gcc/ada/

	* switch-b.adb (Scan_Binder_Switches): binder switch -Q accepts Natural
	numbers.

From-SVN: r260731
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d1cf7a9b66eb..f3a0f38de6c5 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-05-25  Patrick Bernardi  <bernardi@adacore.com>
+
+	* switch-b.adb (Scan_Binder_Switches): binder switch -Q accepts Natural
+	numbers.
+
 2018-05-25  Doug Rupp  <rupp@adacore.com>
 
 	* tracebak.c (aarch64-linux): Implement.
diff --git a/gcc/ada/switch-b.adb b/gcc/ada/switch-b.adb
index 68183d539871..7649de37ae87 100644
--- a/gcc/ada/switch-b.adb
+++ b/gcc/ada/switch-b.adb
@@ -399,7 +399,7 @@ package body Switch.B is
             end if;
 
             Ptr := Ptr + 1;
-            Scan_Pos
+            Scan_Nat
               (Switch_Chars, Max, Ptr,
                Quantity_Of_Default_Size_Sec_Stacks, C);