paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 11:42:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use initc.fpgetCerrno rather than fpgeterrno to get the errno

Browse Source 
results of the sem_* routines (since those always come from libc/
    libpthread)

git-svn-id: trunk@8266 -
This commit is contained in:
Jonas Maebe 2007-08-12 08:29:48 +00:00
parent 4457538435
commit 123362235b
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/unix/cthreads.pp
View File

@ -54,7 +54,8 @@ implementation
Uses
BaseUnix,
unix,
unixtype
unixtype,
initc
{$ifdef dynpthreads}
,dl
{$endif}
@ -433,7 +434,7 @@ begin
{$if defined(has_sem_init) or defined(has_sem_open)}
repeat
res:=sem_wait(PSemaphore(FSem));
err:=fpgeterrno;
err:=fpgetCerrno;
until (res<>-1) or (err<>ESysEINTR);
{$else}
repeat
@ -472,7 +473,7 @@ var
begin
repeat
res:=sem_trywait(FSem);
err:=fpgeterrno;
err:=fpgetCerrno;
until (res<>-1) or (err<>ESysEINTR);
if (res=0) then
result:=tw_semwasunlocked
@ -515,7 +516,7 @@ var
begin
repeat
cIntSemaphoreOpen := sem_open(name,O_CREAT,0,ord(initvalue));
err:=fpgeterrno;
err:=fpgetCerrno;
until (ptrint(cIntSemaphoreOpen) <> SEM_FAILED) or (err <> ESysEINTR);
if (ptrint(cIntSemaphoreOpen) <> SEM_FAILED) then
{ immediately unlink so the semaphore will be destroyed when the }
@ -718,12 +719,12 @@ begin
if Value=0 then
cSemaphorePost(plocaleventstate(state)^.FSem);
end
else if (fpgeterrno = ESysENOSYS) then
else if (fpgetCerrno = ESysENOSYS) then
{ not yet implemented on Mac OS X 10.4.8 }
begin
repeat
res:=sem_trywait(psem_t(plocaleventstate(state)^.FSem));
err:=fpgeterrno;
err:=fpgetCerrno;
until ((res<>-1) or (err<>ESysEINTR));
{ now we've either decreased the semaphore by 1 (if it was }
{ not zero), or we've done nothing (if it was already zero) }