This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[mudflap] test case for c++ mudflap bug
- From: "Frank Ch. Eigler" <fche at redhat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Fri, 9 Jul 2004 15:51:29 -0400
- Subject: [mudflap] test case for c++ mudflap bug
Hi -
The following patch adds a test case for bug g++/15861.
> 2004-07-09 Frank Ch. Eigler <fche@redhat.com>
>
> Test case for g++/15861
> * testsuite/libmudflap.c++/ctors-[12].cxx: New test case halves.
> * testsuite/libmudflap.c++/ctors.exp: Driver.
> * testsuite/libmudflap.c++/c++frags.exp: Elide redundant default.
> Look only for *frag* test cases.
Index: testsuite/libmudflap.c++/c++frags.exp
===================================================================
RCS file: /cvs/gcc/gcc/libmudflap/testsuite/libmudflap.c++/c++frags.exp,v
retrieving revision 1.4
diff -r1.4 c++frags.exp
9c9
< foreach srcfile [lsort [glob -nocomplain ${srcdir}/libmudflap.c++/*.cxx]] {
---
> foreach srcfile [lsort [glob -nocomplain ${srcdir}/libmudflap.c++/*frag.cxx]] {
11c11
< setenv MUDFLAP_OPTIONS "-no-heur-proc-map -viol-segv"
---
> setenv MUDFLAP_OPTIONS "-viol-segv"
Index: testsuite/libmudflap.c++/ctors-1.cxx
===================================================================
RCS file: testsuite/libmudflap.c++/ctors-1.cxx
diff -N testsuite/libmudflap.c++/ctors-1.cxx
0a1,20
> #include <iostream>
>
>
> extern char k [];
>
> class foo
> {
> public:
> foo (char *m) { m [40] = 20; }
> };
>
>
> foo f1 (k);
> foo f2 (k);
> foo f3 (k);
>
> int main ()
> {
> return 0;
> }
Index: testsuite/libmudflap.c++/ctors-2.cxx
===================================================================
RCS file: testsuite/libmudflap.c++/ctors-2.cxx
diff -N testsuite/libmudflap.c++/ctors-2.cxx
0a1
> char k [500];
Index: testsuite/libmudflap.c++/ctors.exp
===================================================================
RCS file: testsuite/libmudflap.c++/ctors.exp
diff -N testsuite/libmudflap.c++/ctors.exp
0a1,42
>
> libmudflap-init c++
>
> dg-init
>
> global srcdir subdir
>
> foreach flags [list {} {-static} {-O2} {-O3}] {
> set l1 [libmudflap_target_compile "$srcdir/$subdir/ctors-1.cxx" "ctors-1.o" object {additional_flags=-fmudflap}]
> set test "ctors-1 compilation ${flags}"
> if [string match "*mudflap cannot track lifetime of*k*" $l1] { pass $test } { fail $test }
>
> set l2 [libmudflap_target_compile "$srcdir/$subdir/ctors-2.cxx" "ctors-2.o" object {additional_flags=-fmudflap}]
> set test "ctors-2 compilation ${flags}"
> if [string match "" $l2] { pass $test } { fail $test }
>
> set l3 [libmudflap_target_compile "ctors-1.o ctors-2.o" "ctors-12.exe" executable {additional_flags=-fmudflap additional_flags=-lmudflap additional_flags=-lstdc++}]
> set test "ctors-12 linkage ${flags}"
> if [string match "" $l3] { pass $test } { fail $test }
>
> set l4 [libmudflap_target_compile "ctors-2.o ctors-1.o" "ctors-21.exe" executable {additional_flags=-fmudflap additional_flags=-lmudflap additional_flags=-lstdc++}]
> set test "ctors-21 linkage ${flags}"
> if [string match "" $l3] { pass $test } { fail $test }
>
> setenv MUDFLAP_OPTIONS "-viol-segv"
>
> remote_spawn host "./ctors-12.exe"
> set l5 [remote_wait host 10]
> set test "ctors-12 execution ${flags}"
> if {[lindex $l5 0] == 0} { pass $test } { fail $test }
>
> remote_spawn host "./ctors-21.exe"
> set l6 [remote_wait host 10]
> set test "ctors-21 execution ${flags}"
> if {[lindex $l6 0] == 0} { pass $test } { fail $test }
>
> foreach f [glob -nocomplain "ctors-*"] {
> remote_file build delete $f
> }
> }
>
> dg-finish