admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

vm: add OP_ADDILV/OP_SUBILV for local variable increment

Browse Source 
fuse MOVE+ADDI+MOVE and MOVE+SUBI+MOVE patterns into single instructions.
ADDILV/SUBILV add/subtract an immediate to a local variable in-place.
BBB format: a=local, b=working space for method call, c=immediate.

saves 5 bytes per instance (9->4 bytes), 40 occurrences in stdlib.

Co-authored-by: Claude <noreply@anthropic.com>
This commit is contained in:
Yukihiro "Matz" Matsumoto
2026-01-19 22:06:41 +09:00
parent 724a2e2638
commit 5475ea573a
4 changed files with 63 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/codedump.c
+8
View File
@@ -444,6 +444,14 @@ codedump(mrb_state *mrb, const mrb_irep *irep, FILE *out)
fprintf(out, "SUBI\t\tR%d\t%d", a, b);
print_lv_a(mrb, irep, a, out);
break;
CASE(OP_ADDILV, BBB):
fprintf(out, "ADDILV\tR%d\tR%d\t%d", a, b, c);
print_lv_a(mrb, irep, a, out);
break;
CASE(OP_SUBILV, BBB):
fprintf(out, "SUBILV\tR%d\tR%d\t%d", a, b, c);
print_lv_a(mrb, irep, a, out);
break;
CASE(OP_MUL, B):
fprintf(out, "MUL\t\tR%d\t(R%d)\n", a, a+1);
break;
src/vm.c
+45
View File
@@ -2937,6 +2937,51 @@ RETRY_TRY_BLOCK:
OP_MATHI(sub);
}
#ifdef MRB_NO_FLOAT
#define OP_MATHILV_CASE_FLOAT(op_name) (void)0
#else
#define OP_MATHILV_CASE_FLOAT(op_name) \
case MRB_TT_FLOAT: \
{ \
mrb_float z = mrb_float(regs[a]) OP_MATH_OP_##op_name c; \
SET_FLOAT_VALUE(mrb, regs[a], z); \
} \
break
#endif
#define OP_MATHILV(op_name) \
/* a=local, b=working space, c=immediate */ \
switch (mrb_type(regs[a])) { \
case MRB_TT_INTEGER: \
{ \
mrb_int x = mrb_integer(regs[a]), y = (mrb_int)c, z; \
if (mrb_int_##op_name##_overflow(x, y, &z)) { \
OP_MATH_OVERFLOW_INT(op_name,x,y); \
} \
else { \
SET_INT_VALUE(mrb,regs[a], z); \
} \
} \
break; \
OP_MATHILV_CASE_FLOAT(op_name); \
default: \
{ \
mrb_value arg = mrb_int_value(mrb, c); \
mrb_sym mid = MRB_OPSYM(op_name); \
regs[a] = mrb_funcall_argv(mrb, regs[a], mid, 1, &arg); \
mrb_gc_arena_restore(mrb, ai); \
} \
break; \
} \
NEXT
CASE(OP_ADDILV, BBB) {
OP_MATHILV(add);
}
CASE(OP_SUBILV, BBB) {
OP_MATHILV(sub);
}
#define OP_CMP_BODY(op,v1,v2) (v1(regs[a]) op v2(regs[a+1]))
#ifdef MRB_NO_FLOAT