stehau

2022-05-15 12:54:29 +02:00
parent 383332077b
commit ba22cff91f
222 changed files with 23320 additions and 0 deletions
--- a/W2/fasto/Fasto/DeadFunctionRemoval.fs
+++ b/W2/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