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/ModOps.hs
+++ b/generation/src/ModOps.hs
@@ -26,8 +26,8 @@ modulusOps = File {
    testCase = Just generateModulusTests
 }

-declareModOps :: Word -> SourceFile Span
-declareModOps bitsize =
+declareModOps :: Word -> [Word] -> SourceFile Span
+declareModOps bitsize _ =
    let sname = mkIdent ("U" ++ show bitsize)
        bname = mkIdent ("U" ++ show (bitsize * 2))
    in [sourceFile|