X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Fconstants%2FSCLConstant.java;h=0fe09df8b8d5845400550d5ff3638a9ed8fca46c;hb=HEAD;hp=14bcbcaf65e84e645e99948b02c80a508033ef83;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/constants/SCLConstant.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/constants/SCLConstant.java
index 14bcbcaf6..0fe09df8b 100644
--- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/constants/SCLConstant.java
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/constants/SCLConstant.java
@@ -109,7 +109,7 @@ public class SCLConstant extends DelegateConstant implements Named {
         }
         else /*if(parameters.length < def.getArity())*/ {
             def.applyTypes(functionRef.getTypeParameters());
-            def.apply(parameters);
+            def.apply(apply.lineNumber, parameters);
                         
             def.setTarget(apply.getTarget());
             new LetFunctions(def).insertBefore(apply);
@@ -373,4 +373,11 @@ public class SCLConstant extends DelegateConstant implements Named {
         if(inlineArity < Integer.MAX_VALUE)
             inlinableDefinition = (SSAFunction)definition.copy();
     }
+
+    public void cleanup() {
+        if(definition != null)
+            definition.cleanup();
+        if(inlinableDefinition != null)
+            inlinableDefinition.cleanup();
+    }
 }