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

* correctly fixed potential buffer overrun in write_array

Browse Source
This commit is contained in:
Jonas Maebe 2001-07-16 13:53:21 +00:00
parent acb4dca7fb
commit 0ea2e80af9
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/text.inc
View File

@ -501,10 +501,10 @@ Begin
p:=pchar(@s); p:=pchar(@s);
{ can't use StrLen, since that one could try to read past the end } { can't use StrLen, since that one could try to read past the end }
{ of the heap (JM) } { of the heap (JM) }
ArrayLen:=IndexByte(p,sizeof(s),0); ArrayLen:=IndexByte(p,high(s)+1,0);
{ IndexByte returns -1 if not found (JM) } { IndexByte returns -1 if not found (JM) }
if ArrayLen = -1 then if ArrayLen = -1 then
ArrayLen := sizeof(s); ArrayLen := high(s)+1;
If Len>ArrayLen Then If Len>ArrayLen Then
WriteBlanks(f,Len-ArrayLen); WriteBlanks(f,Len-ArrayLen);
WriteBuffer(f,p^,ArrayLen); WriteBuffer(f,p^,ArrayLen);
@ -1099,7 +1099,10 @@ end;
{ {
$Log$ $Log$
Revision 1.9 2001-07-08 21:00:18 peter Revision 1.10 2001-07-16 13:53:21 jonas
* correctly fixed potential buffer overrun in write_array
Revision 1.9 2001/07/08 21:00:18 peter
* various widestring updates, it works now mostly without charset * various widestring updates, it works now mostly without charset
mapping supported mapping supported