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

codetools: FindDeclarationAndOverload: fixed starting search on proc name

Browse Source 
git-svn-id: trunk@13932 -
This commit is contained in:
mattias 2008-01-31 10:30:23 +00:00
parent 7456a7ccc2
commit cd21cbb318
3 changed files with 1899 additions and 1970 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/finddeclarationtool.pas
View File

@ -3364,7 +3364,7 @@ var
if (NewNode.Desc in AllIdentifierDefinitions) if (NewNode.Desc in AllIdentifierDefinitions)
and (PositionInDefinitionName(NewNode,CleanPos)) then and (PositionInDefinitionName(NewNode,CleanPos)) then
Result:=true Result:=true
else if (NewNode.Desc=ctnProcedure) else if (NewNode.Desc in [ctnProcedure,ctnProcedureHead])
and (PositionInProcName(NewNode,false,CleanPos)) then and (PositionInProcName(NewNode,false,CleanPos)) then
Result:=true Result:=true
else if (NewNode.Desc=ctnProperty) else if (NewNode.Desc=ctnProperty)

3858
components/turbopower_ipro/languages/ipconst.po
View File

File diff suppressed because it is too large Load Diff

9
ide/codehelp.pas
View File

@ -28,7 +28,7 @@ unit CodeHelp;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{off $IFDEF VerboseLazDoc} {off $DEFINE VerboseLazDoc}
interface interface
@ -1327,7 +1327,12 @@ begin
//DebugLn(['TCodeHelpManager.GetElementChain GetDeclarationChain...']); //DebugLn(['TCodeHelpManager.GetElementChain GetDeclarationChain...']);
// get the declaration chain // get the declaration chain
Result:=GetDeclarationChain(Code,X,Y,ListOfPCodeXYPosition,CacheWasUsed); Result:=GetDeclarationChain(Code,X,Y,ListOfPCodeXYPosition,CacheWasUsed);
if Result<>chprSuccess then exit; if Result<>chprSuccess then begin
{$IFDEF VerboseLazDoc}
DebugLn(['TCodeHelpManager.GetElementChain GetDeclarationChain failed ',Code.Filename,' x=',x,' y=',y]);
{$ENDIF}
exit;
end;
if (not CacheWasUsed) and (not Complete) then exit(chprParsing); if (not CacheWasUsed) and (not Complete) then exit(chprParsing);
{$IFDEF VerboseLazDoc} {$IFDEF VerboseLazDoc}