X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Finternal%2Fcodegen%2Foptimization%2FFoldlBuildFusion.java;h=6535bb6efc5b2ec945b84f0afc9200cec4c86661;hp=4b287fafa91f397626ec30b358df626182758e0f;hb=a8758de5bc19e5adb3f618d3038743a164f09912;hpb=12d9af17384d960b75d58c3935d2b7b46d93e87b 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 4b287fafa..6535bb6ef 100644 --- 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; import org.simantics.scl.compiler.common.names.Name; +import org.simantics.scl.compiler.common.names.Names; import org.simantics.scl.compiler.constants.SCLConstant; import org.simantics.scl.compiler.internal.codegen.analysis.StatementBrowser; import org.simantics.scl.compiler.internal.codegen.references.BoundVar; @@ -13,8 +14,6 @@ import org.simantics.scl.compiler.internal.codegen.utils.SSASimplificationContex public enum FoldlBuildFusion implements Optimization { INSTANCE; - - private static final Name BUILD = Name.create("Prelude", "build"); private static class Analysis extends StatementBrowser { @@ -65,7 +64,7 @@ public enum FoldlBuildFusion implements Optimization { Val buildFunction = buildApplication.getFunction().getBinding(); if(!(buildFunction instanceof SCLConstant)) return; - if(((SCLConstant)buildFunction).getName() != BUILD) + if(((SCLConstant)buildFunction).getName() != Names.Prelude_build) return; }