Add wordBits

ollef · May 25, 2024 · fbbac10 · fbbac10
1 parent c0d6d48
commit fbbac10
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Low/Representation.hs b/src/Low/Representation.hs
@@ -47,6 +47,9 @@ leastUpperBound repr1 repr2 =
 wordBytes :: Num a => a
 wordBytes = 8
 
+wordBits :: (Num a) => a
+wordBits = wordBytes * 8
+
 int :: Representation
 int = Representation {pointers = 0, nonPointerBytes = wordBytes}