在浏览器REPL中进行评估时偶尔会卡住。看起来REPL环境和浏览器有时会错过对方,并且它们的“约会”失败了。浏览器正在等待POST回复,而REPL正在尝试发送命令,但他们没有相遇。
当我们从nodejs环境切换到浏览器环境时,我发现这个问题。幸运的是,我能够找到一个在执行过程中挂起的非常小的示例。加载量似乎会增加“挂起”的可能性。
最小设置
(ns race.condition
(:require [cljs.repl.browser :as browser]
[cljs.repl :as repl]
[cljs.env :as env]
[cljs.build.api :as api]))
(api/build '[(ns race.repl
(:require [clojure.browser.repl]))
[clojure.browser.repl/connect "https://127.0.0.1:9000/repl")]
{:output-to "target/cljs-race/main.js"
:output-dir "target/cljs-race"
:main 'race.repl)
(spit "target/cljs-race/index.html"
(str "<html>" "<body>"
"<script type=\"text/javascript\" src=\"main.js\">"
"</script>" "</body>" "</html>"))
现在启动环境
(def env (browser/repl-env :static-dir ["target/cljs-race" "."] :port 9000 :src nil))
(env/with-compiler-env (env/default-compiler-env)
(repl/-setup env {}))
交叉你的手指并启动这个无限循环
(loop [i 0]
(println (java.util.Date.) i)
(dotimes [j 100]
(let [result (repl/-evaluate env "<exec>" "1" "true")]
(when-not (= :success (:status result))
(println i j result))))
(recur (inc i)))
从附件运行heavy-load.sh来模拟高负载。
在迭代几次之后(例如55个大循环i),执行停止。如果您检查堆栈(参见race-condition.jstack),您可以在一个线程中看到
at clojure.core$promise$reify__6779.deref(core.clj:6816)
at clojure.core$deref.invoke(core.clj:2206)
at cljs.repl.browser$send_for_eval.invoke(browser.clj:65)
at cljs.repl.browser$browser_eval.invoke(browser.clj:193)
at cljs.repl.browser.BrowserEnv._evaluate(browser.clj:262)
代码正在等待一个带有连接的承诺(它已经到达)。
我的猜测是cljs.repl.server函数中可疑的代码connection和set-connection。这两个函数以非标准方式访问一个atom。他们分两步 deref一个值和 swap!
有谁了解REPL内部原理更好,能来调查一下吗?谢谢。