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

singleton pause object to reduce allocation

Browse Source
This commit is contained in:
Danny Yoo 2012-03-01 23:18:05 -05:00
parent b788e1bb57
commit 0ad456d380
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -488,11 +488,12 @@
var Pause = function(onPause) { var Pause = function(onPause) {
// onPause: MACHINE -> void // onPause: MACHINE -> void
this.onPause = onPause || function(MACHINE) {}; this.onPause = onPause;
}; };
var THE_SINGLETON_PAUSE = new Pause();
var PAUSE = function(onPause) { var PAUSE = function(onPause) {
throw(new Pause(onPause)); THE_SINGLETON_PAUSE.onPause = onPause;
throw(THE_SINGLETON_PAUSE);
}; };
@ -564,7 +565,7 @@
scheduleTrampoline(that, thunk, release); scheduleTrampoline(that, thunk, release);
return; return;
} }
} else if (e instanceof Pause) { } else if (e === THE_SINGLETON_PAUSE) {
var pauseLock = new ExclusiveLock(); var pauseLock = new ExclusiveLock();
var oldArgcount = that.a; var oldArgcount = that.a;
var restarted = false; var restarted = false;

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version) (provide version)
(: version String) (: version String)
(define version "1.213") (define version "1.215")