stuff

2022-04-30 16:18:13 +02:00
parent 2465cf84b7
commit b9ef4bb00e
174 changed files with 20605 additions and 100 deletions
--- a/W1/fasto/Fasto/DeadFunctionRemoval.fs
+++ b/W1/fasto/Fasto/DeadFunctionRemoval.fs
@ -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