generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

PPC assembler distiller update.

Browse Source
This commit is contained in:
Andy Polyakov 2006-05-03 13:39:34 +00:00
parent 9a97800813
commit fe716ba686
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crypto/perlasm/ppc-xlate.pl
View File

@ -52,6 +52,9 @@ my $globl = sub {
$$global = $name; $$global = $name;
$ret; $ret;
}; };
my $text = sub {
($flavour =~ /aix/) ? ".csect" : ".text";
};
my $machine = sub { my $machine = sub {
my $junk = shift; my $junk = shift;
my $arch = shift; my $arch = shift;
@ -102,6 +105,7 @@ while($line=<>) {
my $mnemonic = $2; my $mnemonic = $2;
my $f = $3; my $f = $3;
my $opcode = eval("\$$mnemonic"); my $opcode = eval("\$$mnemonic");
$line =~ s|\br([0-9]+)\b|$1|g if ($c ne "." and $flavour !~ /osx/);
if (ref($opcode) eq 'CODE') { $line = &$opcode($f,split(',',$line)); } if (ref($opcode) eq 'CODE') { $line = &$opcode($f,split(',',$line)); }
elsif ($mnemonic) { $line = $c.$mnemonic.$f."\t".$line; } elsif ($mnemonic) { $line = $c.$mnemonic.$f."\t".$line; }
} }