Re: [Ada] Fix unexpectedly large frame with calls manipulating strings

[Eric Botcazou]

> This new test fails for me with -m32.

Thanks for the heads up, fixed thusly, applied.


2016-03-01  Eric Botcazou  <ebotca...@adacore.com>

        * gnat.dg/stack_usage3.adb: Robustify and enable for all targets.


-- 
Eric Botcazou
Index: gnat.dg/stack_usage3.adb
===================================================================
--- gnat.dg/stack_usage3.adb	(revision 233840)
+++ gnat.dg/stack_usage3.adb	(working copy)
@@ -5,9 +5,7 @@ with Ada.Text_IO; use Ada.Text_IO;
 with Stack_Usage3_Pkg; use Stack_Usage3_Pkg;
 
 procedure Stack_Usage3 is
-
 begin
-   Put_Line (Diag ("Diag line 0"));
    Put_Line (Diag ("Diag line 1"));
    Put_Line (Diag ("Diag line 2"));
    Put_Line (Diag ("Diag line 3"));
@@ -22,7 +20,13 @@ begin
    Put_Line (Diag ("Diag line 12"));
    Put_Line (Diag ("Diag line 13"));
    Put_Line (Diag ("Diag line 14"));
+   Put_Line (Diag ("Diag line 15"));
+   Put_Line (Diag ("Diag line 16"));
+   Put_Line (Diag ("Diag line 17"));
+   Put_Line (Diag ("Diag line 18"));
+   Put_Line (Diag ("Diag line 19"));
+   Put_Line (Diag ("Diag line 20"));
 end;
 
--- { dg-final { scan-stack-usage "\t\[0-9\]\[0-9\]\t" { target i?86-*-* x86_64-*-* } } }
+-- { dg-final { scan-stack-usage-not "\t\[0-9\]\[0-9\]\[0-9\]\[0-9\]\t" } }
 -- { dg-final { cleanup-stack-usage } }