line endings related fixes

[lcore.git] / lcore.pas

diff --git a/lcore.pas b/lcore.pas
index 109f4d73b724894369bf19590b60573caba162f0..08c242a8e2a4b8bcb41d3558ca5eb4627a56e2c9 100644 (file)
--- a/lcore.pas
+++ b/lcore.pas
@@ -225,7 +225,7 @@ procedure exitmessageloop;
 \r
 var\r
   firsttimer                            : tltimer    ;\r
 \r
 var\r
   firsttimer                            : tltimer    ;\r

-  firsttask  , lasttask   , currenttask : tltask     ;\r
+  firsttask  , lasttask                 : tltask     ;\r

 \r
   numread                               : integer    ;\r
   mustrefreshfds                        : boolean    ;\r
 \r
   numread                               : integer    ;\r
   mustrefreshfds                        : boolean    ;\r


@@ -669,7 +669,7 @@ end;
 {$ifndef mswindows}\r
   procedure tltimer.resettimes;\r
   begin\r
 {$ifndef mswindows}\r
   procedure tltimer.resettimes;\r
   begin\r

-    gettimeofday(nextts);\r
+    gettimemonotonic(nextts);\r

     {if not initialevent then} tv_add(nextts,interval);\r
   end;\r
 {$endif}\r
     {if not initialevent then} tv_add(nextts,interval);\r
   end;\r
 {$endif}\r


@@ -812,6 +812,8 @@ end;
 {$endif}\r
 \r
 procedure processtasks;//inline;\r
 {$endif}\r
 \r
 procedure processtasks;//inline;\r

+var\r
+  currenttask:tltask;\r

 begin\r
 \r
   while assigned(firsttask) do begin\r
 begin\r
 \r
   while assigned(firsttask) do begin\r


@@ -820,7 +822,7 @@ begin
     if not assigned(firsttask) then lasttask := nil;\r
 \r
     if assigned(currenttask.handler) then currenttask.handler(currenttask.wparam,currenttask.lparam);\r
     if not assigned(firsttask) then lasttask := nil;\r
 \r
     if assigned(currenttask.handler) then currenttask.handler(currenttask.wparam,currenttask.lparam);\r

-\r
+    currenttask.free;\r

   end;\r
   currenttask := nil;\r
 end;\r
   end;\r
   currenttask := nil;\r
 end;\r