http://www.mapleprimes.com/posts/35794-Blocking en-us 2026 Maplesoft, A Division of Waterloo Maple Inc. Maplesoft Document System Tue, 09 Jun 2026 07:40:36 GMT Tue, 09 Jun 2026 07:40:36 GMT The latest comments added to the Post, Blocking http://www.mapleprimes.com/images/mapleprimeswhite.jpg http://www.mapleprimes.com/posts/35794-Blocking http://www.mapleprimes.com/posts/35794-Blocking?ref=Feed:MaplePrimes:Blocking:Comments#comment45151 <p>A curious mix (the logical negation and superfluous parentheses).&nbsp; Ignoring that, I'm failing to see how this can work in Maple.&nbsp; Maybe this is what you had in mind,</p> <pre> cas := proc(x::evaln, tst, new) &nbsp;&nbsp;&nbsp; eval(x) = tst and `and`(assign(x,new),true) end proc: incr := proc(a::evaln, b) local tmp; &nbsp;&nbsp;&nbsp; tmp := eval(a); &nbsp;&nbsp;&nbsp; while not cas( a, tmp, tmp+b ) do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tmp := a; &nbsp;&nbsp;&nbsp; end do; &nbsp;&nbsp;&nbsp; NULL; end proc: x := 1: incr(x,1): x; 2 </pre> The latest comments added to the Post, Blocking 45151 Sat, 06 Feb 2010 08:11:20 Z Joe Riel Joe Riel http://www.mapleprimes.com/posts/35794-Blocking?ref=Feed:MaplePrimes:Blocking:Comments#comment45152 <p>Can you tell I write more C code than Maple?&nbsp; Thanks for pointing out the mistakes in my code.&nbsp; I've updated the example.</p> <p>Darin</p> <p>-- Kernel Developer Maplesoft</p> The latest comments added to the Post, Blocking 45152 Tue, 09 Feb 2010 18:24:13 Z dohashi dohashi http://www.mapleprimes.com/posts/35794-Blocking?ref=Feed:MaplePrimes:Blocking:Comments#comment45153 <p>Thanks.&nbsp; </p> <p>At some point I elided a comment about my <b>cas</b> routine; it is not supposed to represent an atomic cas, but rather tests the basic operation of <b>incr</b>.</p> The latest comments added to the Post, Blocking 45153 Tue, 09 Feb 2010 20:30:27 Z Joe Riel Joe Riel