1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
# Copyright (C) 2013-2016 Free Software Foundation, Inc.
#
# This file is part of DejaGnu.
#
# DejaGnu 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.
#
# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation,
# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
# Contributed by Steve Ellcey <sellcey@mips.com>.
# With the generic-sim.exp baseboard I would test GCC with something
# like:
# export DEJAGNU_SIM_LINK_FLAGS="-Wl,--dynamic-linker=/local/home/sellcey/nightly/install-mips-mti-linux-gnu/sysroot-mips-mti-linux-gnu/usr/lib/ld-2.17.90.so -Wl,-rpath=/local/home/sellcey/nightly/install-mips-mti-linux-gnu/sysroot-mips-mti-linux-gnu/usr/lib:/local/home/sellcey/nightly/install-mips-mti-linux-gnu/mips-mti-linux-gnu/lib"
# make check RUNTESTFLAGS="--target_board=generic-sim"
#
# With multi-sim.exp I can skip the export and just do:
# make check RUNTESTFLAGS="--target_board=multi-sim"
#
# And I can also do this now:
# make check RUNTESTFLAGS="--target_board=multi-sim\{-EB,-EL\}\{-mhard-float,-msoft-float\}"
# Use env to check env. variables and modify the simulator.
global env
global SIM
# Load the generic configuration for this board. This will define a basic
# set of routines needed by the tool to communicate with the board.
load_generic_config "sim"
# basic-sim.exp is a basic description for the standard Cygnus simulator.
load_base_board_description "basic-sim"
proc get_library_dirlist { args } {
global board
set compiler "[board_info $board compiler]"
set mflags "[board_info $board multilib_flags]"
set result [remote_exec host "$compiler $mflags --print-search-dirs"]
set regresult [regexp {(libraries: =)(\S*)} $result dummy1 dummy2 libdirlist]
if {$regresult == 0} {
perror "Could not find compilers library search path."
}
return [split $libdirlist :]
}
proc dynamic_linker_flag { args } {
global board
set compiler "[board_info $board compiler]"
set mflags "[board_info $board multilib_flags]"
foreach i [get_library_dirlist] {
set dynlinker [glob -nocomplain -directory $i ld-*.so]
if { $dynlinker ne "" } break
}
verbose "dynamic_linker_flag: -Wl,--dynamic-linker=$dynlinker"
return "-Wl,--dynamic-linker=$dynlinker"
}
proc rpath_flags { args } {
global board
set compiler "[board_info $board compiler]"
set mflags "[board_info $board multilib_flags] [libgloss_include_flags] [newlib_include_flags] [libgloss_link_flags] [libgloss_link_flags]"
set rpathflags ""
set gccpath [get_multilibs]
foreach i {libgcc_s.so libstdc++.so libgfortran.so libatomic.so libgomp.so} {
set result [remote_exec host "$compiler $mflags --print-file-name=$i"]
set output [lindex $result 1]
set rpathdir [file dirname $output]
# If testing an installed compiler, --print-file-name will find the
# libraries, if testing a built but not installed compiler it will not
# find libraries like libstdc++.so or libgfortran.so so we add the
# extra hack/search so it can work.
if {$rpathdir eq "."} {
if {$i eq "libstdc++.so"} {
if {[file exists $gccpath/libstdc++-v3/src/.libs/libstdc++.so]} {
set rpathflags "$rpathflags -Wl,-rpath=$gccpath/libstdc++-v3/src/.libs"
}
}
if {$i eq "libgfortran.so"} {
if {[file exists $gccpath/libgfortran/.libs/libgfortran.so]} {
set rpathflags "$rpathflags -Wl,-rpath=$gccpath/libgfortran/.libs"
}
}
if {$i eq "libatomic.so"} {
if {[file exists $gccpath/libatomic/.libs/libatomic.so]} {
set rpathflags "$rpathflags -Wl,-rpath=$gccpath/libatomic/.libs"
}
}
if {$i eq "libgomp.so"} {
if {[file exists $gccpath/libgomp/.libs/libgomp.so]} {
set rpathflags "$rpathflags -Wl,-rpath=$gccpath/libgomp/.libs"
}
}
} else {
set rpathflags "$rpathflags -Wl,-rpath=$rpathdir"
}
}
foreach i [get_library_dirlist] {
set rpathflags "$rpathflags -Wl,-rpath=$i"
}
verbose "rpath_flags: $rpathflags"
return $rpathflags
}
# The TCL SIM variable takes precedence over the DEJAGNU_SIM env. variable
if {[info exists env(DEJAGNU_SIM)] && ![info exists SIM]} {
set SIM $env(DEJAGNU_SIM)
}
# This tells it which directory to look in for the simulator.
setup_sim sim
# No multilib flags are set by default.
if {[info exists env(DEJAGNU_SIM_MULTILIB_OPTIONS)]} {
process_multilib_options $env(DEJAGNU_SIM_MULTILIB_OPTIONS)
} else {
process_multilib_options ""
}
# The compiler used to build for this board. This has *nothing* to do
# with what compiler is tested if we're testing gcc.
if {[info exists env(DEJAGNU_SIM_GCC)]} {
set_board_info compiler $env(DEJAGNU_SIM_GCC)
} else {
set_board_info compiler "[find_gcc]"
}
if {[info exists env(DEJAGNU_SIM_INCLUDE_FLAGS)]} {
set_board_info cflags "[libgloss_include_flags] [newlib_include_flags] $env(DEJAGNU_SIM_INCLUDE_FLAGS)"
} else {
set_board_info cflags "[libgloss_include_flags] [newlib_include_flags]"
}
if {[info exists env(DEJAGNU_SIM_LINK_FLAGS)]} {
set_board_info ldflags "[libgloss_link_flags] [newlib_link_flags] [dynamic_linker_flag] [rpath_flags] $env(DEJAGNU_SIM_LINK_FLAGS)"
} else {
set_board_info ldflags "[libgloss_link_flags] [newlib_link_flags] [dynamic_linker_flag] [rpath_flags]"
}
if {[info exists env(DEJAGNU_SIM_LDSCRIPT)]} {
set_board_info ldscript $env(DEJAGNU_SIM_LDSCRIPT)
}
if {[info exists env(DEJAGNU_SIM_OPTIONS)]} {
set_board_info sim,options $env(DEJAGNU_SIM_OPTIONS)
}
if {[info exists env(DEJAGNU_SIM_BOARD_INFO)]} {
foreach e $env(DEJAGNU_SIM_BOARD_INFO) {
set_board_info [lindex $e 0] [lindex $e 1]
}
}
|
