|
@@ -108,6 +108,7 @@ sub round4_step |
|
|
EOF |
|
|
EOF |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
no warnings qw(uninitialized); |
|
|
my $flavour = shift; |
|
|
my $flavour = shift; |
|
|
my $output = shift || ""; |
|
|
my $output = shift || ""; |
|
|
if ($flavour =~ /\./) { $output = $flavour; undef $flavour; } |
|
|
if ($flavour =~ /\./) { $output = $flavour; undef $flavour; } |
|
@@ -119,7 +120,6 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; my $dir=$1; my $xlate; |
|
|
( $xlate="${dir}../../perlasm/x86_64-xlate.pl" and -f $xlate) or |
|
|
( $xlate="${dir}../../perlasm/x86_64-xlate.pl" and -f $xlate) or |
|
|
die "can't locate x86_64-xlate.pl"; |
|
|
die "can't locate x86_64-xlate.pl"; |
|
|
|
|
|
|
|
|
no warnings qw(uninitialized); |
|
|
|
|
|
open OUT,"| \"$^X\" $xlate $flavour $output"; |
|
|
open OUT,"| \"$^X\" $xlate $flavour $output"; |
|
|
*STDOUT=*OUT; |
|
|
*STDOUT=*OUT; |
|
|
|
|
|
|
|
|