From 87c53a6e29abc0caee5d5d2ae23742da7a539ba0 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 19 Dec 2010 15:34:33 +0000
Subject: [PATCH]   * Sem_Indefinite_Wait constant changed to avoid range check
 errors - fix for web bug #18263

git-svn-id: trunk@16594 -
---
 rtl/os2/doscalls.pas | 3 ++-
 rtl/os2/systhrd.inc  | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/rtl/os2/doscalls.pas b/rtl/os2/doscalls.pas
index d58f047dc1..705eb9658c 100644
--- a/rtl/os2/doscalls.pas
+++ b/rtl/os2/doscalls.pas
@@ -1822,7 +1822,8 @@ const   smShared        = $0001;    {Semaphore is shared.}
                                      is cleared.}
         smMWWaitAll     = $0004;    {MuxWait only: Wait until all semaphores
                                      are cleared.}
-        Sem_Indefinite_Wait = -1;   {DosRequestMutExSem blocks the calling
+        Sem_Indefinite_Wait = cardinal (-1);
+                                    {DosRequestMutExSem blocks the calling
                                      thread indefinitely.}
         Sem_Immediate_Return = 0;   {DosRequestMutExSem returns immediately
                                      without blocking the calling thread.}
diff --git a/rtl/os2/systhrd.inc b/rtl/os2/systhrd.inc
index 5068b204e1..f59d66e219 100644
--- a/rtl/os2/systhrd.inc
+++ b/rtl/os2/systhrd.inc
@@ -25,7 +25,7 @@ const
  pag_Guard = 8;
  pag_Commit = $10;
  obj_Tile = $40;
- sem_Indefinite_Wait = -1;
+ sem_Indefinite_Wait = cardinal (-1);
  dtSuspended = 1;
  dtStack_Commited = 2;