Merged changes from feature/scl to master.

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / internal / codegen / utils / SSALambdaLiftingContext.java

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/utils/SSALambdaLiftingContext.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/utils/SSALambdaLiftingContext.java
index 9b556ee7a4759e561695d0ca689d37d6c42b86d8..bdb56f4787d6df83f0f9121fb5d44c2d346bc9fb 100644 (file)
--- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/utils/SSALambdaLiftingContext.java
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/utils/SSALambdaLiftingContext.java
@@ -3,6 +3,7 @@ package org.simantics.scl.compiler.internal.codegen.utils;
 import org.simantics.scl.compiler.common.names.Name;\r
 import org.simantics.scl.compiler.constants.SCLConstant;\r
 import org.simantics.scl.compiler.errors.ErrorLog;\r
+import org.simantics.scl.compiler.internal.codegen.ssa.SSAClosure;\r
 import org.simantics.scl.compiler.internal.codegen.ssa.SSAModule;\r
 \r
 public class SSALambdaLiftingContext {\r
@@ -36,4 +37,8 @@ public class SSALambdaLiftingContext {
     public ErrorLog getErrorLog() {\r
         return errorLog;\r
     }\r
+    \r
+    public void addClosure(SSAClosure closure) {\r
+        module.closuresToGenerate.add(closure);\r
+    }\r
 }\r