diff options
| author | Ulf Möller <ulf@openssl.org> | 2000-12-05 05:39:43 +0000 |
|---|---|---|
| committer | Ulf Möller <ulf@openssl.org> | 2000-12-05 05:39:43 +0000 |
| commit | 0c34556cbd509afc84d5a6796d463122408a028b (patch) | |
| tree | 7637086d4c0f7fbbaaf7c83ef0e7ca23a10b747f /crypto/perlasm | |
| parent | b50118ca3e1d66a32f96b515b43620e0962558be (diff) | |
looks like it works now
Diffstat (limited to 'crypto/perlasm')
| -rw-r--r-- | crypto/perlasm/x86unix.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl index 51494e2a44..bb9c6925d8 100644 --- a/crypto/perlasm/x86unix.pl +++ b/crypto/perlasm/x86unix.pl @@ -4,6 +4,7 @@ package x86unix; $label="L000"; $const=""; +$constl=0; $align=($main'aout)?"4":"16"; $under=($main'aout)?"_":""; @@ -484,8 +485,8 @@ sub main'putx &main'push($_[0]); &main'push('$Lstring' . ++$constl); &main'call('printf'); - $stack-=8; &main'add("esp",8); + $stack-=8; &popvars(); $const .= "Lstring$constl:\n\t.string \"\%X\"\n"; @@ -497,10 +498,9 @@ sub main'printf &pushvars(); for ($i = @_ - 1; $i >= 0; $i--) { - $constl++; if ($i == 0) # change this to support %s format strings { - &main'push('$Lstring' . $constl); + &main'push('$Lstring' . ++$constl); $const .= "Lstring$constl:\n\t.string \"@_[$i]\"\n"; } else @@ -517,8 +517,8 @@ sub main'printf } &main'call('printf'); $stack-=4*@_; - &popvars(); &main'add("esp",4*@_); + &popvars(); } sub pushvars |