Function dapiStackDepth

src/builtin/module_builtin_debugger.cpp:843–879

    }

    int32_t dapiStackDepth ( Context & context ) {
    #if DAS_ENABLE_STACK_WALK
        char * sp = context.stack.ap();
        int32_t depth = 0;
        while ( sp < context.stack.top() ) {
            Prologue * pp = (Prologue *) sp;
            Block * block = nullptr;
            FuncInfo * info = nullptr;
            // char * SP = sp;
            if ( pp->info ) {
                intptr_t iblock = intptr_t(pp->block);
                if ( iblock & 1 ) {
                    block = (Block *) (iblock & ~1);
                    info = block->info;
                    // SP = context.stack.bottom() + block->stackOffset;
                } else {
                    info = pp->info;
                }
            }
            auto incr = info ? info->stackSize : pp->stackSize;
            if ( incr >= context.stack.size() || incr<sizeof(Prologue) ) {
                // corrupted stack
                break;
            }
            sp += incr;
            if ( sp > context.stack.top() ) {
                // corrupted stack
                break;
            }
            depth ++;
        }
        return depth;
    #else
        context.throw_error("stack walking disabled");
        return 0;
    #endif
    }

    void dapiStackWalk ( StackWalkerPtr walker, Context & context, const LineInfo & at ) {
    #if DAS_ENABLE_STACK_WALK