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

* avoid crashes with negative len counts on fills/moves

Browse Source
This commit is contained in:
carl 2002-10-20 11:50:57 +00:00
parent ec8618ae10
commit dec8b274f3
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/i386/i386.inc
View File

@ -29,6 +29,9 @@ asm
movl source,%esi
movl %edi,%eax
movl count,%ebx
{ check for zero or negative count }
cmpl $0,%ebx
jle .LMoveEnd
{ Check for back or forward }
sub %esi,%eax
jz .LMoveEnd { Do nothing when source=dest }
@ -99,6 +102,9 @@ asm
movl x,%edi
movb value,%al
movl count,%ecx
{ check for zero or negative count }
cmpl $0,%ecx
jle .LFillEnd
cmpl $7,%ecx
jl .LFill1
movb %al,%ah
@ -121,6 +127,7 @@ asm
.LFill1:
rep
stosb
.LFillEnd:
end;
@ -129,6 +136,9 @@ procedure fillword(var x;count : longint;value : word);assembler;
asm
movl x,%edi
movl count,%ecx
{ check for zero or negative count }
cmpl $0,%ecx
jle .LFillWordEnd
movzwl value,%eax
movl %eax,%edx
shll $16,%eax
@ -142,6 +152,7 @@ asm
andl $1,%ecx
rep
stosw
.LFillWordEnd:
end ['EAX','ECX','EDX','EDI'];
@ -150,10 +161,14 @@ procedure filldword(var x;count : longint;value : dword);assembler;
asm
movl x,%edi
movl count,%ecx
{ check for zero or negative count }
cmpl $0,%ecx
jle .LFillDWordEnd
movl value,%eax
cld
rep
stosl
.LFillDWordEnd:
end ['EAX','ECX','EDX','EDI'];
@ -1195,7 +1210,10 @@ end;
{
$Log$
Revision 1.34 2002-10-15 19:24:47 carl
Revision 1.35 2002-10-20 11:50:57 carl
* avoid crashes with negative len counts on fills/moves
Revision 1.34 2002/10/15 19:24:47 carl
* Replace 220 -> 219
Revision 1.33 2002/10/14 19:39:16 peter