jaredj/glotawk - Change WZ3MWMMPEI2EXM7VWKHENSKLSL4XRIB5EG7XYGPMBEUMXSYPD4NAC

improve GC debugging; add more infinite loop refusals

Created by jaredj on September 6, 2025

WZ3MWMMPEI2EXM7VWKHENSKLSL4XRIB5EG7XYGPMBEUMXSYPD4NAC

Dependencies

In channels

main

Change contents

Replacement in gc.awk at line 109 [4.23803]
B:BD[2.11606] → [2.11606:11629]
```
function _maybe_gc() {
```
[2.11606]
[2.11629]
```
function _maybe_gc(      roots) {
```

Replacement in gc.awk at line 111 [4.23803]

B:BD[2.11669] → [2.11669:12087]

# for debugging garbage collector:
#        logg_dbg("rep", "auto-gc at N " N)
#        _dump_dot("pre-gc-" N ".dot")
#        _gc_dot(_cons(_GLOBALS,
#                      _cons(_MACROS,
#                            _cons(_COMPARED_SYMBOLS,
#                                  _nil()))),
#                "auto-gc-" N "-marks.dot",
#                "auto-gc-" N "-sweeps.dot")
#        _dump_dot("post-gc-" N ".dot")

[2.11669]

[2.12087]

        # cons this list up before we start using N, so N will be the
        # same in all the debuggy statements below.
        roots = _cons(_GLOBALS,
                      _cons(_MACROS,
                            _cons(_COMPARED_SYMBOLS,
                                  _nil())))
        if(DEBUG_GC) {  # this would only be set if you use awk -v DEBUG_GC=1
            logg_dbg("_maybe_gc", "auto-gc at N " N ". live cells: " length(_TYPE))
            _dump_dot("pre-gc-" N ".dot")
            _gc_dot(roots,
                    "auto-gc-" N "-marks.dot",
                    "auto-gc-" N "-sweeps.dot")
            _dump_dot("post-gc-" N ".dot")
            logg_dbg("_maybe_gc", "now, live cells: " length(_TYPE))
        } else {
            _gc(roots)
        }

Deletion in gc.awk at line 129 [4.23803]

B:BD[2.12088] → [2.12088:12247]

        _gc(_cons(_GLOBALS,
                  _cons(_MACROS,
                        _cons(_COMPARED_SYMBOLS,
                              _nil()))))

Insertion in eval.awk at line 164 [6.11057]

[5.2092]

[3.101]

    if(!form) {
        logg_err("_expand", "trying to expand nothing", depth)
        exit 3
    }

Replacement in eval.awk at line 169 [6.11057]

B:BD[3.124] → [3.124:198]

        logg_err("_expand", "more than 2000 deep expanding " _repr(form))

[3.124]

[3.198]

        logg_err("_expand", "more than 2000 deep expanding " form, depth)
        if(form) {
            logg_err("_expand", "which works out to " _repr(form), depth)
        }