wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PERLASM - the wierdest programming language since Intercal.

Browse source 
add debug output facilities.
This commit is contained in:
Ulf Möller 2000-12-05 03:51:46 +00:00
parent 90e7ce363a
commit cc74659fcc
1 changed files with 27 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
crypto/perlasm/x86unix.pl
View file

@ -3,6 +3,7 @@
package x86unix;
$label="L000";
$const="";
$align=($main'aout)?"4":"16";
$under=($main'aout)?"_":"";
@ -341,9 +342,13 @@ sub main'function_end
popl %ebx
popl %ebp
ret
.${func}_end:
EOF
push(@out,$tmp);
push(@out,$const);
$const="";
push(@out,".${func}_end:\n");
if ($main'cpp)
{ push(@out,"\tSIZE($func,.${func}_end-$func)\n"); }
elsif ($main'gaswin)
@ -459,3 +464,24 @@ sub main'data_word
{
push(@out,"\t.long $_[0]\n");
}
sub main'puts
{
$constl++;
&main'push('$Lstring' . $constl);
&main'call('puts');
&main'add("esp",4);
$const .= "Lstring$constl:\n\t.string \"@_[0]\"\n";
}
sub main'putx
{
$constl++;
&main'push($_[0]);
&main'push('$Lstring' . $constl);
&main'call('printf');
&main'add("esp",8);
$const .= "Lstring$constl:\n\t.string \"\%X\"\n";
}