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

* fixed add_tail functionality for cpus which require natural

Browse Source 
alignment

git-svn-id: trunk@7471 -
This commit is contained in:
Jonas Maebe 2007-05-25 12:02:08 +00:00
parent 4f95f742f4
commit 79e84ba129
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/heaptrc.pp
View File

@ -447,7 +447,11 @@ begin
if add_tail then
begin
pl:=pointer(pp)+allocsize-pp^.extra_info_size-sizeof(ptrint);
{$ifdef FPC_SUPPORTS_UNALIGNED}
unaligned(pl^):=$DEADBEEF;
{$else FPC_SUPPORTS_UNALIGNED}
pl^:=$DEADBEEF;
{$endif FPC_SUPPORTS_UNALIGNED}
end;
{ clear the memory }
fillchar(p^,size,#255);
@ -783,7 +787,11 @@ begin
if add_tail then
begin
pl:=pointer(pp)+allocsize-pp^.extra_info_size-sizeof(ptrint);
{$ifdef FPC_SUPPORTS_UNALIGNED}
unaligned(pl^):=$DEADBEEF;
{$else FPC_SUPPORTS_UNALIGNED}
pl^:=$DEADBEEF;
{$endif FPC_SUPPORTS_UNALIGNED}
end;
{ adjust like a freemem and then a getmem, so you get correct
results in the summary display }