readtxt2 allow open files to still be read by others

[lcore.git] / ltimevalstuff.pas

diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas
index df0342c3448e4ad2c69c547a6b45188dc17fc844..93f84bbaf3616076d84514acfb60e4bf0ca183b0 100755 (executable)
--- a/ltimevalstuff.pas
+++ b/ltimevalstuff.pas
@@ -3,6 +3,10 @@
   which is included in the package\r
   ----------------------------------------------------------------------------- }\r
 \r
   which is included in the package\r
   ----------------------------------------------------------------------------- }\r
 \r

+{$ifdef fpc}\r
+  {$mode delphi}\r
+{$endif}\r
+\r

 unit ltimevalstuff;\r
 interface\r
 \r
 unit ltimevalstuff;\r
 interface\r
 \r


@@ -16,7 +20,7 @@ interface
   {$ifdef ver1_0}\r
     uses linux;\r
   {$else}\r
   {$ifdef ver1_0}\r
     uses linux;\r
   {$else}\r

-    uses baseunix,unix,unixutil;\r
+    uses baseunix,unix,unixutil,sockets;\r

   {$endif}\r
 {$endif}\r
                                 \r
   {$endif}\r
 {$endif}\r
                                 \r