suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

trying to get the exclusive lock code right

Browse Source
This commit is contained in:
Danny Yoo 2011-12-04 20:40:44 -05:00
parent 46f314ea35
commit 31ac428276
2 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
js-assembler/runtime-src/baselib-functions.js
View File

@ -139,13 +139,11 @@
function(releaseLock) { function(releaseLock) {
succ = succ || function () {}; succ = succ || function () {};
fail = fail || function () {}; fail = fail || function () {};
releaseLock();
if (!(baselib.arity.isArityMatching(v.racketArity, args.length - 2))) { if (!(baselib.arity.isArityMatching(v.racketArity, args.length - 2))) {
var msg = baselib.format.format( var msg = baselib.format.format(
"arity mismatch: ~s expected ~s argument(s) but received ~s", "arity mismatch: ~s expected ~s argument(s) but received ~s",
[v.displayName, v.racketArity, args.length - 2]); [v.displayName, v.racketArity, args.length - 2]);
releaseLock();
return fail(new baselib.exceptions.RacketError( return fail(new baselib.exceptions.RacketError(
msg, msg,
baselib.exceptions.makeExnFailContractArity(msg, baselib.exceptions.makeExnFailContractArity(msg,
@ -197,8 +195,8 @@
MACHINE.a = oldArgcount; MACHINE.a = oldArgcount;
MACHINE.p = oldProc; MACHINE.p = oldProc;
fail(e); fail(e);
}; };
releaseLock();
MACHINE.trampoline(v.label); MACHINE.trampoline(v.label);
}); });
}; };
@ -237,13 +235,13 @@
MACHINE.exclusiveLock.acquire( MACHINE.exclusiveLock.acquire(
"internal call during pause", "internal call during pause",
function(releaseLock) { function(releaseLock) {
releaseLock();
var i; var i;
var oldArgcount, oldVal, oldProc, oldErrorHandler; var oldArgcount, oldVal, oldProc, oldErrorHandler;
if (! baselib.arity.isArityMatching(proc.racketArity, args.length - 4)) { if (! baselib.arity.isArityMatching(proc.racketArity, args.length - 4)) {
var msg = baselib.format.format("arity mismatch: ~s expected ~s arguments, but received ~s", var msg = baselib.format.format("arity mismatch: ~s expected ~s arguments, but received ~s",
[proc.displayName, proc.racketArity, args.length - 4]); [proc.displayName, proc.racketArity, args.length - 4]);
return fail(baselib.exceptions.makeExnFailContractArity(msg, releaseLock();
fail(baselib.exceptions.makeExnFailContractArity(msg,
MACHINE.captureContinuationMarks())); MACHINE.captureContinuationMarks()));
} }
@ -292,10 +290,11 @@
MACHINE.p = oldProc; MACHINE.p = oldProc;
fail(e); fail(e);
}; };
releaseLock();
MACHINE.trampoline(proc.label); MACHINE.trampoline(proc.label);
} else { } else {
releaseLock();
fail(baselib.exceptions.makeExnFail( fail(baselib.exceptions.makeExnFail(
baselib.format.format( baselib.format.format(
"Not a procedure: ~e", "Not a procedure: ~e",

7
js-assembler/runtime-src/runtime.js
View File

@ -201,8 +201,6 @@
onAcquire.call( onAcquire.call(
that, that,
// releaseLock // releaseLock
function() {
setTimeout(
function() { function() {
var waiter; var waiter;
if (alreadyReleased) { if (alreadyReleased) {
@ -217,9 +215,12 @@
alreadyReleased = true; alreadyReleased = true;
if (that.waiters.length > 0) { if (that.waiters.length > 0) {
waiter = that.waiters.shift(); waiter = that.waiters.shift();
setTimeout(
function() {
that.acquire(waiter.id, waiter.onAcquire); that.acquire(waiter.id, waiter.onAcquire);
},
0);
} }
}, 0);
}); });
} else { } else {
this.waiters.push({ id: id, this.waiters.push({ id: id,