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 c630c25 commit f78affbCopy full SHA for f78affb
ArchSemArm/VMPromising.v
@@ -709,10 +709,8 @@ Definition va_to_vpn {n : N} (va : bv 64) : bv n :=
709
bv_extract 12 n va.
710
711
Definition prefix_to_va {n : N} (is_upper : bool) (p : bv n) : bv 64 :=
712
- if is_upper then
713
- bv_concat 64 (bv_1 16) (bv_concat 48 p (bv_0 (48 - n)))
714
- else
715
- 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))).
716
717
Definition level_prefix {n : N} (va : bv n) (lvl : Level) : prefix lvl :=
718
bv_extract (12 + 9 * (3 - lvl)) (9 * (lvl + 1)) va.
0 commit comments