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

Codetools: remove extra typecast

Browse Source 
git-svn-id: trunk@41458 -
This commit is contained in:
juha 2013-05-30 11:13:29 +00:00
parent d9d42d35c7
commit f3985e0657
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/unitdictionary.pas
View File

@ -1209,7 +1209,7 @@ begin
//debugln(['TUnitDictionary.ParseUnit ',GetIdentifier(SrcItem^.Identifier)]);
if (SrcItem^.Node<>nil) and (SrcItem^.Identifier<>nil) then begin
while (CurItem<>nil)
and (CompareDottedIdentifiers(PChar(Pointer(CurItem.Name)),SrcItem^.Identifier)<0)
and (CompareDottedIdentifiers(PChar(CurItem.Name),SrcItem^.Identifier)<0)
do begin
// delete old item
//debugln(['TUnitDictionary.ParseUnit delete old item '+CurItem.Name+' in '+Result.Name]);
@ -1226,7 +1226,7 @@ begin
CurItem:=NextItem;
end;
if (CurItem=nil)
or (CompareDottedIdentifiers(PChar(Pointer(CurItem.Name)),SrcItem^.Identifier)>0)
or (CompareDottedIdentifiers(PChar(CurItem.Name),SrcItem^.Identifier)>0)
then begin
// new item
//debugln(['TUnitDictionary.ParseUnit inserting new item '+GetIdentifier(SrcItem^.Identifier)+' in '+Result.Name]);