Move everything out

This commit is contained in:
NikolajDanger
2022-05-18 10:46:19 +02:00
parent 642fcbd636
commit 8e3427a843
117 changed files with 0 additions and 0 deletions

View File

@ -0,0 +1,10 @@
module DeadFunctionRemoval
open AbSyn
open CallGraph
let removeDeadFunction (prog : TypedProg) =
let graph = callGraph prog
let alive (FunDec (fname, _, _, _, _)) =
fname = "main" || calls "main" fname graph
List.filter alive prog