From 4553ed276b27dce99d2e77064d64e7660e850f01 Mon Sep 17 00:00:00 2001 From: Andy Polyakov Date: Tue, 17 Dec 2002 08:05:49 +0000 Subject: [PATCH] Make "perl des-586.pl a.out" work, see RT#402 --- crypto/perlasm/x86unix.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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"); } -- 2.25.1