paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 04:37:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: fixed compile on windows

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

2
ide/initialsetupproc.pas
View File

@ -143,6 +143,7 @@ implementation
var
DefaultFPCVersion: string;
DefaultFPCTarget: string;
DefaultDrive: string;
{$ENDIF}
function CheckLazarusDirectoryQuality(ADirectory: string;
@ -1158,6 +1159,7 @@ initialization
{$IFDEF MSWindows}
DefaultFPCTarget:= GetCompiledTargetCPU + '-' + GetCompiledTargetOS;
DefaultFPCVersion:= {$I %FPCVERSION%};
DefaultDrive := ExtractFileDrive(ProgramDirectory);
{$ENDIF}
end.