[fpc-pascal] Semaphore problems
fpc at bcsoft.de
Mon Jul 24 16:57:14 CEST 2006
Am Montag, 24. Juli 2006 16:19 schrieb Vinzent Hoefler:
> On Monday 24 July 2006 14:09, Michael Van Canneyt wrote:
> > On Mon, 24 Jul 2006, Vinzent Hoefler wrote:
> > > On Monday 24 July 2006 13:34, Marco van de Voort wrote:
> > >>> When I run the Unit Tests and create a single Lock and the
> > >>> Unlock it, all works fine. If I then iterrate that test by
> > >>> creating 10 locks and then call unlock 10 times, the Unit Tests
> > >>> freeze on the following line with the second iteration:
> > >>
> > >> Sounds like some recursion property is not set.
> > >
> > > I don't think, semaphores have recursion properties.
> > They do, in some implementations.
> Ok, granted. :) But not in POSIX, AFAICS.
> And they were never designed that way. I think, that's why someone
> invented the mutex. ;)
hmm, so a mutex can be recursive, if the type is set correctly, which is
not supportet on all platforms implementing pthread (man-pages of
I vote for more pascal based versions of TMutex, TSemaphore and TEvent,
that behaves just like the ones in Delphi and use the system specific
functions (like pthread stuff) only internally in their simplest/most
Currently, I have the problem to get a working TEvent:
- The one in syncobjs returns wrError, when it's waitfor is called with
anything else tah infinite timeout
- same goes for rtlbasicevent (cthreads)
- the rtlEvent works even with timeout (with my patch posted on mantis),
but this one clears the signaled state, when wait is called. IOW. if I
call waitfor on the allready signalled event, it won't return before
timeout. Also it doesn't inform the caller, wheter it returnt due to
signalled or to timeout ..
More information about the fpc-pascal