paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 16:27:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed debugging unitlinks

Browse Source 
git-svn-id: trunk@5426 -
This commit is contained in:
mattias 2004-04-23 11:21:41 +00:00
parent b437ff2c8d
commit 1b1b4c54e6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/definetemplates.pas
View File

@ -49,6 +49,7 @@ unit DefineTemplates;
{ $Define VerboseDefineCache} { $Define VerboseDefineCache}
{ $Define VerboseFPCSrcScan} { $Define VerboseFPCSrcScan}
{ $Define ShowTriedFiles}
interface interface
@ -506,7 +507,7 @@ begin
Filename:=''; Filename:='';
if TheUnitName='' then exit; if TheUnitName='' then exit;
{$IFDEF ShowTriedFiles} {$IFDEF ShowTriedFiles}
writeln('TFindDeclarationTool.FindUnitSource.SearchUnitInUnitLinks length(UnitLinks)=',length(UnitLinks)); writeln('SearchUnitInUnitLinks length(UnitLinks)=',length(UnitLinks));
{$ENDIF} {$ENDIF}
if UnitLinkStart<1 then if UnitLinkStart<1 then
UnitLinkStart:=1; UnitLinkStart:=1;
@ -521,8 +522,8 @@ begin
UnitLinkLen:=UnitLinkEnd-UnitLinkStart; UnitLinkLen:=UnitLinkEnd-UnitLinkStart;
if UnitLinkLen>0 then begin if UnitLinkLen>0 then begin
{$IFDEF ShowTriedFiles} {$IFDEF ShowTriedFiles}
writeln(' unit "',copy(UnitLinks,UnitLinkStart,UnitLinkEnd-UnitLinkStart),'" ',CompareSubStrings(TheUnitName,UnitLinks,1, writeln(' unit "',copy(UnitLinks,UnitLinkStart,UnitLinkEnd-UnitLinkStart),'" ',
UnitLinkStart,UnitLinkLen,false)); AnsiStrLIComp(PChar(TheUnitName),@UnitLinks[UnitLinkStart],UnitLinkLen));
{$ENDIF} {$ENDIF}
if (UnitLinkLen=length(TheUnitName)) if (UnitLinkLen=length(TheUnitName))
and (AnsiStrLIComp(PChar(TheUnitName),@UnitLinks[UnitLinkStart], and (AnsiStrLIComp(PChar(TheUnitName),@UnitLinks[UnitLinkStart],