[GR-32049] Add bitcast from i1 to ivar.

PullRequest: graal/9138

Author: lukasstadler

sulong/projects/com.oracle.truffle.llvm.runtime/src/com/oracle/truffle/llvm/runtime/LLVMIVarBit.java

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2016, 2020, Oracle and/or its affiliates.
+ * Copyright (c) 2016, 2021, Oracle and/or its affiliates.
  *
  * All rights reserved.
  *
@@ -31,7 +31,10 @@
 
 import java.math.BigInteger;
 
+import com.oracle.truffle.api.CompilerAsserts;
 import com.oracle.truffle.api.memory.ByteArraySupport;
+import com.oracle.truffle.api.nodes.ExplodeLoop;
+import com.oracle.truffle.llvm.runtime.vector.LLVMI1Vector;
 
 /**
  * Abstract type for variable width integers. Depending on the concrete bit width, either the
@@ -171,4 +174,26 @@ private static byte[] longToArray(long from) {
         ByteArraySupport.bigEndian().putLong(array, 0, from);
         return array;
     }
+
+    @ExplodeLoop
+    public static LLVMIVarBit fromI1Vector(int bits, LLVMI1Vector from) {
+        CompilerAsserts.partialEvaluationConstant(bits);
+        if (bits <= LLVMIVarBitSmall.MAX_SIZE) {
+            long value = 0;
+            for (int i = 0; i < bits; i++) {
+                if (from.getValue(i)) {
+                    value |= 1 << i;
+                }
+            }
+            return LLVMIVarBitSmall.create(bits, value, bits, false);
+        } else {
+            byte[] value = new byte[(bits + 7) >> 3];
+            for (int i = 0; i < bits; i++) {
+                if (from.getValue(i)) {
+                    value[value.length - 1 - (i >> 3)] |= 1 << (i & 7);
+                }
+            }
+            return LLVMIVarBitLarge.create(bits, value, bits, false);
+        }
+    }
 }

sulong/projects/com.oracle.truffle.llvm.runtime/src/com/oracle/truffle/llvm/runtime/nodes/cast/LLVMToVarINode.java

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2016, 2019, Oracle and/or its affiliates.
+ * Copyright (c) 2016, 2021, Oracle and/or its affiliates.
  *
  * All rights reserved.
  *
@@ -33,6 +33,7 @@
 import com.oracle.truffle.api.dsl.NodeChild;
 import com.oracle.truffle.api.dsl.NodeField;
 import com.oracle.truffle.api.dsl.Specialization;
+import com.oracle.truffle.api.nodes.ExplodeLoop;
 import com.oracle.truffle.llvm.runtime.LLVMIVarBit;
 import com.oracle.truffle.llvm.runtime.LLVMIVarBitLarge;
 import com.oracle.truffle.llvm.runtime.LLVMIVarBitSmall;
@@ -43,6 +44,7 @@
 import com.oracle.truffle.llvm.runtime.nodes.cast.LLVMToVarINodeGen.LLVMSignedCastToIVarNodeGen;
 import com.oracle.truffle.llvm.runtime.nodes.cast.LLVMToVarINodeGen.LLVMUnsignedCastToIVarNodeGen;
 import com.oracle.truffle.llvm.runtime.pointer.LLVMPointer;
+import com.oracle.truffle.llvm.runtime.vector.LLVMI1Vector;
 
 @NodeChild(value = "fromNode", type = LLVMExpressionNode.class)
 @NodeField(type = int.class, name = "bits")
@@ -192,5 +194,12 @@ protected LLVMIVarBit do80BitFloat(LLVM80BitFloat from) {
             assert getBits() == LLVM80BitFloat.BIT_WIDTH;
             return LLVMIVarBit.create(getBits(), from.getBytesBigEndian(), LLVM80BitFloat.BIT_WIDTH, true);
         }
+
+        @Specialization
+        @ExplodeLoop
+        protected LLVMIVarBit doI1Vector(LLVMI1Vector from) {
+            assert getBits() == from.getLength();
+            return LLVMIVarBit.fromI1Vector(getBits(), from);
+        }
     }
 }