4 # &asm_init("cpp","des-586.pl");
12 &asm_finish_cpp() if $cpp;
13 print &asm_get_output();
21 $elf=$cpp=$sol=$aout=$win32=$gaswin=0;
22 if ( ($type eq "elf"))
23 { $elf=1; require "x86unix.pl"; }
24 elsif ( ($type eq "a.out"))
25 { $aout=1; require "x86unix.pl"; }
26 elsif ( ($type eq "gaswin"))
27 { $gaswin=1; $aout=1; require "x86unix.pl"; }
28 elsif ( ($type eq "sol"))
29 { $sol=1; require "x86unix.pl"; }
30 elsif ( ($type eq "cpp"))
31 { $cpp=1; require "x86unix.pl"; }
32 elsif ( ($type eq "win32"))
33 { $win32=1; require "x86ms.pl"; }
34 elsif ( ($type eq "win32n"))
35 { $win32=1; require "x86nasm.pl"; }
39 Pick one target type from
40 elf - linux, FreeBSD etc
43 cpp - format so x86unix.cpp can be used
44 win32 - Windows 95/Windows NT
45 win32n - Windows 95/Windows NT NASM format
51 for (@ARGV) { $pic=1 if (/\-[fK]PIC/i); }
55 &comment("Don't even think of reading this code");
56 &comment("It was automatically generated by $filename");
57 &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");
59 &comment("eric <eay\@cryptsoft.com>");
62 $filename =~ s/\.pl$//;
71 foreach $i (&get_labels())
73 $tmp.="#define $i _$i\n";
76 /* Run the C pre-processor over this file with one of the following defined
77 * ELF - elf object files,
78 * OUT - a.out object files,
79 * BSDI - BSDI style a.out object files
80 * SOL - Solaris style elf
83 #define TYPE(a,b) .type a,b
84 #define SIZE(a,b) .size a,b
86 #if defined(OUT) || (defined(BSDI) && !defined(ELF))
93 #if defined(__CYGWIN__) || defined(__DJGPP__)
98 #endif /* __CYGWIN || __DJGPP */
101 #if defined(BSDI) && !defined(ELF)
110 #if defined(ELF) || defined(SOL)
116 You need to define one of
117 ELF - elf systems - linux-elf, NetBSD and DG-UX
118 OUT - a.out systems - linux-a.out and FreeBSD
119 SOL - solaris systems, which are elf with strange comment lines
120 BSDI - a.out with a very primative version of as.
123 /* Let the Assembler begin :-) */