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

IDE: fixed crash on testing compiler options

Browse Source 
git-svn-id: trunk@20541 -
This commit is contained in:
mattias 2009-06-09 06:53:55 +00:00
parent b4c8f1486d
commit bc74b86f6c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/checkcompileropts.pas
View File

@ -963,9 +963,9 @@ begin
UnitName:=ExtractFileNameOnly(PPUFilename);
// search .pas/.pp/.p file
if SearchPascalUnitInPath(UnitName,'',SrcPath,';',ctsfcAllCase)<>'' then
PPUFiles.Delete(i);
PPUFiles.Delete(i)
// check for main source
if (Options.Owner is TLazProject) then begin
else if (Options.Owner is TLazProject) then begin
CurProject:=TLazProject(Options.Owner);
if (CurProject.MainFileID>=0) then begin
ProjFile:=CurProject.MainFile;