paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +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;
if add_tail then
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
begin
unaligned(pl^):=dword(AllocateSig);
@ -924,7 +926,9 @@ begin
pp^.extra_info:=nil;
if add_tail then
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
begin
unaligned(pl^):=dword(AllocateSig);