RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2025-02-01 05:01:59 +01:00
Code Issues Projects Releases Wiki Activity

Dan is right, using "string first" would produce false positives. So,

Browse Source 
devolve the check to a comparison against each component in the string.
Fortunately there isn't many of them.

llvm-svn: 36376
This commit is contained in:
Reid Spencer 2007-04-23 21:21:53 +00:00
parent b6ae31a101
commit 78ba39377a
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
test/lib/llvm.exp
View File

@ -207,13 +207,15 @@ proc llvm_gcc_supports { lang } {
fortran { set file fcc1 }
default { return 0 }
}
if { [ string first "$lang" "$llvmgcc_langs" ] >= 0 } {
# FIXME: Knowing it is configured is not enough. We should do two more
# checks here. First, we need to run llvm-gcc -print-prog-name=$file to get
# the path to the compiler. If we don't get a path, the language isn't
# properly configured or built. If we do get a path, we should check to make
# sure that it is executable and perhaps even try executing it.
return 1;
foreach supported_lang [split "$llvmgcc_langs" ,] {
if { "$lang" == "$supported_lang" } {
# FIXME: Knowing it is configured is not enough. We should do two more
# checks here. First, we need to run llvm-gcc -print-prog-name=$file to
# get the path to the compiler. If we don't get a path, the language isn't
# properly configured or built. If we do get a path, we should check to
# make sure that it is executable and perhaps even try executing it.
return 1;
}
}
return 0;
}