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

Implemented new types of EQ, forced all comparators to push bytes

Browse Source 
Just need to call their unsigned versions.

All comparators should push bytes as it makes return types uniform.
This commit is contained in:
Aryadev Chavali
2023-10-31 21:05:25 +00:00
parent 036d3dcfba
commit 14a3820e74
1 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
vm/runtime.c
View File

@@ -725,8 +725,7 @@ err_t vm_eq_byte(vm_t *vm)
err_t vm_eq_char(vm_t *vm) err_t vm_eq_char(vm_t *vm)
{ {
(void)vm; return vm_eq_byte(vm);
return ERR_END_OF_PROGRAM;
} }
err_t vm_eq_hword(vm_t *vm) err_t vm_eq_hword(vm_t *vm)
@@ -738,19 +737,17 @@ err_t vm_eq_hword(vm_t *vm)
err = vm_pop_hword(vm, &b); err = vm_pop_hword(vm, &b);
if (err) if (err)
return err; return err;
return vm_push_hword(vm, DHWORD(a.as_hword == b.as_hword)); return vm_push_byte(vm, DBYTE(a.as_hword == b.as_hword));
} }
err_t vm_eq_int(vm_t *vm) err_t vm_eq_int(vm_t *vm)
{ {
(void)vm; return vm_eq_hword(vm);
return ERR_END_OF_PROGRAM;
} }
err_t vm_eq_long(vm_t *vm) err_t vm_eq_long(vm_t *vm)
{ {
(void)vm; return vm_eq_word(vm);
return ERR_END_OF_PROGRAM;
} }
err_t vm_eq_word(vm_t *vm) err_t vm_eq_word(vm_t *vm)
@@ -762,7 +759,7 @@ err_t vm_eq_word(vm_t *vm)
err = vm_pop_word(vm, &b); err = vm_pop_word(vm, &b);
if (err) if (err)
return err; return err;
return vm_push_word(vm, DWORD(a.as_word == b.as_word)); return vm_push_byte(vm, DBYTE(a.as_word == b.as_word));
} }
err_t vm_lt_byte(vm_t *vm) err_t vm_lt_byte(vm_t *vm)