Bypass Perl modules in build system
This change fixes the bug: https://llvm.org/bugs/show_bug.cgi?id=25975
by bypassing the perl module files which try to deduce system information.
These perl modules files don't offer useful information and are from the
original build system. They can be removed after this change.
llvm-svn: 258843
diff --git a/openmp/runtime/tools/check-instruction-set.pl b/openmp/runtime/tools/check-instruction-set.pl
index b77e207..b505e48 100755
--- a/openmp/runtime/tools/check-instruction-set.pl
+++ b/openmp/runtime/tools/check-instruction-set.pl
@@ -17,10 +17,12 @@
use FindBin;
use lib "$FindBin::Bin/lib";
-use Platform ":vars";
use tools;
our $VERSION = "0.004";
+my $target_os;
+my $target_arch;
+my $target_mic_arch;
my $hex = qr{[0-9a-f]}i; # hex digit.
@@ -182,17 +184,20 @@
my $max_instructions;
my $show_instructions;
get_options(
+ "os=s" => \$target_os,
+ "arch=s" => \$target_arch,
+ "mic-arch=s" => \$target_mic_arch,
"max-instructions=i" => \$max_instructions,
"show-instructions!" => \$show_instructions,
- Platform::target_options(),
);
+my $target_platform = $target_os . "_" . $target_arch;
if ( "$target_os" eq "lin" and "$target_mic_arch" eq "knf" ) {
$mic_bad_re = qr{^(?:pause|[slm]fence|scatter|gather|cmpxchg16b|clevict[12])}i;
} else {
$mic_bad_re = qr{^(?:pause|[slm]fence|scatter|gather|cmov|cmpxchg16b|clevict[12])}i;
};
if ( 0 ) {
-} elsif ( $target_os eq "lin" and $target_arch eq "mic" ) {
+} elsif ( $target_platform eq "lin_mic" ) {
*bad_instr = \*bad_mic_instr;
*bad_fmt = \*bad_mic_fmt;
} elsif ( $target_platform eq "lin_32" ) {