OctaForge
/
libcubescript
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

unify arg and non-arg opcodes

master
Daniel Kolesa 2021-03-28 00:19:51 +01:00
parent d1e131dbf6
commit 99f227bfd9
4 changed files with 54 additions and 119 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/cs_bcode.hh
View File

@ -46,16 +46,16 @@ enum {
BC_INST_COMPILE, BC_INST_COND,
BC_INST_FORCE,
BC_INST_RESULT,
BC_INST_IDENT, BC_INST_IDENT_U, BC_INST_IDENT_ARG,
BC_INST_IDENT, BC_INST_IDENT_U,
BC_INST_COM, BC_INST_COM_C, BC_INST_COM_V,
BC_INST_CONC, BC_INST_CONC_W, BC_INST_CONC_M,
BC_INST_SVAR, BC_INST_SVAR1,
BC_INST_IVAR, BC_INST_IVAR1, BC_INST_IVAR2, BC_INST_IVAR3,
BC_INST_FVAR, BC_INST_FVAR1,
BC_INST_LOOKUP, BC_INST_LOOKUP_U, BC_INST_LOOKUP_ARG,
BC_INST_LOOKUP_M, BC_INST_LOOKUP_MU, BC_INST_LOOKUP_MARG,
BC_INST_ALIAS, BC_INST_ALIAS_U, BC_INST_ALIAS_ARG,
BC_INST_CALL, BC_INST_CALL_U, BC_INST_CALL_ARG,
BC_INST_LOOKUP, BC_INST_LOOKUP_U,
BC_INST_LOOKUP_M, BC_INST_LOOKUP_MU,
BC_INST_ALIAS, BC_INST_ALIAS_U,
BC_INST_CALL, BC_INST_CALL_U,
BC_INST_PRINT,
BC_INST_LOCAL,
BC_INST_DO, BC_INST_DO_ARGS,

32
src/cs_gen.cc
View File

@ -294,28 +294,21 @@ lookupid:
return;
case VAL_COND:
gs.code.push_back(
((id->get_flags() & IDENT_FLAG_ARG)
? BC_INST_LOOKUP_MARG
: BC_INST_LOOKUP_M
) | (id->get_index() << 8)
BC_INST_LOOKUP_M | (id->get_index() << 8)
);
break;
case VAL_CODE:
case VAL_IDENT:
gs.code.push_back(
((id->get_flags() & IDENT_FLAG_ARG)
? BC_INST_LOOKUP_MARG
: BC_INST_LOOKUP_M
) | BC_RET_STRING | (id->get_index() << 8)
BC_INST_LOOKUP_M | BC_RET_STRING |
(id->get_index() << 8)
);
break;
default:
gs.code.push_back(
((id->get_flags() & IDENT_FLAG_ARG)
? BC_INST_LOOKUP_ARG
: BC_INST_LOOKUP
) | ret_code(ltype, BC_RET_STRING) |
(id->get_index() << 8)
BC_INST_LOOKUP |
ret_code(ltype, BC_RET_STRING) |
(id->get_index() << 8)
);
break;
}
@ -552,10 +545,7 @@ lookupid:
goto done;
case ident_type::ALIAS:
gs.code.push_back(
((id->get_flags() & IDENT_FLAG_ARG)
? BC_INST_LOOKUP_MARG
: BC_INST_LOOKUP_M
) | (id->get_index() << 8)
BC_INST_LOOKUP_M | (id->get_index() << 8)
);
goto done;
default:
@ -1054,8 +1044,7 @@ static void compile_alias(codegen_state &gs, alias *id, bool &more, int prevargs
++numargs;
}
gs.code.push_back(
((id->get_flags() & IDENT_FLAG_ARG) ? BC_INST_CALL_ARG : BC_INST_CALL)
| (numargs << 8) | (id->get_index() << 13)
BC_INST_CALL | (numargs << 8) | (id->get_index() << 13)
);
}
@ -1244,10 +1233,7 @@ static void compilestatements(codegen_state &gs, int rettype, int brak, int prev
gs.gen_str();
}
gs.code.push_back(
((id->get_flags() & IDENT_FLAG_ARG)
? BC_INST_ALIAS_ARG
: BC_INST_ALIAS
) | (id->get_index() << 8)
BC_INST_ALIAS | (id->get_index() << 8)
);
goto endstatement;
case ident_type::IVAR:

