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

Implemented all the comparators

Browse Source 
So much reused code, I definitely need to find a way to make this cleaner.
This commit is contained in:
Aryadev Chavali
2023-10-31 21:24:54 +00:00
parent 7817b5acc9
commit f7f566b106
1 changed files with 228 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

276
vm/runtime.c
View File

@@ -764,146 +764,326 @@ err_t vm_eq_word(vm_t *vm)
err_t vm_lt_byte(vm_t *vm) err_t vm_lt_byte(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_byte(vm, &a);
if (err)
return err;
err = vm_pop_byte(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_byte < b.as_byte));
} }
err_t vm_lt_char(vm_t *vm) err_t vm_lt_char(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_byte(vm, &a);
if (err)
return err;
err = vm_pop_byte(vm, &b);
if (err)
return err;
char a_, b_;
memcpy(&a_, &a.as_byte, 1);
memcpy(&b_, &b.as_byte, 1);
return vm_push_byte(vm, DBYTE(a_ < b_));
} }
err_t vm_lt_int(vm_t *vm) err_t vm_lt_int(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_hword(vm, &a);
if (err)
return err;
err = vm_pop_hword(vm, &b);
if (err)
return err;
s_hword a_, b_;
memcpy(&a_, &a.as_hword, HWORD_SIZE);
memcpy(&b_, &b.as_hword, HWORD_SIZE);
return vm_push_byte(vm, DBYTE(a_ < b_));
} }
err_t vm_lt_hword(vm_t *vm) err_t vm_lt_hword(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_hword(vm, &a);
if (err)
return err;
err = vm_pop_hword(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_byte < b.as_byte));
} }
err_t vm_lt_long(vm_t *vm) err_t vm_lt_long(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_word(vm, &a);
if (err)
return err;
err = vm_pop_word(vm, &b);
if (err)
return err;
s_word a_, b_;
memcpy(&a_, &a.as_word, WORD_SIZE);
memcpy(&b_, &b.as_word, WORD_SIZE);
return vm_push_byte(vm, DBYTE(a_ < b_));
} }
err_t vm_lt_word(vm_t *vm) err_t vm_lt_word(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_word(vm, &a);
if (err)
return err;
err = vm_pop_word(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_word < b.as_word));
} }
err_t vm_lte_byte(vm_t *vm) err_t vm_lte_byte(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_byte(vm, &a);
if (err)
return err;
err = vm_pop_byte(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_byte <= b.as_byte));
} }
err_t vm_lte_char(vm_t *vm) err_t vm_lte_char(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_byte(vm, &a);
if (err)
return err;
err = vm_pop_byte(vm, &b);
if (err)
return err;
char a_, b_;
memcpy(&a_, &a.as_byte, 1);
memcpy(&b_, &b.as_byte, 1);
return vm_push_byte(vm, DBYTE(a_ <= b_));
} }
err_t vm_lte_int(vm_t *vm) err_t vm_lte_int(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_hword(vm, &a);
if (err)
return err;
err = vm_pop_hword(vm, &b);
if (err)
return err;
s_hword a_, b_;
memcpy(&a_, &a.as_hword, HWORD_SIZE);
memcpy(&b_, &b.as_hword, HWORD_SIZE);
return vm_push_byte(vm, DBYTE(a_ <= b_));
} }
err_t vm_lte_hword(vm_t *vm) err_t vm_lte_hword(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_hword(vm, &a);
if (err)
return err;
err = vm_pop_hword(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_byte <= b.as_byte));
} }
err_t vm_lte_long(vm_t *vm) err_t vm_lte_long(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_word(vm, &a);
if (err)
return err;
err = vm_pop_word(vm, &b);
if (err)
return err;
s_word a_, b_;
memcpy(&a_, &a.as_word, WORD_SIZE);
memcpy(&b_, &b.as_word, WORD_SIZE);
return vm_push_byte(vm, DBYTE(a_ <= b_));
} }
err_t vm_lte_word(vm_t *vm) err_t vm_lte_word(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_word(vm, &a);
if (err)
return err;
err = vm_pop_word(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_word <= b.as_word));
} }
err_t vm_gt_byte(vm_t *vm) err_t vm_gt_byte(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_byte(vm, &a);
if (err)
return err;
err = vm_pop_byte(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_byte > b.as_byte));
} }
err_t vm_gt_char(vm_t *vm) err_t vm_gt_char(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_byte(vm, &a);
if (err)
return err;
err = vm_pop_byte(vm, &b);
if (err)
return err;
char a_, b_;
memcpy(&a_, &a.as_byte, 1);
memcpy(&b_, &b.as_byte, 1);
return vm_push_byte(vm, DBYTE(a_ > b_));
} }
err_t vm_gt_int(vm_t *vm) err_t vm_gt_int(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_hword(vm, &a);
if (err)
return err;
err = vm_pop_hword(vm, &b);
if (err)
return err;
s_hword a_, b_;
memcpy(&a_, &a.as_hword, HWORD_SIZE);
memcpy(&b_, &b.as_hword, HWORD_SIZE);
return vm_push_byte(vm, DBYTE(a_ > b_));
} }
err_t vm_gt_hword(vm_t *vm) err_t vm_gt_hword(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_hword(vm, &a);
if (err)
return err;
err = vm_pop_hword(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_byte > b.as_byte));
} }
err_t vm_gt_long(vm_t *vm) err_t vm_gt_long(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_word(vm, &a);
if (err)
return err;
err = vm_pop_word(vm, &b);
if (err)
return err;
s_word a_, b_;
memcpy(&a_, &a.as_word, WORD_SIZE);
memcpy(&b_, &b.as_word, WORD_SIZE);
return vm_push_byte(vm, DBYTE(a_ > b_));
} }
err_t vm_gt_word(vm_t *vm) err_t vm_gt_word(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_word(vm, &a);
if (err)
return err;
err = vm_pop_word(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_word > b.as_word));
} }
err_t vm_gte_byte(vm_t *vm) err_t vm_gte_byte(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_byte(vm, &a);
if (err)
return err;
err = vm_pop_byte(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_byte >= b.as_byte));
} }
err_t vm_gte_char(vm_t *vm) err_t vm_gte_char(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_byte(vm, &a);
if (err)
return err;
err = vm_pop_byte(vm, &b);
if (err)
return err;
char a_, b_;
memcpy(&a_, &a.as_byte, 1);
memcpy(&b_, &b.as_byte, 1);
return vm_push_byte(vm, DBYTE(a_ >= b_));
} }
err_t vm_gte_int(vm_t *vm) err_t vm_gte_int(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_hword(vm, &a);
if (err)
return err;
err = vm_pop_hword(vm, &b);
if (err)
return err;
s_hword a_, b_;
memcpy(&a_, &a.as_hword, HWORD_SIZE);
memcpy(&b_, &b.as_hword, HWORD_SIZE);
return vm_push_byte(vm, DBYTE(a_ >= b_));
} }
err_t vm_gte_hword(vm_t *vm) err_t vm_gte_hword(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_hword(vm, &a);
if (err)
return err;
err = vm_pop_hword(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_byte >= b.as_byte));
} }
err_t vm_gte_long(vm_t *vm) err_t vm_gte_long(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_word(vm, &a);
if (err)
return err;
err = vm_pop_word(vm, &b);
if (err)
return err;
s_word a_, b_;
memcpy(&a_, &a.as_word, WORD_SIZE);
memcpy(&b_, &b.as_word, WORD_SIZE);
return vm_push_byte(vm, DBYTE(a_ >= b_));
} }
err_t vm_gte_word(vm_t *vm) err_t vm_gte_word(vm_t *vm)
{ {
(void)vm; data_t a = {0}, b = {0};
return ERR_END_OF_PROGRAM; err_t err = vm_pop_word(vm, &a);
if (err)
return err;
err = vm_pop_word(vm, &b);
if (err)
return err;
return vm_push_byte(vm, DBYTE(a.as_word >= b.as_word));
} }
err_t vm_plus_byte(vm_t *vm) err_t vm_plus_byte(vm_t *vm)