paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 09:29:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDbg: less memory rpe-allocation in scope-list // remove debugln

Browse Source 
git-svn-id: trunk@42879 -
This commit is contained in:
martin 2013-09-19 17:40:18 +00:00
parent 0e9ae75b7a
commit 402f412693
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarf.pas
View File

@ -932,7 +932,6 @@ 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 + SCOPE_ALLOC_BLOCK_SIZE);
FScopeList^.List[Result].Entry := AEntry;
@ -1716,7 +1715,6 @@ begin
FLineNumberMap.Sorted := True;
FLineNumberMap.Duplicates := dupError;
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;