mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-06 00:36:17 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #1213 from sogaiu/src-view-for-ppasm

Browse Source 
Add source view to .ppasm output
This commit is contained in:
Calvin Rose 2023-07-09 10:54:55 -05:00 committed by GitHub
commit f73b8c550a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/boot/boot.janet
View File

@ -3520,6 +3520,24 @@
(when-let [constants (dasm :constants)] (when-let [constants (dasm :constants)]
(eprintf " constants: %.4q" constants)) (eprintf " constants: %.4q" constants))
(eprintf " slots: %.4q\n" (frame :slots)) (eprintf " slots: %.4q\n" (frame :slots))
(when-let [src-path (in dasm :source)]
(when (and (fexists src-path)
sourcemap)
(defn dump
[src cur]
(def offset 5)
(def beg (max 1 (- cur offset)))
(def lines (array/concat @[""] (string/split "\n" src)))
(def end (min (+ cur offset) (length lines)))
(def digits (inc (math/floor (math/log10 end))))
(def fmt-str (string "%" digits "d: %s"))
(for i beg end
(eprin " ") # breakpoint someday?
(eprin (if (= i cur) "> " " "))
(eprintf fmt-str i (get lines i))))
(let [[sl _] (sourcemap pc)]
(dump (slurp src-path) sl)
(eprint))))
(def padding (string/repeat " " 20)) (def padding (string/repeat " " 20))
(loop [i :range [0 (length bytecode)] (loop [i :range [0 (length bytecode)]
:let [instr (bytecode i)]] :let [instr (bytecode i)]]