codetools: fixed freeing scanner

git-svn-id: trunk@42196 -
This commit is contained in:
mattias 2013-07-24 11:13:05 +00:00
parent 68351f16ff
commit b52f1519a6

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;