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

* create can also open file in fminout

Browse Source
This commit is contained in:
peter 1999-10-28 09:53:19 +00:00
parent 6e241784e1
commit ff2b21ee5e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/go32v2/system.pp
View File

@ -995,10 +995,7 @@ begin
2 : filerec(f).mode:=fminout;
end;
if (flags and $1000)<>0 then
begin
filerec(f).mode:=fmoutput;
action:=$12; {create file function}
end;
action:=$12; {create file function}
{ empty name is special }
if p[0]=#0 then
begin
@ -1288,7 +1285,10 @@ Begin
End.
{
$Log$
Revision 1.19 1999-09-20 12:40:20 pierre
Revision 1.20 1999-10-28 09:53:19 peter
* create can also open file in fminout
Revision 1.19 1999/09/20 12:40:20 pierre
* adapted to new heaph
Revision 1.18 1999/09/10 17:14:09 peter