We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0bc0bc6 commit 0232e0fCopy full SHA for 0232e0f
ArchSemArm/VMPromising.v
@@ -720,10 +720,8 @@ Definition va_to_vpn {n : N} (va : bv 64) : bv n :=
720
bv_extract 12 n va.
721
722
Definition prefix_to_va {n : N} (is_upper : bool) (p : bv n) : bv 64 :=
723
- if is_upper then
724
- bv_concat 64 (bv_1 16) (bv_concat 48 p (bv_0 (48 - n)))
725
- else
726
- bv_concat 64 (bv_0 16) (bv_concat 48 p (bv_0 (48 - n))).
+ let varange_bit := if is_upper then (bv_1 16) else (bv_0 16) in
+ bv_concat 64 varange_bit (bv_concat 48 p (bv_0 (48 - n))).
727
728
Definition level_prefix {n : N} (va : bv n) (lvl : Level) : prefix lvl :=
729
bv_extract (12 + 9 * (3 - lvl)) (9 * (lvl + 1)) va.
0 commit comments