1 files changed, 87 insertions, 4 deletions

diff --git a/src/lib/libcrypto/perlasm/x86unix.pl b/src/lib/libcrypto/perlasm/x86unix.pl
index a4c947165e..ae8f0964dc 100644
--- a/src/lib/libcrypto/perlasm/x86unix.pl
+++ b/src/lib/libcrypto/perlasm/x86unix.pl
@@ -16,6 +16,12 @@ sub main'asm_get_output { return(@out); }
 sub main'get_labels { return(@labels); }
 sub main'external_label { push(@labels,@_); }
 
+if ($main'openbsd)
+        {
+        $com_start='/*';
+        $com_end='*/';
+        }
+
 if ($main'cpp)
         {
         $align="ALIGN";
@@ -338,6 +344,9 @@ sub main'file
         {
         local($file)=@_;
 
+        if ($main'openbsd)
+                { push(@out,"#include <machine/asm.h>\n"); }
+
         local($tmp)=<<"EOF";
         .file   "$file.s"
 EOF
@@ -346,11 +355,18 @@ EOF
 
 sub main'function_begin
         {
-        local($func)=@_;
+        local($func,$junk,$llabel)=@_;
 
         &main'external_label($func);
         $func=$under.$func;
 
+        if ($main'openbsd)
+                {
+                push (@out, "\nENTRY($func)\n");
+                push (@out, "$llabel:\n") if $llabel;
+                goto skip;
+                }
+
         local($tmp)=<<"EOF";
 .text
 .globl  $func
@@ -365,6 +381,7 @@ EOF
         else    { $tmp=push(@out,".type\t$func,\@function\n"); }
         push(@out,".align\t$align\n");
         push(@out,"$func:\n");
+skip:
         $tmp=<<"EOF";
         pushl   %ebp
         pushl   %ebx
@@ -383,6 +400,47 @@ sub main'function_begin_B
         &main'external_label($func);
         $func=$under.$func;
 
+        if ($main'openbsd)
+                { push(@out, "\nENTRY($func)\n"); goto skip; }
+
+        local($tmp)=<<"EOF";
+.text
+.globl  $func
+EOF
+        push(@out,$tmp);
+        if ($main'cpp)
+                { push(@out,"TYPE($func,\@function)\n"); }
+        elsif ($main'coff)
+                { $tmp=push(@out,".def\t$func;\t.scl\t2;\t.type\t32;\t.endef\n"); }
+        elsif ($main'aout and !$main'pic)
+                { }
+        else    { push(@out,".type      $func,\@function\n"); }
+        push(@out,".align\t$align\n");
+        push(@out,"$func:\n");
+skip:
+        $stack=4;
+        }
+
+# Like function_begin_B but with static linkage
+sub main'function_begin_C
+        {
+        local($func,$extra)=@_;
+
+        &main'external_label($func);
+        $func=$under.$func;
+
+        if ($main'openbsd)
+                {
+                        local($tmp)=<<"EOF";
+.text
+_ALIGN_TEXT
+.type $func,\@function
+$func:
+EOF
+                        push(@out, $tmp);
+                        goto skip;
+                }
+
         local($tmp)=<<"EOF";
 .text
 .globl  $func
@@ -397,6 +455,7 @@ EOF
         else    { push(@out,".type      $func,\@function\n"); }
         push(@out,".align\t$align\n");
         push(@out,"$func:\n");
+skip:
         $stack=4;
         }
 
@@ -457,6 +516,8 @@ sub main'function_end_B
         %label=();
         }
 
+sub main'function_end_C { function_end_B(@_); }
+
 sub main'wparam
         {
         local($num)=@_;
@@ -493,7 +554,7 @@ sub main'swtmp
 
 sub main'comment
         {
-        if (!defined($com_start) or $main'elf)
+        if (!defined($com_start) or (!$main'openbsd && $main'elf))
                 {       # Regarding $main'elf above...
                         # GNU and SVR4 as'es use different comment delimiters,
                 push(@out,"\n");        # so we just skip ELF comments...
@@ -534,7 +595,13 @@ sub main'set_label
         if ($_[1]!=0)
                 {
                 if ($_[1]>1)    { main'align($_[1]);            }
-                else            { push(@out,".align $align\n"); }
+                else
+                        {
+                        if ($main'openbsd)
+                                { push(@out,"_ALIGN_TEXT\n"); }
+                        else
+                                { push(@out,".align $align\n"); }
+                        }
                 }
         push(@out,"$label{$_[0]}:\n");
         }
@@ -578,6 +645,10 @@ sub main'align
                 $val.=",0x90";
         }
         push(@out,".align\t$val\n");
+        if ($main'openbsd)
+                { push(@out,"_ALIGN_TEXT\n"); }
+        else
+                { push(@out,".align $tval\n"); }
         }
 
 # debug output functions: puts, putx, printf
@@ -669,6 +740,16 @@ sub main'picmeup
 ___
                 push(@out,$tmp);
                 }
+        elsif ($main'openbsd)
+                {
+                push(@out, "#ifdef PIC\n");
+                push(@out, "\tPIC_PROLOGUE\n");
+                &main'mov($dst,"PIC_GOT($sym)");
+                push(@out, "\tPIC_EPILOGUE\n");
+                push(@out, "#else\n");
+                &main'lea($dst,&main'DWP($sym));
+                push(@out, "#endif\n");
+                }
         elsif ($main'pic && ($main'elf || $main'aout))
                 {
                 &main'call(&main'label("PIC_me_up"));
@@ -694,7 +775,9 @@ sub main'initseg
                 {
                 $tmp=<<___;
 .section        .init
-        call    $under$f
+                PIC_PROLOGUE
+                call    PIC_PLT($under$f)
+                PIC_EPILOGUE
         jmp     .Linitalign
 .align  $align
 .Linitalign: