paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:24:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Unused constants removed

Browse Source
This commit is contained in:
yuri 2003-11-06 17:20:44 +00:00
parent 43cac0027c
commit 81588a99b2
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/os2/system.pas
View File

@ -671,13 +671,6 @@ procedure do_open(var f;p:pchar;flags:longint);
when (flags and $1000) the file will be truncate/rewritten when (flags and $1000) the file will be truncate/rewritten
when (flags and $10000) there is no check for close (needed for textfiles) when (flags and $10000) there is no check for close (needed for textfiles)
} }
// Helper constants
const
fmShareCompat = $0000;
fmShareExclusive = $0010;
fmShareDenyWrite = $0020;
fmShareDenyRead = $0030;
fmShareDenyNone = $0040;
var var
Action, Attrib, OpenFlags, FM: Cardinal; Action, Attrib, OpenFlags, FM: Cardinal;
begin begin
@ -1153,7 +1146,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.56 2003-11-03 09:42:28 marco Revision 1.57 2003-11-06 17:20:44 yuri
* Unused constants removed
Revision 1.56 2003/11/03 09:42:28 marco
* Peter's Cardinal<->Longint fixes patch * Peter's Cardinal<->Longint fixes patch
Revision 1.55 2003/11/02 00:51:17 hajny Revision 1.55 2003/11/02 00:51:17 hajny