oreodave/aal
Archived
Public Access
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implemented vm routines for OP_EQ_*

Browse Source
This commit is contained in:
Aryadev Chavali
2023-10-21 23:55:51 +01:00
parent 50ce1b35cd
commit 95723f36d2
2 changed files with 39 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/runtime.c
View File

@@ -456,3 +456,32 @@ void vm_xor_word(vm_t *vm)
vm_push_word(vm, DWORD(a ^ b));
}
void vm_eq_byte(vm_t *vm)
{
if (vm->stack.ptr < 2)
// TODO: Error STACK_UNDERFLOW
return;
byte a = vm_pop_byte(vm).as_byte;
byte b = vm_pop_byte(vm).as_byte;
vm_push_byte(vm, DBYTE(a == b));
}
void vm_eq_hword(vm_t *vm)
{
if (vm->stack.ptr < (HWORD_SIZE * 2))
// TODO: Error STACK_UNDERFLOW
return;
hword a = vm_pop_hword(vm).as_hword;
hword b = vm_pop_hword(vm).as_hword;
vm_push_hword(vm, DHWORD(a == b));
}
void vm_eq_word(vm_t *vm)
{
if (vm->stack.ptr < (WORD_SIZE * 2))
// TODO: Error STACK_UNDERFLOW
return;
word a = vm_pop_word(vm).as_word;
word b = vm_pop_word(vm).as_word;
vm_push_word(vm, DWORD(a == b));
}

10
src/runtime.h
View File

@@ -141,4 +141,14 @@ static const xor_f XOR_ROUTINES[] = {
[OP_XOR_WORD] = vm_xor_word,
};
void vm_eq_byte(vm_t *);
void vm_eq_hword(vm_t *);
void vm_eq_word(vm_t *);
typedef void (*eq_f)(vm_t *);
static const eq_f EQ_ROUTINES[] = {
[OP_EQ_BYTE] = vm_eq_byte,
[OP_EQ_HWORD] = vm_eq_hword,
[OP_EQ_WORD] = vm_eq_word,
};
#endif