From 39df9f197b987e0a2c564276d5b65a97f1fb2700 Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Fri, 3 Jan 2014 23:11:45 +0100 Subject: Style corrections. --- cpu/example_cpu.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'cpu/example_cpu.ml') diff --git a/cpu/example_cpu.ml b/cpu/example_cpu.ml index e626cae..17106b6 100644 --- a/cpu/example_cpu.ml +++ b/cpu/example_cpu.ml @@ -5,7 +5,7 @@ open Netlist_gen let sumz n i = let x, set_x = loop n in let r = reg n x in - let o1, o2 = Alu.nadder n i r (const "0") in + let o1, o2 = Alu.nadder_with_carry n i r (const "0") in set_x o1, o2 let p = -- cgit v1.2.3