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

* fixed writing of empty ansistring with specified width (merged)

Browse Source
This commit is contained in:
Jonas Maebe 2001-11-21 14:51:33 +00:00
parent 95f1ecc603
commit d8a3bfb576
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/text.inc
View File

@ -598,7 +598,7 @@ Procedure fpc_Write_Text_AnsiStr (Len : Longint; Var f : Text; S : AnsiString);
var var
SLen : longint; SLen : longint;
begin begin
If (pointer(S)=nil) or (InOutRes<>0) then If (InOutRes<>0) then
exit; exit;
case TextRec(f).mode of case TextRec(f).mode of
fmOutput { fmAppend gets changed to fmOutPut in do_open (JM) }: fmOutput { fmAppend gets changed to fmOutPut in do_open (JM) }:
@ -606,7 +606,8 @@ begin
SLen:=Length(s); SLen:=Length(s);
If Len>SLen Then If Len>SLen Then
WriteBlanks(f,Len-SLen); WriteBlanks(f,Len-SLen);
WriteBuffer(f,PChar(S)^,SLen); if slen > 0 then
WriteBuffer(f,PChar(S)^,SLen);
end; end;
fmInput: InOutRes:=105 fmInput: InOutRes:=105
else InOutRes:=103; else InOutRes:=103;
@ -1237,7 +1238,10 @@ end;
{ {
$Log$ $Log$
Revision 1.15 2001-09-25 16:34:59 jonas Revision 1.16 2001-11-21 14:51:33 jonas
* fixed writing of empty ansistring with specified width (merged)
Revision 1.15 2001/09/25 16:34:59 jonas
* fixed seekeof() so that it doesn't move the current possition in the * fixed seekeof() so that it doesn't move the current possition in the
file anymore (merged) file anymore (merged)
* seekeof() now only regards #26 as EOF marker if EOF_CTRLZ is defined * seekeof() now only regards #26 as EOF marker if EOF_CTRLZ is defined