mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 23:19:29 +02:00
* don't override IDE switches at compiler startup
git-svn-id: trunk@10997 -
This commit is contained in:
parent
7d1a8f3de2
commit
8ac31eeb3c
13
ide/fp.pas
13
ide/fp.pas
@ -76,7 +76,7 @@ uses
|
||||
FPTemplt,FPRedir,FPDesk,
|
||||
FPCodTmp,FPCodCmp,
|
||||
|
||||
systems;
|
||||
systems,globtype,globals;
|
||||
|
||||
|
||||
{$ifdef fpc}
|
||||
@ -326,6 +326,15 @@ begin
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
procedure InitCompilerSwitches;
|
||||
begin
|
||||
default_settings.globalswitches:=[cs_check_unit_name];
|
||||
default_settings.moduleswitches:=[cs_extsyntax,cs_implicit_exceptions];
|
||||
default_settings.localswitches:=[cs_typed_const_writable];
|
||||
end;
|
||||
|
||||
|
||||
{The square bullet needs an MS-DOS code page. On Unix it is for sure the code
|
||||
page is not available before video is initialized. (And only in certain
|
||||
circumstances after that, so, use a plain ascii character as bullet on Unix.)}
|
||||
@ -371,6 +380,8 @@ BEGIN
|
||||
if LocateFile(INIFileName)<>'' then
|
||||
writeln(bullet+' Using configuration files from: ',DirOf(LocateFile(INIFileName)));
|
||||
|
||||
InitCompilerSwitches;
|
||||
|
||||
{$ifdef VESA}
|
||||
InitVESAScreenModes;
|
||||
{$endif}
|
||||
|
@ -1407,12 +1407,12 @@ begin
|
||||
for i:=low(TSwitchMode) to high(TSwitchMode) do
|
||||
begin
|
||||
SwitchesMode:=i;
|
||||
{$ifdef i386}
|
||||
|
||||
{ default is Pentium }
|
||||
ProcessorOptimizationSwitches^.SetCurrSel(1);
|
||||
{ AT&T reader }
|
||||
AsmReaderSwitches^.SetCurrSel(1);
|
||||
{$endif i386}
|
||||
|
||||
{ FPC mode}
|
||||
CompilerModeSwitches^.SetCurrSel(0);
|
||||
(* Use platform defaults for memory switches. *)
|
||||
|
Loading…
Reference in New Issue
Block a user