paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 05:29:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix arm specific failure in tw12048

Browse Source 
git-svn-id: trunk@42657 -
This commit is contained in:
pierre 2019-08-12 12:17:00 +00:00
parent 5947143d8f
commit 8015bfb5a0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/heaptrc.pp
View File

@ -562,7 +562,9 @@ begin
pp^.extra_info:=nil; pp^.extra_info:=nil;
if add_tail then if add_tail then
begin begin
pl:=pointer(pp)+allocsize-pp^.extra_info_size-tail_size; { Calculate position from start because of arm
specific alignment }
pl:=pointer(pp)+sizeof(theap_mem_info)+pp^.size;
for i:=1 to tail_size div sizeof(dword) do for i:=1 to tail_size div sizeof(dword) do
begin begin
unaligned(pl^):=dword(AllocateSig); unaligned(pl^):=dword(AllocateSig);
@ -924,7 +926,9 @@ begin
pp^.extra_info:=nil; pp^.extra_info:=nil;
if add_tail then if add_tail then
begin begin
pl:=pointer(pp)+allocsize-pp^.extra_info_size-tail_size; { Calculate position from start because of arm
specific alignment }
pl:=pointer(pp)+sizeof(theap_mem_info)+pp^.size;
for i:=1 to tail_size div sizeof(dword) do for i:=1 to tail_size div sizeof(dword) do
begin begin
unaligned(pl^):=dword(AllocateSig); unaligned(pl^):=dword(AllocateSig);