Thanks Denis,

On Mon, Jan 11, 2016 at 6:54 AM, Denis Kudriashov <dionisiydk@gmail.com> wrote:

 

I write it such way:

primitiveEnterCriticalSectionOnBehalfOf: activeProcess

[owningProcess ifNil:

[owningProcess := activeProcess.

^false].

 owningProcess = activeProcess ifTrue:

[^true].

 self addLast: Processor activeProcess.

activeProcess suspend] valueUnpreemptively

primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: activeProcess

[owningProcess ifNil:

[owningProcess := activeProcess.

^false].

 owningProcess = activeProcess ifTrue: [^true].

 ^nil] valueUnpreemptively

This looks good.  Do you have methods you've written?  I'd like to use yours as they have your time stamp.