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

codetools: fixed TLinkScanner.SourceName

Browse Source 
git-svn-id: trunk@34776 -
This commit is contained in:
mattias 2012-01-18 13:50:24 +00:00
parent c0a0f6ce67
commit bdd8d247fb
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/finddeclarationtool.pas
View File

@ -6358,7 +6358,7 @@ begin
if (Tree.Root<>nil) and (not (fdfIgnoreUsedUnits in Params.Flags)) then begin
HiddenUnits:=Scanner.GetHiddenUsedUnits;
{$IFDEF ShowTriedContexts}
debugln(['TFindDeclarationTool.FindIdentifierInHiddenUsedUnits ',Scanner.MainFilename,' SourceName=',Scanner.SourceName,' HiddenUnits=',HiddenUnits]);
debugln(['TFindDeclarationTool.FindIdentifierInHiddenUsedUnits Identifier=',GetIdentifier(Params.Identifier),' ',Scanner.MainFilename,' SourceName=',Scanner.SourceName,' HiddenUnits=',HiddenUnits]);
{$ENDIF}
p:=length(HiddenUnits);
while p>=1 do begin

4
components/codetools/linkscanner.pas
View File

@ -3547,7 +3547,7 @@ begin
if TokenType=lsttWord then begin
if SourceName<>'' then
SourceName:=SourceName+'.';
SourceName:=SourceName+GetIdentifier(@Src[SrcPos]);
SourceName:=SourceName+GetIdentifier(@Src[TokenStart]);
ReadNextToken; // read ';' or '.' or hint modifier
end;
until TokenType<>lsttPoint;
@ -3610,7 +3610,7 @@ end;
function TLinkScanner.TokenIsWord(p: PChar): boolean;
begin
Result:=(TokenType=lsttWord) and (CompareIdentifiers(p,@Src[SrcPos])=0);
Result:=(TokenType=lsttWord) and (CompareIdentifiers(p,@Src[TokenStart])=0);
end;
function TLinkScanner.DoImplementationToken: boolean;