Browse Source

--- Merging r16594 into '.':
U rtl/os2/systhrd.inc
U rtl/os2/doscalls.pas
--- Merging r16595 into '.':
U rtl/emx/systhrd.inc

git-svn-id: branches/fixes_2_4@16596 -

Tomas Hajny 14 years ago
parent
commit
0681cf1c79
3 changed files with 4 additions and 3 deletions
  1. 1 1
      rtl/emx/systhrd.inc
  2. 2 1
      rtl/os2/doscalls.pas
  3. 1 1
      rtl/os2/systhrd.inc

+ 1 - 1
rtl/emx/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;
 

+ 2 - 1
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.}

+ 1 - 1
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;