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

ide: fied compile on windows

Browse Source
This commit is contained in:
mattias 2023-06-12 07:09:04 +02:00
parent 4323a6e9f5
commit daf7767a51
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/initialsetupproc.pas
View File

@ -139,6 +139,12 @@ function GetValueFromIDEConfig(OptionFilename, Path: string): string;
implementation implementation
{$IFDEF MSWindows}
var
DefaultFPCVersion: string;
DefaultFPCTarget: string;
{$ENDIF}
function CheckLazarusDirectoryQuality(ADirectory: string; function CheckLazarusDirectoryQuality(ADirectory: string;
out Note: string): TSDFilenameQuality; out Note: string): TSDFilenameQuality;
@ -1148,5 +1154,11 @@ begin
Result:=Nil; Result:=Nil;
end; end;
initialization
{$IFDEF MSWindows}
DefaultFPCTarget:= GetCompiledTargetCPU + '-' + GetCompiledTargetOS;
DefaultFPCVersion:= {$I %FPCVERSION%};
{$ENDIF}
end. end.