diff --git a/sys/kern/kern_osem.pas b/sys/kern/kern_osem.pas index 2312653f..4512b45c 100644 --- a/sys/kern/kern_osem.pas +++ b/sys/kern/kern_osem.pas @@ -124,6 +124,9 @@ var node,next:p_osem_node; begin Result:=0; + + //Writeln('osem_cancel(',HexStr(sem),',',setCount,')'); + mtx_lock(sem^.mtx); if ((sem^.attr and SEMA_ATTR_DELF)=0) then begin @@ -175,6 +178,9 @@ var count:Integer; begin Result:=0; + + //Writeln('osem_post(',HexStr(sem),',',signalCount,')'); + mtx_lock(sem^.mtx); if ((sem^.attr and SEMA_ATTR_DELF)=0) then @@ -221,6 +227,9 @@ var max_count:Integer; begin Result:=0; + + //Writeln('osem_trywait(',HexStr(sem),',',needCount,')'); + mtx_lock(sem^.mtx); if (sem^.count