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

FpDbg: less memory rpe-allocation in scope-list

Browse Source 
git-svn-id: trunk@42878 -
This commit is contained in:
martin 2013-09-19 17:38:53 +00:00
parent fa3b7a0f0f
commit 0e9ae75b7a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/fpdbgdwarf.pas
View File

@ -474,6 +474,9 @@ implementation
var
FPDBG_DWARF_WARNINGS, FPDBG_DWARF_VERBOSE: PLazLoggerLogGroup;
const
SCOPE_ALLOC_BLOCK_SIZE = 4096; // Increase scopelist in steps of
function ULEB128toOrdinal(var p: PByte): QWord;
var
n: Byte;
@ -929,8 +932,9 @@ function TDwarfScopeInfo.CreateScopeForEntry(AEntry: Pointer; ALink: Integer): I
begin
inc(FScopeList^.HighestKnown);
Result := FScopeList^.HighestKnown;
if (Result >= Length(FScopeList^.List)) and (Length(FScopeList^.List) < SCOPE_ALLOC_BLOCK_SIZE) then DebugLn(['xxxxxxx ', Length(FScopeList^.List)]);
if Result >= Length(FScopeList^.List) then
SetLength(FScopeList^.List, Result + 4096);
SetLength(FScopeList^.List, Result + SCOPE_ALLOC_BLOCK_SIZE);
FScopeList^.List[Result].Entry := AEntry;
FScopeList^.List[Result].Link := ALink;
end;
@ -1711,9 +1715,9 @@ begin
FLineNumberMap := TStringList.Create;
FLineNumberMap.Sorted := True;
FLineNumberMap.Duplicates := dupError;
SetLength(FScopeList.List, 4096);
if FLength div 2 + 1 < SCOPE_ALLOC_BLOCK_SIZE then DebugLn(['+++++++', FLength]);
SetLength(FScopeList.List, Min(SCOPE_ALLOC_BLOCK_SIZE, FLength div 2 + 1));
FScopeList.List[0].Link := -1;
FScopeList.List[0].Entry := FInfoData;
FScopeList.HighestKnown := 0;