Merged changes from feature/scl to master.

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / internal / codegen / optimization / FoldlBuildFusion.java

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/optimization/FoldlBuildFusion.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/optimization/FoldlBuildFusion.java
index 4b287fafa91f397626ec30b358df626182758e0f..6535bb6efc5b2ec945b84f0afc9200cec4c86661 100644 (file)
--- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/optimization/FoldlBuildFusion.java
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/optimization/FoldlBuildFusion.java
@@ -1,6 +1,7 @@
 package org.simantics.scl.compiler.internal.codegen.optimization;\r
 \r
 import org.simantics.scl.compiler.common.names.Name;\r
+import org.simantics.scl.compiler.common.names.Names;\r
 import org.simantics.scl.compiler.constants.SCLConstant;\r
 import org.simantics.scl.compiler.internal.codegen.analysis.StatementBrowser;\r
 import org.simantics.scl.compiler.internal.codegen.references.BoundVar;\r
@@ -13,8 +14,6 @@ import org.simantics.scl.compiler.internal.codegen.utils.SSASimplificationContex
 \r
 public enum FoldlBuildFusion implements Optimization {\r
     INSTANCE;\r
-\r
-    private static final Name BUILD = Name.create("Prelude", "build");\r
     \r
     private static class Analysis extends StatementBrowser {\r
         \r
@@ -65,7 +64,7 @@ public enum FoldlBuildFusion implements Optimization {
             Val buildFunction = buildApplication.getFunction().getBinding();\r
             if(!(buildFunction instanceof SCLConstant))\r
                 return;\r
-            if(((SCLConstant)buildFunction).getName() != BUILD)\r
+            if(((SCLConstant)buildFunction).getName() != Names.Prelude_build)\r
                 return;\r
         }\r
 \r