mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-02-03 18:59:09 +00:00
Code Issues 1 Releases Wiki Activity

symbolslots nil when there are no symbols, changed debugger to not have special case

Browse Source
This commit is contained in:
Jona Ekenberg 2023-02-01 11:25:52 +01:00
parent 587aa87d28
commit 624a6cf619
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/boot/boot.janet
View File

@ -2774,8 +2774,7 @@
(loop [[birth death slot sym] :in symbolslots] (loop [[birth death slot sym] :in symbolslots]
(when (and (<= birth pc) (when (and (<= birth pc)
(or (= death 0) (< pc death))
(< pc death)))
(put nextenv (symbol sym) @{:value (get-in frame [:slots slot])}))) (put nextenv (symbol sym) @{:value (get-in frame [:slots slot])})))
(merge-into nextenv debugger-env) (merge-into nextenv debugger-env)

2
src/core/asm.c
View File

@ -883,6 +883,8 @@ static Janet janet_disasm_slotcount(JanetFuncDef *def) {
} }
static Janet janet_disasm_symbolslots(JanetFuncDef *def) { static Janet janet_disasm_symbolslots(JanetFuncDef *def) {
// *debug* was probably not true when compiling the function
if (def->symbolslots == NULL) { return janet_wrap_nil(); }
JanetArray *symbolslots = janet_array(def->symbolslots_length); JanetArray *symbolslots = janet_array(def->symbolslots_length);
for (int32_t i = 0; i < def->symbolslots_length; i++) { for (int32_t i = 0; i < def->symbolslots_length; i++) {
JanetSymbolSlot ss = def->symbolslots[i]; JanetSymbolSlot ss = def->symbolslots[i];