diff options
| author | Andy Polyakov <appro@openssl.org> | 2002-12-17 08:05:49 +0000 |
|---|---|---|
| committer | Andy Polyakov <appro@openssl.org> | 2002-12-17 08:05:49 +0000 |
| commit | 4553ed276b27dce99d2e77064d64e7660e850f01 (patch) | |
| tree | 3c0b8371d61a35d0b9957b9273dbfe7c23682e17 /crypto | |
| parent | 62966f3829fc5a58e8e31c7677bdc6b9f2c3353e (diff) | |
| download | openssl-4553ed276b27dce99d2e77064d64e7660e850f01.zip openssl-4553ed276b27dce99d2e77064d64e7660e850f01.tar.gz openssl-4553ed276b27dce99d2e77064d64e7660e850f01.tar.bz2 | |
Make "perl des-586.pl a.out" work, see RT#402
Diffstat (limited to 'crypto')
| -rw-r--r-- | crypto/perlasm/x86unix.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl index 13e6120..3ad889f 100644 --- a/crypto/perlasm/x86unix.pl +++ b/crypto/perlasm/x86unix.pl @@ -167,7 +167,7 @@ sub main'pop { &out1("popl",@_); $stack-=4; } sub main'pushf { &out0("pushf"); $stack+=4; } sub main'popf { &out0("popf"); $stack-=4; } sub main'not { &out1("notl",@_); } -sub main'call { &out1("call",$under.$_[0]); } +sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); } sub main'ret { &out0("ret"); } sub main'nop { &out0("nop"); } |