paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 00:30:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix to avoid access of memory outside of array size if overlap is true

Browse Source 
git-svn-id: trunk@38674 -
This commit is contained in:
pierre 2018-04-03 21:02:49 +00:00
parent 33a77a0bc7
commit a69942852f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/powerpc/powerpc.inc
View File

@ -241,7 +241,10 @@ asm
subfe r10,r10,r10
{ count < 63 ? (32 + max. alignment (31) }
cmpwi cr7,r5,63
{ change to 64, because for overlap, we do not re-increment r5,
which could then lead to a counter being zero at start and thus
running forever }
cmpwi cr7,r5,64
{ if count <= 0, stop }
ble cr0,.LMoveDone
@ -288,7 +291,9 @@ asm
{$endif non ppc603}
{ we are going to copy one byte again (the one at the newly }
{ aligned address), so increase count byte 1 }
addi r5,r5,1
{ This is only true if there is no overlap, thus }
{ use r5:=r5-r6; which does what is needed. }
sub r5,r5,r6
{ count div 4 for number of dwords to copy }
srwi r0,r5,2
{ if 11 <= count < 63, copy using dwords }