Throw on un-aligned bit arrays

Author: lpil

compiler-core/templates/prelude.mjs

@@ -298,6 +298,8 @@ export const BitArray$BitArray = (buffer, bitSize, bitOffset) =>
   new BitArray(buffer, bitSize, bitOffset);
 export const BitArray$isBitArray = (value) => value instanceof BitArray;
 export const BitArray$BitArray$data = (bitArray) => {
+  if (bitArray.bitSize % 8 !== 0)
+    throw new Error("BitArray$BitArray$data called on un-aligned bit array");
   const array = bitArray.rawBuffer;
   return new DataView(array.buffer, array.byteOffest, bitArray.byteLength);
 };
@@ -496,7 +498,7 @@ export function bitArraySliceToInt(
 
   // Handle the case of the slice being completely contained in a single byte
   if (startByteIndex == endByteIndex) {
-    const mask = 0xff >> start % 8;
+    const mask = 0xff >> (start % 8);
     const unusedLowBitCount = (8 - (end % 8)) % 8;
 
     let value =

test/javascript_prelude/main.mjs

@@ -1213,10 +1213,9 @@ assert(
   assertEqual(bitArray.byteSize, 3);
   assertEqual(bitArray.bitOffset, 1);
   assertEqual(bitArray.rawBuffer, new Uint8Array([1, 2, 3]));
-  assertEqual(
-    BitArray$BitArray$data(bitArray),
-    new DataView(new Uint8Array([1, 2, 3]).buffer),
-  );
+  assertThrows("BitArray$BitArray$data of un-aligned bit array", () => {
+    BitArray$BitArray$data(bitArray);
+  });
 }
 
 assertEqual(