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

+ filemode is set correct in tbufferedfile.reset

Browse Source
This commit is contained in:
peter 1998-04-07 11:09:04 +00:00
parent 8a527432e7
commit 32af7a855c
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cobjects.pas
View File

@ -746,10 +746,15 @@ end;
procedure tbufferedfile.reset;
var
ofm : byte;
begin
ofm:=filemode;
iomode:=1;
getmem(buf,bufsize);
filemode:=0;
system.reset(f,1);
filemode:=ofm;
end;
procedure tbufferedfile.rewrite;
@ -992,8 +997,11 @@ end;
end.
{
$Log$
Revision 1.1 1998-03-25 11:18:15 root
Initial revision
Revision 1.2 1998-04-07 11:09:04 peter
+ filemode is set correct in tbufferedfile.reset
Revision 1.1.1.1 1998/03/25 11:18:15 root
* Restored version
Revision 1.15 1998/03/10 16:27:38 pierre
* better line info in stabs debug