diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-12-12 22:10:22 +0100 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-12-12 22:10:22 +0100 |
| commit | a3924f657b36abfad0448d0fe7d30fd40e0068de (patch) | |
| tree | 6225b9b2e509d753353c45063870bee2758e4261 /kvx/ValueAOp.v | |
| parent | 4f7d6d6a081de52fe1151a29d44221f4fc35f7be (diff) | |
| download | compcert-kvx-a3924f657b36abfad0448d0fe7d30fd40e0068de.tar.gz compcert-kvx-a3924f657b36abfad0448d0fe7d30fd40e0068de.zip | |
some more fixed etc. constructs
Diffstat (limited to 'kvx/ValueAOp.v')
| -rw-r--r-- | kvx/ValueAOp.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kvx/ValueAOp.v b/kvx/ValueAOp.v index 87554258..4909a25b 100644 --- a/kvx/ValueAOp.v +++ b/kvx/ValueAOp.v @@ -298,6 +298,10 @@ Definition eval_static_operation (op: operation) (vl: list aval): aval := | Olonguofsingle, v1::nil => longuofsingle_total v1 | Osingleoflong, v1::nil => singleoflong v1 | Osingleoflongu, v1::nil => singleoflongu v1 + | Ointofsingle_ne, v1::nil => intofsingle_ne_total v1 + | Ointuofsingle_ne, v1::nil => intuofsingle_ne_total v1 + | Olongoffloat_ne, v1::nil => longoffloat_ne_total v1 + | Olonguoffloat_ne, v1::nil => longuoffloat_ne_total v1 | Ocmp c, _ => of_optbool (eval_static_condition c vl) | (Oextfz stop start), v0::nil => eval_static_extfz stop start v0 | (Oextfs stop start), v0::nil => eval_static_extfs stop start v0 |