development/compilers/freepascal/compiler/opts68k.pas

   1 {
   2     $Id$
   3     Copyright (c) 1998-2000 by Florian Klaempfl, Pierre Muller
   4
   5     interprets the commandline options which are m68k specific
   6
   7     This program is free software; you can redistribute it and/or modify
   8     it under the terms of the GNU General Public License as published by
   9     the Free Software Foundation; either version 2 of the License, or
  10     (at your option) any later version.
  11
  12     This program is distributed in the hope that it will be useful,
  13     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15     GNU General Public License for more details.
  16
  17     You should have received a copy of the GNU General Public License
  18     along with this program; if not, write to the Free Software
  19     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20     }
  21
  22 unit opts68k;
  23 interface
  24
  25 uses
  26   options;
  27
  28 type
  29   poption68k=^toption68k;
  30   toption68k=object(toption)
  31     procedure interpret_proc_specific_options(const opt:string);virtual;
  32   end;
  33
  34 implementation
  35
  36 uses
  37   globtype,systems,globals;
  38
  39 procedure toption68k.interpret_proc_specific_options(const opt:string);
  40 var
  41   j : longint;
  42   More : string;
  43 begin
  44   More:=Upper(copy(opt,3,length(opt)-2));
  45   case opt[2] of
  46    'O' : begin
  47            for j:=3 to length(opt) do
  48             case opt[j] of
  49              '-' : initglobalswitches:=initglobalswitches-[cs_optimize,cs_regalloc,cs_littlesize];
  50              'a' : initglobalswitches:=initglobalswitches+[cs_optimize];
  51              'g' : initglobalswitches:=initglobalswitches+[cs_littlesize];
  52              'G' : initglobalswitches:=initglobalswitches-[cs_littlesize];
  53              'x' : initglobalswitches:=initglobalswitches+[cs_optimize,cs_regalloc];
  54              '2' : initoptprocessor:=MC68020;
  55              else
  56               IllegalPara(opt);
  57              end;
  58          end;
  59    'R' : begin
  60            if More='MOT' then
  61             initasmmode:=asmmode_m68k_mot
  62            else
  63             IllegalPara(opt);
  64          end;
  65
  66   else
  67     IllegalPara(opt);
  68   end;
  69 end;
  70
  71 end.
  72 {
  73   $Log$
  74   Revision 1.1  2002/02/19 08:22:38  sasu
  75   Initial revision
  76
  77   Revision 1.1  2000/07/13 06:29:52  michael
  78   + Initial import
  79
  80   Revision 1.9  2000/02/09 13:22:55  peter
  81     * log truncated
  82
  83   Revision 1.8  2000/01/07 01:14:28  peter
  84     * updated copyright to 2000
  85
  86 }
  87