max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix: bugs at infer

Browse source
This commit is contained in:
Leonardo de Moura 2019-10-07 10:52:17 -07:00
parent 27599b11b5
commit 4e53cc0bfa
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
library/Init/Lean/Compiler/IR/UnreachBranches.lean
View file

@ -59,7 +59,7 @@ protected partial def format : Value → Format
| top => "top"
| bot => "bot"
| choice vs => fmt "@" ++ @List.format _ ⟨format⟩ vs
| ctor i vs => fmt i.name ++ @formatArray _ ⟨format⟩ vs
| ctor i vs => fmt "#" ++ fmt i.name ++ @formatArray _ ⟨format⟩ vs
instance : HasFormat Value := ⟨Value.format⟩
instance : HasToString Value := ⟨Format.pretty ∘ Value.format⟩
@ -107,7 +107,7 @@ do ctx ← read;
s ← get;
match (s.assignments.get! ctx.currFnIdx).find x with
| some v => pure v
| none => pure top
| none => pure bot
def findArgValue (arg : Arg) : M Value :=
match arg with
@ -196,10 +196,11 @@ def inferStep : M Bool :=
do ctx ← read;
ctx.decls.size.mfold (fun idx modified => do
match ctx.decls.get! idx with
| Decl.fdecl _ _ _ b => do
| Decl.fdecl _ ys _ b => do
s ← get;
let currVals := s.funVals.get! idx;
adaptReader (fun (ctx : InterpContext) => { currFnIdx := idx, .. ctx }) $
adaptReader (fun (ctx : InterpContext) => { currFnIdx := idx, .. ctx }) $ do
ys.mfor $ fun y => updateVarAssignment y.x top;
interpFnBody b;
s ← get;
let newVals := s.funVals.get! idx;