diff options
Diffstat (limited to 'newlib/testsuite/lib/newlib.exp')
-rw-r--r-- | newlib/testsuite/lib/newlib.exp | 101 |
1 files changed, 0 insertions, 101 deletions
diff --git a/newlib/testsuite/lib/newlib.exp b/newlib/testsuite/lib/newlib.exp deleted file mode 100644 index 48f527e7a..000000000 --- a/newlib/testsuite/lib/newlib.exp +++ /dev/null @@ -1,101 +0,0 @@ -# Copyright (C) 2002 by Red Hat, Incorporated. All rights reserved. -# -# Permission to use, copy, modify, and distribute this software -# is freely granted, provided that this notice is preserved. -# - -# flags.exp overrides the dejagnu versions of libgloss_link_flags, -# newlib_link_flags, and newlib_include_flags. -load_lib flags.exp - -proc newlib_version { } { - global tool_version - - verbose "In newlib version...\n" - - return $tool_version -} - -set newlib_initialized 0 - -proc newlib_init { args } { - global gluefile wrap_flags - global newlib_initialized - global target_info - # These values are initialized in the local site.exp file. - global srcdir objdir - global host_triplet target_triplet - global old_ld_library_path - - verbose "In newlib_init...\n" - - if { $newlib_initialized == 1 } { return; } - - if {[target_info needs_status_wrapper] != "" && \ - [target_info needs_status_wrapper] != "0" && \ - ![info exists gluefile]} { - set gluefile ${objdir}/testsuite/testglue.o; - set result [build_wrapper $gluefile]; - if { $result != "" } { - set gluefile [lindex $result 0]; - set wrap_flags [lindex $result 1]; - } else { - unset gluefile - } - } - - if [string match $host_triplet $target_triplet] then { - if [string match "i686-pc-linux-gnu" $host_triplet] then { - set old_ld_library_path [getenv LD_LIBRARY_PATH] - setenv LD_LIBRARY_PATH "$objdir/.libs" - } - } -} - -proc newlib_target_compile { source dest type options } { - global gluefile wrap_flags - global srcdir objdir - global host_triplet target_triplet - - verbose "In newlib_target_compile...\n" - - if {[target_info needs_status_wrapper] != "" && \ - [target_info needs_status_wrapper] != "0" && \ - [info exists gluefile] } { - lappend options "libs=$gluefile" - lappend options "ldflags=$wrap_flags" - } - - if [string match $host_triplet $target_triplet] then { - if [string match "i686-pc-linux-gnu" $host_triplet] then { - lappend options "libs=$objdir/crt0.o -lc -lgcc" - lappend options "ldflags=-nostdlib -L$objdir/.libs [newlib_include_flags]" - } - } - - return [target_compile $source $dest $type $options] -} - -proc newlib_finish { } { - global old_ld_library_path - global host_triplet target_triplet - - verbose "In newlib_finish...\n" - - if [string match $host_triplet $target_triplet] then { - if [string match "i686-pc-linux-gnu" $host_triplet] then { - setenv LD_LIBRARY_PATH "$old_ld_library_path" - } - } -} - -proc newlib_exit { } { - global gluefile; - - verbose "In newlib_exit...\n" - - if [info exists gluefile] { - file_on_build delete $gluefile; - unset gluefile; - } -} |