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

* fixed array of char writing which didn't write the last char

Browse Source
This commit is contained in:
peter 1999-09-07 07:44:58 +00:00
parent 00679a32ce
commit 1006d29317
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

@ -462,8 +462,8 @@ Begin
end; end;
p:=pchar(@s); p:=pchar(@s);
ArrayLen:=StrLen(p); ArrayLen:=StrLen(p);
if ArrayLen>high(s) then if ArrayLen>sizeof(s) then
ArrayLen:=high(s); ArrayLen:=sizeof(s);
If Len>ArrayLen Then If Len>ArrayLen Then
WriteBlanks(f,Len-ArrayLen); WriteBlanks(f,Len-ArrayLen);
WriteBuffer(f,p^,ArrayLen); WriteBuffer(f,p^,ArrayLen);
@ -945,7 +945,10 @@ end;
{ {
$Log$ $Log$
Revision 1.53 1999-08-19 11:16:14 peter Revision 1.54 1999-09-07 07:44:58 peter
* fixed array of char writing which didn't write the last char
Revision 1.53 1999/08/19 11:16:14 peter
* settextbuf size is now longint * settextbuf size is now longint
Revision 1.52 1999/08/03 21:58:45 peter Revision 1.52 1999/08/03 21:58:45 peter