diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 11:15:34 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 11:15:34 +0100 |
| commit | 3bd82b3cb10a721f2e2c8db6d0271c83a22095a3 (patch) | |
| tree | 5bcb0ee57b1ab5f8083594f0596edcf1cd3990e8 /backend | |
| parent | c736e7d34560fef54ec4ab652be28bf2df4e907f (diff) | |
| download | compcert-3bd82b3cb10a721f2e2c8db6d0271c83a22095a3.tar.gz compcert-3bd82b3cb10a721f2e2c8db6d0271c83a22095a3.zip | |
Use "Local" as prefix
Open Local becomes Local Open. This silences Coq 8.6's warning.
Also: remove one useless Require-inside-a-module that caused another warning.
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/RTLgenproof.v | 2 | ||||
| -rw-r--r-- | backend/SelectDiv.vp | 2 | ||||
| -rw-r--r-- | backend/SelectDivproof.v | 2 | ||||
| -rw-r--r-- | backend/SplitLongproof.v | 4 | ||||
| -rw-r--r-- | backend/Stacking.v | 2 |
5 files changed, 6 insertions, 6 deletions
diff --git a/backend/RTLgenproof.v b/backend/RTLgenproof.v index ace822fd..b635fd58 100644 --- a/backend/RTLgenproof.v +++ b/backend/RTLgenproof.v @@ -1082,7 +1082,7 @@ End CORRECTNESS_EXPR. (** ** Measure over CminorSel states *) -Open Local Scope nat_scope. +Local Open Scope nat_scope. Fixpoint size_stmt (s: stmt) : nat := match s with diff --git a/backend/SelectDiv.vp b/backend/SelectDiv.vp index 5cc66322..dc85fb25 100644 --- a/backend/SelectDiv.vp +++ b/backend/SelectDiv.vp @@ -17,7 +17,7 @@ Require Import Compopts. Require Import AST Integers Floats. Require Import Op CminorSel SelectOp SplitLong SelectLong. -Open Local Scope cminorsel_scope. +Local Open Scope cminorsel_scope. (** We try to turn divisions by a constant into a multiplication by a pseudo-inverse of the divisor. The approach is described in diff --git a/backend/SelectDivproof.v b/backend/SelectDivproof.v index 3180a55d..2ca30e52 100644 --- a/backend/SelectDivproof.v +++ b/backend/SelectDivproof.v @@ -17,7 +17,7 @@ Require Import AST Integers Floats Values Memory Globalenvs Events. Require Import Cminor Op CminorSel. Require Import SelectOp SelectOpproof SplitLong SplitLongproof SelectLong SelectLongproof SelectDiv. -Open Local Scope cminorsel_scope. +Local Open Scope cminorsel_scope. (** * Main approximation theorems *) diff --git a/backend/SplitLongproof.v b/backend/SplitLongproof.v index 8c8dea2f..3b1eaa6b 100644 --- a/backend/SplitLongproof.v +++ b/backend/SplitLongproof.v @@ -18,8 +18,8 @@ Require Import AST Errors Integers Floats. Require Import Values Memory Globalenvs Events Cminor Op CminorSel. Require Import SelectOp SelectOpproof SplitLong. -Open Local Scope cminorsel_scope. -Open Local Scope string_scope. +Local Open Scope cminorsel_scope. +Local Open Scope string_scope. (** * Axiomatization of the helper functions *) diff --git a/backend/Stacking.v b/backend/Stacking.v index 700025c2..f51848f2 100644 --- a/backend/Stacking.v +++ b/backend/Stacking.v @@ -169,7 +169,7 @@ Definition transl_code Definition transl_body (f: Linear.function) (fe: frame_env) := save_callee_save fe (transl_code fe f.(Linear.fn_code)). -Open Local Scope string_scope. +Local Open Scope string_scope. Definition transf_function (f: Linear.function) : res Mach.function := let fe := make_env (function_bounds f) in |