diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-06 19:38:53 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-06 19:38:53 +0200 |
| commit | dba05a9f6259c82a350987b511bf1a71f113d0ba (patch) | |
| tree | 6e7fee8d65b6a180447267da9a95a93827443caf /backend/Locations.v | |
| parent | 108db39b8b7c1d42cbc38c5aabf885ef5440f189 (diff) | |
| parent | 47d0e5256ab79b402faae14260fa2fabc1d24dcb (diff) | |
| download | compcert-dba05a9f6259c82a350987b511bf1a71f113d0ba.tar.gz compcert-dba05a9f6259c82a350987b511bf1a71f113d0ba.zip | |
X
Merge branch 'master' into debug_locations
Diffstat (limited to 'backend/Locations.v')
| -rw-r--r-- | backend/Locations.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/backend/Locations.v b/backend/Locations.v index 5674b93a..439cd2dc 100644 --- a/backend/Locations.v +++ b/backend/Locations.v @@ -377,6 +377,14 @@ Module Locmap. destruct vl; auto. destruct H. rewrite IHll; auto. apply gso; auto. apply Loc.diff_sym; auto. Qed. + Fixpoint setres (res: builtin_res mreg) (v: val) (m: t) : t := + match res with + | BR r => set (R r) v m + | BR_none => m + | BR_splitlong hi lo => + setres lo (Val.loword v) (setres hi (Val.hiword v) m) + end. + End Locmap. (** * Total ordering over locations *) |