Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / elaboration / java / EqualsFunction.java

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/java/EqualsFunction.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/java/EqualsFunction.java
new file mode 100644 (file)
index 0000000..3a4087c
--- /dev/null
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/java/EqualsFunction.java
@@ -0,0 +1,46 @@
+package org.simantics.scl.compiler.elaboration.java;\r
+\r
+import org.cojen.classfile.TypeDesc;\r
+import org.objectweb.asm.Label;\r
+import org.simantics.scl.compiler.constants.FunctionValue;\r
+import org.simantics.scl.compiler.internal.codegen.references.Val;\r
+import org.simantics.scl.compiler.internal.codegen.utils.Constants;\r
+import org.simantics.scl.compiler.internal.codegen.utils.MethodBuilder;\r
+import org.simantics.scl.compiler.types.TVar;\r
+import org.simantics.scl.compiler.types.Type;\r
+import org.simantics.scl.compiler.types.Types;\r
+import org.simantics.scl.compiler.types.kinds.Kinds;\r
+\r
+public class EqualsFunction extends FunctionValue {\r
+    private static final TVar A = Types.var(Kinds.STAR);\r
+    public static final EqualsFunction INSTANCE = new EqualsFunction();\r
+    \r
+    private EqualsFunction() {\r
+        super(new TVar[] {A}, Types.NO_EFFECTS, Types.BOOLEAN, A, A);\r
+    }\r
+\r
+    @Override\r
+    public Type applyExact(MethodBuilder mb, Val[] parameters) {\r
+        parameters[0].push(mb);\r
+        parameters[1].push(mb);\r
+        TypeDesc parameterType = mb.getJavaTypeTranslator().getTypeDesc(parameters[0]);\r
+        if(parameterType.isPrimitive()) {\r
+            if(parameterType.equals(TypeDesc.VOID)) {\r
+                mb.loadConstant(true);\r
+            }\r
+            else {\r
+                Label end = mb.createLabel();\r
+                Label isEqual = mb.createLabel();\r
+                mb.ifComparisonBranch(isEqual, "==", parameterType);\r
+                mb.loadConstant(false);\r
+                mb.branch(end);\r
+                mb.setLocation(isEqual);\r
+                mb.loadConstant(true);\r
+                mb.setLocation(end);\r
+            }\r
+        }\r
+        else\r
+            mb.invokeStatic("java/util/Objects", "equals", TypeDesc.BOOLEAN, Constants.OBJECTS[2]);\r
+        return Types.BOOLEAN;\r
+    }\r
+}\r