paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* really fixed write_array this time :/ (merged)

Browse Source
This commit is contained in:
Jonas Maebe 2001-07-21 15:53:28 +00:00
parent 2d433814ef
commit 9ab14207f7
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/text.inc
View File

@ -501,7 +501,7 @@ Begin
p:=pchar(@s);
{ can't use StrLen, since that one could try to read past the end }
{ of the heap (JM) }
ArrayLen:=IndexByte(p,high(s)+1,0);
ArrayLen:=IndexByte(p^,high(s)+1,0);
{ IndexByte returns -1 if not found (JM) }
if ArrayLen = -1 then
ArrayLen := high(s)+1;
@ -1099,7 +1099,10 @@ end;
{
$Log$
Revision 1.10 2001-07-16 13:53:21 jonas
Revision 1.11 2001-07-21 15:53:28 jonas
* really fixed write_array this time :/ (merged)
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