From: Andy Polyakov <appro@openssl.org>
Date: Tue, 17 Dec 2002 08:05:49 +0000 (+0000)
Subject: Make "perl des-586.pl a.out" work, see RT#402
X-Git-Tag: OpenSSL_0_9_7a~86^2~90
X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=commitdiff_plain;h=4553ed276b27dce99d2e77064d64e7660e850f01

Make "perl des-586.pl a.out" work, see RT#402
---

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 13e6120938..3ad889ffd6 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"); }