change ltimevalstuff to a unit and move defintion of ttimeval on windows

[lcore.git] / lcore.pas

diff --git a/lcore.pas b/lcore.pas
index 4be20f40b328ee8c968514e4c1c6b87b302cf11f..9061e45f2e2524f665b3579d58b113fa907fbec5 100755 (executable)
--- a/lcore.pas
+++ b/lcore.pas
@@ -30,7 +30,7 @@ interface
       {$endif}\r
       fd_utils,\r
     {$endif}\r
       {$endif}\r
       fd_utils,\r
     {$endif}\r

-    classes,pgtypes,bfifo;\r
+    classes,pgtypes,bfifo,ltimevalstuff;\r

   procedure processtasks;\r
 \r
 \r
   procedure processtasks;\r
 \r
 \r


@@ -73,8 +73,8 @@ interface
     TSendData          = procedure (Sender: TObject; BytesSent: Integer) of object;\r
 \r
     tlcomponent = class(tcomponent)\r
     TSendData          = procedure (Sender: TObject; BytesSent: Integer) of object;\r
 \r
     tlcomponent = class(tcomponent)\r

-    private
-      procedure releasetaskhandler(wparam,lparam:longint);
+    private\r
+      procedure releasetaskhandler(wparam,lparam:longint);\r

     public\r
       procedure release; virtual;\r
       destructor destroy; override;\r
     public\r
       procedure release; virtual;\r
       destructor destroy; override;\r


@@ -154,12 +154,6 @@ interface
   var\r
     timerwrapperinterface : ttimerwrapperinterface;\r
   type\r
   var\r
     timerwrapperinterface : ttimerwrapperinterface;\r
   type\r

-    {$ifdef win32}\r
-      ttimeval = record\r
-        tv_sec : longint;\r
-        tv_usec : longint;\r
-      end;\r
-    {$endif}\r

     tltimer=class(tlcomponent)\r
     protected\r
 \r
     tltimer=class(tlcomponent)\r
     protected\r
 \r


@@ -260,7 +254,6 @@ implementation
 {$ifndef win32}\r
   {$include unixstuff.inc}\r
 {$endif}\r
 {$ifndef win32}\r
   {$include unixstuff.inc}\r
 {$endif}\r

-{$include ltimevalstuff.inc}\r

 \r
 \r
 {!!! added sleep call -beware}\r
 \r
 \r
 {!!! added sleep call -beware}\r


@@ -283,15 +276,15 @@ begin
   inherited destroy;\r
 end;\r
 \r
   inherited destroy;\r
 end;\r
 \r

-procedure tlcomponent.releasetaskhandler(wparam,lparam:longint);
-begin
-  free;
-end;
+procedure tlcomponent.releasetaskhandler(wparam,lparam:longint);\r
+begin\r
+  free;\r
+end;\r

 \r
 \r
 procedure tlcomponent.release;\r
 begin\r
 \r
 \r
 procedure tlcomponent.release;\r
 begin\r

-  addtask(releasetaskhandler,self,0,0);
+  addtask(releasetaskhandler,self,0,0);\r

 end;\r
 \r
 procedure tlasio.release;\r
 end;\r
 \r
 procedure tlasio.release;\r