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