krzosa/corelang
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rewrite VM, only capable to work on 64bit arithmetic

Browse Source
This commit is contained in:
Krzosa Karol
2022-06-20 22:14:46 +02:00
parent fd66781afb
commit 101970f62e
4 changed files with 436 additions and 651 deletions
Download Patch File Download Diff File Expand all files Collapse all files

339
bytecode_interpreter_generated.cpp
View File

@@ -54,157 +54,82 @@ emit_mod_s64(Bc *bc){
*instruction = INS_MOD_S64;
}
force_inline void
ins_push_s32(Bc *b, S32 value){
auto data = b->stack_pointer;
b->stack_pointer += 2*sizeof(U64);
C(S32, data) = value;
data += sizeof(U64);
C(U64, data) = TYPE_S32;
}
force_inline void
emit_push_s32(Bc *bc, S32 emit_value){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8)+sizeof(S32));
*instruction = INS_PUSH_S32;
S32 *value = (S32 *)(instruction + 1);
*value = emit_value;
}
force_inline void
emit_add_s32(Bc *bc){
emit_shr_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_ADD_S32;
*instruction = INS_SHR_S64;
}
force_inline void
emit_sub_s32(Bc *bc){
emit_shl_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_SUB_S32;
*instruction = INS_SHL_S64;
}
force_inline void
emit_div_s32(Bc *bc){
emit_bitand_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_DIV_S32;
*instruction = INS_BITAND_S64;
}
force_inline void
emit_mul_s32(Bc *bc){
emit_bitor_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MUL_S32;
*instruction = INS_BITOR_S64;
}
force_inline void
emit_mod_s32(Bc *bc){
emit_bitxor_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MOD_S32;
}
force_inline void
ins_push_s16(Bc *b, S16 value){
auto data = b->stack_pointer;
b->stack_pointer += 2*sizeof(U64);
C(S16, data) = value;
data += sizeof(U64);
C(U64, data) = TYPE_S16;
*instruction = INS_BITXOR_S64;
}
force_inline void
emit_push_s16(Bc *bc, S16 emit_value){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8)+sizeof(S16));
*instruction = INS_PUSH_S16;
S16 *value = (S16 *)(instruction + 1);
*value = emit_value;
}
force_inline void
emit_add_s16(Bc *bc){
emit_bitnot_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_ADD_S16;
*instruction = INS_BITNOT_S64;
}
force_inline void
emit_sub_s16(Bc *bc){
emit_eq_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_SUB_S16;
*instruction = INS_EQ_S64;
}
force_inline void
emit_div_s16(Bc *bc){
emit_neq_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_DIV_S16;
*instruction = INS_NEQ_S64;
}
force_inline void
emit_mul_s16(Bc *bc){
emit_gt_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MUL_S16;
*instruction = INS_GT_S64;
}
force_inline void
emit_mod_s16(Bc *bc){
emit_lt_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MOD_S16;
}
force_inline void
ins_push_s8(Bc *b, S8 value){
auto data = b->stack_pointer;
b->stack_pointer += 2*sizeof(U64);
C(S8, data) = value;
data += sizeof(U64);
C(U64, data) = TYPE_S8;
*instruction = INS_LT_S64;
}
force_inline void
emit_push_s8(Bc *bc, S8 emit_value){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8)+sizeof(S8));
*instruction = INS_PUSH_S8;
S8 *value = (S8 *)(instruction + 1);
*value = emit_value;
}
force_inline void
emit_add_s8(Bc *bc){
emit_or_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_ADD_S8;
*instruction = INS_OR_S64;
}
force_inline void
emit_sub_s8(Bc *bc){
emit_gte_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_SUB_S8;
*instruction = INS_GTE_S64;
}
force_inline void
emit_div_s8(Bc *bc){
emit_lte_s64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_DIV_S8;
}
force_inline void
emit_mul_s8(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MUL_S8;
}
force_inline void
emit_mod_s8(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MOD_S8;
*instruction = INS_LTE_S64;
}
@@ -258,208 +183,82 @@ emit_mod_u64(Bc *bc){
*instruction = INS_MOD_U64;
}
force_inline void
ins_push_u32(Bc *b, U32 value){
auto data = b->stack_pointer;
b->stack_pointer += 2*sizeof(U64);
C(U32, data) = value;
data += sizeof(U64);
C(U64, data) = TYPE_U32;
}
force_inline void
emit_push_u32(Bc *bc, U32 emit_value){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8)+sizeof(U32));
*instruction = INS_PUSH_U32;
U32 *value = (U32 *)(instruction + 1);
*value = emit_value;
}
force_inline void
emit_add_u32(Bc *bc){
emit_shr_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_ADD_U32;
*instruction = INS_SHR_U64;
}
force_inline void
emit_sub_u32(Bc *bc){
emit_shl_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_SUB_U32;
*instruction = INS_SHL_U64;
}
force_inline void
emit_div_u32(Bc *bc){
emit_bitand_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_DIV_U32;
*instruction = INS_BITAND_U64;
}
force_inline void
emit_mul_u32(Bc *bc){
emit_bitor_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MUL_U32;
*instruction = INS_BITOR_U64;
}
force_inline void
emit_mod_u32(Bc *bc){
emit_bitxor_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MOD_U32;
}
force_inline void
ins_push_u16(Bc *b, U16 value){
auto data = b->stack_pointer;
b->stack_pointer += 2*sizeof(U64);
C(U16, data) = value;
data += sizeof(U64);
C(U64, data) = TYPE_U16;
*instruction = INS_BITXOR_U64;
}
force_inline void
emit_push_u16(Bc *bc, U16 emit_value){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8)+sizeof(U16));
*instruction = INS_PUSH_U16;
U16 *value = (U16 *)(instruction + 1);
*value = emit_value;
}
force_inline void
emit_add_u16(Bc *bc){
emit_bitnot_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_ADD_U16;
*instruction = INS_BITNOT_U64;
}
force_inline void
emit_sub_u16(Bc *bc){
emit_eq_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_SUB_U16;
*instruction = INS_EQ_U64;
}
force_inline void
emit_div_u16(Bc *bc){
emit_neq_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_DIV_U16;
*instruction = INS_NEQ_U64;
}
force_inline void
emit_mul_u16(Bc *bc){
emit_gt_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MUL_U16;
*instruction = INS_GT_U64;
}
force_inline void
emit_mod_u16(Bc *bc){
emit_lt_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MOD_U16;
}
force_inline void
ins_push_u8(Bc *b, U8 value){
auto data = b->stack_pointer;
b->stack_pointer += 2*sizeof(U64);
C(U8, data) = value;
data += sizeof(U64);
C(U64, data) = TYPE_U8;
*instruction = INS_LT_U64;
}
force_inline void
emit_push_u8(Bc *bc, U8 emit_value){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8)+sizeof(U8));
*instruction = INS_PUSH_U8;
U8 *value = (U8 *)(instruction + 1);
*value = emit_value;
}
force_inline void
emit_add_u8(Bc *bc){
emit_or_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_ADD_U8;
*instruction = INS_OR_U64;
}
force_inline void
emit_sub_u8(Bc *bc){
emit_gte_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_SUB_U8;
*instruction = INS_GTE_U64;
}
force_inline void
emit_div_u8(Bc *bc){
emit_lte_u64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_DIV_U8;
}
force_inline void
emit_mul_u8(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MUL_U8;
}
force_inline void
emit_mod_u8(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MOD_U8;
}
force_inline void
ins_push_f32(Bc *b, F32 value){
auto data = b->stack_pointer;
b->stack_pointer += 2*sizeof(U64);
C(F32, data) = value;
data += sizeof(U64);
C(U64, data) = TYPE_F32;
}
force_inline void
emit_push_f32(Bc *bc, F32 emit_value){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8)+sizeof(F32));
*instruction = INS_PUSH_F32;
F32 *value = (F32 *)(instruction + 1);
*value = emit_value;
}
force_inline void
emit_add_f32(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_ADD_F32;
}
force_inline void
emit_sub_f32(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_SUB_F32;
}
force_inline void
emit_div_f32(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_DIV_F32;
}
force_inline void
emit_mul_f32(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MUL_F32;
}
force_inline void
emit_mod_f32(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MOD_F32;
*instruction = INS_LTE_U64;
}
@@ -508,9 +307,39 @@ emit_mul_f64(Bc *bc){
}
force_inline void
emit_mod_f64(Bc *bc){
emit_eq_f64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_MOD_F64;
*instruction = INS_EQ_F64;
}
force_inline void
emit_neq_f64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_NEQ_F64;
}
force_inline void
emit_gt_f64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_GT_F64;
}
force_inline void
emit_lt_f64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_LT_F64;
}
force_inline void
emit_gte_f64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_GTE_F64;
}
force_inline void
emit_lte_f64(Bc *bc){
U8 *instruction = (U8 *)arena_push_size(&bc->instructions, sizeof(U8));
*instruction = INS_LTE_F64;
}
//