fix: run-loop behavior

Drain promise queue after host job, then run finalizers Repeat if needed
agoric-labs · Feb 7, 2023 · 2a42752 · 2a42752
1 parent 2411e26
commit 2a42752
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/xsnap/sources/xsnapPlatform.c b/xsnap/sources/xsnapPlatform.c
@@ -316,14 +316,14 @@ void fxRunLoop(txMachine* the)
 	txNumber when;
 	txJob* job;
 	txJob** address;
-	fxEndJob(the);
 	for (;;) {
 		while (the->promiseJobs) {
-			while (the->promiseJobs) {
-				the->promiseJobs = 0;
-				fxRunPromiseJobs(the);
-			}
-			fxEndJob(the);
+			the->promiseJobs = 0;
+			fxRunPromiseJobs(the);
+		}
+		fxEndJob(the);
+		if (the->promiseJobs) {
+			continue;
 		}
 		c_gettimeofday(&tv, NULL);
 		when = ((txNumber)(tv.tv_sec) * 1000.0) + ((txNumber)(tv.tv_usec) / 1000.0);