Fixed cross-suffix detection for path that contains dashes when the compiler itself doesn't

This commit is contained in:
buffer51 2016-04-27 12:09:44 -07:00
parent 6f43310de5
commit 20b0ed1da5
1 changed files with 8 additions and 8 deletions

16
c_check
View File

@ -1,5 +1,7 @@
#!/usr/bin/perl
use File::Basename;
# Checking cross compile
$hostos = `uname -s | sed -e s/\-.*//`; chop($hostos);
$hostarch = `uname -m | sed -e s/i.86/x86/`;chop($hostarch);
@ -26,14 +28,12 @@ if ($?) {
$cross_suffix = "";
if ($ARGV[0] =~ /(.*)(-[.\d]+)/) {
if ($1 =~ /(.*-)(.*)/) {
$cross_suffix = $1;
}
} else {
if ($ARGV[0] =~ /([^\/]*-)([^\/]*$)/) {
$cross_suffix = $1;
}
if (dirname($compiler_name) ne ".") {
$cross_suffix .= dirname($compiler_name) . "/";
}
if (basename($compiler_name) =~ /(.*-)(.*)/) {
$cross_suffix .= $1;
}
$compiler = "";