1
0
mirror of https://github.com/janet-lang/janet synced 2025-02-03 18:59:09 +00:00

Make JANET_NO_ASSEMBLER not break build.

This commit is contained in:
Calvin Rose 2020-04-28 23:04:24 -05:00
parent 63e9790123
commit dd458c8ab5

View File

@ -2375,12 +2375,15 @@
[&opt nth frame-idx]
(in (.slots frame-idx) (or nth 0)))
# Conditional compilation for disasm
(def disasm-alias (if-let [x (_env 'disasm)] (x :value)))
(defn .disasm
"Gets the assembly for the current function."
[&opt n]
(def frame (.frame n))
(def func (frame :function))
(disasm func))
(disasm-alias func))
(defn .bytecode
"Get the bytecode for the current function."
@ -2392,10 +2395,10 @@
[&opt n]
(def frame (.frame n))
(def func (frame :function))
(def dasm (disasm func))
(def bytecode (dasm 'bytecode))
(def dasm (disasm-alias func))
(def bytecode (disasm-alias 'bytecode))
(def pc (frame :pc))
(def sourcemap (dasm 'sourcemap))
(def sourcemap (disasm-alias 'sourcemap))
(var last-loc [-2 -2])
(print "\n signal: " (.signal))
(print " function: " (dasm 'name) " [" (in dasm 'source "") "]")
@ -2417,6 +2420,11 @@
(print))
(print))
(unless (get _env 'disasm)
(put _env .disasm nil)
(put _env .bytecode nil)
(put _env .ppasm nil))
(defn .source
"Show the source code for the function being debugged."
[&opt n]