git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Eric Botcazou 2018-05-31 11:30:46 +00:00 committed by Eric Botcazou
parent 78668dd094
commit 2ae39fb2b0
6 changed files with 12 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
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> 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.

5
gcc/testsuite/gnat.dg/stack_usage1.adb
View File

@ -1,5 +1,5 @@
-- { 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
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 } }

13
gcc/testsuite/gnat.dg/stack_usage1_pkg.adb
View File

@ -1,13 +0,0 @@
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;

5
gcc/testsuite/gnat.dg/stack_usage1b.adb
View File

@ -1,5 +1,5 @@
-- { 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
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 } }

5
gcc/testsuite/gnat.dg/stack_usage1c.adb
View File

@ -1,5 +1,5 @@
-- { 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
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 } }

5
gcc/testsuite/gnat.dg/stack_usage3.adb
View File

@ -1,5 +1,5 @@
-- { 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
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 } }