Method EvalProgramInner

lobster/src/vm.cpp:742–795

}

void VM::EvalProgramInner() {
    for (;;) {
        #ifdef VM_COMPILED_CODE_MODE
            #if VM_DISPATCH_METHOD == VM_DISPATCH_TRAMPOLINE
                compiled_code_ip = ((block_t)compiled_code_ip)(*this);
            #elif VM_DISPATCH_METHOD == VM_DISPATCH_SWITCH_GOTO
                ((block_base_t)compiled_code_ip)(*this);
                assert(false);  // Should not return here.
            #endif
        #else
            #ifndef NDEBUG
                if (trace != TraceMode::OFF) {
                    auto &ss = TraceStream();
                    DisAsmIns(nfr, ss, ip, codestart, typetable, bcf);
                    ss << " [" << (sp + 1) << "] -";
                    #if RTT_ENABLED
                    #if DELETE_DELAY
                        ss << ' ' << (size_t)VM_TOP().any();
                    #endif
                    for (int i = 0; i < 3 && sp - i >= 0; i++) {
                        auto x = VM_TOPM(i);
                        ss << ' ';
                        x.ToStringBase(*this, ss, x.type, debugpp);
                    }
                    #endif
                    if (trace == TraceMode::TAIL) ss << '\n'; else LOG_PROGRAM(ss.str());
                }
                //currentline = LookupLine(ip).line;
            #endif
            #ifdef VM_PROFILER
                auto code_idx = size_t(ip - codestart);
                assert(code_idx < codelen);
                byteprofilecounts[code_idx]++;
                vm_count_ins++;
            #endif
            auto op = *ip++;
            #if MEASURE_INSTRUCTION_COMBINATIONS
                instruction_combinations[{ last_instruction_opc, op }]++;
                last_instruction_opc = op;
            #endif
            #ifndef NDEBUG
                if (op < 0 || op >= IL_MAX_OPS)
                    Error(cat("bytecode format problem: ", op));
            #endif
            #ifdef VM_ERROR_RET_EXPERIMENT
                bool terminate =
            #endif
            ((*this).*(f_ins_pointers[op]))();
            #ifdef VM_ERROR_RET_EXPERIMENT
                if (terminate) return;
            #endif
        #endif
    }
}

VM_INS_RET VM::U_PUSHINT(int x) { VM_PUSH(Value(x)); VM_RET; }
VM_INS_RET VM::U_PUSHFLT(int x) { int2float i2f; i2f.i = x; VM_PUSH(Value(i2f.f)); VM_RET; }