diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2007-01-04 10:59:03 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2007-01-04 10:59:03 +0000 |
| commit | f9e182823dec22a74e570bd4257bf7d1ef2e3dfd (patch) | |
| tree | 4af4a3599131d7874da03906f2f84f710e3e7761 /gdb | |
| parent | 5d15052e9db089660edcf4eb229e3ee17b3b3631 (diff) | |
| download | gdb-f9e182823dec22a74e570bd4257bf7d1ef2e3dfd.zip gdb-f9e182823dec22a74e570bd4257bf7d1ef2e3dfd.tar.gz gdb-f9e182823dec22a74e570bd4257bf7d1ef2e3dfd.tar.bz2 | |
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.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 11 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/null_record/bar.adb | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/null_record/bar.ads | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/null_record/null_record.adb | 3 |
4 files changed, 18 insertions, 5 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index f043993..9b4fe7e 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,16 @@ 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> + * gdb.ada/catch_ex/foo.adb: New file. * gdb.ada/catch_ex.exp: New testcase. diff --git a/gdb/testsuite/gdb.ada/null_record/bar.adb b/gdb/testsuite/gdb.ada/null_record/bar.adb index 9c75139..b29f8fc 100644 --- a/gdb/testsuite/gdb.ada/null_record/bar.adb +++ b/gdb/testsuite/gdb.ada/null_record/bar.adb @@ -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 -- it under the terms of the GNU General Public License as published by @@ -16,7 +16,7 @@ package body Bar is - procedure Do_Nothing is + procedure Do_Nothing (E : Void_Star) is begin null; end Do_Nothing; diff --git a/gdb/testsuite/gdb.ada/null_record/bar.ads b/gdb/testsuite/gdb.ada/null_record/bar.ads index c3ca11b..ffdd554 100644 --- a/gdb/testsuite/gdb.ada/null_record/bar.ads +++ b/gdb/testsuite/gdb.ada/null_record/bar.ads @@ -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 -- it under the terms of the GNU General Public License as published by @@ -17,7 +17,8 @@ package Bar is type Empty is null record; + type Void_Star is access all Empty; - procedure Do_Nothing; + procedure Do_Nothing (E : Void_Star); end Bar; diff --git a/gdb/testsuite/gdb.ada/null_record/null_record.adb b/gdb/testsuite/gdb.ada/null_record/null_record.adb index 260b3d6..28846db 100644 --- a/gdb/testsuite/gdb.ada/null_record/null_record.adb +++ b/gdb/testsuite/gdb.ada/null_record/null_record.adb @@ -17,7 +17,8 @@ with Bar; use Bar; procedure Null_Record is + E : Void_Star := new Empty; begin - Do_Nothing; + Do_Nothing (E); end Null_Record; |