X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;ds=sidebyside;f=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Finternal%2Fcodegen%2Fanalysis%2FStatementBrowser.java;h=8de2c37c8f1925fa33f156a4b4fb9c34425dad56;hb=593a8f75d9dbc363234002dc500c346afbeba040;hp=5760890127cb89ef5a0d255f12fea785995db3f3;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/analysis/StatementBrowser.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/analysis/StatementBrowser.java index 576089012..8de2c37c8 100644 --- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/analysis/StatementBrowser.java +++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/analysis/StatementBrowser.java @@ -1,10 +1,8 @@ package org.simantics.scl.compiler.internal.codegen.analysis; -import gnu.trove.map.hash.THashMap; -import gnu.trove.set.hash.THashSet; - import org.simantics.scl.compiler.common.exceptions.InternalCompilerError; 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.continuations.ContRef; import org.simantics.scl.compiler.internal.codegen.references.BoundVar; @@ -16,6 +14,9 @@ import org.simantics.scl.compiler.internal.codegen.ssa.SSAStatement; import org.simantics.scl.compiler.internal.codegen.ssa.binders.ValRefBinder; import org.simantics.scl.compiler.internal.codegen.ssa.statements.LetApply; +import gnu.trove.map.hash.THashMap; +import gnu.trove.set.hash.THashSet; + public abstract class StatementBrowser { THashSet visited; @@ -147,10 +148,8 @@ public abstract class StatementBrowser { } } - private static final Name BUILD = Name.create("Prelude", "build"); - private static boolean callsOnlyOnce(Name name, int arity) { - if(name == BUILD) + if(name == Names.Prelude_build) return arity == 1; else return false;