From patchwork Wed Jan 5 18:06:56 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Rainer Orth X-Patchwork-Id: 77621 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id 5A963B7063 for ; Thu, 6 Jan 2011 05:07:27 +1100 (EST) Received: (qmail 28884 invoked by alias); 5 Jan 2011 18:07:25 -0000 Received: (qmail 28858 invoked by uid 22791); 5 Jan 2011 18:07:21 -0000 X-SWARE-Spam-Status: No, hits=-0.3 required=5.0 tests=AWL, BAYES_50, TW_BF, TW_BJ, TW_GC, TW_IB, TW_JG, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from snape.CeBiTec.Uni-Bielefeld.DE (HELO smtp-relay.CeBiTec.Uni-Bielefeld.DE) (129.70.160.84) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Wed, 05 Jan 2011 18:07:14 +0000 Received: from localhost (localhost.CeBiTec.Uni-Bielefeld.DE [127.0.0.1]) by smtp-relay.CeBiTec.Uni-Bielefeld.DE (Postfix) with ESMTP id 93BC014E; Wed, 5 Jan 2011 19:07:11 +0100 (CET) Received: from smtp-relay.CeBiTec.Uni-Bielefeld.DE ([127.0.0.1]) by localhost (malfoy.CeBiTec.Uni-Bielefeld.DE [127.0.0.1]) (amavisd-new, port 10024) with LMTP id NhGOSsvU+ge9; Wed, 5 Jan 2011 19:06:57 +0100 (CET) Received: from manam.CeBiTec.Uni-Bielefeld.DE (manam.CeBiTec.Uni-Bielefeld.DE [129.70.161.120]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by smtp-relay.CeBiTec.Uni-Bielefeld.DE (Postfix) with ESMTPS id 12F3E14C; Wed, 5 Jan 2011 19:06:57 +0100 (CET) Received: (from ro@localhost) by manam.CeBiTec.Uni-Bielefeld.DE (8.14.4+Sun/8.14.4/Submit) id p05I6uSn017134; Wed, 5 Jan 2011 19:06:56 +0100 (MET) From: Rainer Orth To: gcc-patches@gcc.gnu.org Cc: java-patches@gcc.gnu.org, Hans Boehm , Paolo Bonzini , Janis Johnson , Ben Elliston , Ralf Wildenhues Subject: [testsuite, build] Convert boehm-gc testsuite to DejaGnu (PR boehm-gc/11412) Date: Wed, 05 Jan 2011 19:06:56 +0100 Message-ID: User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (usg-unix-v) MIME-Version: 1.0 X-IsSubscribed: yes Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org I've long maintained that it would be very helpful to convert the boehm-gc testsuite to DejaGnu: * It enables multilib testing, giving better test coverage. * Unlike the present situation, failures are not easily overlooked because the results immediately show up in mail-report.log instead of being hidden in a multi-megabyte make check output. I've many times found that e.g. libjava failures were ultimately cause by problems in boehm-gc. * All DejaGnu features (like timeouts to avoid hanging the whole make check run when gctest doesn't complete, target-specific xfails etc.) suddenly become available. Apart from that, I'd thought that boehm-gc would make a good case study for developing a new DejaGnu tool/testsuite, but that proved wrong since I had to use libtool to do all the compiling and linking ;-) Anyway, here's the result, with several points worth mentioning: * Makefile.am used AUTOMAKE_OPTIONS = cygnus, although the current Makefile.in was generated with automake --foreign. Since I could see no reason to stay with cygnus here, I've moved to foreign like most (all?) other Makefile.am's. UNWINDLIBS was present, but never set anywhere, so I removed it. One must not include RUNTEST=$(RUNTEST) in the toplevel Makefile's AM_MAKEFLAGS: it isn't set anywhere and breaks make check by passing down that empty value. * I set DEJATOOL = boehm-gc in testsuite/Makefile.am. The default is $PACKAGE, which is gc, but it seemed more intuitive to see boehm-gc in mail-report.log, matching the toplevel directory. As usual, the site.exp target needs to be overridden to pass the configure-determined THREADLIBS and EXTRA_TEST_LIBS down to the testsuite. This is quite messy; it would be far better if automake provided some facility for that. * I've moved all the testcases from tests to subdirectories to testsuite/boehm-gc.* where DejaGnu expects them. Unlike the current Makefile.am, where the names of the test sources and executables sometimes differ, I've kept the source file names as is, with the exception of test.c which I've renamed to gctest.c since that test name is quite well-known, I think. Three tests weren't run before: test_cpp.cc I haven't bothered yet to add the testsuite goo for a single C++ test. It can certainly be done if need be, but I'd rather to concentrate on my next project, ACATS to DejaGnu conversion, instead. thread_leak_test.c No apparent reason, just works. trace_test.c Uses GC_generate_random_backtrace which is only available when configuring with --enable-gc-debug, so I'm skipping this everywhere. * The meat of the testsuite (a new tool in DejaGnu parlance) lives in testsuite/lib/boehm-gc.exp. I've started with the libffi equivalent since it was the smallest and further tried to strip it down. I see lots of opportunities for code reuse here: most DejaGnu tools in GCC started off as a copy of some other tool with search-and-replace of the tool name and only a few (if any) local changes. This is a total mess to understand and maintain and I hope to do something about this in the future. I've tried to identify possibly reusable code and liberally scattered lots of FIXME comments all over. The primary problem right now is to get a highlevel picture of the control flow in a tool. Unfortunately, the DejaGnu documentation is somewhat lacking here to put it mildly. (To be honest, dg.exp documentation in DejaGnu is completely absent. Janis added some documentation to sourcebuild.texi, but more needs to be done. Hopefully I'll be able to contribute here.) * The primary complication of the boehm-gc testsuite is the staticroottest testcase, which depends on a shared library. Currently, libtool is used to build that and I think that's the right decision rather than duplicating all of libtool's knowledge in DejaGnu. Unfortunately, DejaGnu knows nothing about libtool yet, and I'm still struggling with the right way to integrate it. For the moment (though I fear that wrong, over-complicated) I've chosen to add two additional keywords (ltassemble and ltlink) to match assemble and link, but for .la, .lo files instead. I'm open for suggestions for better ways to handle this, though. As I said, there are many FIXMEs embbed below, and I'd be grateful for suggestions. Anyway, the code below works fine for me, as can be seen in this excerpt from i386-pc-solaris2.11 mail-report.log: === boehm-gc tests === Running target unix FAIL: boehm-gc.c/gctest.c -O2 execution test === boehm-gc Summary for unix === # of expected passes 11 # of unexpected failures 1 # of unsupported tests 1 Running target unix/-m64 === boehm-gc Summary for unix/-m64 === # of expected passes 12 # of unsupported tests 1 === boehm-gc Summary === # of expected passes 23 # of unexpected failures 1 # of unsupported tests 2 This nicely shows the 32-bit-only gctest execution failure which I mentioned earlier: this only happens with GNU ld, Sun ld is fine. Without DejaGnu, such a failure would only be noticed if one happened to look at the make check output or were specificially looking for boehm-gc issues for some reason. I don't really know what I'm asking for right now: I fear in it's current state, the code could be too fragile for trunk and it would be better to wait until 4.6 branches and then flesh out issues on mainline. However, all sorts of suggestions, encouragements (or discouragements :-) are more than welcome. Rainer 2010-12-31 Rainer Orth PR boehm-gc/11412 * Makefile.am (AUTOMAKE_OPTIONS): Use foreign instead of cygnus. (SUBDIRS): Add testsuite. (libgcjgc_la_LIBADD): Remove $(UNWINDLIBS). Remove TESTS related variables. (AM_MAKEFLAGS): Don't pass RUNTEST. * configure.ac: Add testsuite/Makefile to AC_CONFIG_FILES. * Makefile.in: Regenerate. * configure: Regenerate. * testsuite/Makefile.am: New file. * testsuite/Makefile.in: New file. * testsuite/lib/boehm-gc.exp: New file. * testsuite/config/default.exp: New file. * testsuite/boehm-gc.c/c.exp: New file. * testsuite/boehm-gc.lib/lib.exp: New file. * tests/test.c: Move ... * testsuite/boehm-gc.c/gctest.c: ... here. * tests/leak_test.c, tests/middle.c, tests/thread_leak_test.c, tests/trace_test.c: Move ... * testsuite/boehm-gc.c: ... here. * testsuite/boehm-gc.c/trace_test.c: Skip everywhere. * tests/staticrootslib.c, tests/staticrootstest.c: Move ... * testsuite/boehm-gc.lib: ... here. * tests/test_cpp.cc: Move ... * testsuite/boehm-gc.c++: ... here. diff -r 71cfe7556b69 boehm-gc/Makefile.am --- a/boehm-gc/Makefile.am Sat Jan 01 23:04:07 2011 +0100 +++ b/boehm-gc/Makefile.am Sat Jan 01 23:52:04 2011 +0100 @@ -4,10 +4,10 @@ ## files that should be in the distribution are not mentioned in this ## Makefile.am. -AUTOMAKE_OPTIONS = cygnus subdir-objects +AUTOMAKE_OPTIONS = foreign subdir-objects ACLOCAL_AMFLAGS = -I .. -I ../config -SUBDIRS = include +SUBDIRS = include testsuite noinst_LTLIBRARIES = libgcjgc.la libgcjgc_convenience.la @@ -35,7 +35,7 @@ # Include THREADLIBS here to ensure that the correct versions of # linuxthread semaphore functions get linked: -libgcjgc_la_LIBADD = $(addobjs) $(THREADLIBS) $(UNWINDLIBS) +libgcjgc_la_LIBADD = $(addobjs) $(THREADLIBS) libgcjgc_la_DEPENDENCIES = $(addobjs) libgcjgc_la_LDFLAGS = $(extra_ldflags_libgc) -version-info 1:2:0 -rpath $(toolexeclibdir) libgcjgc_la_LINK = $(LINK) $(libgcjgc_la_LDFLAGS) @@ -48,43 +48,6 @@ AM_LDFLAGS = $(shell $(top_srcdir)/../libtool-ldflags $(LDFLAGS)) override CFLAGS := $(filter-out $(O0_CFLAGS), $(CFLAGS)) $(O0_CFLAGS) -test_ldadd = libgcjgc.la $(THREADLIBS) $(UNWINDLIBS) $(EXTRA_TEST_LIBS) - -check_PROGRAMS = gctest -gctest_SOURCES = tests/test.c -gctest_LDADD = $(test_ldadd) -gctest_LDFLAGS = -shared-libgcc -gctest_LINK = $(LINK) $(gctest_LDFLAGS) -TESTS_ENVIRONMENT = LD_LIBRARY_PATH=../../$(MULTIBUILDTOP)gcc -TESTS = gctest - -TESTS += leaktest$(EXEEXT) -check_PROGRAMS += leaktest -leaktest_SOURCES = tests/leak_test.c -leaktest_LDADD = $(test_ldadd) -leaktest_LDFLAGS = -shared-libgcc -leaktest_LINK = $(LINK) $(leaktest_LDFLAGS) - -TESTS += middletest$(EXEEXT) -check_PROGRAMS += middletest -middletest_SOURCES = tests/middle.c -middletest_LDADD = $(test_ldadd) -middletest_LDFLAGS = -shared-libgcc -middletest_LINK = $(LINK) $(middletest_LDFLAGS) - -TESTS += staticrootstest$(EXEEXT) -check_PROGRAMS += staticrootstest -staticrootstest_SOURCES = tests/staticrootstest.c -staticrootstest_LDADD = $(test_ldadd) libstaticrootslib.la -staticrootstest_LDFLAGS = -shared-libgcc -staticrootstest_LINK = $(LINK) $(staticrootstest_LDFLAGS) -check_LTLIBRARIES = libstaticrootslib.la -libstaticrootslib_la_SOURCES = tests/staticrootslib.c -libstaticrootslib_la_LIBADD = libgcjgc_convenience.la -libstaticrootslib_la_LDFLAGS = -version-info 1:2:0 -no-undefined \ - -rpath /nowhere -shared-libgcc -libstaticrootslib_la_DEPENDENCIES = libgcjgc_convenience.la - ## FIXME: we shouldn't have to do this, but automake forces us to. .s.lo: ## We use -Wp,-P to strip #line directives. Irix `as' chokes on @@ -116,7 +79,6 @@ "PICFLAG_FOR_TARGET=$(PICFLAG_FOR_TARGET)" \ "SHELL=$(SHELL)" \ "EXPECT=$(EXPECT)" \ - "RUNTEST=$(RUNTEST)" \ "RUNTESTFLAGS=$(RUNTESTFLAGS)" \ "exec_prefix=$(exec_prefix)" \ "infodir=$(infodir)" \ diff -r 71cfe7556b69 boehm-gc/configure.ac --- a/boehm-gc/configure.ac Sat Jan 01 23:04:07 2011 +0100 +++ b/boehm-gc/configure.ac Sat Jan 01 23:52:04 2011 +0100 @@ -1,4 +1,4 @@ -# Copyright (c) 1999, 2000, 2001, 2002, 2003, 2006, 2010 by Red Hat, Inc. +# Copyright (c) 1999, 2000, 2001, 2002, 2003, 2006, 2010, 2011 by Red Hat, Inc. # All rights reserved. # Copyright 2004 Nathanael Nerode # @@ -542,5 +542,5 @@ AC_CONFIG_HEADERS([include/gc_config.h include/gc_ext_config.h]) -AC_CONFIG_FILES(Makefile include/Makefile threads.mk) +AC_CONFIG_FILES(Makefile include/Makefile testsuite/Makefile threads.mk) AC_OUTPUT diff -r 71cfe7556b69 boehm-gc/testsuite/Makefile.am --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/boehm-gc/testsuite/Makefile.am Sat Jan 01 23:52:04 2011 +0100 @@ -0,0 +1,43 @@ +## Process this file with automake to produce Makefile.in. + +AUTOMAKE_OPTIONS = foreign dejagnu + +# Setup the testing framework, if you have one +EXPECT = `if [ -f $(top_builddir)/../expect/expect ] ; then \ + echo $(top_builddir)/../expect/expect ; \ + else echo expect ; fi` + +RUNTEST = `if [ -f $(top_srcdir)/../dejagnu/runtest ] ; then \ + echo $(top_srcdir)/../dejagnu/runtest ; \ + else echo runtest; fi` + +# Override default. +DEJATOOL = boehm-gc + +CLEANFILES = *.exe core* *.log *.sum + +# We need more things in site.exp, but automake completely controls the +# creation of that file; there's no way to append to it without messing up +# the dependancy chains. So we overrule automake. This rule is exactly +# what it would have generated, plus our own additions. +site.exp: Makefile + @echo 'Making a new site.exp file...' + @echo '## these variables are automatically generated by make ##' >site.tmp + @echo '# Do not edit here. If you wish to override these values' >>site.tmp + @echo '# edit the last section' >>site.tmp + @echo 'set srcdir $(srcdir)' >>site.tmp + @echo "set objdir `pwd`" >>site.tmp + @echo 'set build_alias "$(build_alias)"' >>site.tmp + @echo 'set build_triplet $(build_triplet)' >>site.tmp + @echo 'set host_alias "$(host_alias)"' >>site.tmp + @echo 'set host_triplet $(host_triplet)' >>site.tmp + @echo 'set target_alias "$(target_alias)"' >>site.tmp + @echo 'set target_triplet $(target_triplet)' >>site.tmp + @echo 'set threadlibs "$(THREADLIBS)"' >>site.tmp + @echo 'set extra_test_libs "$(EXTRA_TEST_LIBS)"' >>site.tmp + @echo '## All variables above are generated by configure. Do Not Edit ##' >>site.tmp + @test ! -f site.exp || \ + sed '1,/^## All variables above are.*##/ d' site.exp >> site.tmp + @-rm -f site.bak + @test ! -f site.exp || mv site.exp site.bak + @mv site.tmp site.exp diff -r 71cfe7556b69 boehm-gc/testsuite/boehm-gc.c/c.exp --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/boehm-gc/testsuite/boehm-gc.c/c.exp Sat Jan 01 23:52:04 2011 +0100 @@ -0,0 +1,27 @@ +# Copyright (C) 2011 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 +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; see the file COPYING3. If not see +# . + +dg-init +boehm-gc-init + +global srcdir subdir + +dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] "-O2" "" +dg-finish + +# Local Variables: +# tcl-indent-level:4 +# End: diff -r 71cfe7556b69 boehm-gc/testsuite/boehm-gc.c/trace_test.c --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/boehm-gc/testsuite/boehm-gc.c/trace_test.c Sat Jan 01 23:52:04 2011 +0100 @@ -0,0 +1,32 @@ +/* { dg-skip-if "requires --enable-gc-debug" *-*-* } */ + +#include +#define GC_DEBUG +#include "gc.h" + +struct treenode { + struct treenode *x; + struct treenode *y; +} * root[10]; + +struct treenode * mktree(int i) { + struct treenode * r = GC_MALLOC(sizeof(struct treenode)); + if (0 == i) return 0; + if (1 == i) r = GC_MALLOC_ATOMIC(sizeof(struct treenode)); + r -> x = mktree(i-1); + r -> y = mktree(i-1); + return r; +} + +int main() +{ + int i; + for (i = 0; i < 10; ++i) { + root[i] = mktree(12); + } + GC_generate_random_backtrace(); + GC_generate_random_backtrace(); + GC_generate_random_backtrace(); + GC_generate_random_backtrace(); + return 0; +} diff -r 71cfe7556b69 boehm-gc/testsuite/boehm-gc.lib/lib.exp --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/boehm-gc/testsuite/boehm-gc.lib/lib.exp Sat Jan 01 23:52:04 2011 +0100 @@ -0,0 +1,115 @@ +# Copyright (C) 2011 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 +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; see the file COPYING3. If not see +# . + +# FIXME: Comment. +# Better name? boehm-gc-build-shlib? +proc boehm-gc-shlib { lib flags extra-flags } { + global subdir + global dg-do-what-default + global gc_lib_conv + + # Determine basename. + # FIXME: Use dg-trim-dirname $srcdir $lib? + set nshort "$subdir/[file tail $lib]" + set bname "[file rootname [file tail $nshort]]" + verbose "bname: $bname" + + set saved-dg-do-what ${dg-do-what-default} + + # FIXME: Maybe do this in one step? + # Doesn't work right now? libtool issue, it seems. + set dg-do-what-default ltassemble + dg-test -keep-output $lib $flags ${extra-flags} + + # FIXME: Explain. Turn into parameter? + set shopt "-version-info 1:2:0 -no-undefined -rpath /nowhere -shared-libgcc" + set shopt "$shopt $gc_lib_conv" + + # FIXME: Message seems strange: e.g. + # PASS: staticrootslib.lo -O2 (test for excess errors) + # FIXME: How to avoid knowledge on output filenames? + set dg-do-what-default ltlink + dg-test -keep-output $bname.lo $flags "${extra-flags} $shopt" + + set dg-do-what-default ${saved-dg-do-what} + + # Remove $bname.*o and .libs/$bname.*o. + # FIXME: Might use libtool --mode=clean $bname.lo, but is this right in + # cross-compilation scenarios? + # What is it? build, host? + set to_delete [glob -nocomplain $bname.*o] + set to_delete "$to_delete [glob -nocomplain .libs/$bname.*o]" + eval remote_file build delete $to_delete + + return lib$bname.la +} + +# FIXME: Comment. +proc boehm-gc-lib-dg-runtest { testcases flags extra-flags } { + global runtests + + foreach testcase $testcases { + # If we're only testing specific files and this isn't one of them, skip it. + if ![runtest_file_p $runtests $testcase] { + return + } + + # Library source corresponding to test file. + regsub "test\.c$" $testcase "lib.c" lib + verbose "lib: $lib" + + # Build support library. + # FIXME: Handle via dg-add-shlib keyword? + # If so, boehm-gc.lib becomes unnecessary. + set shlib [boehm-gc-shlib $lib $flags ${extra-flags}] + + # Run testcase, linking with support library. + dg-test $testcase $flags "${extra-flags} $shlib" + + # Remove $shlib, .libs/$shlib.*. + # FIXME: Could the removal be done in a more general place? + # Where is the rest of the removal done? + set to_delete $shlib + set to_delete "$to_delete [glob -nocomplain .libs/[file rootname $shlib].*]" + + # FIXME: Doesn't delete .libs/libstaticrootslib.la and + # .libs/libstaticrootslib.so.1, why? + # Bug in remote.exp (standard_file): checks file exists and file + # isfile first!? + eval remote_file build delete $to_delete + + # Remove .libs/$execname. + # FIXME: Should go into the framework somewhere, but dg-final + # cannot be used since that is reset every time dg-test runs. + remote_file build delete .libs/[file rootname [file tail $testcase]] + } +} + +dg-init +boehm-gc-init + +global srcdir subdir + +# Gather list of tests, skipping library source files. +set tests [lsort [glob -nocomplain $srcdir/$subdir/*.c]] +set tests [prune $tests $srcdir/$subdir/*lib.c] + +boehm-gc-lib-dg-runtest $tests "-O2" "" +dg-finish + +# Local Variables: +# tcl-indent-level:4 +# End: diff -r 71cfe7556b69 boehm-gc/testsuite/config/default.exp --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/boehm-gc/testsuite/config/default.exp Sat Jan 01 23:52:04 2011 +0100 @@ -0,0 +1,1 @@ +load_lib "standard.exp" diff -r 71cfe7556b69 boehm-gc/testsuite/lib/boehm-gc.exp --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/boehm-gc/testsuite/lib/boehm-gc.exp Sat Jan 01 23:52:04 2011 +0100 @@ -0,0 +1,235 @@ +# Copyright (C) 2011 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 +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; see the file COPYING3. If not see +# . + +proc load_gcc_lib { filename } { + global srcdir + load_file $srcdir/../../gcc/testsuite/lib/$filename +} + +load_lib dg.exp +load_lib libgloss.exp +load_gcc_lib target-libpath.exp +load_gcc_lib wrapper.exp +# Required by target-supports-dg.exp. +load_gcc_lib target-supports.exp +# For dg-skip-if. +load_gcc_lib target-supports-dg.exp + +set dg-do-what-default run + +# Define boehm-gc callbacks for dg.exp. + +# FIXME: The next two are Independent of boehm-gc; move to some library. +proc ${tool}-dg-test-1 { target_compile prog do_what extra_tool_flags } { + + # Set up the compiler flags, based on what we're going to do. + + set options [list] + switch $do_what { + "compile" { + set compile_type "assembly" + set output_file "[file rootname [file tail $prog]].s" + } + "assemble" { + set compile_type "object" + set output_file "[file rootname [file tail $prog]].o" + } + # FIXME: Really need different do_what's for libtool? + "ltassemble" { + set compile_type "object" + set output_file "[file rootname [file tail $prog]].lo" + } + "link" { + set compile_type "executable" + set output_file "[file rootname [file tail $prog]]" + } + # FIXME: See above. + "ltlink" { + set compile_type "executable" + set output_file "lib[file rootname [file tail $prog]].la" + } + "run" { + set compile_type "executable" + # FIXME: "./" is to cope with "." not being in $PATH. + # Should this be handled elsewhere? + # YES. + set output_file "./[file rootname [file tail $prog]]" + # This is the only place where we care if an executable was + # created or not. If it was, dg.exp will try to run it. + remote_file build delete $output_file + } + default { + perror "$do_what: not a valid dg-do keyword" + return "" + } + } + + if { $extra_tool_flags != "" } { + lappend options "additional_flags=$extra_tool_flags" + } + + set comp_output [$target_compile "$prog" "$output_file" "$compile_type" $options]; + + return [list $comp_output $output_file] +} + +proc ${tool}-dg-test { prog do_what extra_tool_flags } { + global tool + + return [${tool}-dg-test-1 ${tool}_target_compile $prog $do_what $extra_tool_flags] +} + +proc ${tool}-init { args } { + global gluefile wrap_flags + global srcdir + global blddirgc + global TOOL_EXECUTABLE + global GCC_UNDER_TEST + global objdir + global gc_include + global gc_lib + global gc_lib_conv + global tool + global tool_root_dir + global ld_library_path + + set blddirgc [lookfor_file [get_multilibs] ${tool}] + verbose "blddirgc: $blddirgc" + + if ![info exists GCC_UNDER_TEST] then { + if [info exists TOOL_EXECUTABLE] { + set GCC_UNDER_TEST $TOOL_EXECUTABLE + } else { + set GCC_UNDER_TEST "[find_gcc]" + } + } + + set gccdir [lookfor_file $tool_root_dir gcc/libgcc.a] + if {$gccdir != ""} { + set gccdir [file dirname $gccdir] + } + verbose "gccdir: $gccdir" + + set ld_library_path "." + append ld_library_path ":${gccdir}" + + set compiler "${gccdir}/xgcc" + if { [is_remote host] == 0 && [which $compiler] != 0 } { + foreach i "[exec $compiler --print-multi-lib]" { + set mldir "" + regexp -- "\[a-z0-9=_/\.-\]*;" $i mldir + set mldir [string trimright $mldir "\;@"] + if { "$mldir" == "." } { + continue + } + if { [llength [glob -nocomplain ${gccdir}/${mldir}/libgcc_s*.so.*]] >= 1 } { + append ld_library_path ":${gccdir}/${mldir}" + } + } + } + # Add the library path for boehm-gc. + append ld_library_path ":${blddirgc}/.libs" + + # Add the library path for boehm-gc.lib libtool libraries. + # FIXME: Do this here instead of in driver? + append ld_library_path ":.libs" + + # FIXME: ld_library_path is doubled!? + # Starts at 'Setting LD_LIBRARY_PATH to ...'; from config/unix.exp + # (unix_load). + # Seems that lib/target-libpath.exp (set_ld_library_path_env_vars sets + # it first and unix_load doubles it. + verbose "ld_library_path: $ld_library_path" + + # Point to the headers in boehm-gc. + set gc_include "${blddirgc}/include" + verbose "gc_include: $gc_include" + + set gc_lib "${blddirgc}/libgcjgc.la" + verbose "gc_lib: $gc_lib" + + set gc_lib_conv "${blddirgc}/libgcjgc_convenience.la" + verbose "gc_lib_conv: $gc_lib_conv" + + set_ld_library_path_env_vars + ${tool}_maybe_build_wrapper "${objdir}/testglue.o" +} + +proc ${tool}_finish { } { + # FIXME: Remove .libs? +} + +proc ${tool}_exit { } { + global gluefile; + + if [info exists gluefile] { + file_on_build delete $gluefile; + unset gluefile; + } +} + +proc ${tool}_target_compile { source dest type options } { + global gluefile wrap_flags; + global srcdir + global TOOL_OPTIONS + global GCC_UNDER_TEST + global gc_include + global gc_lib + global gc_lib_conv + global threadlibs + global extra_test_libs + + if { [target_info needs_status_wrapper]!="" && [info exists gluefile] } { + lappend options "libs=${gluefile}" + lappend options "ldflags=$wrap_flags" + } + + # TOOL_OPTIONS must come first, so that it doesn't override testcase + # specific options. + if [info exists TOOL_OPTIONS] { + lappend options [concat "additional_flags=$TOOL_OPTIONS" $options]; + } + + # Map type to libtool mode. + switch $type { + "object" { + set mode "compile" + } + "executable" { + set mode "link" + } + default { + perror "$type: unhandled mode" + return "" + } + } + + # We have to run silently to avoid DejaGnu lossage. + lappend options "compiler=../libtool --silent --tag=CC --mode=$mode \ + $GCC_UNDER_TEST" + + lappend options "additional_flags=-I${gc_include} -I${srcdir}/../include" + + lappend options "libs= -shared-libgcc" + lappend options "libs= ${gc_lib} ${threadlibs} ${extra_test_libs}" + + verbose "options: $options" + return [target_compile $source $dest $type $options] +} + +# Local Variables: +# tcl-indent-level:4 +# End: