mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-23 04:19:47 +02:00
IDE: fixed checking system.ppu file
git-svn-id: trunk@26885 -
This commit is contained in:
parent
2af1e1f4f1
commit
7a5bd656f3
@ -539,7 +539,7 @@ var
|
||||
if ConfigCache.Units=nil then exit;
|
||||
AFilename:=ConfigCache.Units['system'];
|
||||
if AFilename='' then exit;
|
||||
if CompareFileExt(AFilename,'.ppu')<>0 then exit;
|
||||
if CompareFileExt(AFilename,'.ppu',false)<>0 then exit;
|
||||
Result:=true;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user