{ $Id$ Copyright (c) 1993-98 by Florian Klaempfl, Pierre Muller interprets the commandline options which are i386 specific This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. **************************************************************************** } unit opts386; interface uses options; type poption386=^toption386; toption386=object(toption) procedure interpret_proc_specific_options(const opt:string);virtual; end; implementation uses globals; procedure toption386.interpret_proc_specific_options(const opt:string); var j : longint; begin case opt[2] of 'A' : begin if copy(opt,3,length(opt)-2)='o' then begin output_format:=of_o; assem_need_external_list:=false; end else if copy(opt,3,length(opt)-2)='masm' then begin output_format:=of_masm; assem_need_external_list:=true; end else if copy(opt,3,length(opt)-2)='att' then begin output_format:=of_att; assem_need_external_list:=false; end else if copy(opt,3,length(opt)-2)='win32' then begin output_format:=of_win32; assem_need_external_list:=false; end else if copy(opt,3,length(opt)-2)='obj' then begin output_format:=of_obj; assem_need_external_list:=true; end else if copy(opt,3,length(opt)-2)='nasm' then begin output_format:=of_nasm; assem_need_external_list:=true; end else IllegalPara(opt); end; 'O' : begin for j:=3 to length(opt) do case opt[j] of '-' : initswitches:=initswitches-[cs_optimize,cs_maxoptimieren,cs_littlesize]; 'a' : initswitches:=initswitches+[cs_optimize]; 'g' : initswitches:=initswitches+[cs_littlesize]; 'G' : initswitches:=initswitches-[cs_littlesize]; 'x' : initswitches:=initswitches+[cs_optimize,cs_maxoptimieren]; 'z' : initswitches:=initswitches+[cs_optimize,cs_uncertainopts]; '2' : opt_processors:=pentium2; '3' : opt_processors:=globals.i386; '4' : opt_processors:=i486; '5' : opt_processors:=pentium; '6' : opt_processors:=pentiumpro; else IllegalPara(opt); end; end; 'R' : begin if copy(opt,3,length(opt)-2)='att' then aktasmmode:=I386_ATT else if copy(opt,3,length(opt)-2)='intel' then aktasmmode:=I386_INTEL else if copy(opt,3,length(opt)-2)='direct' then aktasmmode:=I386_DIRECT else IllegalPara(opt); end; else IllegalPara(opt); end; end; end. { $Log$ Revision 1.1 1998-03-25 11:18:14 root Initial revision Revision 1.17 1998/03/10 01:17:21 peter * all files have the same header * messages are fully implemented, EXTDEBUG uses Comment() + AG... files for the Assembler generation Revision 1.16 1998/03/06 01:09:00 peter * removed the conflicts that had occured Revision 1.15 1998/03/06 00:52:30 peter * replaced all old messages from errore.msg, only ExtDebug and some Comment() calls are left * fixed options.pas Revision 1.14 1998/03/05 22:41:52 florian + missing constructor to options object added Revision 1.13 1998/03/05 02:44:14 peter * options cleanup and use of .msg file Revision 1.12 1998/03/04 17:33:47 michael + Changed ifdef FPK to ifdef FPC Revision 1.11 1998/03/02 21:21:39 jonas + added support for uncertain optimizations Revision 1.10 1998/03/02 01:48:47 peter * renamed target_DOS to target_GO32V1 + new verbose system, merged old errors and verbose units into one new verbose.pas, so errors.pas is obsolete Revision 1.9 1998/02/22 23:03:20 peter * renamed msource->mainsource and name->unitname * optimized filename handling, filename is not seperate anymore with path+name+ext, this saves stackspace and a lot of fsplit()'s * recompiling of some units in libraries fixed * shared libraries are working again + $LINKLIB to support automatic linking to libraries + libraries are saved/read from the ppufile, also allows more libraries per ppufile Revision 1.8 1998/02/13 10:35:12 daniel * Made Motorola version compilable. * Fixed optimizer Revision 1.7 1998/02/12 11:50:15 daniel Yes! Finally! After three retries, my patch! Changes: Complete rewrite of psub.pas. Added support for DLL's. Compiler requires less memory. Platform units for each platform. Revision 1.6 1998/02/08 23:56:55 peter + -O- to turn off optimizes Revision 1.5 1998/01/23 17:12:14 pierre * added some improvements for as and ld : - doserror and dosexitcode treated separately - PATH searched if doserror=2 + start of long and ansi string (far from complete) in conditionnal UseLongString and UseAnsiString * options.pas cleaned (some variables shifted to globals)gl Revision 1.4 1998/01/07 00:16:54 michael Restored released version (plus fixes) as current Revision 1.2 1997/12/15 09:11:29 florian + again opts386.pas commited (there was an error) Revision 1.1.1.1 1997/11/27 08:32:57 michael FPC Compiler CVS start Pre-CVS log: CEC Carl-Eric Codere FK Florian Klaempfl PM Pierre Muller + feature added - removed * bug fixed or changed History: 8th october 1997: * started from options.pas (FK) 23th november 1997: + added -R option for different assembler reading style (PM) }