freepascal.compiler/compiler/opts386.pas

{
    $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
  systems,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
           { nasm supports local labels but
             only inside one global label :
             this does not work for const strings and
             real references !! }
            if copy(opt,3,length(opt)-2)='obj' then
             begin
               output_format:=of_obj;
               assem_need_external_list:=true;
               { target_info.labelprefix:='?L'; }
             end
           else
            if copy(opt,3,length(opt)-2)='nasm' then
             begin
               output_format:=of_nasm;
               assem_need_external_list:=true;
               { target_info.labelprefix:='?L'; }
             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;
            '7' : opt_processors:=cx6x86;
            '8' : opt_processors:=amdk6
            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.4  1998-05-10 12:07:15  jonas
    + switches for 6x86 and k6 optimizations

  Revision 1.3  1998/04/29 10:33:55  pierre
    + added some code for ansistring (not complete nor working yet)
    * corrected operator overloading
    * corrected nasm output
    + started inline procedures
    + added starstarn : use ** for exponentiation (^ gave problems)
    + started UseTokenInfo cond to get accurate positions

  Revision 1.1.1.1  1998/03/25 11:18:14  root
  * Restored version

  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 <lib> 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)
}