paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 13:12:45 +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
p: Pointer;
begin
p:=Pointer(CleanPos);
p:=Pointer(PtrUInt(CleanPos));
if WithIdentifiers=nil then WithIdentifiers:=TAVLTree.Create;
if WithIdentifiers.Find(p)<>nil then exit;
debugln(['AddIdentifier ',GetIdentifier(@Src[CleanPos])]);
@ -1363,7 +1363,7 @@ var
AVLNode:=WithIdentifiers.FindLowest;
while AVLNode<>nil do begin
CleanPos:=integer(AVLNode.Data);
CleanPos:=integer(PtrUInt(AVLNode.Data));
//debugln(['Replace Prefix identifier: ',GetIdentifier(@Src[CleanPos])]);
if not SourceChangeCache.Replace(gtNone,gtNone,CleanPos,CleanPos,WithVar)
then