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

* read_array fix merged

Browse Source
This commit is contained in:
peter 2001-08-19 11:23:10 +00:00
parent fd8e5fa78c
commit 0b4ee7574f
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

@ -876,7 +876,7 @@ End;
Procedure Read_Array(var f : TextRec;var s : array of char);[Public,Alias:'FPC_READ_TEXT_PCHAR_AS_ARRAY']; Procedure Read_Array(var f : TextRec;var s : array of char);[Public,Alias:'FPC_READ_TEXT_PCHAR_AS_ARRAY'];
Begin Begin
pchar(pchar(@s)+ReadPCharLen(f,pchar(@s),high(s)))^:=#0; pchar(pchar(@s)+ReadPCharLen(f,pchar(@s),high(s)+1))^:=#0;
End; End;
@ -1099,7 +1099,10 @@ end;
{ {
$Log$ $Log$
Revision 1.11 2001-07-21 15:53:28 jonas Revision 1.12 2001-08-19 11:23:10 peter
* read_array fix merged
Revision 1.11 2001/07/21 15:53:28 jonas
* really fixed write_array this time :/ (merged) * really fixed write_array this time :/ (merged)
Revision 1.10 2001/07/16 13:53:21 jonas Revision 1.10 2001/07/16 13:53:21 jonas