max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore(library/vm/vm_int): missing builtin in the old VM

Browse source
This commit is contained in:
Leonardo de Moura 2018-11-15 16:57:41 -08:00
parent b55b1deaf5
commit da92557076
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/library/vm/vm_int.cpp
View file

@ -104,6 +104,14 @@ vm_obj int_add(vm_obj const & a1, vm_obj const & a2) {
}
}
vm_obj int_sub(vm_obj const & a1, vm_obj const & a2) {
if (is_simple(a1) && is_simple(a2)) {
return mk_vm_int(to_small_int(a1) - to_small_int(a2));
} else {
return mk_vm_int(to_mpz1(a1) - to_mpz2(a2));
}
}
vm_obj int_mul(vm_obj const & a1, vm_obj const & a2) {
if (is_simple(a1) && is_simple(a2)) {
long long r = static_cast<long long>(to_small_int(a1)) * static_cast<long long>(to_small_int(a2));
@ -219,6 +227,7 @@ void initialize_vm_int() {
DECLARE_VM_BUILTIN(name({"int", "nat_abs"}), int_nat_abs);
DECLARE_VM_BUILTIN(name({"int", "neg_succ_of_nat"}), int_neg_succ_of_nat);
DECLARE_VM_BUILTIN(name({"int", "add"}), int_add);
DECLARE_VM_BUILTIN(name({"int", "sub"}), int_sub);
DECLARE_VM_BUILTIN(name({"int", "mul"}), int_mul);
DECLARE_VM_BUILTIN(name({"int", "neg"}), int_neg);
DECLARE_VM_BUILTIN(name({"int", "quot"}), int_quot);