1 files changed, 31 insertions, 0 deletions
diff --git a/tiger-compiler/src/escapes/escapes-visitor.cc b/tiger-compiler/src/escapes/escapes-visitor.cc
new file mode 100644
index 0000000..f0fd5e2
--- /dev/null
+++ b/tiger-compiler/src/escapes/escapes-visitor.cc
@@ -0,0 +1,31 @@
+/**
+ ** \file escapes/escapes-visitor.cc
+ ** \brief Implementation for escapes/escapes-visitor.hh.
+ */
+
+#include <ast/all.hh>
+#include <escapes/escapes-visitor.hh>
+#include <misc/contract.hh>
+
+namespace escapes
+{
+  // FIXME DONE: Some code was deleted here.
+
+  void EscapesVisitor::operator()(ast::SimpleVar& e)
+  {
+    if (depth_map_.at(e.def_get()) < current_depth_)
+      e.def_get()->escape_set(true);
+  }
+  void EscapesVisitor::operator()(ast::VarDec& e)
+  {
+    e.escape_set(false);
+    depth_map_.insert_or_assign(&e, current_depth_);
+    super_type::operator()(e);
+  }
+  void EscapesVisitor::operator()(ast::FunctionDec& e)
+  {
+    current_depth_++;
+    super_type::operator()(e);
+    current_depth_--;
+  }
+} // namespace escapes