edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-03 18:33:09 +03:00
Code Issues Projects Releases Wiki Activity

Need to save postponed names in ttc too

Browse Source 
Flag these when searching names for references
This commit is contained in:
Edwin Brady 2019-06-30 12:49:11 +01:00
parent ae777b8dcb
commit eddb23d108
3 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Compiler/CompileExpr.idr
View File

@ -305,13 +305,17 @@ toCDef tags n (TCon tag arity _ _ _ _)
-- We do want to be able to compile these, but also report an error at run time
-- (and, TODO: warn at compile time)
toCDef tags n (Hole _ _)
= pure $ MkError $ CCrash emptyFC ("Encountered unimplemented hole " ++ show n)
= pure $ MkError $ CCrash emptyFC ("Encountered unimplemented hole " ++
show !(getFullName n))
toCDef tags n (Guess _ _)
= pure $ MkError $ CCrash emptyFC ("Encountered constrained hole " ++ show n)
= pure $ MkError $ CCrash emptyFC ("Encountered constrained hole " ++
show !(getFullName n))
toCDef tags n (BySearch _ _ _)
= pure $ MkError $ CCrash emptyFC ("Encountered incomplete proof search " ++ show n)
= pure $ MkError $ CCrash emptyFC ("Encountered incomplete proof search " ++
show !(getFullName n))
toCDef tags n def
= pure $ MkError $ CCrash emptyFC ("Encountered uncompilable name " ++ show (n, def))
= pure $ MkError $ CCrash emptyFC ("Encountered uncompilable name " ++
show (!(getFullName n), def))
export
compileExp : {auto c : Ref Ctxt Defs} ->

5
src/TTImp/ProcessDef.idr
View File

@ -548,6 +548,11 @@ calcRefs at fn
| Just _ => pure () -- already done
let metas = getMetas tree_ct
let refs = addRefs at metas tree_ct
traverse_ addToSave (keys metas)
logC 5 (do fulln <- getFullName fn
refns <- traverse getFullName (keys refs)
pure (show fulln ++ " refers to " ++ show refns))
addDef fn (record { refersToM = Just refs } gdef)
traverse_ (calcRefs at) (keys refs)

2
tests/Main.idr
View File

@ -31,12 +31,12 @@ idrisTests
"coverage001", "coverage002", "coverage003", "coverage004",
"error001", "error002", "error003", "error004", "error005",
"error006",
"import001", "import002",
"interactive001", "interactive002", "interactive003", "interactive004",
"interactive005", "interactive006", "interactive007", "interactive008",
"interactive009", "interactive010", "interactive011", "interactive012",
"interface001", "interface002", "interface003", "interface004",
"interface005",
"import001", "import002",
"lazy001",
"linear001", "linear002", "linear003", "linear004", "linear005",
"perror001", "perror002", "perror003", "perror004", "perror005",