C++ (Cpp) codeextraargの例

コード例 #1

ファイル: lcode.c プロジェクト: celskeggs/selkie

/*
** Emit a "load constant" instruction, using either 'OP_LOADK'
** (if constant index 'k' fits in 18 bits) or an 'OP_LOADKX'
** instruction with "extra argument".
*/
int luaK_codek (FuncState *fs, int reg, int k) {
  if (k <= MAXARG_Bx)
    return luaK_codeABx(fs, OP_LOADK, reg, k);
  else {
    int p = luaK_codeABx(fs, OP_LOADKX, reg, 0);
    codeextraarg(fs, k);
    return p;
  }
}

コード例 #2

ファイル: lcode.c プロジェクト: mascarenhas/lua52-in-leave

int luaK_codeABxX (FuncState *fs, OpCode o, int reg, int k) {
  if (k < MAXARG_Bx)
    return luaK_codeABx(fs, o, reg, k + 1);
  else {
    int p = luaK_codeABx(fs, o, reg, 0);
    codeextraarg(fs, k);
    return p;
  }
}

コード例 #3

ファイル: lcode.cpp プロジェクト: swizl/lua

int FuncState::luaK_codek (/*FuncState *fs,*/ int reg, int k) {
	if (k <= MAXARG_Bx)
		return luaK_codeABx(OP_LOADK, reg, k);
	else {
		int p = luaK_codeABx(OP_LOADKX, reg, 0);
		codeextraarg(k);
		return p;
	}
}

コード例 #4

ファイル: code.c プロジェクト: unixbhaskar/ktap

int codegen_codek(ktap_funcstate *fs, int reg, int k)
{
	if (k <= MAXARG_Bx)
		return codegen_codeABx(fs, OP_LOADK, reg, k);
	else {
		int p = codegen_codeABx(fs, OP_LOADKX, reg, 0);
		codeextraarg(fs, k);
		return p;
	}
}

コード例 #5

ファイル: lcode.c プロジェクト: hongzhidao/yet-another-lua

void luaK_setlist (FuncState *fs, int base, int nelems, int tostore) {
  int c =  (nelems - 1)/LFIELDS_PER_FLUSH + 1;
  int b = (tostore == LUA_MULTRET) ? 0 : tostore;
  lua_assert(tostore != 0);
  if (c <= MAXARG_C)
    luaK_codeABC(fs, OP_SETLIST, base, b, c);
  else if (c <= MAXARG_Ax) {
    luaK_codeABC(fs, OP_SETLIST, base, b, 0);
    codeextraarg(fs, c);
  }
  else
    luaX_syntaxerror(fs->ls, "constructor too long");
  fs->freereg = base + 1;  /* free registers with list values */
}