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

* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase

Browse Source 
rewrite opens always with filemode 2
This commit is contained in:
peter 2000-01-20 23:38:02 +00:00
parent 532780ceb8
commit 48603ff7a3
5 changed files with 79 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/go32v1/system.pp
View File

@ -432,13 +432,17 @@ begin
{ empty name is special } { empty name is special }
if p[0]=#0 then if p[0]=#0 then
begin begin
case filerec(f).mode of case FileRec(f).mode of
fminput : filerec(f).handle:=StdInputHandle; fminput :
fmappend, FileRec(f).Handle:=StdInputHandle;
fmoutput : begin fminout, { this is set by rewrite }
filerec(f).handle:=StdOutputHandle; fmoutput :
filerec(f).mode:=fmoutput; {fool fmappend} FileRec(f).Handle:=StdOutputHandle;
end; fmappend :
begin
FileRec(f).Handle:=StdOutputHandle;
FileRec(f).mode:=fmoutput; {fool fmappend}
end;
end; end;
exit; exit;
end; end;
@ -614,7 +618,11 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.8 2000-01-07 16:41:30 daniel Revision 1.9 2000-01-20 23:38:02 peter
* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
rewrite opens always with filemode 2
Revision 1.8 2000/01/07 16:41:30 daniel
* copyright 2000 * copyright 2000
Revision 1.7 2000/01/07 16:32:23 daniel Revision 1.7 2000/01/07 16:32:23 daniel

24
rtl/go32v2/system.pp
View File

@ -1022,13 +1022,17 @@ begin
{ empty name is special } { empty name is special }
if p[0]=#0 then if p[0]=#0 then
begin begin
case filerec(f).mode of case FileRec(f).mode of
fminput : filerec(f).handle:=StdInputHandle; fminput :
fmappend, FileRec(f).Handle:=StdInputHandle;
fmoutput : begin fminout, { this is set by rewrite }
filerec(f).handle:=StdOutputHandle; fmoutput :
filerec(f).mode:=fmoutput; {fool fmappend} FileRec(f).Handle:=StdOutputHandle;
end; fmappend :
begin
FileRec(f).Handle:=StdOutputHandle;
FileRec(f).mode:=fmoutput; {fool fmappend}
end;
end; end;
exit; exit;
end; end;
@ -1339,7 +1343,11 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.29 2000-01-16 22:25:38 peter Revision 1.30 2000-01-20 23:38:02 peter
* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
rewrite opens always with filemode 2
Revision 1.29 2000/01/16 22:25:38 peter
* check handle for file closing * check handle for file closing
Revision 1.28 2000/01/07 16:41:32 daniel Revision 1.28 2000/01/07 16:41:32 daniel

22
rtl/linux/syslinux.pp
View File

@ -438,12 +438,16 @@ Begin
if p[0]=#0 then if p[0]=#0 then
begin begin
case FileRec(f).mode of case FileRec(f).mode of
fminput : FileRec(f).Handle:=StdInputHandle; fminput :
fmoutput, FileRec(f).Handle:=StdInputHandle;
fmappend : begin fminout, { this is set by rewrite }
FileRec(f).Handle:=StdOutputHandle; fmoutput :
FileRec(f).mode:=fmoutput; {fool fmappend} FileRec(f).Handle:=StdOutputHandle;
end; fmappend :
begin
FileRec(f).Handle:=StdOutputHandle;
FileRec(f).mode:=fmoutput; {fool fmappend}
end;
end; end;
exit; exit;
end; end;
@ -741,7 +745,11 @@ End.
{ {
$Log$ $Log$
Revision 1.33 2000-01-16 22:25:38 peter Revision 1.34 2000-01-20 23:38:02 peter
* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
rewrite opens always with filemode 2
Revision 1.33 2000/01/16 22:25:38 peter
* check handle for file closing * check handle for file closing
Revision 1.32 2000/01/07 16:41:41 daniel Revision 1.32 2000/01/07 16:41:41 daniel

23
rtl/os2/sysos2.pas
View File

@ -492,12 +492,17 @@ begin
{ empty name is special } { empty name is special }
if p[0]=#0 then if p[0]=#0 then
begin begin
case filerec(f).mode of case FileRec(f).mode of
fminput:filerec(f).handle:=StdInputHandle; fminput :
fmappend,fmoutput : begin FileRec(f).Handle:=StdInputHandle;
filerec(f).handle:=StdOutputHandle; fminout, { this is set by rewrite }
filerec(f).mode:=fmoutput; {fool fmappend} fmoutput :
end; FileRec(f).Handle:=StdOutputHandle;
fmappend :
begin
FileRec(f).Handle:=StdOutputHandle;
FileRec(f).mode:=fmoutput; {fool fmappend}
end;
end; end;
exit; exit;
end; end;
@ -755,7 +760,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.23 2000-01-16 23:10:15 peter Revision 1.24 2000-01-20 23:38:02 peter
* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
rewrite opens always with filemode 2
Revision 1.23 2000/01/16 23:10:15 peter
* handle check fixed * handle check fixed
Revision 1.22 2000/01/16 22:25:38 peter Revision 1.22 2000/01/16 22:25:38 peter

24
rtl/win32/syswin32.pp
View File

@ -527,13 +527,17 @@ begin
{ empty name is special } { empty name is special }
if p[0]=#0 then if p[0]=#0 then
begin begin
case filerec(f).mode of case FileRec(f).mode of
fminput : filerec(f).handle:=StdInputHandle; fminput :
fmappend, FileRec(f).Handle:=StdInputHandle;
fmoutput : begin fminout, { this is set by rewrite }
filerec(f).handle:=StdOutputHandle; fmoutput :
filerec(f).mode:=fmoutput; {fool fmappend} FileRec(f).Handle:=StdOutputHandle;
end; fmappend :
begin
FileRec(f).Handle:=StdOutputHandle;
FileRec(f).mode:=fmoutput; {fool fmappend}
end;
end; end;
exit; exit;
end; end;
@ -1166,7 +1170,11 @@ end.
{ {
$Log$ $Log$
Revision 1.57 2000-01-18 09:03:04 pierre Revision 1.58 2000-01-20 23:38:02 peter
* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
rewrite opens always with filemode 2
Revision 1.57 2000/01/18 09:03:04 pierre
* DLL crash fixed : ExitProcess can not be called in DLL system_exit * DLL crash fixed : ExitProcess can not be called in DLL system_exit
Problem : Halt or RunError code inside DLL will return to caller !! Problem : Halt or RunError code inside DLL will return to caller !!
* Changed the "if h<4 then" into "if do_isdevice(h) then " in do_close * Changed the "if h<4 then" into "if do_isdevice(h) then " in do_close