summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/perlasm/x86asm.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/perlasm/x86asm.pl')
-rw-r--r--src/lib/libcrypto/perlasm/x86asm.pl27
1 files changed, 14 insertions, 13 deletions
diff --git a/src/lib/libcrypto/perlasm/x86asm.pl b/src/lib/libcrypto/perlasm/x86asm.pl
index ea54a1edc5..5979122158 100644
--- a/src/lib/libcrypto/perlasm/x86asm.pl
+++ b/src/lib/libcrypto/perlasm/x86asm.pl
@@ -18,31 +18,34 @@ sub main'asm_init
18 ($type,$fn,$i386)=@_; 18 ($type,$fn,$i386)=@_;
19 $filename=$fn; 19 $filename=$fn;
20 20
21 $elf=$cpp=$sol=$aout=$win32=$gaswin=0; 21 $elf=$cpp=$coff=$aout=$win32=$netware=$mwerks=0;
22 if ( ($type eq "elf")) 22 if ( ($type eq "elf"))
23 { $elf=1; require "x86unix.pl"; } 23 { $elf=1; require "x86unix.pl"; }
24 elsif ( ($type eq "a.out")) 24 elsif ( ($type eq "a.out"))
25 { $aout=1; require "x86unix.pl"; } 25 { $aout=1; require "x86unix.pl"; }
26 elsif ( ($type eq "gaswin")) 26 elsif ( ($type eq "coff" or $type eq "gaswin"))
27 { $gaswin=1; $aout=1; require "x86unix.pl"; } 27 { $coff=1; require "x86unix.pl"; }
28 elsif ( ($type eq "sol"))
29 { $sol=1; require "x86unix.pl"; }
30 elsif ( ($type eq "cpp")) 28 elsif ( ($type eq "cpp"))
31 { $cpp=1; require "x86unix.pl"; } 29 { $cpp=1; require "x86unix.pl"; }
32 elsif ( ($type eq "win32")) 30 elsif ( ($type eq "win32"))
33 { $win32=1; require "x86ms.pl"; } 31 { $win32=1; require "x86ms.pl"; }
34 elsif ( ($type eq "win32n")) 32 elsif ( ($type eq "win32n"))
35 { $win32=1; require "x86nasm.pl"; } 33 { $win32=1; require "x86nasm.pl"; }
34 elsif ( ($type eq "nw-nasm"))
35 { $netware=1; require "x86nasm.pl"; }
36 elsif ( ($type eq "nw-mwasm"))
37 { $netware=1; $mwerks=1; require "x86nasm.pl"; }
36 else 38 else
37 { 39 {
38 print STDERR <<"EOF"; 40 print STDERR <<"EOF";
39Pick one target type from 41Pick one target type from
40 elf - linux, FreeBSD etc 42 elf - Linux, FreeBSD, Solaris x86, etc.
41 a.out - old linux 43 a.out - OpenBSD, DJGPP, etc.
42 sol - x86 solaris 44 coff - GAS/COFF such as Win32 targets
43 cpp - format so x86unix.cpp can be used
44 win32 - Windows 95/Windows NT 45 win32 - Windows 95/Windows NT
45 win32n - Windows 95/Windows NT NASM format 46 win32n - Windows 95/Windows NT NASM format
47 nw-nasm - NetWare NASM format
48 nw-mwasm- NetWare Metrowerks Assembler
46EOF 49EOF
47 exit(1); 50 exit(1);
48 } 51 }
@@ -55,7 +58,7 @@ EOF
55&comment("Don't even think of reading this code"); 58&comment("Don't even think of reading this code");
56&comment("It was automatically generated by $filename"); 59&comment("It was automatically generated by $filename");
57&comment("Which is a perl program used to generate the x86 assember for"); 60&comment("Which is a perl program used to generate the x86 assember for");
58&comment("any of elf, a.out, BSDI, Win32, gaswin (for GNU as on Win32) or Solaris"); 61&comment("any of ELF, a.out, COFF, Win32, ...");
59&comment("eric <eay\@cryptsoft.com>"); 62&comment("eric <eay\@cryptsoft.com>");
60&comment(""); 63&comment("");
61 64
@@ -90,7 +93,7 @@ $tmp
90#ifdef OUT 93#ifdef OUT
91#define OK 1 94#define OK 1
92#define ALIGN 4 95#define ALIGN 4
93#if defined(__CYGWIN__) || defined(__DJGPP__) || defined(__MINGW32__) 96#if defined(__CYGWIN__) || defined(__DJGPP__) || (__MINGW32__)
94#undef SIZE 97#undef SIZE
95#undef TYPE 98#undef TYPE
96#define SIZE(a,b) 99#define SIZE(a,b)
@@ -124,6 +127,4 @@ BSDI - a.out with a very primative version of as.
124EOF 127EOF
125 } 128 }
126 129
127sub main'align() {} # swallow align statements in 0.9.7 context
128
1291; 1301;