--- /dev/null
+# Copyright (C) 1999 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 2 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, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+# Please email any bugs, comments, and/or additions to this file to:
+# jlarmour@cygnus.co.uk
+
+# This file was written by Jonathan Larmour (jlarmour@cygnus.co.uk).
+
+# GCC testsuite that uses the `dg.exp' driver.
+
+# Load support procs.
+load_lib gcc-dg.exp
+
+###################################
+# proc gcc_target_object_format { }
+###################################
+
+proc gcc_target_object_format { } {
+ global gcc_target_object_format_saved
+
+ if [info exists gcc_target_object_format_saved] {
+ verbose "gcc_target_object_format returning saved $gcc_target_object_format_saved" 2
+ return $gcc_target_object_format_saved
+ } else {
+
+ set objdump_name [find_binutils_prog objdump]
+ set open_file [open objfmtst.c w]
+ puts $open_file "void foo(void) { }"
+ close $open_file
+
+ gcc_target_compile objfmtst.c objfmtst.o object ""
+
+ set output [exec $objdump_name --file-headers objfmtst.o ]
+
+ file delete objfmtst.o
+
+ if ![ regexp "file format (.*)arch" $output dummy objformat ] {
+ verbose "Could not parse objdump output" 2
+ set gcc_target_object_format_saved unknown
+ } else {
+ switch -regexp $objformat {
+ elf {
+ verbose "gcc_target_object_format returning elf" 2
+ set gcc_target_object_format_saved elf
+ }
+ ecoff {
+ verbose "gcc_target_object_format returning ecoff" 2
+ set gcc_target_object_format_saved ecoff
+ }
+ coff {
+ verbose "gcc_target_object_format returning coff" 2
+ set gcc_target_object_format_saved coff
+ }
+ a\.out {
+ verbose "gcc_target_object_format returning a.out" 2
+ set gcc_target_object_format_saved a.out
+ }
+ default {
+ verbose "gcc_target_object_format returning unknown" 2
+ set gcc_target_object_format_saved unknown
+ }
+ }
+ }
+ return $gcc_target_object_format_saved
+ }
+}
+
+###############################
+# proc check_weak_available { }
+###############################
+
+# weak symbols are only supported in some configs/object formats
+# this proc returns 1 if they're support, 0 if they're not, or -1 if unsure
+
+proc check_weak_available { } {
+ global target_cpu
+
+ # All mips targets should support it
+
+ if { [ string first "mips" $target_cpu ] >= 0 } {
+ return 1
+ }
+
+ # ELF and ECOFF support it. a.out does with gas/gld but may also with
+ # other linkers, so we should try it
+
+ set objformat [gcc_target_object_format]
+
+ switch $objformat {
+ elf { return 1 }
+ ecoff { return 1 }
+ a.out { return 1 }
+ unknown { return -1 }
+ default { return 0 }
+ }
+}
+
+##########
+# weak-1.c
+##########
+
+if { [ check_weak_available ] == 1 } {
+ dg-init
+
+ set lines [gcc_target_compile "$srcdir/$subdir/weak-1a.c" "weak-1a.o" object ""]
+ if ![string match "" $lines] then {
+ fail "weak-1a.o"
+ } else {
+ dg-runtest "$srcdir/$subdir/weak-1.c" "weak-1a.o" ""
+ file delete weak-1a.o
+ }
+ dg-finish
+} elseif { [ check_weak_available ] == 0 } {
+ unsupported "weak-1.c"
+} else {
+ unresolved "weak-1.c"
+}
+
+##########
+# weak-2.c
+##########
+
+if { [ check_weak_available ] == 1 } {
+ dg-init
+
+ set lines [gcc_target_compile "$srcdir/$subdir/weak-2a.c" "weak-2a.o" object ""]
+ if ![string match "" $lines] then {
+ fail "weak-2a.o"
+ } else {
+ set lines [gcc_target_compile "$srcdir/$subdir/weak-2b.c" "weak-2b.o" object ""]
+ if ![string match "" $lines] then {
+ fail "weak-2b.o"
+ } else {
+ dg-runtest "$srcdir/$subdir/weak-2.c" "weak-2a.o weak-2b.o" ""
+ file delete weak-2a.o weak-2b.o
+ }
+ }
+ dg-finish
+} elseif { [ check_weak_available ] == 0 } {
+ unsupported "weak-2.c"
+} else {
+ unresolved "weak-2.c"
+}
+
+###########
+# alias-1.c
+###########
+
+dg-init
+dg-runtest "$srcdir/$subdir/alias-1.c" "" ""
+dg-finish
+
+###########
+# wkali-1.c
+###########
+
+dg-init
+dg-runtest "$srcdir/$subdir/wkali-1.c" "" ""
+dg-finish
+
+###########
+# wkali-2.c
+###########
+
+if { [ check_weak_available ] == 1 } {
+ dg-init
+ set lines [gcc_target_compile "$srcdir/$subdir/wkali-2a.c" "wkali-2a.o" object ""]
+ if ![string match "" $lines] then {
+ fail "wkali-2a.o"
+ } else {
+ set lines [gcc_target_compile "$srcdir/$subdir/wkali-2b.c" "wkali-2b.o" object ""]
+ if ![string match "" $lines] then {
+ fail "wkali-2b.o"
+ } else {
+ dg-runtest "$srcdir/$subdir/wkali-2.c" "wkali-2a.o wkali-2b.o" ""
+ file delete wkali-2a.o wkali-2b.o
+ }
+ }
+ dg-finish
+} elseif { [ check_weak_available ] == 0 } {
+ unsupported "wkali-2.c"
+} else {
+ unresolved "wkali-2.c"
+}
+
+###########
+# gcsec-1.c
+###########
+
+set ld_output [ exec [ find_ld ] --help ]
+
+if { [ string first "--gc-sections" $ld_output ] >= 0 } {
+
+ dg-init
+ dg-runtest "$srcdir/$subdir/gcsec-1.c" "-ffunction-sections -fdata-sections -Wl,--gc-sections" ""
+ dg-finish
+} else {
+ unsupported "gcsec-1.c"
+}
+
+### EOF ecos.exp
OSDN Git Service
