Commit 2ae39fb2 by Eric Botcazou Committed by Eric Botcazou

stack_usage1.adb: Replace -fstack-usage with -Wstack-usage.

	* gnat.dg/stack_usage1.adb: Replace -fstack-usage with -Wstack-usage.
	* gnat.dg/stack_usage1b.adb: Likewise.
	* gnat.dg/stack_usage1c.adb: Likewise.
	* gnat.dg/stack_usage3.adb: Likewise.
	* gnat.dg/stack_usage1_pkg.adb: Delete.

From-SVN: r261021
parent 78668dd0
2018-05-31 Eric Botcazou <ebotcazou@adacore.com> 2018-05-31 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/stack_usage1.adb: Replace -fstack-usage with -Wstack-usage.
* gnat.dg/stack_usage1b.adb: Likewise.
* gnat.dg/stack_usage1c.adb: Likewise.
* gnat.dg/stack_usage3.adb: Likewise.
* gnat.dg/stack_usage1_pkg.adb: Delete.
2018-05-31 Eric Botcazou <ebotcazou@adacore.com>
* gcc.dg/store_merging_10.c: Turn dg-do compile into dg-do run. * gcc.dg/store_merging_10.c: Turn dg-do compile into dg-do run.
* gcc.dg/store_merging_11.c: Likewise. * gcc.dg/store_merging_11.c: Likewise.
* gcc.dg/store_merging_13.c: Likewise. * gcc.dg/store_merging_13.c: Likewise.
......
-- { dg-do compile } -- { dg-do compile }
-- { dg-options "-fstack-usage" } -- { dg-options "-Wstack-usage=128" { target i?86-*-* x86_64-*-* } }
with Stack_Usage1_Pkg; use Stack_Usage1_Pkg; with Stack_Usage1_Pkg; use Stack_Usage1_Pkg;
...@@ -34,6 +34,3 @@ begin ...@@ -34,6 +34,3 @@ begin
end case; end case;
end Stack_Usage1; end Stack_Usage1;
-- { dg-final { scan-stack-usage "\t\[0-9\]\[0-9\]\t" { target i?86-*-* x86_64-*-* } } }
-- { dg-final { cleanup-stack-usage } }
package body Stack_Usage1_Pkg is
function Ident_Int (X : Integer) return Integer is
begin
return X;
end Ident_Int;
procedure My_Proc (X : R) is
begin
null;
end My_Proc;
end Stack_Usage1_Pkg;
-- { dg-do compile } -- { dg-do compile }
-- { dg-options "-O -fstack-usage" } -- { dg-options "-O -Wstack-usage=128" { target i?86-*-* x86_64-*-* } }
with Stack_Usage1_Pkg; use Stack_Usage1_Pkg; with Stack_Usage1_Pkg; use Stack_Usage1_Pkg;
...@@ -34,6 +34,3 @@ begin ...@@ -34,6 +34,3 @@ begin
end case; end case;
end Stack_Usage1b; end Stack_Usage1b;
-- { dg-final { scan-stack-usage "\t\[0-9\]\[0-9\]\t" { target i?86-*-* x86_64-*-* } } }
-- { dg-final { cleanup-stack-usage } }
-- { dg-do compile } -- { dg-do compile }
-- { dg-options "-O2 -fstack-usage" } -- { dg-options "-O2 -Wstack-usage=128" { target i?86-*-* x86_64-*-* } }
with Stack_Usage1_Pkg; use Stack_Usage1_Pkg; with Stack_Usage1_Pkg; use Stack_Usage1_Pkg;
...@@ -34,6 +34,3 @@ begin ...@@ -34,6 +34,3 @@ begin
end case; end case;
end Stack_Usage1c; end Stack_Usage1c;
-- { dg-final { scan-stack-usage "\t\[0-9\]\[0-9\]\t" { target i?86-*-* x86_64-*-* } } }
-- { dg-final { cleanup-stack-usage } }
-- { dg-do compile } -- { dg-do compile }
-- { dg-options "-O -fstack-usage" } -- { dg-options "-O -Wstack-usage=1024" }
with Ada.Text_IO; use Ada.Text_IO; with Ada.Text_IO; use Ada.Text_IO;
with Stack_Usage3_Pkg; use Stack_Usage3_Pkg; with Stack_Usage3_Pkg; use Stack_Usage3_Pkg;
...@@ -27,6 +27,3 @@ begin ...@@ -27,6 +27,3 @@ begin
Put_Line (Diag ("Diag line 19")); Put_Line (Diag ("Diag line 19"));
Put_Line (Diag ("Diag line 20")); Put_Line (Diag ("Diag line 20"));
end; end;
-- { dg-final { scan-stack-usage-not "\t\[0-9\]\[0-9\]\[0-9\]\[0-9\]\t" } }
-- { dg-final { cleanup-stack-usage } }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment