diff options
| author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2017-09-22 19:50:52 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2017-09-22 19:53:06 +0200 |
| commit | 8d5c6bb8f0cac1339dec7b730997ee30b1517073 (patch) | |
| tree | 3ffd8bcb28a88ae4ff51989aed37b0ad2cb676b2 /common/Switch.v | |
| parent | 0f210f622a4609811959f4450f770c61f5eb6532 (diff) | |
| download | compcert-kvx-8d5c6bb8f0cac1339dec7b730997ee30b1517073.tar.gz compcert-kvx-8d5c6bb8f0cac1339dec7b730997ee30b1517073.zip | |
Remove coq warnings (#28)
Replace deprecated functions and theorems from the Coq standard library (version 8.6) by their non-deprecated counterparts.
Diffstat (limited to 'common/Switch.v')
| -rw-r--r-- | common/Switch.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/common/Switch.v b/common/Switch.v index 0df2bbc8..0ef91d60 100644 --- a/common/Switch.v +++ b/common/Switch.v @@ -123,8 +123,8 @@ Fixpoint validate_jumptable (cases: ZMap.t nat) match tbl with | nil => true | act :: rem => - beq_nat act (ZMap.get n cases) - && validate_jumptable cases rem (Zsucc n) + Nat.eqb act (ZMap.get n cases) + && validate_jumptable cases rem (Z.succ n) end. Fixpoint validate (default: nat) (cases: table) (t: comptree) @@ -133,9 +133,9 @@ Fixpoint validate (default: nat) (cases: table) (t: comptree) | CTaction act => match cases with | nil => - beq_nat act default + Nat.eqb act default | (key1, act1) :: _ => - zeq key1 lo && zeq lo hi && beq_nat act act1 + zeq key1 lo && zeq lo hi && Nat.eqb act act1 end | CTifeq pivot act t' => zle 0 pivot && zlt pivot modulus && @@ -143,7 +143,7 @@ Fixpoint validate (default: nat) (cases: table) (t: comptree) | (None, _) => false | (Some act', others) => - beq_nat act act' + Nat.eqb act act' && validate default others t' (refine_low_bound pivot lo) (refine_high_bound pivot hi) |