paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 12:09:21 +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); procedure TCodeCache.OnBufferSetScanner(Sender: TCodeBuffer);
var var
Scanner: TLinkScanner; s: TLinkScanner;
begin begin
if Scanner=nil then exit; s:=Sender.Scanner;
Scanner:=Sender.Scanner; if s=nil then exit;
Scanner.OnGetSource:=@Self.OnScannerGetSource; s.OnGetSource:=@Self.OnScannerGetSource;
Scanner.OnGetFileName:=@Self.OnScannerGetFileName; s.OnGetFileName:=@Self.OnScannerGetFileName;
Scanner.OnLoadSource:=@Self.OnScannerLoadSource; s.OnLoadSource:=@Self.OnScannerLoadSource;
Scanner.OnCheckFileOnDisk:=@Self.OnScannerCheckFileOnDisk; s.OnCheckFileOnDisk:=@Self.OnScannerCheckFileOnDisk;
Scanner.OnIncludeCode:=@Self.OnScannerIncludeCode; s.OnIncludeCode:=@Self.OnScannerIncludeCode;
Scanner.OnGetSourceStatus:=@Self.OnScannerGetSourceStatus; s.OnGetSourceStatus:=@Self.OnScannerGetSourceStatus;
Scanner.OnDeleteSource:=@Self.OnScannerDeleteSource; s.OnDeleteSource:=@Self.OnScannerDeleteSource;
end; end;
procedure TCodeCache.OnBufferSetFileName(Sender: TCodeBuffer; procedure TCodeCache.OnBufferSetFileName(Sender: TCodeBuffer;