From 95723f36d2aa7e1bcd343b2e072c0bcf28a3b1b5 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Sat, 21 Oct 2023 23:55:51 +0100
Subject: Implemented vm routines for OP_EQ_*

---
 src/runtime.c | 29 +++++++++++++++++++++++++++++
 src/runtime.h | 10 ++++++++++
 2 files changed, 39 insertions(+)

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));
+}
diff --git a/src/runtime.h b/src/runtime.h
index ea4edb9..2ec01df 100644
--- a/src/runtime.h
+++ b/src/runtime.h
@@ -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
-- 
cgit v1.2.3-13-gbd6f