SCL compiler generates line numbers to bytecode

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / constants / SCLConstant.java

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 14bcbcaf65e84e645e99948b02c80a508033ef83..0fe09df8b8d5845400550d5ff3638a9ed8fca46c 100644 (file)
--- 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();
+    }
 }