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

* fix warnings

Browse Source
This commit is contained in:
carl 2002-12-07 13:58:45 +00:00
parent 76f0990e8b
commit a433541547
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win32/system.pp
View File

@ -491,15 +491,15 @@ begin
case (flags and 3) of
0 : begin
filerec(f).mode:=fminput;
oflags:=GENERIC_READ;
oflags:=longint(GENERIC_READ);
end;
1 : begin
filerec(f).mode:=fmoutput;
oflags:=GENERIC_WRITE;
oflags:=longint(GENERIC_WRITE);
end;
2 : begin
filerec(f).mode:=fminout;
oflags:=GENERIC_WRITE or GENERIC_READ;
oflags:=longint(GENERIC_WRITE or GENERIC_READ);
end;
end;
{ create it ? }
@ -1505,7 +1505,10 @@ end.
{
$Log$
Revision 1.37 2002-11-30 18:17:35 carl
Revision 1.38 2002-12-07 13:58:45 carl
* fix warnings
Revision 1.37 2002/11/30 18:17:35 carl
+ profiling support
Revision 1.36 2002/10/31 15:17:58 carl