105 lines
2.5 KiB
C
105 lines
2.5 KiB
C
#include <vm/fzl_vm.h>
|
|
#include <vm/internals/opcode.h>
|
|
|
|
int op_cmp_eq(fzl_vm_t *vm)
|
|
{
|
|
if (vm->dtop < 2)
|
|
{
|
|
snprintf(last_err, sizeof(last_err),
|
|
"runtime error - expected two values in data stack");
|
|
print_err_data(vm);
|
|
return -1;
|
|
}
|
|
|
|
fzl_value_t req = vm->dstack[--vm->dtop];
|
|
fzl_value_t leq = vm->dstack[--vm->dtop];
|
|
vm->dstack[vm->dtop++] =
|
|
(fzl_value_t){.type = FZL_TYPE_BOOL, .as.b = leq.as.u == req.as.u};
|
|
return 0;
|
|
}
|
|
|
|
int op_cmp_neq(fzl_vm_t *vm)
|
|
{
|
|
if (vm->dtop < 2)
|
|
{
|
|
snprintf(last_err, sizeof(last_err),
|
|
"runtime error - expected two values in data stack");
|
|
print_err_data(vm);
|
|
return -1;
|
|
}
|
|
|
|
fzl_value_t rneq = vm->dstack[--vm->dtop];
|
|
fzl_value_t lneq = vm->dstack[--vm->dtop];
|
|
vm->dstack[vm->dtop++] =
|
|
(fzl_value_t){.type = FZL_TYPE_BOOL, .as.b = lneq.as.u != rneq.as.u};
|
|
return 0;
|
|
}
|
|
|
|
int op_cmp_lt(fzl_vm_t *vm)
|
|
{
|
|
if (vm->dtop < 2)
|
|
{
|
|
snprintf(last_err, sizeof(last_err),
|
|
"runtime error - expected two values in data stack");
|
|
print_err_data(vm);
|
|
return -1;
|
|
}
|
|
|
|
fzl_value_t rlt = vm->dstack[--vm->dtop];
|
|
fzl_value_t llt = vm->dstack[--vm->dtop];
|
|
vm->dstack[vm->dtop++] =
|
|
(fzl_value_t){.type = FZL_TYPE_BOOL, .as.b = llt.as.u < rlt.as.u};
|
|
return 0;
|
|
}
|
|
|
|
int op_cmp_lteq(fzl_vm_t *vm)
|
|
{
|
|
if (vm->dtop < 2)
|
|
{
|
|
snprintf(last_err, sizeof(last_err),
|
|
"runtime error - expected two values in data stack");
|
|
print_err_data(vm);
|
|
return -1;
|
|
}
|
|
|
|
fzl_value_t rlteq = vm->dstack[--vm->dtop];
|
|
fzl_value_t llteq = vm->dstack[--vm->dtop];
|
|
vm->dstack[vm->dtop++] =
|
|
(fzl_value_t){.type = FZL_TYPE_BOOL, .as.b = llteq.as.u <= rlteq.as.u};
|
|
return 0;
|
|
}
|
|
|
|
int op_cmp_gt(fzl_vm_t *vm)
|
|
{
|
|
if (vm->dtop < 2)
|
|
{
|
|
snprintf(last_err, sizeof(last_err),
|
|
"runtime error - expected two values in data stack");
|
|
print_err_data(vm);
|
|
return -1;
|
|
}
|
|
|
|
fzl_value_t rgt = vm->dstack[--vm->dtop];
|
|
fzl_value_t lgt = vm->dstack[--vm->dtop];
|
|
vm->dstack[vm->dtop++] =
|
|
(fzl_value_t){.type = FZL_TYPE_BOOL, .as.b = lgt.as.u > rgt.as.u};
|
|
return 0;
|
|
}
|
|
|
|
int op_cmp_gteq(fzl_vm_t *vm)
|
|
{
|
|
if (vm->dtop < 2)
|
|
{
|
|
snprintf(last_err, sizeof(last_err),
|
|
"runtime error - expected two values in data stack");
|
|
print_err_data(vm);
|
|
return -1;
|
|
}
|
|
|
|
fzl_value_t rgteq = vm->dstack[--vm->dtop];
|
|
fzl_value_t lgteq = vm->dstack[--vm->dtop];
|
|
vm->dstack[vm->dtop++] =
|
|
(fzl_value_t){.type = FZL_TYPE_BOOL, .as.b = lgteq.as.u >= rgteq.as.u};
|
|
return 0;
|
|
}
|