fixed bug with parsing timezone files with a tzh_timecnt of zero

[lcore.git] / wcore.pas

diff --git a/wcore.pas b/wcore.pas
index e79fc1029af637577bc931e300bddca0ab1298d0..2c07d50061f70d459f47e77895c01dd18da0f95c 100644 (file)
--- a/wcore.pas
+++ b/wcore.pas
@@ -34,7 +34,7 @@ interface
       initialdone:boolean;\r
       prevtimer:tltimer;\r
       nexttimer:tltimer;\r
       initialdone:boolean;\r
       prevtimer:tltimer;\r
       nexttimer:tltimer;\r

-      interval:integer;        {miliseconds, default 1000}\r
+      interval:integer;        {milliseconds, default 1000}\r

       nextts:integer;\r
       property enabled:boolean read fenabled write setenabled;\r
       constructor create(aowner:tcomponent);override;\r
       nextts:integer;\r
       property enabled:boolean read fenabled write setenabled;\r
       constructor create(aowner:tcomponent);override;\r


@@ -79,7 +79,7 @@ const
 var\r
   hwndwcore:hwnd;\r
   firsttimer:tltimer;\r
 var\r
   hwndwcore:hwnd;\r
   firsttimer:tltimer;\r

-  timesubstract:integer;\r
+  timesubtract:integer;\r

   firsttask,lasttask,currenttask:tltask;\r
 \r
 procedure tlcomponent.release;\r
   firsttask,lasttask,currenttask:tltask;\r
 \r
 procedure tlcomponent.release;\r


@@ -144,13 +144,13 @@ begin
   end;\r
 \r
   tvnow := timegettime;\r
   end;\r
 \r
   tvnow := timegettime;\r

-  if (tvnow and ((-1) shl rollover_bits)) <> timesubstract then begin\r
+  if (tvnow and ((-1) shl rollover_bits)) <> timesubtract then begin\r

     currenttimer := firsttimer;\r
     while assigned(currenttimer) do begin\r
       dec(currenttimer.nextts,(1 shl rollover_bits));\r
       currenttimer := currenttimer.nexttimer;\r
     end;\r
     currenttimer := firsttimer;\r
     while assigned(currenttimer) do begin\r
       dec(currenttimer.nextts,(1 shl rollover_bits));\r
       currenttimer := currenttimer.nexttimer;\r
     end;\r

-    timesubstract := tvnow and ((-1) shl rollover_bits);\r
+    timesubtract := tvnow and ((-1) shl rollover_bits);\r

   end;\r
   tvnow := tvnow and ((1 shl rollover_bits)-1);\r
 \r
   end;\r
   tvnow := tvnow and ((1 shl rollover_bits)-1);\r
 \r


@@ -217,7 +217,7 @@ begin
     end else begin\r
       currenttasklocal := currenttask; //needed in case called from a task\r
     end;\r
     end else begin\r
       currenttasklocal := currenttask; //needed in case called from a task\r
     end;\r

-    // note i don't bother to sestroy the links here as that will happen when\r
+    // note i don't bother to destroy the links here as that will happen when\r

     // the list of tasks is processed anyway\r
     while assigned(currenttasklocal) do begin\r
       if currenttasklocal.obj = aobj then begin\r
     // the list of tasks is processed anyway\r
     while assigned(currenttasklocal) do begin\r
       if currenttasklocal.obj = aobj then begin\r