NikolajDanger/IPS_G-assignment
1
0
Fork 0
Code Issues Pull Requests Projects 1 Releases Wiki Activity

✨

Browse Source
This commit is contained in:
NikolajDanger
2022-06-09 13:05:59 +02:00
parent 7c20bc1c2c
commit 856865ea08
1 changed files with 0 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Fasto/DeadBindingRemoval.fs
View File

@ -60,7 +60,6 @@ let rec removeDeadBindingsInExp (e : TypedExp) : (bool * DBRtab * TypedExp) =
(anytrue ios, (anytrue ios,
List.fold SymTab.combine (SymTab.empty()) uses, List.fold SymTab.combine (SymTab.empty()) uses,
ArrayLit (es', t, pos) ) ArrayLit (es', t, pos) )
(* ToDO: Task 3: implement the cases of `Var`, `Index` and `Let` expressions below *)
| Var (name, pos) -> | Var (name, pos) ->
let symtab = SymTab.empty() let symtab = SymTab.empty()
let symtab = recordUse name symtab let symtab = recordUse name symtab