diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-03 20:12:42 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-03 20:12:42 +0200 |
commit | dbdc40aede7a71596ee2412289df0169215d26d1 (patch) | |
tree | 3729bf48ece0048fb36045584cf46a8adc2b54b9 /backend/Constprop.v | |
parent | 5177f34535a70e4335dbab3a66c916c976405df7 (diff) | |
download | compcert-kvx-dbdc40aede7a71596ee2412289df0169215d26d1.tar.gz compcert-kvx-dbdc40aede7a71596ee2412289df0169215d26d1.zip |
advancing in constant propagation
Diffstat (limited to 'backend/Constprop.v')
-rw-r--r-- | backend/Constprop.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Constprop.v b/backend/Constprop.v index cf1a9171..eda41b39 100644 --- a/backend/Constprop.v +++ b/backend/Constprop.v @@ -181,7 +181,7 @@ Definition transf_instr (f: function) (an: PMap.t VA.t) (rm: romem) let (op', args') := op_strength_reduction op args aargs in Iop op' args' res s' end - | Iload trap chunk addr args dst s => + | Iload TRAP chunk addr args dst s => let aargs := aregs ae args in let a := ValueDomain.loadv chunk rm am (eval_static_addressing addr aargs) in match const_for_result a with @@ -189,7 +189,7 @@ Definition transf_instr (f: function) (an: PMap.t VA.t) (rm: romem) Iop cop nil dst s | None => let (addr', args') := addr_strength_reduction addr args aargs in - Iload trap chunk addr' args' dst s + Iload TRAP chunk addr' args' dst s end | Istore chunk addr args src s => let aargs := aregs ae args in |