diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
| commit | 615fb53c13f2407a0b6b470bbdf8e468fc4a1d78 (patch) | |
| tree | ec5f45b6546e19519f59b1ee0f42955616ca1b98 /backend/Registers.v | |
| parent | d1cdc0496d7d52e3ab91554dbf53fcc0e7f244eb (diff) | |
| download | compcert-kvx-615fb53c13f2407a0b6b470bbdf8e468fc4a1d78.tar.gz compcert-kvx-615fb53c13f2407a0b6b470bbdf8e468fc4a1d78.zip | |
Adapted to work with Coq 8.2-1v1.4.1
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1076 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Registers.v')
| -rw-r--r-- | backend/Registers.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/backend/Registers.v b/backend/Registers.v index c3d04d60..fceb7c24 100644 --- a/backend/Registers.v +++ b/backend/Registers.v @@ -24,7 +24,7 @@ Require Import Ordered. Require Import FSets. Require FSetAVL. -Definition reg: Set := positive. +Definition reg: Type := positive. Module Reg. @@ -41,14 +41,14 @@ Module Regmap := PMap. Set Implicit Arguments. Definition regmap_optget - (A: Set) (or: option reg) (dfl: A) (rs: Regmap.t A) : A := + (A: Type) (or: option reg) (dfl: A) (rs: Regmap.t A) : A := match or with | None => dfl | Some r => Regmap.get r rs end. Definition regmap_optset - (A: Set) (or: option reg) (v: A) (rs: Regmap.t A) : Regmap.t A := + (A: Type) (or: option reg) (v: A) (rs: Regmap.t A) : Regmap.t A := match or with | None => rs | Some r => Regmap.set r v rs |