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%2Fconstants%2Fsingletons%2FTypeOfConstant.java;h=b0a0639b274f0ee3a1116d116f25efc182c4b466;hb=refs%2Fchanges%2F38%2F238%2F2;hp=a98e4e5bf58bf0c99c0eae96192953dd78166cfb;hpb=24e2b34260f219f0d1644ca7a138894980e25b14;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/constants/singletons/TypeOfConstant.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/constants/singletons/TypeOfConstant.java index a98e4e5bf..b0a0639b2 100644 --- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/constants/singletons/TypeOfConstant.java +++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/constants/singletons/TypeOfConstant.java @@ -1,32 +1,32 @@ -package org.simantics.scl.compiler.constants.singletons; - -import org.simantics.scl.compiler.constants.FunctionValue; -import org.simantics.scl.compiler.internal.codegen.references.Val; -import org.simantics.scl.compiler.internal.codegen.utils.MethodBuilder; -import org.simantics.scl.compiler.types.TCon; -import org.simantics.scl.compiler.types.TVar; -import org.simantics.scl.compiler.types.Type; -import org.simantics.scl.compiler.types.Types; -import org.simantics.scl.compiler.types.kinds.Kinds; - -public class TypeOfConstant extends FunctionValue { - private static final TVar A = Types.var(Kinds.STAR); - private static final TCon Type = Types.con(Types.BUILTIN, "Type"); - public static final TypeOfConstant INSTANCE = new TypeOfConstant(); - - private TypeOfConstant() { - super(new TVar[] {A}, Types.NO_EFFECTS, Type, - Types.pred(Types.TYPEABLE, A), A); - } - - @Override - public Type applyExact(MethodBuilder mb, Val[] parameters) { - mb.push(parameters[0], Type); - return getReturnType(); - } - - @Override - public String toString() { - return "typeOf"; - } +package org.simantics.scl.compiler.constants.singletons; + +import org.simantics.scl.compiler.constants.FunctionValue; +import org.simantics.scl.compiler.internal.codegen.references.Val; +import org.simantics.scl.compiler.internal.codegen.utils.MethodBuilder; +import org.simantics.scl.compiler.types.TCon; +import org.simantics.scl.compiler.types.TVar; +import org.simantics.scl.compiler.types.Type; +import org.simantics.scl.compiler.types.Types; +import org.simantics.scl.compiler.types.kinds.Kinds; + +public class TypeOfConstant extends FunctionValue { + private static final TVar A = Types.var(Kinds.STAR); + private static final TCon Type = Types.con(Types.BUILTIN, "Type"); + public static final TypeOfConstant INSTANCE = new TypeOfConstant(); + + private TypeOfConstant() { + super(new TVar[] {A}, Types.NO_EFFECTS, Type, + Types.pred(Types.TYPEABLE, A), A); + } + + @Override + public Type applyExact(MethodBuilder mb, Val[] parameters) { + mb.push(parameters[0], Type); + return getReturnType(); + } + + @Override + public String toString() { + return "typeOf"; + } } \ No newline at end of file