paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 14:17:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: linkscannr: free directives when StoreDirectives false

Browse Source 
git-svn-id: trunk@41123 -
This commit is contained in:
mattias 2013-05-11 08:17:29 +00:00
parent 32757eca71
commit 48d579b7f0
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/linkscanner.pas
View File

@ -511,7 +511,7 @@ type
property Directives[Index: integer]: PLSDirective read GetDirectives;
property DirectivesSorted[Index: integer]: PLSDirective read GetDirectivesSorted; // sorted for Code and SrcPos
property DirectiveCount: integer read FDirectivesCount;
procedure ClearDirectives;
procedure ClearDirectives(FreeMemory: boolean);
property StoreDirectives: boolean read FStoreDirectives write SetStoreDirectives;
function FindDirective(aCode: Pointer; aSrcPos: integer;
out FirstSortedIndex, LastSortedIndex: integer): boolean;
@ -1053,7 +1053,7 @@ begin
FHiddenUsedUnits:='';
ClearMacros;
ClearLastError;
ClearDirectives;
ClearDirectives(false);
ClearMissingIncludeFiles;
for i:=0 to FIncludeStack.Count-1 do begin
PLink:=PSourceLink(FIncludeStack[i]);
@ -1089,8 +1089,7 @@ end;
destructor TLinkScanner.Destroy;
begin
Clear;
ReAllocMem(FDirectivesSorted,0);
ReAllocMem(FDirectives,0);
ClearDirectives(true);
ReAllocMem(FMacros,0);
FreeAndNil(FIncludeStack);
FreeAndNil(FSourceChangeSteps);
@ -1211,12 +1210,17 @@ begin
end;
end;
procedure TLinkScanner.ClearDirectives;
procedure TLinkScanner.ClearDirectives(FreeMemory: boolean);
begin
// keep memory allocated, it will probably be needed on next rescan
FDirectivesCount:=0;
if FDirectivesSorted<>nil then
FDirectivesSorted[0]:=nil;
if FreeMemory then begin
ReAllocMem(FDirectives,0);
ReAllocMem(FDirectivesSorted,0);
FDirectivesCapacity:=0;
end else begin
if FDirectivesSorted<>nil then
FDirectivesSorted[0]:=nil;
end;
end;
function TLinkScanner.FindDirective(aCode: Pointer; aSrcPos: integer; out
@ -4034,7 +4038,7 @@ begin
if FStoreDirectives=AValue then Exit;
FStoreDirectives:=AValue;
if not StoreDirectives then
ClearDirectives;
ClearDirectives(true);
end;
function TLinkScanner.GetIgnoreMissingIncludeFiles: boolean;