+2020-10-17 Tom de Vries <tdevries@suse.de>
+
+ * lib/gdb.exp (standard_testfile): Also treat args starting with '-'
+ as suffix.
+ * gdb.dwarf2/atomic.c: Rename to ...
+ * gdb.dwarf2/atomic-type.c: ... this.
+ * gdb.dwarf2/dw2-ranges2.c: Rename to ...
+ * gdb.dwarf2/dw2-ranges-2.c: ... this.
+ * gdb.dwarf2/dw2-ranges3.c: Rename to ...
+ * gdb.dwarf2/dw2-ranges-3.c: ... this.
+ * gdb.dwarf2/fission-mix2.c: Rename to ...
+ * gdb.dwarf2/fission-mix-2.c: ... this.
+ * gdb.dwarf2/ada-linkage-name.exp: Use more suffix args for
+ standard_testfile.
+ * gdb.dwarf2/ada-valprint-error.exp: Same.
+ * gdb.dwarf2/arr-stride.exp: Same.
+ * gdb.dwarf2/arr-subrange.exp: Same.
+ * gdb.dwarf2/atomic-type.exp: Same.
+ * gdb.dwarf2/bad-regnum.exp: Same.
+ * gdb.dwarf2/break-inline-psymtab.exp: Same.
+ * gdb.dwarf2/clang-debug-names-2.exp: Same.
+ * gdb.dwarf2/clang-debug-names.exp: Same.
+ * gdb.dwarf2/comp-unit-lang.exp: Same.
+ * gdb.dwarf2/corrupt.exp: Same.
+ * gdb.dwarf2/count.exp: Same.
+ * gdb.dwarf2/cpp-linkage-name.exp: Same.
+ * gdb.dwarf2/data-loc.exp: Same.
+ * gdb.dwarf2/dw2-align.exp: Same.
+ * gdb.dwarf2/dw2-bad-elf.exp: Same.
+ * gdb.dwarf2/dw2-bad-mips-linkage-name.exp: Same.
+ * gdb.dwarf2/dw2-bad-unresolved.exp: Same.
+ * gdb.dwarf2/dw2-case-insensitive.exp: Same.
+ * gdb.dwarf2/dw2-cp-infcall-ref-static.exp: Same.
+ * gdb.dwarf2/dw2-ifort-parameter.exp: Same.
+ * gdb.dwarf2/dw2-inline-many-frames.exp: Same.
+ * gdb.dwarf2/dw2-inline-param.exp: Same.
+ * gdb.dwarf2/dw2-inline-small-func.exp: Same.
+ * gdb.dwarf2/dw2-inline-stepping.exp: Same.
+ * gdb.dwarf2/dw2-is-stmt-2.exp: Same.
+ * gdb.dwarf2/dw2-is-stmt.exp: Same.
+ * gdb.dwarf2/dw2-line-number-zero.exp: Same.
+ * gdb.dwarf2/dw2-namespaceless-anonymous.exp: Same.
+ * gdb.dwarf2/dw2-opt-structptr.exp: Same.
+ * gdb.dwarf2/dw2-param-error.exp: Same.
+ * gdb.dwarf2/dw2-ranges-base.exp: Same.
+ * gdb.dwarf2/dw2-ranges.exp: Same.
+ * gdb.dwarf2/dw2-unusual-field-names.exp: Same.
+ * gdb.dwarf2/dw2-vendor-extended-opcode.exp: Same.
+ * gdb.dwarf2/dw4-sig-types.exp: Same.
+ * gdb.dwarf2/dynarr-ptr.exp: Same.
+ * gdb.dwarf2/enum-type.exp: Same.
+ * gdb.dwarf2/fission-mix.exp: Same.
+ * gdb.dwarf2/formdata16.exp: Same.
+ * gdb.dwarf2/implptrconst.exp: Same.
+ * gdb.dwarf2/implptrpiece.exp: Same.
+ * gdb.dwarf2/info-locals-optimized-out.exp: Same.
+ * gdb.dwarf2/main-subprogram.exp: Same.
+ * gdb.dwarf2/method-ptr.exp: Same.
+ * gdb.dwarf2/missing-sig-type.exp: Same.
+ * gdb.dwarf2/nonvar-access.exp: Same.
+ * gdb.dwarf2/opaque-type-lookup.exp: Same.
+ * gdb.dwarf2/shortpiece.exp: Same.
+ * gdb.dwarf2/staticvirtual.exp: Same.
+ * gdb.dwarf2/subrange.exp: Same.
+ * gdb.dwarf2/symtab-producer.exp: Same.
+ * gdb.dwarf2/typedef-void-finish.exp: Same.
+ * gdb.dwarf2/var-access.exp: Same.
+ * gdb.dwarf2/variant.exp: Same.
+ * gdb.dwarf2/void-type.exp: Same.
+ * gdb.dwarf2/dw2-ranges-psym.exp: Same. Use main.c instead of
+ dw2-ranges-main.c.
+ * gdb.dwarf2/dw2-ranges-main.c: Remove.
+
2020-10-16 Tom de Vries <tdevries@suse.de>
* lib/gdb.exp (gdb_breakpoint): Remove mention of "passfail".
return 0
}
-standard_testfile ada-linkage-name.c ada-linkage-name-debug.S
+standard_testfile .c -debug.S
# Set up the DWARF for the test.
return 0
}
-standard_testfile ada-valprint-error.c ada-valprint-error-dw.S
+standard_testfile .c -dw.S
# We need to know the size of integer and address types in order
# to write some of the debugging info we'd like to generate.
return 0
}
-standard_testfile arr-stride.c arr-stride-dw.S
+standard_testfile .c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
return 0
}
-standard_testfile arr-subrange.c arr-subrange-dw.S
+standard_testfile .c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
--- /dev/null
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2004-2020 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. If not, see <http://www.gnu.org/licenses/>. */
+
+/* dummy f function, DWARF will describe arguments and type differently. */
+int
+f (char *x)
+{
+ asm ("f_label: .globl f_label");
+ return 0;
+}
+
+/* Dummy main function. */
+
+int
+main (void)
+{
+ asm ("main_label: .globl main_label");
+
+ f (0);
+ return 0;
+}
return 0
}
-standard_testfile atomic.c atomic-type-dw.S
+standard_testfile .c -dw.S
# Make some DWARF for the test.
+++ /dev/null
-/* This testcase is part of GDB, the GNU debugger.
-
- Copyright 2004-2020 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. If not, see <http://www.gnu.org/licenses/>. */
-
-/* dummy f function, DWARF will describe arguments and type differently. */
-int
-f (char *x)
-{
- asm ("f_label: .globl f_label");
- return 0;
-}
-
-/* Dummy main function. */
-
-int
-main (void)
-{
- asm ("main_label: .globl main_label");
-
- f (0);
- return 0;
-}
return 0
}
-standard_testfile bad-regnum.c bad-regnum-dw.S
+standard_testfile .c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-standard_testfile break-inline-psymtab.c break-inline-psymtab-2.c
+standard_testfile .c -2.c
set sources [list $srcfile $srcfile2]
if { [prepare_for_testing "failed to prepare" ${testfile} $sources] } {
return 0
}
-standard_testfile clang-debug-names-2.c clang-debug-names-debug-2.S \
- clang-debug-names-2-foo.c
+standard_testfile .c -debug.S -foo.c
lassign \
[function_range main \
return 0
}
-standard_testfile clang-debug-names.c clang-debug-names-debug.S
+standard_testfile .c -debug.S
lassign [function_range main ${srcdir}/${subdir}/${srcfile}] \
main_start main_length
return 0
}
-standard_testfile .c comp-unit-lang.S
+standard_testfile .c .S
# Assemble the DWARF using CU_LANG as compilation unit's language.
# Run to a function in that compilation unit and check that GDB
return 0
}
-standard_testfile corrupt.c corrupt.S
+standard_testfile .c .S
# Make the DWARF used for the test.
#
return 0
}
-standard_testfile main.c count.S
+standard_testfile main.c .S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
return 0
}
-standard_testfile cpp-linkage-name.c cpp-linkage-name-debug.S
+standard_testfile .c -debug.S
# Set up the DWARF for the test.
set asm_file [standard_output_file $srcfile2]
return 0
}
-standard_testfile data-loc.c data-loc-dw.S
+standard_testfile .c -dw.S
# We need to know the size of integer and address types in order
# to write some of the debugging info we'd like to generate.
return 0
}
-standard_testfile main.c align-dw.S
+standard_testfile main.c -dw.S
# Make some DWARF for the test.
return 0
}
-standard_testfile dw2-bad-elf.c dw2-bad-elf-other.S dw2-bad-elf-dwarf.S
+standard_testfile .c -other.S -dwarf.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile3]
return 0
}
-standard_testfile dw2-bad-mips-linkage-name.c dw2-bad-mips-linkage-name.S
+standard_testfile .c .S
# Set up the DWARF for the test.
return 0
}
-standard_testfile dw2-bad-unresolved.c dw2-bad-unresolved-2.S
+standard_testfile .c -2.S
# Set up the DWARF for the test.
# The key part of this is the definition of variable "var" having no location.
return 0
}
-standard_testfile .c dw2-case-insensitive-debug.S
+standard_testfile .c -debug.S
if [is_ilp32_target] {
set ptrbits 32
return 0
}
-standard_testfile .S dw2-cp-infcall-ref-static-main.c
+standard_testfile .S -main.c
if { [prepare_for_testing "failed to prepare" ${testfile} \
[list $srcfile2 $srcfile] {}] } {
return 0
}
-standard_testfile .c dw2-ifort-parameter-dw.S
+standard_testfile .c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
return 0
}
-standard_testfile dw2-inline-many-frames.c dw2-inline-many-frames.S
+standard_testfile .c .S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
return 0
}
-standard_testfile .S dw2-inline-param-main.c
+standard_testfile .S -main.c
if { [prepare_for_testing "failed to prepare" "${testfile}" \
[list $srcfile2 $srcfile] {nodebug}] } {
return 0
}
-standard_testfile dw2-inline-small-func-lbls.c dw2-inline-small-func.S \
- dw2-inline-small-func.c dw2-inline-small-func.h
+standard_testfile -lbls.c .S \
+ .c .h
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
return 0
}
-standard_testfile dw2-inline-stepping.c dw2-inline-stepping.S
+standard_testfile .c .S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
return 0
}
-standard_testfile dw2-is-stmt-2.c dw2-is-stmt-2.S
+standard_testfile .c .S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
return 0
}
-standard_testfile dw2-is-stmt.c dw2-is-stmt.S
+standard_testfile .c .S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
return 0
}
-standard_testfile .c dw2-line-number-zero-dw.S
+standard_testfile .c -dw.S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
return 0
}
-standard_testfile dw2-namespaceless-anonymous.c dw2-namespaceless-anonymous.S
+standard_testfile .c .S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
return 0
}
-standard_testfile dw2-opt-structptr.c dw2-opt-structptr-dw.S
+standard_testfile .c -dw.S
# Generate a test program with dwarf information showing the variable
# 'ptr', a pointer-to-struct, as optimized out. The dwarf will also
return 0
}
-standard_testfile .S dw2-param-error-main.c
+standard_testfile .S -main.c
if { [prepare_for_testing "failed to prepare" "${testfile}" \
[list $srcfile2 $srcfile] {nodebug}] } {
--- /dev/null
+/*
+ Copyright 2007-2020 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. If not, see <http://www.gnu.org/licenses/>. */
+
+/* Despite the sections below will be adjacent the assembler has to produce
+ DW_AT_ranges as the linker could place both sections at arbitrary locations.
+ */
+
+/* `.fini' section is here to make sure `dw2-ranges.c'
+ vs. `dw2-ranges2.c' overlap their DW_AT_ranges with each other. */
+
+void __attribute__ ((section (".fini")))
+func2 (void)
+{
+}
+
+void
+main2 (void)
+{
+}
--- /dev/null
+/*
+ Copyright 2007-2020 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. If not, see <http://www.gnu.org/licenses/>. */
+
+void
+main3 (void)
+{
+}
return 0
}
-standard_testfile dw2-ranges-base.c dw2-ranges-base-dw.S
+standard_testfile .c -dw.S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
+++ /dev/null
-/* Copyright 2019-2020 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. If not, see <http://www.gnu.org/licenses/>. */
-
-int main ()
-{
- return 0;
-}
return 0
}
-standard_testfile dw2-ranges-main.c dw2-ranges-psym.c dw2-ranges-psym-dw.S
+standard_testfile main.c .c -dw.S
# We need to know the size of integer and address types in order to
# write some of the debugging info we'd like to generate.
return 0
}
-standard_testfile dw2-ranges.c dw2-ranges2.c dw2-ranges3.c
+standard_testfile .c -2.c -3.c
set asmfile [standard_output_file ${testfile}.s]
set asmfile2 [standard_output_file ${testfile}2.s]
set asmfile3 [standard_output_file ${testfile}3.s]
+++ /dev/null
-/*
- Copyright 2007-2020 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. If not, see <http://www.gnu.org/licenses/>. */
-
-/* Despite the sections below will be adjacent the assembler has to produce
- DW_AT_ranges as the linker could place both sections at arbitrary locations.
- */
-
-/* `.fini' section is here to make sure `dw2-ranges.c'
- vs. `dw2-ranges2.c' overlap their DW_AT_ranges with each other. */
-
-void __attribute__ ((section (".fini")))
-func2 (void)
-{
-}
-
-void
-main2 (void)
-{
-}
+++ /dev/null
-/*
- Copyright 2007-2020 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. If not, see <http://www.gnu.org/licenses/>. */
-
-void
-main3 (void)
-{
-}
return 0
}
-standard_testfile dw2-unusual-field-names.c dw2-unusual-field-names.S
+standard_testfile .c .S
set asm_file [standard_output_file $srcfile2]
# We need to know the size of integer and address types in order to
return 0
}
-standard_testfile dw2-vendor-extended-opcode.c dw2-vendor-extended-opcode-dw.S
+standard_testfile .c -dw.S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
# Test dwarf4 signatured types (DW_TAG_type_unit).
-standard_testfile .cc dw4-sig-types-b.cc
+standard_testfile .cc -b.cc
# This test is intended for targets which support DWARF-4.
# Since we pass an explicit -gdwarf-4 -fdebug-types-section to the compiler,
return 0
}
-standard_testfile dynarr-ptr.c dynarr-ptr-dw.S
+standard_testfile .c -dw.S
# We need to know the size of integer and address types in order
# to write some of the debugging info we'd like to generate.
return 0
}
-standard_testfile main.c enum-type-dw.S
+standard_testfile main.c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
--- /dev/null
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2013-2020 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. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "fission-mix.h"
+
+struct s bar;
+
+int
+func2 ()
+{
+ bar.x = 1;
+ return 42;
+}
return 0
}
-standard_testfile fission-mix.c fission-mix2.c
+standard_testfile .c -2.c
set objfile [standard_output_file ${testfile}.o]
set objfile2 [standard_output_file ${testfile}2.o]
-# Compile fission-mix.c without Fission and fission-mix2.c with Fission.
+# Compile fission-mix.c without Fission and fission-mix-2.c with Fission.
if { [gdb_compile ${srcdir}/${subdir}/${srcfile} $objfile object {debug}] != "" } {
return -1
}
+++ /dev/null
-/* This testcase is part of GDB, the GNU debugger.
-
- Copyright 2013-2020 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. If not, see <http://www.gnu.org/licenses/>. */
-
-#include "fission-mix.h"
-
-struct s bar;
-
-int
-func2 ()
-{
- bar.x = 1;
- return 42;
-}
return 0
}
-standard_testfile .c formdata16-dw.S
+standard_testfile .c -dw.S
# We need to know the endianess in order
# to write some of the debugging info we'd like to generate.
if { [skip_cplus_tests] } { continue }
-standard_testfile .c implptrconst-dw.S
+standard_testfile .c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
if { [skip_cplus_tests] } { continue }
-standard_testfile main.c implptrpiece-dw.S
+standard_testfile main.c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
return 0
}
-standard_testfile .c ${gdb_test_file_name}-dw.S
+standard_testfile .c -dw.S
# Make some DWARF for the test.
return 0
}
-standard_testfile main-subprogram.c enum-type-dw.S
+standard_testfile .c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
if { [skip_cplus_tests] } { continue }
-standard_testfile .cc method-ptr-dw.S
+standard_testfile .cc -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
if { [skip_cplus_tests] } { continue }
-standard_testfile main.c missing-sig-type-dw4.S
+standard_testfile main.c -dw4.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
if {![dwarf2_support]} { return 0 }
-standard_testfile main.c nonvar-access-dw.S
+standard_testfile main.c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
return 0
}
-standard_testfile opaque-type-lookup.c opaque-type-lookup-1.S opaque-type-lookup-2.c
+standard_testfile .c -1.S -2.c
# Create the DWARF.
set asm_file [standard_output_file $srcfile2]
return 0
}
-standard_testfile main.c shortpiece-dw.S
+standard_testfile main.c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
if { [skip_cplus_tests] } { continue }
-standard_testfile main.c staticvirtual-dw.S
+standard_testfile main.c -dw.S
# Make DWARF for the test.
set asm_file [standard_output_file $srcfile2]
if { [skip_cplus_tests] } { continue }
-standard_testfile method-ptr.cc subrange-dw.S
+standard_testfile method-ptr.cc -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
# This test can also only be run when we have python support in gdb,
# but that test can only be done after gdb has started, below.
-standard_testfile main.c symtab-producer-dw.S
+standard_testfile main.c -dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
return 0
}
-standard_testfile void-type.c typedef-void-finish.S
+standard_testfile void-type.c .S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
return
}
-standard_testfile .c ${gdb_test_file_name}-dw.S
+standard_testfile .c -dw.S
# Make some DWARF for the test.
return 0
}
-standard_testfile .c variant.S
+standard_testfile .c .S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
return 0
}
-standard_testfile void-type.c void-type.S
+standard_testfile .c .S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
# Without any arguments, the .exp file's base name is used to
# compute the source file name. The ".c" extension is added in this case.
# If ARGS is not empty, each entry is a source file specification.
-# If the specification starts with a ".", it is treated as a suffix
+# If the specification starts with a "." or "-", it is treated as a suffix
# to append to the .exp file's base name.
# If the specification is the empty string, it is treated as if it
# were ".c".
# Handle an extension.
if {$arg == ""} {
set arg $testfile.c
- } elseif {[string range $arg 0 0] == "."} {
- set arg $testfile$arg
+ } else {
+ set first [string range $arg 0 0]
+ if { $first == "." || $first == "-" } {
+ set arg $testfile$arg
+ }
}
set $varname $arg
projects / binutils-gdb.git / commitdiff