fix 2 send related bugs

[lcore.git] / ltimevalstuff.pas

diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas
index 5e81933d2db630812b3d16e3bb0cfef0c04dd050..7054ea9ed31c3849ddbe74da3b2fd9d7d9ab6ec9 100644 (file)
--- a/ltimevalstuff.pas
+++ b/ltimevalstuff.pas
@@ -27,7 +27,7 @@ interface
 \r
 procedure tv_add(var tv:ttimeval;msec:integer);\r
 function tv_compare(const tv1,tv2:ttimeval):boolean;\r
 \r
 procedure tv_add(var tv:ttimeval;msec:integer);\r
 function tv_compare(const tv1,tv2:ttimeval):boolean;\r

-procedure tv_substract(var tv:ttimeval;const tv2:ttimeval);\r
+procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval);\r

 procedure msectotimeval(var tv:ttimeval;msec:integer);\r
 \r
 //tv_invalidtimebig will always compare as greater than any valid timeval\r
 procedure msectotimeval(var tv:ttimeval;msec:integer);\r
 \r
 //tv_invalidtimebig will always compare as greater than any valid timeval\r


@@ -59,7 +59,7 @@ begin
   end else result := tv1.tv_sec > tv2.tv_sec;\r
 end;\r
 \r
   end else result := tv1.tv_sec > tv2.tv_sec;\r
 end;\r
 \r

-procedure tv_substract(var tv:ttimeval;const tv2:ttimeval);\r
+procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval);\r

 begin\r
   dec(tv.tv_usec,tv2.tv_usec);\r
   if tv.tv_usec < 0 then begin\r
 begin\r
   dec(tv.tv_usec,tv2.tv_usec);\r
   if tv.tv_usec < 0 then begin\r