+ Merged fixes from fixbranch - file modes

rtl/objpas/dati.inc

@@ -673,7 +673,10 @@ end;
 
 {
   $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
 
   Revision 1.2  2000/07/13 11:33:50  michael

rtl/objpas/filutilh.inc

@@ -42,7 +42,13 @@ Const
   fmOpenRead       = $0000;
   fmOpenWrite      = $0001;
   fmOpenReadWrite  = $0002;
-  
+  { Share modes}
+  fmShareCompat    = $0000;
+  fmShareExclusive = $0010;
+  fmShareDenyWrite = $0020;
+  fmShareDenyRead  = $0030;
+  fmShareDenyNone  = $0040;
+            
   { File seek origins }    
   fsFromBeginning = 0;
   fsFromCurrent   = 1;
@@ -71,7 +77,10 @@ Function FileSearch (Const Name, DirList : String) : String;
 
 {
   $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
  
 }

rtl/objpas/sysstr.inc

@@ -1277,7 +1277,10 @@ const
 
 {
   $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
 
   Revision 1.9  2000/12/07 21:58:30  michael

rtl/objpas/sysutilh.inc

@@ -1,6 +1,5 @@
 {
     $Id$
-
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Florian Klaempfl
     member of the Free Pascal development team
@@ -139,7 +138,10 @@ Type
 
 {
   $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
 
   Revision 1.5  2000/09/24 21:55:07  peter