paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 12:18:30 +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; procedure tbufferedfile.reset;
var
ofm : byte;
begin begin
ofm:=filemode;
iomode:=1; iomode:=1;
getmem(buf,bufsize); getmem(buf,bufsize);
filemode:=0;
system.reset(f,1); system.reset(f,1);
filemode:=ofm;
end; end;
procedure tbufferedfile.rewrite; procedure tbufferedfile.rewrite;
@ -992,8 +997,11 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.1 1998-03-25 11:18:15 root Revision 1.2 1998-04-07 11:09:04 peter
Initial revision + 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 Revision 1.15 1998/03/10 16:27:38 pierre
* better line info in stabs debug * better line info in stabs debug