Lines Matching refs:pc
45 int pc = currentpc(L, ci); in currentline() local
46 if (pc < 0) in currentline()
49 return getline(ci_func(ci)->l.p, pc); in currentline()
270 #define checkjump(pt,pc) check(0 <= pc && pc < pt->sizecode) argument
288 #define checkopenop(pt,pc) luaG_checkopenop((pt)->code[(pc)+1]) argument
318 int pc; in symbexec() local
322 for (pc = 0; pc < lastpc; pc++) { in symbexec()
323 Instruction i = pt->code[pc]; in symbexec()
346 int dest = pc+1+b; in symbexec()
367 if (a == reg) last = pc; /* change register `a' */ in symbexec()
370 check(pc+2 < pt->sizecode); /* check skip */ in symbexec()
371 check(GET_OPCODE(pt->code[pc+1]) == OP_JMP); in symbexec()
376 check(pc+2 < pt->sizecode); /* check its jump */ in symbexec()
377 check(GET_OPCODE(pt->code[pc+1]) != OP_SETLIST || in symbexec()
378 GETARG_C(pt->code[pc+1]) != 0); in symbexec()
384 last = pc; /* set registers from `a' to `b' */ in symbexec()
399 if (reg == a+1) last = pc; in symbexec()
409 if (reg >= a+2) last = pc; /* affect all regs above its base */ in symbexec()
417 int dest = pc+1+b; in symbexec()
419 if (reg != NO_REG && pc < dest && dest <= lastpc) in symbexec()
420 pc += b; /* do the jump */ in symbexec()
430 check(checkopenop(pt, pc)); in symbexec()
434 if (reg >= a) last = pc; /* affect all registers above base */ in symbexec()
445 pc++; in symbexec()
446 check(pc < pt->sizecode - 1); in symbexec()
454 check(pc + nup < pt->sizecode); in symbexec()
456 OpCode op1 = GET_OPCODE(pt->code[pc + j]); in symbexec()
460 pc += nup; /* do not 'execute' these pseudo-instructions */ in symbexec()
467 if (b == LUA_MULTRET) check(checkopenop(pt, pc)); in symbexec()
501 int pc = currentpc(L, ci); in getobjname() local
503 *name = luaF_getlocalname(p, stackpos+1, pc); in getobjname()
506 i = symbexec(p, pc, stackpos); /* try symbolic execution */ in getobjname()
507 lua_assert(pc != -1); in getobjname()