projects
/
openssl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
aecb0b0
)
another fix for the debug print
author
Ulf Möller
<ulf@openssl.org>
Wed, 6 Dec 2000 04:14:37 +0000
(
04:14
+0000)
committer
Ulf Möller
<ulf@openssl.org>
Wed, 6 Dec 2000 04:14:37 +0000
(
04:14
+0000)
crypto/perlasm/x86unix.pl
patch
|
blob
|
history
diff --git
a/crypto/perlasm/x86unix.pl
b/crypto/perlasm/x86unix.pl
index a22994490d9b640dbe72a41cc4a7110f34202029..573d4f1126e95cb939832a9f2da0eb1f2b9499ec 100644
(file)
--- a/
crypto/perlasm/x86unix.pl
+++ b/
crypto/perlasm/x86unix.pl
@@
-164,6
+164,8
@@
sub main'dec { &out1("decl",@_); }
sub main'inc { &out1("incl",@_); }
sub main'push { &out1("pushl",@_); $stack+=4; }
sub main'pop { &out1("popl",@_); $stack-=4; }
sub main'inc { &out1("incl",@_); }
sub main'push { &out1("pushl",@_); $stack+=4; }
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'ret { &out0("ret"); }
sub main'not { &out1("notl",@_); }
sub main'call { &out1("call",$under.$_[0]); }
sub main'ret { &out0("ret"); }
@@
-527,7
+529,7
@@
sub main'printf
sub pushvars
{
sub pushvars
{
- &
out0("pushf"
);
+ &
main'pushf(
);
&main'push("edx");
&main'push("ecx");
&main'push("eax");
&main'push("edx");
&main'push("ecx");
&main'push("eax");
@@
-538,5
+540,5
@@
sub popvars
&main'pop("eax");
&main'pop("ecx");
&main'pop("edx");
&main'pop("eax");
&main'pop("ecx");
&main'pop("edx");
- &
out0("popf"
);
+ &
main'popf(
);
}
}