diff options
author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2015-09-30 12:45:40 +0200 |
---|---|---|
committer | Bernhard Schommer <bschommer@users.noreply.github.com> | 2015-09-30 12:45:40 +0200 |
commit | e443d76ad1ee0182353404317ab45c26227a59ea (patch) | |
tree | 1c110864431d8f6ba06c8746233397a3e221560e /backend/Constprop.v | |
parent | c212ab7a8adea516db72f17d818393629dbde1b3 (diff) | |
parent | ee76d81e0e7d8a76cd31bf0d01a532d248dca45a (diff) | |
download | compcert-e443d76ad1ee0182353404317ab45c26227a59ea.tar.gz compcert-e443d76ad1ee0182353404317ab45c26227a59ea.zip |
Merge pull request #56 from AbsInt/debug_locations
Debug locations
Diffstat (limited to 'backend/Constprop.v')
-rw-r--r-- | backend/Constprop.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/backend/Constprop.v b/backend/Constprop.v index cd844d30..8f4cb76d 100644 --- a/backend/Constprop.v +++ b/backend/Constprop.v @@ -144,9 +144,9 @@ Fixpoint debug_strength_reduction (ae: AE.t) (al: list (builtin_arg reg)) := | a :: al => let a' := builtin_arg_reduction ae a in let al' := a :: debug_strength_reduction ae al in - match a' with - | BA_int _ | BA_long _ | BA_float _ | BA_single _ => a' :: al' - | _ => al' + match a, a' with + | BA _, (BA_int _ | BA_long _ | BA_float _ | BA_single _) => a' :: al' + | _, _ => al' end end. |