libc/libgloss/testsuite/lib/libgloss.exp

78 lines
2.3 KiB
Plaintext

# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997 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., 675 Mass Ave, Cambridge, MA 02139, USA.
# This file was written by Rob Savoye. (rob@cygnus.com)
# The default option list can be overridden by
# TORTURE_OPTIONS="{ { list1 } ... { listN } }"
if ![info exists TORTURE_OPTIONS] {
# FIXME: We should test -g at least once.
set TORTURE_OPTIONS [list \
{ -O0 } { -O1 } { -O2 } \
{ -O2 -fomit-frame-pointer -finline-functions } \
{ -O2 -fomit-frame-pointer -finline-functions -funroll-all-loops }]
}
# These globals are used if no compiler arguments are provided.
# They are also used by the various testsuites to define the environment:
# where to find stdio.h, libc.a, etc.
global CC
if ![info exists CC] then {
set CC [findfile $base_dir/xgcc "$base_dir/xgcc -B$base_dir/" [transform gcc
]]
}
if { [which $CC] == 0 } then {
perror "$CC does not exist"
exit 1
}
global CFLAGS
if ![info exists CFLAGS] then {
set CFLAGS ""
}
global LIBS
if ![info exists LIBS] then {
set LIBS ""
}
# It is difficult to come up with a situation where one has to use LDFLAGS
# and not LIBS (why two?). Both are useful in makefiles, so maybe it's better
# to just continue existing practice. However, there is still a lot of
# confusion about when to use one or the other.
global LDFLAGS
if ![info exists LDFLAGS] then {
set LDFLAGS ""
}
proc just_compile { file } {
global CFLAGS
set output "$tmpdir/[file tail [file rootname $src]].o"
append CFLAGS " -w -c -o $output $option"
}
proc just_link { file } {
}
proc just_execute { file } {
}
proc run_test { file } {
}