X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/2d2676149292e4e388bb102a41a3d64349ac88ed..dc073bfadb411ab43bc39e2a39f48811706dfc0e:/ltimevalstuff.pas?ds=sidebyside

diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas
old mode 100755
new mode 100644
index b955ef5..7054ea9
--- a/ltimevalstuff.pas
+++ b/ltimevalstuff.pas
@@ -3,10 +3,14 @@
   which is included in the package
   ----------------------------------------------------------------------------- }
 
+{$ifdef fpc}
+  {$mode delphi}
+{$endif}
+
 unit ltimevalstuff;
 interface
 
-{$ifdef win32}
+{$ifdef mswindows}
   type
     ttimeval = record
       tv_sec : longint; 
@@ -23,7 +27,7 @@ interface
 
 procedure tv_add(var tv:ttimeval;msec:integer);
 function tv_compare(const tv1,tv2:ttimeval):boolean;
-procedure tv_substract(var tv:ttimeval;const tv2:ttimeval);
+procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval);
 procedure msectotimeval(var tv:ttimeval;msec:integer);
 
 //tv_invalidtimebig will always compare as greater than any valid timeval
@@ -55,7 +59,7 @@ begin
   end else result := tv1.tv_sec > tv2.tv_sec;
 end;
 
-procedure tv_substract(var tv:ttimeval;const tv2:ttimeval);
+procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval);
 begin
   dec(tv.tv_usec,tv2.tv_usec);
   if tv.tv_usec < 0 then begin