From 95723f36d2aa7e1bcd343b2e072c0bcf28a3b1b5 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Sat, 21 Oct 2023 23:55:51 +0100 Subject: Implemented vm routines for OP_EQ_* --- src/runtime.c | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) (limited to 'src/runtime.c') diff --git a/src/runtime.c b/src/runtime.c index 19115b6..b330a61 100644 --- a/src/runtime.c +++ b/src/runtime.c @@ -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)); +} -- cgit v1.2.3-13-gbd6f