From 834efe7a11ec5ad27beb5c917d3be5ee95ac1d94 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Tue, 3 Feb 2009 17:46:58 +0000
Subject: [PATCH] 2009-02-03 18:51 UTC+0100 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/vm/thread.c     * casting to
 pacify warning. The code is correct.

---
 harbour/ChangeLog          | 4 ++++
 harbour/source/vm/thread.c | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 31da49c3a6..9925613356 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-02-03 18:51 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/vm/thread.c
+    * casting to pacify warning. The code is correct.
+
 2009-02-03 18:24 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
   * doc/en/hb_api.txt
   * doc/en/hb_apird.txt
diff --git a/harbour/source/vm/thread.c b/harbour/source/vm/thread.c
index 73194c4e22..da896b334d 100644
--- a/harbour/source/vm/thread.c
+++ b/harbour/source/vm/thread.c
@@ -917,7 +917,7 @@ static int hb_threadWait( PHB_THREADSTATE * pThreads, int iThreads,
          if( timer <= curr )
             fExit = TRUE;
          else
-            ulMilliSec = timer - curr;
+            ulMilliSec = ( ULONG ) ( timer - curr );
       }
 #endif