This is the mail archive of the
gcc@gcc.gnu.org
mailing list for the GCC project.
find_g77 proc
- To: egcs at cygnus dot com
- Subject: find_g77 proc
- From: Jeffrey A Law <law at cygnus dot com>
- Date: Mon, 06 Oct 1997 10:55:56 -0600
- Reply-To: law at cygnus dot com
For those that are (or will soon :-) be playing with the g77
f-torture testsuite, here's a find_g77 proc for libgloss.exp:
proc find_g77 {} {
global base_dir
if ![is_remote host] {
set file [lookfor_file $base_dir g77];
if { $file == "" } {
set file [lookfor_file $base_dir gcc/g77];
}
if { $file != "" } {
set CC "$file -B[file dirname $file]/ --driver=[file dirname $file]/xgcc";
} else {
set CC [transform g77];
}
} else {
set CC [transform g77]
}
return $CC;
}