Created routines for new comparator opcodes (not implemented)

Will cause error if used currently, which is fine.

1 files changed, 169 insertions, 4 deletions

diff --git a/vm/runtime.c b/vm/runtime.c
index ccda9d0..6fd6ab4 100644
--- a/vm/runtime.c
+++ b/vm/runtime.c
@@ -55,7 +55,7 @@ const char *err_as_cstr(err_t err)
 
 err_t vm_execute(vm_t *vm)
 {
-  static_assert(NUMBER_OF_OPCODES == 46, "vm_execute: Out of date");
+  static_assert(NUMBER_OF_OPCODES == 73, "vm_execute: Out of date");
   struct Program *prog = &vm->program;
   if (prog->ptr >= prog->max)
     return ERR_END_OF_PROGRAM;
@@ -103,6 +103,10 @@ err_t vm_execute(vm_t *vm)
            OPCODE_IS_TYPE(instruction.opcode, OP_AND) ||
            OPCODE_IS_TYPE(instruction.opcode, OP_XOR) ||
            OPCODE_IS_TYPE(instruction.opcode, OP_EQ) ||
+           OPCODE_IS_TYPE(instruction.opcode, OP_LT) ||
+           OPCODE_IS_TYPE(instruction.opcode, OP_LTE) ||
+           OPCODE_IS_TYPE(instruction.opcode, OP_GT) ||
+           OPCODE_IS_TYPE(instruction.opcode, OP_GTE) ||
            OPCODE_IS_TYPE(instruction.opcode, OP_PLUS))
   {
     prog->ptr++;
@@ -146,14 +150,13 @@ err_t vm_execute(vm_t *vm)
     else
       ++prog->ptr;
   }
-  else if (instruction.opcode >= OP_PRINT_CHAR &&
-           instruction.opcode <= OP_PRINT_WORD)
+  else if (OPCODE_IS_TYPE(instruction.opcode, OP_PRINT))
   {
     data_t datum = {0};
     enum
     {
-      TYPE_CHAR,
       TYPE_BYTE,
+      TYPE_CHAR,
       TYPE_INT,
       TYPE_HWORD,
       TYPE_LONG,
@@ -716,6 +719,12 @@ err_t vm_eq_byte(vm_t *vm)
   return vm_push_byte(vm, DBYTE(a.as_byte == b.as_byte));
 }
 
+err_t vm_eq_char(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
 err_t vm_eq_hword(vm_t *vm)
 {
   data_t a = {0}, b = {0};
@@ -728,6 +737,18 @@ err_t vm_eq_hword(vm_t *vm)
   return vm_push_hword(vm, DHWORD(a.as_hword == b.as_hword));
 }
 
+err_t vm_eq_int(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_eq_long(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
 err_t vm_eq_word(vm_t *vm)
 {
   data_t a = {0}, b = {0};
@@ -740,6 +761,150 @@ err_t vm_eq_word(vm_t *vm)
   return vm_push_word(vm, DWORD(a.as_word == b.as_word));
 }
 
+err_t vm_lt_byte(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lt_char(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lt_int(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lt_hword(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lt_long(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lt_word(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lte_byte(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lte_char(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lte_int(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lte_hword(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lte_long(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_lte_word(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gt_byte(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gt_char(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gt_int(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gt_hword(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gt_long(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gt_word(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gte_byte(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gte_char(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gte_int(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gte_hword(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gte_long(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
+err_t vm_gte_word(vm_t *vm)
+{
+  (void)vm;
+  return ERR_END_OF_PROGRAM;
+}
+
 err_t vm_plus_byte(vm_t *vm)
 {
   data_t a = {0}, b = {0};