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

fix(library/vm/vm_nat): fix VM definition of nat.shiftr

Browse source 
fixes #1723
This commit is contained in:
Mario Carneiro 2017-07-11 13:35:51 +01:00 • committed by Gabriel Ebner
parent 8f31cff99b
commit ced436a707
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/library/vm/vm_nat.cpp
View file

@ -175,7 +175,8 @@ vm_obj nat_shiftl(vm_obj const & a1, vm_obj const & a2) {
vm_obj nat_shiftr(vm_obj const & a1, vm_obj const & a2) {
if (LEAN_LIKELY(is_simple(a1) && is_simple(a2))) {
return mk_vm_nat(cidx(a1) >> cidx(a2));
int v2 = cidx(a2);
return v2 < 32 ? mk_vm_nat(cidx(a1) >> v2) : mk_vm_simple(0);
} else {
mpz v1 = to_mpz1(a1);
div2k(v1, v1, to_unsigned(a2));