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

* another ARM data alignment issue was fixed.

Browse Source 
git-svn-id: trunk@1333 -
This commit is contained in:
yury 2005-10-08 13:48:03 +00:00
parent 66bb1e0a95
commit a6b84b93e1
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/heaptrc.pp
View File

@ -649,7 +649,11 @@ begin
old_display_extra_info_proc:=pp^.extra_info^.displayproc; old_display_extra_info_proc:=pp^.extra_info^.displayproc;
end; end;
{ Do the real ReAllocMem, but alloc also for the info block } { Do the real ReAllocMem, but alloc also for the info block }
{$ifdef cpuarm}
allocsize:=(size + 3) and not 3+sizeof(theap_mem_info)+pp^.extra_info_size;
{$else cpuarm}
allocsize:=size+sizeof(theap_mem_info)+pp^.extra_info_size; allocsize:=size+sizeof(theap_mem_info)+pp^.extra_info_size;
{$endif cpuarm}
if add_tail then if add_tail then
inc(allocsize,sizeof(ptrint)); inc(allocsize,sizeof(ptrint));
{ Try to resize the block, if not possible we need to do a { Try to resize the block, if not possible we need to do a