FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make this testcase a bit more realistic. The current code

Browse source 
is too simplistic, and allows the compiler to optimize out
        some of the entities we need for this testcase.
        * gdb.ada/null_record/bar.ads (Void_Star): New type.
        (Do_Nothing): Add extra parameter.
        * gdb.ada/null_record/bar.adb (Do_Nothing): Likewise.
        * gdb.ada/null_record/null_record.adb: Fake use of type Empty
        by using a variable of type Void_Star.
This commit is contained in:
Joel Brobecker 2007-01-04 10:59:03 +00:00
parent 5d15052e9d
commit f9e182823d
4 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,14 @@
2006-01-04 Joel Brobecker <brobecker@adacore.com>
Make this testcase a bit more realistic. The current code
is too simplistic, and allows the compiler to optimize out
some of the entities we need for this testcase.
* gdb.ada/null_record/bar.ads (Void_Star): New type.
(Do_Nothing): Add extra parameter.
* gdb.ada/null_record/bar.adb (Do_Nothing): Likewise.
* gdb.ada/null_record/null_record.adb: Fake use of type Empty
by using a variable of type Void_Star.
2006-01-04 Joel Brobecker <brobecker@adacore.com> 2006-01-04 Joel Brobecker <brobecker@adacore.com>
* gdb.ada/catch_ex/foo.adb: New file. * gdb.ada/catch_ex/foo.adb: New file.

4
gdb/testsuite/gdb.ada/null_record/bar.adb
View file

@ -1,4 +1,4 @@
-- Copyright 2004 Free Software Foundation, Inc. -- Copyright 2004, 2007 Free Software Foundation, Inc.
-- --
-- This program is free software; you can redistribute it and/or modify -- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by -- it under the terms of the GNU General Public License as published by
@ -16,7 +16,7 @@
package body Bar is package body Bar is
procedure Do_Nothing is procedure Do_Nothing (E : Void_Star) is
begin begin
null; null;
end Do_Nothing; end Do_Nothing;

5
gdb/testsuite/gdb.ada/null_record/bar.ads
View file

@ -1,4 +1,4 @@
-- Copyright 2004 Free Software Foundation, Inc. -- Copyright 2004, 2007 Free Software Foundation, Inc.
-- --
-- This program is free software; you can redistribute it and/or modify -- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by -- it under the terms of the GNU General Public License as published by
@ -17,7 +17,8 @@
package Bar is package Bar is
type Empty is null record; type Empty is null record;
type Void_Star is access all Empty;
procedure Do_Nothing; procedure Do_Nothing (E : Void_Star);
end Bar; end Bar;

3
gdb/testsuite/gdb.ada/null_record/null_record.adb
View file

@ -17,7 +17,8 @@
with Bar; use Bar; with Bar; use Bar;
procedure Null_Record is procedure Null_Record is
E : Void_Star := new Empty;
begin begin
Do_Nothing; Do_Nothing (E);
end Null_Record; end Null_Record;