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

* inoutres 103 for closed files, just like delphi

Browse Source
This commit is contained in:
peter 1999-10-26 12:25:19 +00:00
parent a905c026f2
commit 1a27ce8a2d
1 changed files with 65 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
rtl/inc/text.inc
View File

@ -179,9 +179,12 @@ Procedure Flush(var t : Text);[IOCheck];
Begin
If InOutRes<>0 then
exit;
If TextRec(t).mode<>fmOutput Then
if TextRec(t).mode<>fmOutput then
begin
InOutres:=105;
if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit;
end;
{ Not the flushfunc but the inoutfunc should be used, becuase that
@ -241,6 +244,9 @@ Begin
exit(true);
if (TextRec(t).mode<>fmInput) Then
begin
if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit(true);
end;
@ -270,6 +276,9 @@ Begin
exit(true);
if (TextRec(t).mode<>fmInput) Then
begin
if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit(true);
end;
@ -304,6 +313,9 @@ Begin
exit(true);
if (TextRec(t).mode<>fmInput) Then
begin
if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit(true);
end;
@ -329,6 +341,9 @@ Begin
exit(true);
if (TextRec(t).mode<>fmInput) Then
begin
if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit(true);
end;
@ -446,6 +461,9 @@ Begin
exit;
if (f.mode<>fmOutput) Then
begin
if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit;
end;
@ -464,6 +482,9 @@ Begin
exit;
if (f.mode<>fmOutput) Then
begin
if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit;
end;
@ -485,6 +506,9 @@ Begin
exit;
if (f.mode<>fmOutput) Then
begin
if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit;
end;
@ -580,6 +604,9 @@ Begin
exit;
if (TextRec(t).mode<>fmOutput) Then
begin
if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit;
end;
@ -691,6 +718,9 @@ Begin
exit;
if (f.mode<>fmInput) Then
begin
if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit;
end;
@ -722,6 +752,9 @@ Begin
exit;
if (f.mode<>fmInput) Then
begin
if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit;
end;
@ -803,6 +836,9 @@ Begin
exit;
if (f.mode<>fmInput) Then
begin
if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit;
end;
@ -830,6 +866,9 @@ Begin
exit;
if (f.mode<>fmInput) Then
begin
if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit;
end;
@ -856,6 +895,9 @@ Begin
exit;
if (f.mode<>fmInput) Then
begin
if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit;
end;
@ -881,6 +923,9 @@ begin
exit;
if (f.mode<>fmInput) Then
begin
if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit;
end;
@ -949,7 +994,10 @@ end;
{
$Log$
Revision 1.58 1999-10-04 20:42:45 peter
Revision 1.59 1999-10-26 12:25:19 peter
* inoutres 103 for closed files, just like delphi
Revision 1.58 1999/10/04 20:42:45 peter
* read ansistring speedup (no length(s) calls anymore)
Revision 1.57 1999/09/10 17:14:43 peter