Michael Van Canneyt
michael at freepascal.org
Tue Apr 14 13:42:21 CEST 2009
On Tue, 14 Apr 2009, Graeme Geldenhuys wrote:
> On Mon, Apr 13, 2009 at 11:49 PM, Seth Grover <sethdgrover at gmail.com> wrote:
> > Is there not a cross-platform semaphore API in Free Pascal? I planned
> About 4 years ago there wasn't, so I had to use IFDEF's in my code. I
> haven't looked in newer versions of FPC if there is a cross-platform
> API available. I would be interested in this as well.
TThreadManager = Record
// skip some stuff
SemaphoreInit : TSempahoreInitHandler;
SemaphoreDestroy : TSemaphoreDestroyHandler;
SemaphorePost : TSemaphorePostHandler;
SemaphoreWait : TSemaphoreWaitHandler;
Use GetThreadManager() to retrieve the thread manager, and then
simply use the various functions.
This should work cross-platform, but it seems that the Windows
implementation is empty. Maybe we can use your functions to
implement the windows part.
More information about the fpc-pascal