Browse Source

* Sem_Indefinite_Wait constant changed to avoid range check errors - fix for web bug #18263

git-svn-id: trunk@16594 -
Tomas Hajny 14 years ago
parent
commit
87c53a6e29
2 changed files with 3 additions and 2 deletions
  1. 2 1
      rtl/os2/doscalls.pas
  2. 1 1
      rtl/os2/systhrd.inc

+ 2 - 1
rtl/os2/doscalls.pas

@@ -1822,7 +1822,8 @@ const   smShared        = $0001;    {Semaphore is shared.}
                                      is cleared.}
                                      is cleared.}
         smMWWaitAll     = $0004;    {MuxWait only: Wait until all semaphores
         smMWWaitAll     = $0004;    {MuxWait only: Wait until all semaphores
                                      are cleared.}
                                      are cleared.}
-        Sem_Indefinite_Wait = -1;   {DosRequestMutExSem blocks the calling
+        Sem_Indefinite_Wait = cardinal (-1);
+                                    {DosRequestMutExSem blocks the calling
                                      thread indefinitely.}
                                      thread indefinitely.}
         Sem_Immediate_Return = 0;   {DosRequestMutExSem returns immediately
         Sem_Immediate_Return = 0;   {DosRequestMutExSem returns immediately
                                      without blocking the calling thread.}
                                      without blocking the calling thread.}

+ 1 - 1
rtl/os2/systhrd.inc

@@ -25,7 +25,7 @@ const
  pag_Guard = 8;
  pag_Guard = 8;
  pag_Commit = $10;
  pag_Commit = $10;
  obj_Tile = $40;
  obj_Tile = $40;
- sem_Indefinite_Wait = -1;
+ sem_Indefinite_Wait = cardinal (-1);
  dtSuspended = 1;
  dtSuspended = 1;
  dtStack_Commited = 2;
  dtStack_Commited = 2;