1 # Copyright
(C
) 2009-2013 Free Software Foundation
, Inc.
3 # This
program is free software
; you can redistribute it and
/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation
; either version
3 of the License
, or
6 #
(at your option
) any later version.
8 # This
program is distributed in the hope that it will be useful
,
9 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License
for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with GCC
; see the file COPYING3.
If not see
15 #
<http
://www.gnu.org
/licenses
/>.
18 # go support library routines
22 load_lib target
-libpath.exp
25 # GOC_UNDER_TEST is the compiler under test.
29 set gpp_compile_options
""
33 # go_version
-- extract and print the version number of the compiler
41 # ignore
any arguments after the command
42 set compiler
[lindex $GOC_UNDER_TEST
0]
44 # verify that the compiler
exists
45 if { [is_remote host
] ||
[which $compiler
] != 0 } then {
46 set tmp
[remote_exec host
"$compiler -v"]
47 set status [lindex $tmp
0]
48 set output
[lindex $tmp
1]
49 regexp
" version \[^\n\r\]*" $output version
50 if { $
status == 0 && [info exists version
] } then {
52 clone_output
"$compiler $version\n"
54 clone_output
"[which $compiler] $version\n"
57 clone_output
"Couldn't determine version of [which $compiler]\n"
60 # compiler does not exist
(this should have already been detected
)
61 warning
"$compiler does not exist"
66 # go_include_flags
-- include flags
for the gcc tree structure
69 proc go_include_flags
{ paths
} {
71 global TESTING_IN_BUILD_TREE
75 if { [is_remote host
] ||
![info exists TESTING_IN_BUILD_TREE
] } {
81 if { $gccpath
!= "" } {
82 if [file
exists "${gccpath}/libgo/os.gox"] {
83 append flags
"-I${gccpath}/libgo "
89 # go_link_flags
-- linker flags
for the gcc tree structure
92 proc go_link_flags
{ paths
} {
94 global ld_library_path
101 set ld_library_path
"."
102 set shlib_ext
[get_shlib_extension
]
103 verbose
"shared lib extension: $shlib_ext"
105 if { $gccpath
!= "" } {
106 if [file
exists "${gccpath}/libgo/libgobegin.a"] {
107 append flags
"-L${gccpath}/libgo "
109 if { [file
exists "${gccpath}/libgo/.libs/libgo.a"] \
110 ||
[file
exists "${gccpath}/libgo/.libs/libgo.${shlib_ext}"] } {
111 append flags
"-L${gccpath}/libgo/.libs "
112 append ld_library_path
":${gccpath}/libgo/.libs"
114 if [file
exists "${gccpath}/libiberty/libiberty.a"] {
115 append flags
"-L${gccpath}/libiberty "
117 append ld_library_path \
118 [gcc
-set-multilib
-library
-path $GOC_UNDER_TEST
]
121 set_ld_library_path_env_vars
127 # go_init
-- called at the start of each subdir of tests
130 proc go_init
{ args } {
132 global gpp_initialized
136 global gluefile wrap_flags
138 global ALWAYS_GOCFLAGS
139 global TOOL_EXECUTABLE TOOL_OPTIONS
140 global GOC_UNDER_TEST
141 global TESTING_IN_BUILD_TREE
142 global TEST_ALWAYS_FLAGS
144 # We
set LC_ALL and LANG to C so that we
get the same error messages as expected.
148 if ![info exists GOC_UNDER_TEST
] then {
149 if [info exists TOOL_EXECUTABLE
] {
150 set GOC_UNDER_TEST $TOOL_EXECUTABLE
152 if { [is_remote host
] ||
! [info exists TESTING_IN_BUILD_TREE
] } {
153 set GOC_UNDER_TEST
[transform gccgo
]
155 set GOC_UNDER_TEST
[findfile $base_dir
/..
/..
/gccgo
"$base_dir/../../gccgo -B$base_dir/../../" [findfile $base_dir/gccgo "$base_dir/gccgo -B$base_dir/" [transform gccgo]]]
160 if ![is_remote host
] {
161 if { [which $GOC_UNDER_TEST
] == 0 } then {
162 perror
"GOC_UNDER_TEST ($GOC_UNDER_TEST) does not exist"
166 if ![info exists tmpdir
] {
170 if [info exists gluefile
] {
174 go_maybe_build_wrapper
"${tmpdir}/go-testglue.o"
176 set ALWAYS_GOCFLAGS
""
178 # TEST_ALWAYS_FLAGS are flags that should be passed to
every
179 # compilation. They are passed first to allow individual
180 # tests to override them.
181 if [info exists TEST_ALWAYS_FLAGS
] {
182 lappend ALWAYS_GOCFLAGS
"additional_flags=$TEST_ALWAYS_FLAGS"
185 if ![is_remote host
] {
186 if [info exists TOOL_OPTIONS
] {
187 lappend ALWAYS_GOCFLAGS
"additional_flags=[go_include_flags [get_multilibs ${TOOL_OPTIONS}] ]"
188 lappend ALWAYS_GOCFLAGS
"ldflags=[go_link_flags [get_multilibs ${TOOL_OPTIONS}] ]"
190 lappend ALWAYS_GOCFLAGS
"additional_flags=[go_include_flags [get_multilibs] ]"
191 lappend ALWAYS_GOCFLAGS
"ldflags=[go_link_flags [get_multilibs] ]"
195 if [info exists TOOL_OPTIONS
] {
196 lappend ALWAYS_GOCFLAGS
"additional_flags=$TOOL_OPTIONS"
199 verbose
-log "ALWAYS_GOCFLAGS set to $ALWAYS_GOCFLAGS"
201 verbose
"go is initialized" 3
205 # go_target_compile
-- compile a source file
208 proc go_target_compile
{ source dest type options
} {
210 global gluefile wrap_flags
211 global ALWAYS_GOCFLAGS
212 global GOC_UNDER_TEST
214 if { [target_info needs_status_wrapper
] != "" && [info exists gluefile] } {
215 lappend options
"libs=${gluefile}"
216 lappend options
"ldflags=${wrap_flags}"
219 lappend options
"timeout=[timeout_value]"
220 lappend options
"compiler=$GOC_UNDER_TEST"
222 set options
[concat
"$ALWAYS_GOCFLAGS" $options]
223 set options
[dg
-additional
-files
-options $options $source
]
224 return [target_compile $source $dest $type $options
]