1 # libstdc
++ "tool init file" for DejaGNU
3 # Copyright
(C
) 2001, 2002, 2003, 2004, 2005, 2006, 2007
4 # Free Software Foundation
, Inc.
6 # This
program is free software
; you can redistribute it and
/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation
; either version
2 of the License
, or
9 #
(at your option
) any later version.
11 # This
program is distributed in the hope that it will be useful
,
12 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License
for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this
program; if not
, write to the Free Software
18 # Foundation
, Inc.
, 51 Franklin Street
, Fifth Floor
, Boston
, MA
22 #
Define callbacks and
load other libraries. This file is loaded relatively
23 # early
, and before
any other file we write ourselves.
"load_lib" will
24 # find anything in the DejaGNU installation tree
, or in our lib directory.
25 #
"load_gcc_lib" will search the core compiler's .exp collection instead.
27 # The naming rule is that dg.exp looks
for "tool-" and runtest.exp looks
28 #
for "tool_" when finding callbacks. Utility routines we define for
29 # our callbacks begin with
"v3-".
31 # libstdc
++_
* callbacks we don
't define, but could:
32 # ..._option_help prints additional --help output
33 # ..._option_proc (--foo) process our own options
34 # ..._init (normal.exp) called once per test file
35 # ..._finish bracketing function for libstdc++_init
36 # ...-dg-prune removing output text, see top of system dg.exp
38 # Useful hook: if ${hostname}_init exists, it will be called, almost
39 # the last thing before testing begins. This can be defined in, e.g.,
40 # ~/.dejagnurc or $DEJAGNU.
42 proc load_gcc_lib { filename } {
44 load_file $srcdir/../../gcc/testsuite/lib/$filename
50 # compiler routines, then ours
51 load_gcc_lib target-supports.exp
52 load_gcc_lib target-supports-dg.exp
54 load_lib dg-options.exp
55 load_gcc_lib target-libpath.exp
56 load_gcc_lib wrapper.exp
58 # Useful for debugging. Pass the name of a variable and the verbosity
59 # threshold (number of -v's
on the command line
).
60 proc v3track
{ var n
} {
62 verbose
"++ $var is $val" $n
65 # Called by v3
-init below.
"Static" to this file.
66 proc v3
-copy
-files
{srcfiles
} {
68 if { [catch
{ set symlink
[file readlink $f
] } x
] } then {
69 remote_download target $f
71 if { [regexp
"^/" "$symlink"] } then {
72 remote_download target $symlink
74 set dirname
[file dirname $f
]
75 remote_download target $dirname
/$symlink
81 # Called once
, during runtest.exp setup.
82 proc libstdc
++_init
{ testfile
} {
85 global srcdir blddir objdir tool_root_dir
86 global cc cxx cxxflags cxxldflags
88 global gluefile wrap_flags
89 global ld_library_path
93 # We
set LC_ALL and LANG to C so that we
get the same error
94 # messages as expected.
98 set blddir
[lookfor_file
[get_multilibs
] libstdc
++-v3
]
99 set flags_file
"${blddir}/scripts/testsuite_flags"
102 #
If a test doesn
't have special options, use DEFAULT_CXXFLAGS.
103 # Use this variable if the behavior
104 # 1) only applies to libstdc++ testing
105 # 2) might need to be negated
106 # In particular, some tests have to be run without precompiled
107 # headers, or without assertions.
108 global DEFAULT_CXXFLAGS
109 if ![info exists DEFAULT_CXXFLAGS] then {
110 set DEFAULT_CXXFLAGS ""
111 # Host specific goo here.
112 if { [string match "powerpc-*-darwin*" $target_triplet] } {
113 append DEFAULT_CXXFLAGS " -multiply_defined suppress"
116 v3track DEFAULT_CXXFLAGS 2
118 # By default, we assume we want to run program images.
119 global dg-do-what-default
120 set dg-do-what-default run
122 # Copy any required data files.
123 v3-copy-files [glob -nocomplain "$srcdir/data/*.tst"]
124 v3-copy-files [glob -nocomplain "$srcdir/data/*.txt"]
126 set ld_library_path_tmp ""
128 # Locate libgcc.a so we don't need to account
for different
values of
129 # SHLIB_EXT
on different platforms
130 set gccdir
[lookfor_file $tool_root_dir gcc
/libgcc.a
]
132 set gccdir
[file dirname $gccdir
]
133 append ld_library_path_tmp
":${gccdir}"
137 # Locate libgomp. This is only required
for parallel
mode.
138 set libgompdir
[lookfor_file $blddir
/..
/libgomp .libs
/libgomp.so
]
139 if {$libgompdir
!= ""} {
140 set libgompdir
[file dirname $libgompdir
]
141 append ld_library_path_tmp
":${libgompdir}"
145 # Locate libstdc
++ shared library.
(ie libstdc
++.so.
)
147 set sharedlibdir
[lookfor_file $blddir src
/.libs
/libstdc
++.so
]
148 if {$sharedlibdir
!= ""} {
149 if { [string match
"*-*-linux*" $target_triplet] && [isnative] } {
151 verbose
-log "shared library support detected"
154 v3track v3
-sharedlib
3
156 # Compute what needs to be added to the existing LD_LIBRARY_PATH.
158 set compiler $
{gccdir
}/g
++
159 set ld_library_path $
{ld_library_path_tmp
}
160 append ld_library_path
":${blddir}/src/.libs"
162 if { [is_remote host
] == 0 && [which $compiler
] != 0 } {
163 foreach i
"[exec $compiler --print-multi-lib]" {
165 regexp
-- "\[a-z0-9=_/\.-\]*;" $i mldir
166 set mldir
[string trimright $mldir
"\;@"]
167 if { "$mldir" == "." } {
170 if { [llength
[glob
-nocomplain $
{gccdir
}/$
{mldir
}/libgcc_s
*.so.
*]] >= 1 } {
171 append ld_library_path
":${gccdir}/${mldir}"
176 set_ld_library_path_env_vars
177 if [info exists env
(LD_LIBRARY_PATH
)] {
178 verbose
-log "LD_LIBRARY_PATH = $env(LD_LIBRARY_PATH)"
181 set compiler
[transform
"g++"]
185 set cxx
[transform
"g++"]
186 set cxxflags
"-g -O2 -D_GLIBCXX_ASSERT -fmessage-length=0"
188 set cc
[transform
"gcc"]
189 # Locate testsuite_hooks.h and other testsuite headers.
190 set includes
"-I${srcdir}/util"
191 # Adapt the defaults
for special circumstances.
192 if [is_remote host
] {
193 # A remote host does not
, in general
, have access to the
194 # $srcdir so we copy the testsuite headers into the current
195 # directory
, and
then add that to the search path.
196 foreach src
[glob
"${srcdir}/util/*.h" \
197 "${srcdir}/util/*.cc" \
198 "${srcdir}/util/*/*.hpp" \
199 "${srcdir}/util/*/*.cc" \
200 "${srcdir}/util/*/*.hpp" \
201 "${srcdir}/util/*/*/*.cc" \
202 "${srcdir}/util/*/*/*.hpp" \
203 "${srcdir}/util/*/*/*/*.cc" \
204 "${srcdir}/util/*/*/*/*.hpp" \
205 "${srcdir}/util/*/*/*/*/*.cc" \
206 "${srcdir}/util/*/*/*/*/*.hpp" ] {
207 # Remove everything up to
"util/..."
208 set dst
[string range $src
[string length
"${srcdir}/"] end]
209 # Create the directory containing the file.
210 set dir [file dirname $dst
]
211 remote_exec host
"mkdir" [list "-p" "$dir"]
213 set result
[remote_download host $src $dst
]
214 if { $result
== "" } {
215 verbose
-log "Unable to download ${srcdir}/${src} to host."
219 set includes
"-Iutil"
220 } elseif
{ [file
exists $flags_file
] } {
221 #
If we find a testsuite_flags file
, we
're testing in the build dir.
222 set cxx [exec sh $flags_file --build-cxx]
223 set cxxflags [exec sh $flags_file --cxxflags]
224 set cxxldflags [exec sh $flags_file --cxxldflags]
225 set cc [exec sh $flags_file --build-cc]
226 set includes [exec sh $flags_file --build-includes]
229 append cxxflags [getenv CXXFLAGS]
232 # Always use MO files built by this test harness.
233 set cxxflags "$cxxflags -DLOCALEDIR=\".\""
234 set ccflags "$cxxflags -DLOCALEDIR=\".\""
236 # If a PCH file is available, use it. We must delay performing
237 # this check until $cxx and such have been initialized because we
238 # perform a test compilation. (Ideally, gcc --print-file-name would
239 # list PCH files, but it does not.)
241 if ![info exists PCH_CXXFLAGS] then {
242 set src "config[pid].cc"
243 set f [open $src "w"]
244 puts $f "int main () {}"
247 set lines [v3_target_compile $src "config[pid].o" object \
248 "additional_flags=-include additional_flags=bits/stdtr1c++.h"]
250 # set PCH_CXXFLAGS "-include bits/extc++.h"
251 # set PCH_CXXFLAGS "-include bits/stdtr1c++.h"
252 set PCH_CXXFLAGS "-include bits/stdc++.h"
257 v3track PCH_CXXFLAGS 2
260 libstdc++_maybe_build_wrapper "${objdir}/testglue.o" "-fexceptions"
263 # Callback for cleanup routines.
264 proc libstdc++_exit { } {
267 if [info exists gluefile] {
268 file_on_build delete $gluefile;
273 # Callback from system dg-test.
274 proc libstdc++-dg-test { prog do_what extra_tool_flags } {
275 # Set up the compiler flags, based on what we're going to
do.
278 set compile_type
"preprocess"
279 set output_file
"[file rootname [file tail $prog]].i"
282 set compile_type
"assembly"
283 set output_file
"[file rootname [file tail $prog]].s"
286 set compile_type
"object"
287 set output_file
"[file rootname [file tail $prog]].o"
290 set compile_type
"executable"
291 set output_file
"./[file rootname [file tail $prog]].exe"
294 set compile_type
"executable"
295 # FIXME
: "./" is to cope with "." not being in $PATH.
296 # Should this be handled elsewhere?
298 set output_file
"./[file rootname [file tail $prog]].exe"
299 # This is the only place where we care
if an executable was
300 # created or not.
If it was
, dg.exp will try to run it.
301 catch
{ remote_file build
delete $output_file
}
304 perror
"$do_what: not a valid dg-do keyword"
309 # Short
-circut a bunch of complicated goo here
for the special
310 # case of compiling a test file as a
"C" file, not as C++. Why? So
311 #
-nostdc
++ doesn
't trip us up. So all the extra object files
312 # don't trip us up. So automatically linking in libstdc
++ doesn
't
313 # happen. So CXXFLAGS don't error.
314 set select_compile
"v3_target_compile"
316 if { $extra_tool_flags
!= "" } {
317 verbose
-log "extra_tool_flags are:"
318 verbose
-log $extra_tool_flags
319 if { [string first
"-x c" $extra_tool_flags ] != -1 } {
320 verbose
-log "compiling and executing as C, not C++"
321 set edit_tool_flags $extra_tool_flags
322 regsub
-all
".x c" $edit_tool_flags "" edit_tool_flags
323 lappend options
"additional_flags=$edit_tool_flags"
324 set select_compile
"v3_target_compile_as_c"
326 lappend options
"additional_flags=$extra_tool_flags"
330 # There is a libstdc
++_compile made
for us by default
(via the tool
-
331 # and
-target file
), but the defaults are lacking in goodness.
332 set comp_output
[$select_compile
"$prog" "$output_file" "$compile_type" $options];
333 set comp_output
[ prune_g
++_output $comp_output
];
335 return [list $comp_output $output_file
]
338 # True
if the library supports wchar_t.
341 # True
if the library supports threads.
344 # True
if the library supports symbol versioning.
347 # Called from libstdc
++-dg
-test above. Calls
back into
system's
348 # target_compile to actually do the work.
349 proc v3_target_compile { source dest type options } {
357 if { [target_info needs_status_wrapper] != "" && [info exists gluefile] } {
358 lappend options "libs=${gluefile}"
359 lappend options "ldflags=${wrap_flags}"
363 set cxxlibglossflags [libgloss_link_flags]
364 set cxx_final [concat $cxx_final $cxxlibglossflags]
365 set cxx_final [concat $cxx_final $cxxflags]
366 set cxx_final [concat $cxx_final $includes]
368 # Flag setting based on type argument.
369 if { $type == "executable" } {
370 # Link the support objects into executables.
371 set cxx_final [concat $cxx_final $cxxldflags]
372 lappend options "additional_flags=./libtestc++.a"
374 if { $type == "sharedlib" } {
375 # Don't link in anything.
376 set type
"executable"
380 lappend options
"compiler=$cxx_final"
381 lappend options
"timeout=600"
383 return [target_compile $source $dest $type $options
]
387 # Called from libstdc
++-dg
-test above
, but only
for "C" compilation.
388 # Calls
back into
system's target_compile to actually do the work.
389 proc v3_target_compile_as_c { source dest type options } {
398 if { [target_info needs_status_wrapper] != "" && [info exists gluefile] } {
399 lappend options "libs=${gluefile}"
400 lappend options "ldflags=${wrap_flags}"
403 set tname [target_info name]
405 set cxxlibglossflags [libgloss_link_flags]
406 set cc_final [concat $cc_final $cxxlibglossflags]
407 set cc_final [concat $cc_final $cxxflags]
408 set cc_final [concat $cc_final $includes]
409 regsub -all {\s[-]nostdinc[+][+]} $cc_final "" cc_final
411 # This is needed for "C" tests, as this type of test may need the
412 # C++ includes. And if we're not testing in the build directory
,
413 # the includes
variable is not likely to
include the necessary
415 if { ![file
exists $flags_file
] } {
416 # ??? We need a
--print
-include-dirs option to GCC
, so that
417 # we can avoid these hacks. The heuristics here will not
418 # work with non
-standard
--with
-includedir
= options.
419 set version
[remote_exec host $
{cc
} -dumpversion
]
420 # Remove the trailing newline from the output.
421 set version
[string trimright
[lindex $version
1]]
422 set machine
[remote_exec host $
{cc
} -dumpmachine
]
423 set machine
[string trimright
[lindex $machine
1]]
424 set comp_base_dir
[remote_exec host $
{cc
} --print
-prog
-name=cc1
]
425 set comp_base_dir
[lindex $comp_base_dir
1]
426 set comp_base_dir
[file dirname
[file dirname
[file dirname
[file dirname
[file dirname $comp_base_dir
]]]]]
427 #
For a cross compiler
, the header files will be located in a
428 # machine
-specific subdirectory.
429 set crossbase
"${comp_base_dir}/${machine}/include/c++/${version}"
430 set crosstarget
"${crossbase}/${machine}"
431 set cc_final
[concat $cc_final
"-I$crossbase -I$crosstarget"]
432 #
For a native compiler
, the header files will be located at
434 set includesbase
"${comp_base_dir}/include/c++/${version}"
435 set includestarget
"${includesbase}/${machine}"
436 set cc_final
[concat $cc_final
"-I$includesbase -I$includestarget"]
438 set libsup
"${comp_base_dir}/lib"
440 set libsup
"${blddir}/libsupc++/.libs"
443 set cc_final
[concat $cc_final
"-L$libsup"]
445 lappend options
"compiler=$cc_final"
446 lappend options
"timeout=600"
448 return [target_compile $source $dest $type $options
]
451 # Build the support objects linked in with the libstdc
++ tests. In
452 # addition
, set v3
-wchar_t
, v3
-threads
, and v3
-symver appropriately.
453 proc v3
-build_support
{ } {
461 # Figure out whether or not the library supports certain features.
467 set config_src
"config.cc"
468 set config_out
"config.ii"
469 set f
[open $config_src
"w"]
470 puts $f
"#include <bits/c++config.h>"
471 puts $f
"#include <bits/gthr.h>"
473 v3_target_compile $config_src $config_out preprocess
"additional_flags=-dN"
474 set file
[open $config_out r
]
475 set preprocessed
[read $file
]
477 if { [string first
"_GLIBCXX_USE_WCHAR_T" $preprocessed] != -1 } {
478 verbose
-log "wchar_t support detected"
481 if { [string first
"_GLIBCXX_SYMVER" $preprocessed] != -1 } {
482 verbose
-log "symbol versioning support detected"
485 if { [string first
"__GTHREADS" $preprocessed] != -1 } {
486 verbose
-log "thread support detected"
490 # Try to build the MO files that are used by some of the locale
491 # tests.
If we can
't build them, that's OK
; it just means that
492 # those tests will fail.
493 foreach lang
[list
"fr" "de"] {
495 file
mkdir "$lang/LC_MESSAGES"
496 remote_exec
"build" "msgfmt" "-o $lang/LC_MESSAGES/libstdc++.mo $srcdir/../po/$lang.po"
497 if [is_remote host
] {
498 remote_exec
"host" "mkdir" "-p $lang/LC_MESSAGES"
499 remote_download
"host" "$lang/LC_MESSAGES/libstdc++.mo" "$lang/LC_MESSAGES/libstdc++.mo"
504 # Build the support objects.
505 set source_files
[list testsuite_abi.cc testsuite_allocator.cc \
506 testsuite_character.cc testsuite_hooks.cc \
507 rng
/twister_rand_gen.cc io
/verified_cmd_line_input.cc \
508 io
/prog_bar.cc performance
/time
/elapsed_timer.cc
]
509 foreach f $source_files
{
510 set obj [file rootname $f
].o
511 set object_file
[file tail $
obj]
512 #
Compile with
"-w" so that warnings issued by the compiler
513 #
do not prevent compilation.
514 if { [v3_target_compile $srcdir
/util
/$f $object_file
"object" \
515 [list
"incdir=$srcdir" "additional_flags=-w"]]
517 error
"could not compile $f"
519 append libtest_objs
"$object_file "
522 # Collect into libtestc
++.a
523 if [info exists env
(AR
)] {
526 set ar
[transform
"ar"]
528 set arargs
"-rc ./libtestc++.a ${libtest_objs}"
529 verbose
-log "$ar $arargs"
530 set result
[lindex
[remote_exec host
"$ar" "$arargs"] 0]
531 verbose
"link result is $result"
532 if { $result
== 0 } {
533 if [info exists env
(RANLIB
)] {
534 set ranlib $env
(RANLIB
)
536 set ranlib
[transform
"ranlib"]
538 set ranlibargs
"./libtestc++.a"
539 verbose
-log "$ranlib $ranlibargs"
540 set result
[lindex
[remote_exec host
"$ranlib" "$ranlibargs"] 0]
541 if { $result
!= 0 } {
542 error
"could not link libtestc++.a"
546 # Build
any shared objects needed
for regression testing.
547 if { $
{v3
-sharedlib
} == 1 } {
548 set source_files
[list testsuite_shared.cc
]
549 foreach f $source_files
{
550 set object_file
[file rootname $f
].so
551 #
Compile with
"-w" so that warnings issued by the compiler
552 #
do not prevent compilation.
553 if { [v3_target_compile $srcdir
/util
/$f $object_file
"sharedlib" \
554 [list
"incdir=$srcdir" "additional_flags=-w -shared -fPIC -DPIC"]]
556 error
"could not compile $f"
562 proc check_v3_target_fileio
{ } {
563 global et_fileio_saved
564 global et_fileio_target_name
567 if { ![info exists et_fileio_target_name
] } {
568 set et_fileio_target_name
""
571 #
If the target has changed since we
set the cached value
, clear it.
572 set current_target
[current_target_name
]
573 if { $current_target
!= $et_fileio_target_name
} {
574 verbose
"check_v3_target_fileio: `$et_fileio_target_name'" 2
575 set et_fileio_target_name $current_target
576 if [info exists et_fileio_saved
] {
577 verbose
"check_v3_target_fileio: removing cached result" 2
578 unset et_fileio_saved
582 if [info exists et_fileio_saved
] {
583 verbose
"check_v3_target_fileio: using cached result" 2
585 set et_fileio_saved
0
587 #
Set up
, compile, and
execute a C
++ test
program that tries to use
589 set src fileio
[pid
].cc
590 set exe fileio
[pid
].x
592 set f
[open $src
"w"]
593 puts $f
"#include <sys/types.h>"
594 puts $f
"#include <sys/stat.h>"
595 puts $f
"#include <fcntl.h>"
596 puts $f
"#include <unistd.h>"
597 puts $f
"#include <errno.h>"
598 puts $f
"using namespace std;"
599 puts $f
"int main ()"
601 puts $f
" int fd = open (\".\", O_RDONLY);"
602 puts $f
" int ret = 0;"
603 puts $f
" if (fd == -1)"
605 puts $f
" int err = errno;"
606 puts $f
" if (err == EIO || err == ENOSYS)"
611 puts $f
" if (lseek (fd, 0, SEEK_CUR) == -1)"
613 puts $f
" close (fd);"
615 puts $f
" return ret;"
619 set lines
[v3_target_compile $src $exe executable
""]
622 if [string match
"" $lines] {
623 # No error message
, compilation succeeded.
624 set result
[$
{tool
}_load
"./$exe" "" ""]
625 set status [lindex $result
0]
626 remote_file build
delete $exe
628 verbose
"check_v3_target_fileio: status is <$status>" 2
630 if { $
status == "pass" } {
631 set et_fileio_saved
1
634 verbose
"check_v3_target_fileio: compilation failed" 2
637 return $et_fileio_saved
640 # Eventually we want C90
/C99 determining and switching from this.
641 proc check_v3_target_c_std
{ } {
642 global et_c_std_saved
643 global et_c_std_target_name
646 if { ![info exists et_c_std_target_name
] } {
647 set et_c_std_target_name
""
650 #
If the target has changed since we
set the cached value
, clear it.
651 set current_target
[current_target_name
]
652 if { $current_target
!= $et_c_std_target_name
} {
653 verbose
"check_v3_target_c_std: `$et_c_std_target_name'" 2
654 set et_c_std_target_name $current_target
655 if [info exists et_c_std_saved
] {
656 verbose
"check_v3_target_c_std: removing cached result" 2
661 if [info exists et_c_std_saved
] {
662 verbose
"check_v3_target_c_std: using cached result" 2
666 #
Set up
, compile, and
execute a C
++ test
program that tries to use
668 #
For math bits
, could use check_effective_target_c99_math.
669 set src fileio
[pid
].cc
670 set exe fileio
[pid
].x
672 set f
[open $src
"w"]
673 puts $f
"#include <tr1/cmath>"
674 puts $f
"#include <cstdlib>"
675 puts $f
"int main ()"
677 puts $f
" float f = 45.55;"
678 puts $f
" int i = std::tr1::isnan(f);"
680 puts $f
" using std::wctomb;"
685 set lines
[v3_target_compile $src $exe executable
""]
688 if [string match
"" $lines] {
689 # No error message
, compilation succeeded.
690 set result
[$
{tool
}_load
"./$exe" "" ""]
691 set status [lindex $result
0]
692 remote_file build
delete $exe
694 verbose
"check_v3_target_c_std: status is <$status>" 2
696 if { $
status == "pass" } {
700 verbose
"check_v3_target_c_std: compilation failed" 2
703 return $et_c_std_saved
706 proc check_v3_target_sharedlib
{ } {
708 return $
{v3
-sharedlib
}
711 proc check_v3_target_time
{ } {
713 global et_time_target_name
716 if { ![info exists et_time_target_name
] } {
717 set et_time_target_name
""
720 #
If the target has changed since we
set the cached value
, clear it.
721 set current_target
[current_target_name
]
722 if { $current_target
!= $et_time_target_name
} {
723 verbose
"check_v3_target_time: `$et_time_target_name'" 2
724 set et_time_target_name $current_target
725 if [info exists et_time_saved
] {
726 verbose
"check_v3_target_time: removing cached result" 2
731 if [info exists et_time_saved
] {
732 verbose
"check_v3_target_time: using cached result" 2
736 #
Set up and
compile a C
++ test
program that tries to use
741 set f
[open $src
"w"]
742 puts $f
"#include <time.h>"
743 puts $f
"using namespace std;"
744 puts $f
"int main ()"
750 set lines
[v3_target_compile $src $exe executable
""]
753 if [string match
"" $lines] {
754 # No error message
, compilation succeeded.
755 verbose
"check_v3_target_time: compilation succeeded" 2
756 remote_file build
delete $exe
759 verbose
"check_v3_target_time: compilation failed" 2
762 return $et_time_saved
765 proc check_v3_target_namedlocale
{ } {
766 global et_namedlocale_saved
767 global et_namedlocale_target_name
770 if { ![info exists et_namedlocale_target_name
] } {
771 set et_namedlocale_target_name
""
774 #
If the target has changed since we
set the cached value
, clear it.
775 set current_target
[current_target_name
]
776 if { $current_target
!= $et_namedlocale_target_name
} {
777 verbose
"check_v3_target_namedlocale: `$et_namedlocale_target_name'" 2
778 set et_namedlocale_target_name $current_target
779 if [info exists et_namedlocale_saved
] {
780 verbose
"check_v3_target_namedlocale: removing cached result" 2
781 unset et_namedlocale_saved
785 if [info exists et_namedlocale_saved
] {
786 verbose
"check_v3_target_namedlocale: using cached result" 2
788 set et_namedlocale_saved
0
790 #
Set up
, compile, and
execute a C
++ test
program that tries to use
791 # all the required named locales.
792 set src nlocale
[pid
].cc
793 set exe nlocale
[pid
].x
795 set f
[open $src
"w"]
796 puts $f
"#include <locale>"
797 puts $f
"using namespace std;"
798 puts $f
"int main ()"
802 puts $f
" locale(\"\");"
803 puts $f
" locale(\"de_DE\");"
804 puts $f
" locale(\"de_DE.ISO-8859-15@euro\");"
805 puts $f
" locale(\"de_DE@euro\");"
806 puts $f
" locale(\"en_HK\");"
807 puts $f
" locale(\"en_PH\");"
808 puts $f
" locale(\"en_US\");"
809 puts $f
" locale(\"en_US.ISO-8859-1\");"
810 puts $f
" locale(\"en_US.ISO-8859-15\");"
811 puts $f
" locale(\"en_US.UTF-8\");"
812 puts $f
" locale(\"es_ES\");"
813 puts $f
" locale(\"es_MX\");"
814 puts $f
" locale(\"fr_FR\");"
815 puts $f
" locale(\"fr_FR@euro\");"
816 puts $f
" locale(\"is_IS\");"
817 puts $f
" locale(\"is_IS.UTF-8\");"
818 puts $f
" locale(\"it_IT\");"
819 puts $f
" locale(\"ja_JP.eucjp\");"
820 puts $f
" locale(\"se_NO.UTF-8\");"
821 puts $f
" locale(\"ta_IN\");"
822 puts $f
" locale(\"zh_TW\");"
825 puts $f
" catch(...)"
832 set lines
[v3_target_compile $src $exe executable
""]
835 if [string match
"" $lines] {
836 # No error message
, compilation succeeded.
837 set result
[$
{tool
}_load
"./$exe" "" ""]
838 set status [lindex $result
0]
839 remote_file build
delete $exe
841 verbose
"check_v3_target_namedlocale: status is <$status>" 2
843 if { $
status == "pass" } {
844 set et_namedlocale_saved
1
847 verbose
"check_v3_target_namedlocale: compilation failed" 2
850 return $et_namedlocale_saved
853 proc check_v3_target_debug_mode
{ } {
858 if { ![info exists et_debug_mode_target_name
] } {
859 set et_debug_mode_target_name
""
862 #
If the target has changed since we
set the cached value
, clear it.
863 set current_target
[current_target_name
]
864 if { $current_target
!= $et_debug_mode_target_name
} {
865 verbose
"check_v3_target_debug_mode: `$et_debug_mode_target_name'" 2
866 set et_debug_mode_target_name $current_target
867 if [info exists et_debug_mode
] {
868 verbose
"check_v3_target_debug_mode: removing cached result" 2
873 if [info exists et_debug_mode
] {
874 verbose
"check_v3_target_debug_mode: using cached result" 2
878 #
Set up
, compile, and
execute a C
++ test
program that depends
879 #
on debug
mode working.
880 set src debug_mode
[pid
].cc
881 set exe debug_mode
[pid
].exe
883 set f
[open $src
"w"]
884 puts $f
"#include <string>"
885 puts $f
"using namespace std;"
887 puts $f
"{ return 0; }"
890 set cxxflags_saved $cxxflags
891 set cxxflags
"$cxxflags -Werror -O0 -D_GLIBCXX_DEBUG"
892 set lines
[v3_target_compile $src $exe executable
""]
893 set cxxflags $cxxflags_saved
896 if [string match
"" $lines] {
897 # No error message
, compilation succeeded.
901 verbose
"check_v3_target_debug_mode: $et_debug_mode" 2
902 return $et_debug_mode
905 proc check_v3_target_parallel_mode
{ } {
907 global DEFAULT_CXXFLAGS
908 global et_parallel_mode
912 if { ![info exists et_parallel_mode_target_name
] } {
913 set et_parallel_mode_target_name
""
916 #
If the target has changed since we
set the cached value
, clear it.
917 set current_target
[current_target_name
]
918 if { $current_target
!= $et_parallel_mode_target_name
} {
919 verbose
"check_v3_target_parallel_mode: `$et_parallel_mode_target_name'" 2
920 set et_parallel_mode_target_name $current_target
921 if [info exists et_parallel_mode
] {
922 verbose
"check_v3_target_parallel_mode: removing cached result" 2
923 unset et_parallel_mode
927 if [info exists et_parallel_mode
] {
928 verbose
"check_v3_target_parallel_mode: using cached result" 2
930 set et_parallel_mode
0
932 #
Set up
, compile, and
execute a C
++ test
program that depends
933 #
on parallel
mode working.
934 set src parallel_mode
[pid
].cc
935 set exe parallel_mode
[pid
].exe
937 set f
[open $src
"w"]
938 puts $f
"#include <omp.h>"
940 puts $f
"{ return 0; }"
943 set cxxflags_saved $cxxflags
944 set cxxflags
"$cxxflags $DEFAULT_CXXFLAGS -Werror"
946 set lines
[v3_target_compile $src $exe executable
""]
947 set cxxflags $cxxflags_saved
950 if [string match
"" $lines] {
951 # No error message
, compilation succeeded.
952 set et_parallel_mode
1
954 verbose
"check_v3_target_parallel_mode: compilation failed" 2
957 verbose
"check_v3_target_parallel_mode: $et_parallel_mode" 2
958 return $et_parallel_mode