diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-07 21:34:14 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-07 21:34:14 +0200 |
commit | 249482aed76d209ff203f9afeeb3f10db004e8c0 (patch) | |
tree | 80efa32a68a7b993ef94751e38acb4b49f849b7d /backend/Selection.v | |
parent | 5a3d4adc631f5b5d3dc4585b7b28ea18b6faf633 (diff) | |
download | compcert-kvx-249482aed76d209ff203f9afeeb3f10db004e8c0.tar.gz compcert-kvx-249482aed76d209ff203f9afeeb3f10db004e8c0.zip |
start implementing expect as expr
Diffstat (limited to 'backend/Selection.v')
-rw-r--r-- | backend/Selection.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/backend/Selection.v b/backend/Selection.v index 7ba8fe92..fcb14127 100644 --- a/backend/Selection.v +++ b/backend/Selection.v @@ -120,6 +120,7 @@ Definition sel_unop (op: Cminor.unary_operation) (arg: expr) : expr := Definition sel_binop (op: Cminor.binary_operation) (arg1 arg2: expr) : expr := match op with + | Cminor.Oexpect ty => arg1 | Cminor.Oadd => add arg1 arg2 | Cminor.Osub => sub arg1 arg2 | Cminor.Omul => mul arg1 arg2 @@ -244,7 +245,7 @@ Function sel_known_builtin (bf: builtin_function) (args: exprlist) := match bf, args with | BI_platform b, _ => SelectOp.platform_builtin b args - | BI_standard BI_expect, a1 ::: a2 ::: Enil => Some a1 +(* | BI_standard BI_expect, a1 ::: a2 ::: Enil => Some a1 *) | BI_standard (BI_select ty), a1 ::: a2 ::: a3 ::: Enil => Some (sel_select ty a1 a2 a3) | BI_standard BI_fabs, a1 ::: Enil => |