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

codetools: fixed ex PAnsiString functions

Browse Source 
git-svn-id: trunk@34240 -
This commit is contained in:
mattias 2011-12-17 11:08:22 +00:00
parent 6a5d2af643
commit b08de46fb5
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecache.pas
View File

@ -986,7 +986,7 @@ end;
function TCodeCache.FindIncludeLinkAVLNode(const IncludeFilename: string
): TAVLTreeNode;
begin
Result:=FIncludeLinks.FindKey(@IncludeFilename,
Result:=FIncludeLinks.FindKey(Pointer(IncludeFilename),
@CompareAnsiStringWithIncludedByLink);
end;

4
components/codetools/codeindex.pas
View File

@ -380,7 +380,7 @@ begin
Result:=nil;
if Filename='' then exit;
if FUnits=nil then exit;
Node:=FUnits.FindKey(@Filename,@CompareAnsiStringWithUnitFilename);
Node:=FUnits.FindKey(Pointer(Filename),@CompareAnsiStringWithUnitFilename);
if Node=nil then exit;
Result:=TCodeBrowserUnit(Node.Data);
end;
@ -393,7 +393,7 @@ begin
Result:=nil;
if FUnitLists=nil then exit;
if OwnerName='' then exit;
Node:=FUnitLists.FindKey(@OwnerName,@CompareAnsiStringWithUnitListOwner);
Node:=FUnitLists.FindKey(Pointer(OwnerName),@CompareAnsiStringWithUnitListOwner);
if Node=nil then exit;
Result:=TCodeBrowserUnitList(Node.Data);
end;

2
components/codetools/directorycacher.pas
View File

@ -1398,7 +1398,7 @@ var
Dir: String;
begin
Dir:=AppendPathDelim(TrimFilename(Directory));
Node:=FDirectories.FindKey(@Dir,@CompareAnsiStringAndDirectoryCache);
Node:=FDirectories.FindKey(Pointer(Dir),@CompareAnsiStringAndDirectoryCache);
if Node<>nil then begin
Result:=TCTDirectoryCache(Node.Data);
if DoReference then