|
@@ -76,7 +76,7 @@ uses
|
|
FPTemplt,FPRedir,FPDesk,
|
|
FPTemplt,FPRedir,FPDesk,
|
|
FPCodTmp,FPCodCmp,
|
|
FPCodTmp,FPCodCmp,
|
|
|
|
|
|
- systems;
|
|
|
|
|
|
+ systems,globtype,globals;
|
|
|
|
|
|
|
|
|
|
{$ifdef fpc}
|
|
{$ifdef fpc}
|
|
@@ -326,6 +326,15 @@ begin
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
end;
|
|
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
|
|
{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
|
|
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.)}
|
|
circumstances after that, so, use a plain ascii character as bullet on Unix.)}
|
|
@@ -371,6 +380,8 @@ BEGIN
|
|
if LocateFile(INIFileName)<>'' then
|
|
if LocateFile(INIFileName)<>'' then
|
|
writeln(bullet+' Using configuration files from: ',DirOf(LocateFile(INIFileName)));
|
|
writeln(bullet+' Using configuration files from: ',DirOf(LocateFile(INIFileName)));
|
|
|
|
|
|
|
|
+ InitCompilerSwitches;
|
|
|
|
+
|
|
{$ifdef VESA}
|
|
{$ifdef VESA}
|
|
InitVESAScreenModes;
|
|
InitVESAScreenModes;
|
|
{$endif}
|
|
{$endif}
|