1b6b7c9ff3
There was a stray %s left from testing, remove it. Add -w to the #! line (which is parsed by Perl even if the Perl interpreter is invoked explicitly on the command line) to catch these kinds of errors in the future. Reported-by: Jean Delvare <khali@linux-fr.org> Link: http://lkml.kernel.org/r/20120626143246.0c9bf301@endymion.delvare Signed-off-by: H. Peter Anvin <hpa@linux.intel.com>
45 lines
885 B
Perl
45 lines
885 B
Perl
#!/usr/bin/perl -w
|
|
#
|
|
# Generate the x86_cap_flags[] array from include/asm-x86/cpufeature.h
|
|
#
|
|
|
|
($in, $out) = @ARGV;
|
|
|
|
open(IN, "< $in\0") or die "$0: cannot open: $in: $!\n";
|
|
open(OUT, "> $out\0") or die "$0: cannot create: $out: $!\n";
|
|
|
|
print OUT "#include <asm/cpufeature.h>\n\n";
|
|
print OUT "const char * const x86_cap_flags[NCAPINTS*32] = {\n";
|
|
|
|
%features = ();
|
|
$err = 0;
|
|
|
|
while (defined($line = <IN>)) {
|
|
if ($line =~ /^\s*\#\s*define\s+(X86_FEATURE_(\S+))\s+(.*)$/) {
|
|
$macro = $1;
|
|
$feature = "\L$2";
|
|
$tail = $3;
|
|
if ($tail =~ /\/\*\s*\"([^"]*)\".*\*\//) {
|
|
$feature = "\L$1";
|
|
}
|
|
|
|
next if ($feature eq '');
|
|
|
|
if ($features{$feature}++) {
|
|
print STDERR "$in: duplicate feature name: $feature\n";
|
|
$err++;
|
|
}
|
|
printf OUT "\t%-32s = \"%s\",\n", "[$macro]", $feature;
|
|
}
|
|
}
|
|
print OUT "};\n";
|
|
|
|
close(IN);
|
|
close(OUT);
|
|
|
|
if ($err) {
|
|
unlink($out);
|
|
exit(1);
|
|
}
|
|
|
|
exit(0);
|