paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed typos in comment

Browse Source 
git-svn-id: trunk@11613 -
This commit is contained in:
Vincent Snijders 2008-08-18 22:23:32 +00:00
parent 80749e3513
commit 783a1ce4e7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/text.inc
View File

@ -66,7 +66,7 @@ Begin
begin
t.InOutFunc:=@FileWriteFunc;
{ Only install flushing if its a NOT a file, and only check if there
was no error opening the file, becuase else we always get a bad
was no error opening the file, because else we always get a bad
file handle error 6 (PFV) }
if (InOutRes=0) and
Do_Isdevice(t.Handle) then
@ -187,7 +187,7 @@ Begin
InOutRes:=103;
exit;
end;
{ Not the flushfunc but the inoutfunc should be used, becuase that
{ Not the flushfunc but the inoutfunc should be used, because that
writes the data, flushfunc doesn't need to be assigned }
FileFunc(TextRec(t).InOutFunc)(TextRec(t));
End;