paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced default_settings record to enable compiler unit users to turn off default switches

Browse Source 
git-svn-id: trunk@10995 -
This commit is contained in:
florian 2008-05-18 09:39:17 +00:00
parent df32d17e1a
commit e9543b90d0
2 changed files with 75 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/compiler.pas
View File

@ -114,7 +114,6 @@ uses
function Compile(const cmd:string):longint;
implementation
uses

136
compiler/globals.pas
View File

@ -48,26 +48,26 @@ interface
globtype,version,systems;
const
delphimodeswitches : tmodeswitches=
delphimodeswitches =
[m_delphi,m_all,m_class,m_objpas,m_result,m_string_pchar,
m_pointer_2_procedure,m_autoderef,m_tp_procvar,m_initfinal,m_default_ansistring,
m_out,m_default_para,m_duplicate_names,m_hintdirective,m_add_pointer,
m_property,m_default_inline,m_except];
fpcmodeswitches : tmodeswitches=
fpcmodeswitches =
[m_fpc,m_all,m_string_pchar,m_nested_comment,m_repeat_forward,
m_cvar_support,m_initfinal,m_add_pointer,m_hintdirective,
m_property,m_default_inline];
objfpcmodeswitches : tmodeswitches=
objfpcmodeswitches =
[m_objfpc,m_fpc,m_all,m_class,m_objpas,m_result,m_string_pchar,m_nested_comment,
m_repeat_forward,m_cvar_support,m_initfinal,m_add_pointer,m_out,m_default_para,m_hintdirective,
m_property,m_default_inline,m_except];
tpmodeswitches : tmodeswitches=
tpmodeswitches =
[m_tp7,m_all,m_tp_procvar,m_duplicate_names];
{$ifdef gpc_mode}
gpcmodeswitches : tmodeswitches=
gpcmodeswitches =
[m_gpc,m_all,m_tp_procvar];
{$endif}
macmodeswitches : tmodeswitches=
macmodeswitches =
[m_mac,m_all,m_result,m_cvar_support,m_mac_procvar];
{ maximum nesting of routines }
@ -307,6 +307,74 @@ interface
{ actual values are defined in ncgutil.pas }
nroftrashvalues = 4;
const
default_settings : TSettings = (
globalswitches : [cs_check_unit_name,cs_link_static];
moduleswitches : [cs_extsyntax,cs_implicit_exceptions];
localswitches : [cs_check_io,cs_typed_const_writable];
modeswitches : fpcmodeswitches;
optimizerswitches : [];
debugswitches : [];
setalloc : 0;
packenum : 4;
alignment : (
procalign : 0;
loopalign : 0;
jumpalign : 0;
constalignmin : 0;
constalignmax : 0;
varalignmin : 0;
varalignmax : 0;
localalignmin : 0;
localalignmax : 0;
recordalignmin : 0;
recordalignmax : 0;
maxCrecordalign : 0;
);
{$ifdef i386}
cputype : cpu_Pentium;
optimizecputype : cpu_Pentium3;
fputype : fpu_x87;
{$endif i386}
{$ifdef m68k}
cputype : cpu_MC68020;
fputype : fpu_soft;
{$endif m68k}
{$ifdef powerpc}
cputype : cpu_PPC604;
optimizecputype : cpu_ppc7400;
fputype : fpu_standard;
{$endif powerpc}
{$ifdef POWERPC64}
cputype : cpu_PPC970;
optimizecputype : cpu_ppc970;
fputype : fpu_standard;
{$endif POWERPC64}
{$ifdef sparc}
cputype : cpu_SPARC_V8;
fputype : fpu_hard;
{$endif sparc}
{$ifdef arm}
cputype : cpu_armv3;
fputype : fpu_fpa;
{$endif arm}
{$ifdef x86_64}
cputype : cpu_athlon64;
fputype : fpu_sse64;
{$endif x86_64}
{$ifdef avr}
cputype : cpuinfo.cpu_avr;
fputype : fpu_none;
{$endif avr}
asmmode : asmmode_standard;
interfacetype : it_interfacecom;
defproccall : pocall_default;
sourcecodepage : '8859-1';
packrecords : 0;
maxfpuregisters : 0;
minfpconstprec : s32real;
);
var
starttime : real;
@ -1239,61 +1307,7 @@ implementation
apptype:=app_cui;
{ Init values }
init_settings.modeswitches:=fpcmodeswitches;
init_settings.localswitches:=[cs_check_io,cs_typed_const_writable];
init_settings.moduleswitches:=[cs_extsyntax,cs_implicit_exceptions];
init_settings.globalswitches:=[cs_check_unit_name,cs_link_static];
init_settings.optimizerswitches:=[];
init_settings.debugswitches:=[];
init_settings.sourcecodepage:='8859-1';
init_settings.packenum:=4;
init_settings.setalloc:=0;
fillchar(init_settings.alignment,sizeof(talignmentinfo),0);
init_settings.minfpconstprec:=s32real;
{ might be overridden later }
init_settings.asmmode:=asmmode_standard;
init_settings.cputype:=cpu_none;
init_settings.optimizecputype:=cpu_none;
init_settings.fputype:=fpu_none;
init_settings.interfacetype:=it_interfacecom;
init_settings.defproccall:=pocall_default;
{ Target specific defaults, these can override previous default options }
{$ifdef i386}
init_settings.cputype:=cpu_Pentium;
init_settings.optimizecputype:=cpu_Pentium3;
init_settings.fputype:=fpu_x87;
{$endif i386}
{$ifdef m68k}
init_settings.cputype:=cpu_MC68020;
init_settings.fputype:=fpu_soft;
{$endif m68k}
{$ifdef powerpc}
init_settings.cputype:=cpu_PPC604;
init_settings.optimizecputype:=cpu_ppc7400;
init_settings.fputype:=fpu_standard;
{$endif powerpc}
{$ifdef POWERPC64}
init_settings.cputype:=cpu_PPC970;
init_settings.optimizecputype:=cpu_ppc970;
init_settings.fputype:=fpu_standard;
{$endif POWERPC64}
{$ifdef sparc}
init_settings.cputype:=cpu_SPARC_V8;
init_settings.fputype:=fpu_hard;
{$endif sparc}
{$ifdef arm}
init_settings.cputype:=cpu_armv3;
init_settings.fputype:=fpu_fpa;
{$endif arm}
{$ifdef x86_64}
init_settings.cputype:=cpu_athlon64;
init_settings.fputype:=fpu_sse64;
{$endif x86_64}
{$ifdef avr}
init_settings.cputype:=cpuinfo.cpu_avr;
init_settings.fputype:=fpu_none;
{$endif avr}
init_settings:=default_settings;
if init_settings.optimizecputype=cpu_none then
init_settings.optimizecputype:=init_settings.cputype;