75db1a9ee2
it (the LSYM is $ on Alpha) Refs trac:380 This commit was SVN r11808. The following Trac tickets were found above: Ticket 380 --> https://svn.open-mpi.org/trac/ompi/ticket/380
28 строки
764 B
Perl
28 строки
764 B
Perl
#!/usr/bin/perl -w
|
|
|
|
my $perl = shift;
|
|
my $srcdir = shift;
|
|
my $destdir = shift;
|
|
|
|
if (! $perl || ! $srcdir || ! $destdir) {
|
|
print "ERROR: invalid argument to generate-all-asm.pl\n";
|
|
print "usage: generate-all-asm.pl [PERL] [SRCDIR] [DESTDIR]\n";
|
|
exit 1;
|
|
}
|
|
|
|
open(DATAFILE, "$srcdir/asm-data.txt") || die "Could not open data file: $!\n";
|
|
|
|
my $ASMARCH = "";
|
|
my $ASMFORMAT = "";
|
|
my $ASMFILE = "";
|
|
|
|
while(<DATAFILE>) {
|
|
if (/^#/) { next; }
|
|
($ASMARCH, $ASMFORMAT, $ASMFILE) = /(.*)\t(.*)\t(.*)/;
|
|
if (! $ASMARCH || ! $ASMFORMAT) { next; }
|
|
|
|
print "--> Generating assembly for \"$ASMARCH\" \"$ASMFORMAT\"\n";
|
|
system("$perl \'$srcdir/generate-asm.pl\' \'$ASMARCH\' \'$ASMFORMAT\' \'$srcdir/base\' \'$destdir/generated/atomic-$ASMFILE.s\'");
|
|
|
|
}
|