From 9b65e770ec4dd28b668c53ff9c4d377dcab76d2e Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Sat, 25 Jan 2014 19:41:32 +0100 Subject: =?UTF-8?q?Impl=C3=A9mente=20les=20ann=C3=A9es=20bissextiles.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- cpu/alu.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'cpu/alu.ml') diff --git a/cpu/alu.ml b/cpu/alu.ml index 934e6d8..0629e35 100644 --- a/cpu/alu.ml +++ b/cpu/alu.ml @@ -284,7 +284,8 @@ let alu_comparer n f0 f a b = 1 2 lt unsigned 1 3 le unsigned *) - let eq_ne = mux (f ** 0) (eq_n n a b) (ne_n n a b) in + let eq_a_b = eq_n n a b in + let eq_ne = mux (f ** 0) (eq_a_b) (not eq_a_b) in let lte_signed = mux (f ** 0) (lt_n n a b) (le_n n a b) in let lte_unsigned = mux (f ** 0) (ult_n n a b) (ule_n n a b) in let lte = mux (f ** 1) lte_signed lte_unsigned in -- cgit v1.2.3