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

codetools: fixed typo

Browse Source 
git-svn-id: trunk@14870 -
This commit is contained in:
mattias 2008-04-17 14:42:13 +00:00
parent 75c21c41bb
commit 2a13760f82
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontool.pas
View File

@ -930,7 +930,7 @@ var
begin
if GetIdentLen(AnUnitName)=0 then exit;
if CompareIdentifiers(AnUnitName,'System')=0 then exit;
if (CompareIdentifiers(AnUnitName,'ObjFPC')=0)
if (CompareIdentifiers(AnUnitName,'ObjPas')=0)
and (Scanner.CompilerMode in [cmDELPHI,cmOBJFPC])
and (Scanner.PascalCompiler=pcFPC) then
exit;