Better support for conversions between number types.

2020-01-10 09:04:47 -10:00
parent 8c5f18cb7c
commit 4b8d0b3f09
14 changed files with 96 additions and 35 deletions
--- a/generation/src/Compare.hs
+++ b/generation/src/Compare.hs
@@ -24,8 +24,8 @@ comparisons = File {
  testCase = Just generateTests
 }

-declareComparators :: Word -> SourceFile Span
-declareComparators bitsize =
+declareComparators :: Word -> [Word] -> SourceFile Span
+declareComparators bitsize _ =
  let sname = mkIdent ("U" ++ show bitsize)
      entries = bitsize `div` 64
      eqStatements = buildEqStatements 0 entries