diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-04-29 17:11:47 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-04-29 17:11:47 +0000 |
commit | 5c84fd4adbcd8a63cc29fb0286cb46f18abde55c (patch) | |
tree | 39c5c7057d4a7da0b674d8427a9e8910927859f7 /backend/Cminor.v | |
parent | 540bc673fd0e924c20521bb011de56f11c91c493 (diff) | |
download | compcert-kvx-5c84fd4adbcd8a63cc29fb0286cb46f18abde55c.tar.gz compcert-kvx-5c84fd4adbcd8a63cc29fb0286cb46f18abde55c.zip |
Expand 64-bit integer comparisons into 32-bit integer comparisons.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2218 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
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 3963e76c..6b36b4dc 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] |