Browse Source

* another ARM data alignment issue was fixed.

git-svn-id: trunk@1333 -
yury 20 years ago
parent
commit
a6b84b93e1
1 changed files with 4 additions and 0 deletions
  1. 4 0
      rtl/inc/heaptrc.pp

+ 4 - 0
rtl/inc/heaptrc.pp

@@ -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