st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-05 22:38:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed common.ml

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-02-25 20:35:54 +03:00
parent ffe6740e6d
commit f3bc389b62
1 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
regression/common.ml
View file

@ -1,6 +1,16 @@
open GT
open Syntax.Expr
open Syntax
let conj = (&&)
open Embedding
let state ps = List.fold_right (fun (x, v) s -> update x v s) ps empty
let eval s e = Printf.printf "%d\n" (eval s e)
let state ps = List.fold_right (fun (x, v) (s, p) -> Expr.update x v s, (x =:= !? v) :: p) ps (Expr.empty, [])
let eval (s, p) e =
let orig = Expr.eval s e in
let stmt = List.fold_right (fun p s -> p |> s) p (Stmt.Write e) in
let [s_orig] = eval [] stmt in
let [sm_orig] = SM.run [] (SM.compile stmt) in
if conj (orig = s_orig) (orig = sm_orig)
then Printf.printf "%d\n" orig
else Printf.printf "*** divergence: %d <?> %d <?> %d\n" orig s_orig sm_orig