Attention une mise à jour du service Gitlab va être effectuée le mardi 18 janvier (et non lundi 17 comme annoncé précédemment) entre 18h00 et 18h30. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit 2e98995c authored by MARCHE Claude's avatar MARCHE Claude
Browse files

Interp: removed debug msgs and add tests with Fibonacci

parent 61750d2b
......@@ -144,4 +144,10 @@ module FibonacciLogarithmic
let fibo n requires { n >= 0 } ensures { result = fib n } =
let _, b = logfib n in b
let test0 () = fibo 0
let test1 () = fibo 1
let test7 () = fibo 7
let test42 () = fibo 42
end
......@@ -622,7 +622,7 @@ let rec eval_expr env (s:state) (e : expr) : result * state =
(fun _ _ -> assert false)
subst env'.regenv }
in
(* *)
(*
eprintf "@[Evaluating function body of %s in regenv: %a@\nand state: %a@]@."
ps.ps_name.Ident.id_string
(Pp.print_list Pp.comma
......@@ -632,9 +632,12 @@ let rec eval_expr env (s:state) (e : expr) : result * state =
Mlw_pretty.print_reg r2))
(Mreg.bindings env''.regenv)
print_state s';
*)
let r,s'' = eval_expr env'' s' lam.l_expr in
(*
printf "@[ -> result: %a@\nstate: %a@]@."
print_result r print_state s'';
*)
r,s''
| _ -> Irred e, s
end
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment