mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-05 01:19:17 +02:00
codetools: fixed freeing scanner
git-svn-id: trunk@42196 -
This commit is contained in:
parent
68351f16ff
commit
b52f1519a6
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user