paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity
fd467e9496
fpc/compiler/opts386.pas

218 lines
6.7 KiB
ObjectPascal
Raw Blame History

{
$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;
'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.2 1998-04-09 14:28:09 jonas
+ basic k6 and 6x86 optimizing support (-O7 and -O8)
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)
}
Reference in New Issue View Git Blame Copy Permalink