diff mbox

[Ada] Fix unexpectedly large frame with calls manipulating strings

Message ID 2999895.VdWNDh1TAt@polaris
State New
Headers show

Commit Message

Eric Botcazou March 1, 2016, 5:34 p.m. UTC 
> This new test fails for me with -m32.

Thanks for the heads up, fixed thusly, applied.


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

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

Patch

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 } }