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

+ Merged fixes from fixbranch - file modes

Browse Source
This commit is contained in:
michael 2001-01-18 22:09:09 +00:00
parent db8c675d94
commit 77812493b5
4 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/dati.inc
View File

@ -673,7 +673,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2000-12-16 15:57:16 jonas Revision 1.4 2001-01-18 22:09:09 michael
+ Merged fixes from fixbranch - file modes
Revision 1.3 2000/12/16 15:57:16 jonas
* removed 64bit evaluations when range checking is on * removed 64bit evaluations when range checking is on
Revision 1.2 2000/07/13 11:33:50 michael Revision 1.2 2000/07/13 11:33:50 michael

11
rtl/objpas/filutilh.inc
View File

@ -42,6 +42,12 @@ Const
fmOpenRead = $0000; fmOpenRead = $0000;
fmOpenWrite = $0001; fmOpenWrite = $0001;
fmOpenReadWrite = $0002; fmOpenReadWrite = $0002;
{ Share modes}
fmShareCompat = $0000;
fmShareExclusive = $0010;
fmShareDenyWrite = $0020;
fmShareDenyRead = $0030;
fmShareDenyNone = $0040;
{ File seek origins } { File seek origins }
fsFromBeginning = 0; fsFromBeginning = 0;
@ -71,7 +77,10 @@ Function FileSearch (Const Name, DirList : String) : String;
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:51 michael Revision 1.3 2001-01-18 22:09:09 michael
+ Merged fixes from fixbranch - file modes
Revision 1.2 2000/07/13 11:33:51 michael
+ removed logs + removed logs
} }

5
rtl/objpas/sysstr.inc
View File

@ -1277,7 +1277,10 @@ const
{ {
$Log$ $Log$
Revision 1.10 2000-12-16 15:58:18 jonas Revision 1.11 2001-01-18 22:09:09 michael
+ Merged fixes from fixbranch - file modes
Revision 1.10 2000/12/16 15:58:18 jonas
* removed warnings about possible range check errors * removed warnings about possible range check errors
Revision 1.9 2000/12/07 21:58:30 michael Revision 1.9 2000/12/07 21:58:30 michael

6
rtl/objpas/sysutilh.inc
View File

@ -1,6 +1,5 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Florian Klaempfl Copyright (c) 1999-2000 by Florian Klaempfl
member of the Free Pascal development team member of the Free Pascal development team
@ -139,7 +138,10 @@ Type
{ {
$Log$ $Log$
Revision 1.6 2000-12-07 09:15:18 florian Revision 1.7 2001-01-18 22:09:09 michael
+ Merged fixes from fixbranch - file modes
Revision 1.6 2000/12/07 09:15:18 florian
+ tintegerset added + tintegerset added
Revision 1.5 2000/09/24 21:55:07 peter Revision 1.5 2000/09/24 21:55:07 peter