diff options
Diffstat (limited to 'backend/Cminor.v')
| -rw-r--r-- | backend/Cminor.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Cminor.v b/backend/Cminor.v index 3963e76..6b36b4d 100644 --- a/backend/Cminor.v +++ b/backend/Cminor.v @@ -309,8 +309,8 @@ Definition eval_binop | Ocmp c => Some (Val.cmp c arg1 arg2) | Ocmpu c => Some (Val.cmpu (Mem.valid_pointer m) c arg1 arg2) | Ocmpf c => Some (Val.cmpf c arg1 arg2) - | Ocmpl c => Some (Val.cmpl c arg1 arg2) - | Ocmplu c => Some (Val.cmplu c arg1 arg2) + | Ocmpl c => Val.cmpl c arg1 arg2 + | Ocmplu c => Val.cmplu c arg1 arg2 end. (** Evaluation of an expression: [eval_expr ge sp e m a v] |