* moved to m68k

2025-04-21 18:09:30 +02:00 · 2000-11-30 22:22:50 +00:00 · 2000-11-30 22:22:50 +00:00 · d1f882fd59
commit d1f882fd59
parent 83fb061681
1 changed files with 90 additions and 0 deletions
--- a/compiler/m68k/opts68k.pas
+++ b/compiler/m68k/opts68k.pas
@ -0,0 +1,90 @@
+{
+    $Id$
+    Copyright (c) 1998-2000 by Florian Klaempfl, Pierre Muller
+
+    interprets the commandline options which are m68k 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 opts68k;
+
+{$i defines.inc}
+
+interface
+
+uses
+  options;
+
+type
+  poption68k=^toption68k;
+  toption68k=object(toption)
+    procedure interpret_proc_specific_options(const opt:string);virtual;
+  end;
+
+implementation
+
+uses
+  cutils,globtype,systems,globals;
+
+procedure toption68k.interpret_proc_specific_options(const opt:string);
+var
+  j : longint;
+  More : string;
+begin
+  More:=Upper(copy(opt,3,length(opt)-2));
+  case opt[2] of
+   'O' : begin
+           for j:=3 to length(opt) do
+            case opt[j] of
+             '-' : initglobalswitches:=initglobalswitches-[cs_optimize,cs_regalloc,cs_littlesize];
+             'a' : initglobalswitches:=initglobalswitches+[cs_optimize];
+             'g' : initglobalswitches:=initglobalswitches+[cs_littlesize];
+             'G' : initglobalswitches:=initglobalswitches-[cs_littlesize];
+             'x' : initglobalswitches:=initglobalswitches+[cs_optimize,cs_regalloc];
+             '2' : initoptprocessor:=MC68020;
+             else
+              IllegalPara(opt);
+             end;
+         end;
+   'R' : begin
+           if More='MOT' then
+            initasmmode:=asmmode_m68k_mot
+           else
+            IllegalPara(opt);
+         end;
+
+  else
+    IllegalPara(opt);
+  end;
+end;
+
+end.
+{
+  $Log$
+  Revision 1.1  2000-11-30 22:22:50  florian
+    * moved to m68k
+
+  Revision 1.4  2000/09/24 15:06:20  peter
+    * use defines.inc
+
+  Revision 1.3  2000/08/27 16:11:51  peter
+    * moved some util functions from globals,cobjects to cutils
+    * splitted files into finput,fmodule
+
+  Revision 1.2  2000/07/13 11:32:44  michael
+  + removed logs
+
+}