paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Removed unused local variable.

Browse Source 
git-svn-id: trunk@9553 -
This commit is contained in:
yury 2007-12-27 23:49:35 +00:00
parent 5f8bd39408
commit eadfbb5027
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/heap.inc
View File

@ -203,7 +203,6 @@ const
{$endif}
var
main_orig_freelists : pfreelists;
main_relo_freelists : pfreelists;
orphaned_freelists : tfreelists;
heap_lock : trtlcriticalsection;
@ -1419,8 +1418,6 @@ begin
loc_freelists := @freelists;
fillchar(loc_freelists^,sizeof(tfreelists),0);
fillchar(orphaned_freelists,sizeof(orphaned_freelists),0);
{ main freelist will be copied in memory }
main_orig_freelists := loc_freelists;
end;
procedure RelocateHeap;