diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp index 8027fa907b..97d78404b9 100644 --- a/rtl/inc/heaptrc.pp +++ b/rtl/inc/heaptrc.pp @@ -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 }