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

codetools: fixed freeing scanner

Browse Source 
git-svn-id: trunk@42196 -
This commit is contained in:
mattias 2013-07-24 11:13:05 +00:00
parent 68351f16ff
commit b52f1519a6
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/codecache.pas
View File

@ -856,17 +856,17 @@ end;
procedure TCodeCache.OnBufferSetScanner(Sender: TCodeBuffer);
var
Scanner: TLinkScanner;
s: TLinkScanner;
begin
if Scanner=nil then exit;
Scanner:=Sender.Scanner;
Scanner.OnGetSource:=@Self.OnScannerGetSource;
Scanner.OnGetFileName:=@Self.OnScannerGetFileName;
Scanner.OnLoadSource:=@Self.OnScannerLoadSource;
Scanner.OnCheckFileOnDisk:=@Self.OnScannerCheckFileOnDisk;
Scanner.OnIncludeCode:=@Self.OnScannerIncludeCode;
Scanner.OnGetSourceStatus:=@Self.OnScannerGetSourceStatus;
Scanner.OnDeleteSource:=@Self.OnScannerDeleteSource;
s:=Sender.Scanner;
if s=nil then exit;
s.OnGetSource:=@Self.OnScannerGetSource;
s.OnGetFileName:=@Self.OnScannerGetFileName;
s.OnLoadSource:=@Self.OnScannerLoadSource;
s.OnCheckFileOnDisk:=@Self.OnScannerCheckFileOnDisk;
s.OnIncludeCode:=@Self.OnScannerIncludeCode;
s.OnGetSourceStatus:=@Self.OnScannerGetSourceStatus;
s.OnDeleteSource:=@Self.OnScannerDeleteSource;
end;
procedure TCodeCache.OnBufferSetFileName(Sender: TCodeBuffer;