7
src/cs_gen.hh
View File

@ -109,12 +109,7 @@ struct codegen_state {
void gen_float(std::string_view word);
void gen_ident(ident *id) {
code.push_back(
((id->get_flags() & IDENT_FLAG_ARG)
? BC_INST_IDENT_ARG
: BC_INST_IDENT
) | (id->get_index() << 8)
);
code.push_back(BC_INST_IDENT | (id->get_index() << 8));
}
void gen_ident() {

124
src/cs_vm.cc
View File

@ -261,7 +261,13 @@ run_depth_guard::~run_depth_guard() { --rundepth; }
static inline alias *get_lookup_id(thread_state &ts, std::uint32_t op) {
ident *id = ts.istate->identmap[op >> 8];
if (id->get_flags() & IDENT_FLAG_UNKNOWN) {
auto flags = id->get_flags();
if (flags & IDENT_FLAG_ARG) {
if (!ident_is_used_arg(id, ts)) {
return nullptr;
}
} else if (flags & IDENT_FLAG_UNKNOWN) {
throw error{
*ts.pstate, "unknown alias lookup: %s", id->get_name().data()
};
@ -269,14 +275,6 @@ static inline alias *get_lookup_id(thread_state &ts, std::uint32_t op) {
return static_cast<alias *>(id);
}
static inline alias *get_lookuparg_id(thread_state &ts, std::uint32_t op) {
ident *id = ts.istate->identmap[op >> 8];
if (!ident_is_used_arg(id, ts)) {
return nullptr;
}
return static_cast<alias *>(id);
}
static inline int get_lookupu_type(
thread_state &ts, any_value &arg, ident *&id, std::uint32_t op
) {
@ -709,14 +707,14 @@ std::uint32_t *vm_exec(
continue;
}
case BC_INST_IDENT:
args.emplace_back(cs).set_ident(ts.istate->identmap[op >> 8]);
continue;
case BC_INST_IDENT_ARG: {
case BC_INST_IDENT: {
alias *a = static_cast<alias *>(
ts.istate->identmap[op >> 8]
);
if (!ident_is_used_arg(a, ts)) {
if (
(a->get_flags() & IDENT_FLAG_ARG) &&
!ident_is_used_arg(a, ts)
) {
any_value nv{cs};
static_cast<alias_impl *>(a)->push_arg(
nv, ts.callstack->argstack[a->get_index()],
@ -775,13 +773,7 @@ std::uint32_t *vm_exec(
}
}
case BC_INST_LOOKUP | BC_RET_STRING: {
auto &v = args.emplace_back(cs);
v = get_lookup_id(ts, op)->get_value();
v.force_str();
continue;
}
case BC_INST_LOOKUP_ARG | BC_RET_STRING: {
alias *a = get_lookuparg_id(ts, op);
alias *a = get_lookup_id(ts, op);
if (!a) {
args.emplace_back(cs).set_str("");
} else {
@ -820,13 +812,8 @@ std::uint32_t *vm_exec(
continue;
}
}
case BC_INST_LOOKUP | BC_RET_INT:
args.emplace_back(cs).set_int(
get_lookup_id(ts, op)->get_value().get_int()
);
continue;
case BC_INST_LOOKUP_ARG | BC_RET_INT: {
alias *a = get_lookuparg_id(ts, op);
case BC_INST_LOOKUP | BC_RET_INT: {
alias *a = get_lookup_id(ts, op);
if (!a) {
args.emplace_back(cs).set_int(0);
} else {
@ -865,13 +852,8 @@ std::uint32_t *vm_exec(
continue;
}
}
case BC_INST_LOOKUP | BC_RET_FLOAT:
args.emplace_back(cs).set_float(
get_lookup_id(ts, op)->get_value().get_float()
);
continue;
case BC_INST_LOOKUP_ARG | BC_RET_FLOAT: {
alias *a = get_lookuparg_id(ts, op);
case BC_INST_LOOKUP | BC_RET_FLOAT: {
alias *a = get_lookup_id(ts, op);
if (!a) {
args.emplace_back(cs).set_float(float_type(0));
} else {
@ -904,13 +886,8 @@ std::uint32_t *vm_exec(
continue;
}
}
case BC_INST_LOOKUP | BC_RET_NULL:
get_lookup_id(ts, op)->get_value().get_val(
args.emplace_back(cs)
);
continue;
case BC_INST_LOOKUP_ARG | BC_RET_NULL: {
alias *a = get_lookuparg_id(ts, op);
case BC_INST_LOOKUP | BC_RET_NULL: {
alias *a = get_lookup_id(ts, op);
if (!a) {
args.emplace_back(cs).set_none();
} else {
@ -946,13 +923,7 @@ std::uint32_t *vm_exec(
}
}
case BC_INST_LOOKUP_M | BC_RET_STRING: {
auto &v = args.emplace_back(cs);
v = get_lookup_id(ts, op)->get_value();
v.force_str();
continue;
}
case BC_INST_LOOKUP_MARG | BC_RET_STRING: {
alias *a = get_lookuparg_id(ts, op);
alias *a = get_lookup_id(ts, op);
if (!a) {
args.emplace_back(cs).set_str("");
} else {
@ -985,11 +956,8 @@ std::uint32_t *vm_exec(
continue;
}
}
case BC_INST_LOOKUP_M | BC_RET_NULL:
get_lookup_id(ts, op)->get_cval(args.emplace_back(cs));
continue;
case BC_INST_LOOKUP_MARG | BC_RET_NULL: {
alias *a = get_lookuparg_id(ts, op);
case BC_INST_LOOKUP_M | BC_RET_NULL: {
alias *a = get_lookup_id(ts, op);
if (!a) {
args.emplace_back(cs).set_none();
} else {
@ -1193,18 +1161,18 @@ std::uint32_t *vm_exec(
continue;
}
case BC_INST_ALIAS:
static_cast<alias_impl *>(
case BC_INST_ALIAS: {
auto *imp = static_cast<alias_impl *>(
ts.istate->identmap[op >> 8]
)->set_alias(ts, args.back());
args.pop_back();
continue;
case BC_INST_ALIAS_ARG:
static_cast<alias_impl *>(
ts.istate->identmap[op >> 8]
)->set_arg(ts, args.back());
);
if (imp->get_flags() & IDENT_FLAG_ARG) {
imp->set_arg(ts, args.back());
} else {
imp->set_alias(ts, args.back());
}
args.pop_back();
continue;
}
case BC_INST_ALIAS_U: {
auto v = std::move(args.back());
args.pop_back();
@ -1222,7 +1190,14 @@ std::uint32_t *vm_exec(
std::size_t callargs = (op >> 8) & 0x1F;
std::size_t nnargs = args.size();
std::size_t offset = nnargs - callargs;
if (id->get_flags() & IDENT_FLAG_UNKNOWN) {
auto flags = id->get_flags();
if (flags & IDENT_FLAG_ARG) {
if (!ident_is_used_arg(id, ts)) {
args.resize(offset, any_value{cs});
force_arg(result, op & BC_INST_RET_MASK);
continue;
}
} else if (flags & IDENT_FLAG_UNKNOWN) {
force_arg(result, op & BC_INST_RET_MASK);
throw error{
cs, "unknown command: %s", id->get_name().data()
@ -1235,27 +1210,6 @@ std::uint32_t *vm_exec(
args.resize(nnargs, any_value{cs});
continue;
}
case BC_INST_CALL_ARG | BC_RET_NULL:
case BC_INST_CALL_ARG | BC_RET_STRING:
case BC_INST_CALL_ARG | BC_RET_FLOAT:
case BC_INST_CALL_ARG | BC_RET_INT: {
result.force_none();
ident *id = ts.istate->identmap[op >> 13];
std::size_t callargs = (op >> 8) & 0x1F;
std::size_t nnargs = args.size();
std::size_t offset = nnargs - callargs;
if (!ident_is_used_arg(id, ts)) {
args.resize(offset, any_value{cs});
force_arg(result, op & BC_INST_RET_MASK);
continue;
}
exec_alias(
ts, static_cast<alias *>(id), &args[0], result, callargs,
nnargs, offset, 0, op
);
args.resize(nnargs, any_value{cs});
continue;
}
case BC_INST_CALL_U | BC_RET_NULL:
case BC_INST_CALL_U | BC_RET_STRING: