paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 22:12:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clena up

Browse Source 
git-svn-id: trunk@30585 -
This commit is contained in:
mattias 2011-05-06 14:29:55 +00:00
parent 005d8e828c
commit a4e552ff9d
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/extractproctool.pas
View File

@ -1163,7 +1163,7 @@ var
var var
p: Pointer; p: Pointer;
begin begin
p:=Pointer(CleanPos); p:=Pointer(PtrUInt(CleanPos));
if WithIdentifiers=nil then WithIdentifiers:=TAVLTree.Create; if WithIdentifiers=nil then WithIdentifiers:=TAVLTree.Create;
if WithIdentifiers.Find(p)<>nil then exit; if WithIdentifiers.Find(p)<>nil then exit;
debugln(['AddIdentifier ',GetIdentifier(@Src[CleanPos])]); debugln(['AddIdentifier ',GetIdentifier(@Src[CleanPos])]);
@ -1363,7 +1363,7 @@ var
AVLNode:=WithIdentifiers.FindLowest; AVLNode:=WithIdentifiers.FindLowest;
while AVLNode<>nil do begin while AVLNode<>nil do begin
CleanPos:=integer(AVLNode.Data); CleanPos:=integer(PtrUInt(AVLNode.Data));
//debugln(['Replace Prefix identifier: ',GetIdentifier(@Src[CleanPos])]); //debugln(['Replace Prefix identifier: ',GetIdentifier(@Src[CleanPos])]);
if not SourceChangeCache.Replace(gtNone,gtNone,CleanPos,CleanPos,WithVar) if not SourceChangeCache.Replace(gtNone,gtNone,CleanPos,CleanPos,WithVar)
then then