paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 10:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

temp

Browse Source 
git-svn-id: trunk@30124 -
This commit is contained in:
juha 2011-04-02 11:13:25 +00:00
parent 36b3fea174
commit de5ed19263
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/usedunits.pas
View File

@ -510,6 +510,8 @@ constructor TUsedUnitsTool.Create(ACTLink: TCodeToolLink; AFilename: string);
begin begin
inherited Create; inherited Create;
fCTLink:=ACTLink; fCTLink:=ACTLink;
if pos('fraInspectorPath', AFilename) > 0 then
fFilename:='';
fFilename:=AFilename; fFilename:=AFilename;
fIsMainFile:=False; fIsMainFile:=False;
fIsConsoleApp:=False; fIsConsoleApp:=False;