generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Support assembler for Mingw32.

Browse Source
This commit is contained in:
Ulf Möller
2000-02-28 19:16:41 +00:00
parent a4709b3d88
commit 2da0c11926
7 changed files with 139 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
crypto/perlasm/x86unix.pl
View File

@@ -292,6 +292,8 @@ EOF
push(@out,$tmp);
if ($main'cpp)
{ $tmp=push(@out,"\tTYPE($func,\@function)\n"); }
elsif ($main'gaswin)
{ $tmp=push(@out,"\t.def\t$func;\t.scl\t2;\t.type\t32;\t.endef\n"); }
else { $tmp=push(@out,"\t.type\t$func,\@function\n"); }
push(@out,"$func:\n");
$tmp=<<"EOF";
@@ -320,6 +322,8 @@ EOF
push(@out,$tmp);
if ($main'cpp)
{ push(@out,"\tTYPE($func,\@function)\n"); }
elsif ($main'gaswin)
{ $tmp=push(@out,"\t.def\t$func;\t.scl\t2;\t.type\t32;\t.endef\n"); }
else { push(@out,"\t.type $func,\@function\n"); }
push(@out,"$func:\n");
$stack=4;
@@ -342,6 +346,8 @@ EOF
push(@out,$tmp);
if ($main'cpp)
{ push(@out,"\tSIZE($func,.${func}_end-$func)\n"); }
elsif ($main'gaswin)
{ $tmp=push(@out,"\t.align 4\n"); }
else { push(@out,"\t.size\t$func,.${func}_end-$func\n"); }
push(@out,".ident \"$func\"\n");
$stack=0;
@@ -371,6 +377,8 @@ sub main'function_end_B
push(@out,".L_${func}_end:\n");
if ($main'cpp)
{ push(@out,"\tSIZE($func,.L_${func}_end-$func)\n"); }
elsif ($main'gaswin)
{ push(@out,"\t.align 4\n"); }
else { push(@out,"\t.size\t$func,.L_${func}_end-$func\n"); }
push(@out,".ident \"desasm.pl\"\n");
$stack=0;