|
@@ -491,15 +491,15 @@ begin
|
|
|
case (flags and 3) of
|
|
case (flags and 3) of
|
|
|
0 : begin
|
|
0 : begin
|
|
|
filerec(f).mode:=fminput;
|
|
filerec(f).mode:=fminput;
|
|
|
- oflags:=GENERIC_READ;
|
|
|
|
|
|
|
+ oflags:=longint(GENERIC_READ);
|
|
|
end;
|
|
end;
|
|
|
1 : begin
|
|
1 : begin
|
|
|
filerec(f).mode:=fmoutput;
|
|
filerec(f).mode:=fmoutput;
|
|
|
- oflags:=GENERIC_WRITE;
|
|
|
|
|
|
|
+ oflags:=longint(GENERIC_WRITE);
|
|
|
end;
|
|
end;
|
|
|
2 : begin
|
|
2 : begin
|
|
|
filerec(f).mode:=fminout;
|
|
filerec(f).mode:=fminout;
|
|
|
- oflags:=GENERIC_WRITE or GENERIC_READ;
|
|
|
|
|
|
|
+ oflags:=longint(GENERIC_WRITE or GENERIC_READ);
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
|
{ create it ? }
|
|
{ create it ? }
|
|
@@ -1505,7 +1505,10 @@ end.
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$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
|
|
+ profiling support
|
|
|
|
|
|
|
|
Revision 1.36 2002/10/31 15:17:58 carl
|
|
Revision 1.36 2002/10/31 15:17:58 carl
|
carl