[fpc-pascal] Semaphore

[Graeme Geldenhuys]

On 12/02/2008, Jonas Maebe <jonas.maebe at elis.ugent.be> wrote:
>
> CurrentTM.Semaphore* should also work under Windows (if it doesn't,
> please file a bug report). And the way to use those is by calling
>
> {$ifdef unix}
> uses
>    cthreads;
> {$endif}
> var
>    p: pointer;
> begin
>    p:=currenttm.SemaphoreInit;
>    currenttm.semaphorepost(p);
>    currenttm.semaphorewait(p);
>    currenttm.semaphoredestroy(p);
> end.
>

Thanks Jonas.  :)  I didn't know about this.  I'll update my old code
to the above...


Regards,
  - Graeme -


_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/