paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 17:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write(pchar) has check for nil

Browse Source
This commit is contained in:
peter 1998-10-23 00:03:29 +00:00
parent 1456602381
commit 525f478bae
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

@ -466,7 +466,7 @@ Procedure Write_PChar(Len : Longint;var f : TextRec;p : PChar);[Public,Alias: {$
var
PCharLen : longint;
Begin
If (InOutRes<>0) then
If (p=nil) or (InOutRes<>0) then
exit;
if (f.mode<>fmOutput) Then
begin
@ -1199,7 +1199,10 @@ end;
{
$Log$
Revision 1.32 1998-10-20 14:37:45 peter
Revision 1.33 1998-10-23 00:03:29 peter
* write(pchar) has check for nil
Revision 1.32 1998/10/20 14:37:45 peter
* fixed maxlen which was not correct after my read_string update
Revision 1.31 1998/10/10 15:28:48 peter