clash-lib 1.10.2 → 1.10.3

raw patch · 91 files changed

+4049/−1727 lines, 91 filesdep ~clash-preludedep ~ghcdep ~ghc-bignumPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: clash-prelude, ghc, ghc-bignum, ghci, template-haskell

API changes (from Hackage documentation)

Files

• CHANGELOG.md +44/−0
• clash-lib.cabal +13/−7
• prims/common/Control_Exception_Base.primitives.yaml +9/−9
• prims/common/Debug_Trace.primitives.yaml +1/−1
• prims/common/GHC_CString.primitives.yaml +3/−3
• prims/common/GHC_Classes.primitives.yaml +4/−4
• prims/common/GHC_Err.primitives.yaml +3/−3
• prims/common/GHC_Internal_Control_Exception_Base.primitives.yaml +0/−63
• prims/common/GHC_Internal_Debug_Trace.primitives.yaml +0/−7
• prims/common/GHC_Internal_Err.primitives.yaml +0/−18
• prims/common/GHC_Internal_TypeNats.primitives.yaml +0/−17
• prims/common/GHC_Magic.primitives.yaml +4/−4
• prims/common/GHC_Num_Integer.primitives.yaml +10/−10
• prims/common/GHC_Num_Natural.primitives.yaml +9/−9
• prims/common/GHC_Prim.primitives.yaml +25/−25
• prims/common/GHC_Prim_Panic.primitives.yaml +1/−1
• prims/common/GHC_TypeNats.primitives.yaml +3/−3
• prims/common/GHC_Types.primitives.yaml +3/−3
• prims/commonverilog/Clash_Sized_Internal_Index.primitives.yaml +3/−3
• prims/commonverilog/GHC_Classes.primitives.yaml +5/−5
• prims/commonverilog/GHC_Num_Integer.primitives.yaml +35/−35
• prims/commonverilog/GHC_Num_Natural.primitives.yaml +14/−14
• prims/commonverilog/GHC_Prim.primitives.yaml +193/−193
• prims/systemverilog/Clash_Signal_Internal.primitives.yaml +1/−1
• prims/systemverilog/GHC_Classes.primitives.yaml +2/−2
• prims/systemverilog/GHC_Num_Integer.primitives.yaml +4/−4
• prims/systemverilog/GHC_Prim.primitives.yaml +23/−23
• prims/verilog/Clash_Signal_Internal.primitives.yaml +1/−0
• prims/verilog/GHC_Classes.primitives.yaml +2/−2
• prims/verilog/GHC_Num_Integer.primitives.yaml +4/−4
• prims/verilog/GHC_Prim.primitives.yaml +23/−23
• prims/vhdl/Clash_Signal_Internal.primitives.yaml +1/−0
• prims/vhdl/Clash_Sized_Internal_BitVector.primitives.yaml +2/−1
• prims/vhdl/Clash_Sized_Internal_Index.primitives.yaml +6/−3
• prims/vhdl/Clash_Sized_Internal_Signed.primitives.yaml +1/−2
• prims/vhdl/Clash_Sized_Internal_Unsigned.primitives.yaml +2/−1
• prims/vhdl/GHC_Classes.primitives.yaml +7/−7
• prims/vhdl/GHC_Num_Integer.primitives.yaml +39/−39
• prims/vhdl/GHC_Num_Natural.primitives.yaml +14/−14
• prims/vhdl/GHC_Prim.primitives.yaml +218/−218
• src/Clash/Core/Term.hs +1/−0
• src/Clash/Core/TyCon.hs +3/−0
• src/Clash/Core/Type.hs +6/−6
• src/Clash/Core/Util.hs +8/−1
• src/Clash/Driver.hs +2/−0
• src/Clash/Driver/BrokenGhcs.hs +13/−2
• src/Clash/Netlist.hs +12/−5
• src/Clash/Netlist/BlackBox.hs +27/−8
• src/Clash/Netlist/BlackBox/Util.hs +16/−10
• src/Clash/Netlist/Id/Internal.hs +4/−2
• src/Clash/Netlist/Util.hs +2/−0
• src/Clash/Normalize.hs +12/−56
• src/Clash/Normalize/PrimitiveReductions.hs +85/−33
• src/Clash/Normalize/Strategy.hs +17/−328
• src/Clash/Normalize/Strategy.hs-boot +0/−6
• src/Clash/Normalize/Strategy/Spec.hs +402/−0
• src/Clash/Normalize/Transformations/ANF.hs +19/−7
• src/Clash/Normalize/Transformations/Case.hs +125/−62
• src/Clash/Normalize/Transformations/Cast.hs +95/−57
• src/Clash/Normalize/Transformations/DEC.hs +18/−7
• src/Clash/Normalize/Transformations/EtaExpand.hs +18/−5
• src/Clash/Normalize/Transformations/Inline.hs +118/−47
• src/Clash/Normalize/Transformations/Letrec.hs +90/−52
• src/Clash/Normalize/Transformations/MultiPrim.hs +17/−8
• src/Clash/Normalize/Transformations/Reduce.hs +138/−109
• src/Clash/Normalize/Transformations/SeparateArgs.hs +28/−7
• src/Clash/Normalize/Transformations/Specialize.hs +120/−49
• src/Clash/Normalize/Transformations/XOptimize.hs +16/−9
• src/Clash/Normalize/Types.hs +19/−0
• src/Clash/Normalize/Util.hs +58/−4
• src/Clash/Primitives/DSL.hs +5/−0
• src/Clash/Primitives/GHC/Int.hs +4/−1
• src/Clash/Primitives/GHC/Literal.hs +17/−9
• src/Clash/Primitives/GHC/Word.hs +4/−1
• src/Clash/Primitives/Sized/Vector.hs +4/−1
• src/Clash/Primitives/Types.hs +75/−22
• src/Clash/Primitives/Util.hs +11/−2
• src/Clash/Rewrite/Combinators.hs +62/−4
• src/Clash/Rewrite/StrategyDSL.hs +286/−0
• src/Clash/Rewrite/StrategyDSL/TH.hs +695/−0
• src/Clash/Rewrite/Types.hs +9/−8
• src/Clash/Rewrite/Util.hs +42/−16
• src/Clash/Unique.hs +4/−0
• src/Clash/Util/Interpolate.hs +1/−1
• src/Clash/Util/Supply.hs +4/−0
• src/GHC/BasicTypes/Extra.hs +4/−0
• tests/Clash/Tests/Normalize/Transformations.hs +24/−1
• tests/Clash/Tests/Rewrite/StrategyDSL.hs +296/−0
• tests/Clash/Tests/Rewrite/StrategyDSL/Stubs.hs +275/−0
• tests/Test/Clash/Rewrite.hs +4/−0
• tests/unittests.hs +2/−0

@@ -1,5 +1,48 @@ # Changelog for the Clash project +## 1.10.3 - *14 Oct, 2026*++### Added:+- Added support for GHC 9.14.+  [#3182](https://github.com/clash-lang/clash-compiler/pull/3182)+- Add `NumConvert` support for converting from `SNat`+  [#3455](https://github.com/clash-lang/clash-compiler/pull/3455)++### Changed:+- Normalization now knows which `Term` constructors each transformation can fire on, and only offers a node to the transformations that can match it. Measured ~25% faster HDL generation end-to-end on a large industrial design, with identical HDL. Transformations that cannot match a node no longer show up in `-fclash-debug-transformations` and `-fclash-debug-count-transformations` output.+  [#3328](https://github.com/clash-lang/clash-compiler/pull/3328)+- `Clash.Signal.Internal.resetGenN` now reports `clash-non-synthesizable` on every backend, instead of only on SystemVerilog.+  [#3410](https://github.com/clash-lang/clash-compiler/pull/3410)+- In `clash-lib`, the `reduceNonRepPrim` transformation is renamed to `reducePrim`, because it replaces primitives for more reasons than non-representable arguments or results. To debug it with `-fclash-debug-transformations`, use the new name.+  [#3462](https://github.com/clash-lang/clash-compiler/pull/3462)+- In `clash-lib`, the `inlineWorkFree` transformation now normalizes an application of a function to constant arguments only once, and reuses the result at every place the same application occurs. Before, every occurrence was normalized separately. This speeds up normalization of designs that compute a lot with type-level naturals at compile time, for example through `KnownNat` constraints.+  [#3472](https://github.com/clash-lang/clash-compiler/pull/3472)++### Fixed:+- Clash no longer errors when unused arguments of local functions are non-representable in very specific circumstances+  [#3407](https://github.com/clash-lang/clash-compiler/issues/3407)+- `ensureSpine` on a `Signal` no longer crashes Clash with an internal error. It now applies the sample's `ensureSpine` instance in HDL, preserving fixed bits in custom representations. Undefined stream recovery in simulation uses the same instance instead of `deepErrorX`, fixing mismatches for function-valued samples.+  [#3432](https://github.com/clash-lang/clash-compiler/issues/3432)+- Functions testing for `XException` (`isX`, `hasX`, `maybeIsX`, and `maybeHasX`) are now marked non-translatable. This makes the Clash compiler throw a proper error, instead of an internal one when it encounters their use.+  [#3434](https://github.com/clash-lang/clash-compiler/pull/3434)+- Clash no longer crashes when generating HDL for `toEnum` on an enumeration with a single constructor.+  [#3439](https://github.com/clash-lang/clash-compiler/issues/3439)+- Clash now reports an error when using GHC 9.12.1 through 9.12.3, which contain bugs affecting Clash. The GHC compatibility matrix now lists 9.12.4 as the minimum supported GHC 9.12 release.+  [#3415](https://github.com/clash-lang/clash-compiler/issues/3415)+- Extending arithmetic (`add`, `sub`, and `mul`) on `Index` now handles zero-width+  arguments correctly. VHDL subtraction from zero-width `BitVector`, `Signed`, and+  `Unsigned` values now negates the widened operand correctly, including boundary+  values.+  [#3310](https://github.com/clash-lang/clash-compiler/issues/3310)+- Clash now checks all input targets before loading modules or generating HDL. Invalid arguments, including Clash flags passed without their leading dash, are reported immediately, instead of after compiling earlier inputs.+  [#3314](https://github.com/clash-lang/clash-compiler/issues/3314)+- Projecting a zero-width field, such as a `CallStack`, no longer renders a reference to an undeclared `c$sel` in the HDL in very specific circumstances.+  [#3460](https://github.com/clash-lang/clash-compiler/issues/3460)+- Clash no longer takes minutes to compile designs that unroll `map`, `zipWith`, `foldr`, or `init` over vectors bound to top-level definitions. This most often happened with modules compiled with `-ffull-laziness`, which is enabled by `-O`, for example by Cabal.+  [#3461](https://github.com/clash-lang/clash-compiler/issues/3461)+- Fixed accidental free variable capture in `appProp`, which could produce subtly incorrect HDL.+  [#3478](https://github.com/clash-lang/clash-compiler/issues/3478)+ ## 1.10.2 *Sep 4th, 2026*  Highlights:@@ -60,6 +103,7 @@ * In `clash-ghc`, Clash no longer enables `-dynamic-too` when the build is already dynamic, which made GHC emit an `-Winconsistent-flags` warning. See [#3354](https://github.com/clash-lang/clash-compiler/issues/3354), fixed in [#3358](https://github.com/clash-lang/clash-compiler/pull/3358). * In `clash-lib`, the SystemVerilog backend no longer emits out-of-bounds array indices when a nested modifier selects a half of an `RTree`. The size of a tree half was computed as `(d-1)^2` instead of `2^(d-1)`, so for an `RTree 3` the right half was emitted as `[4:8]` on an array whose valid indices are `0..7`. See [#3359](https://github.com/clash-lang/clash-compiler/issues/3359), fixed in [#3360](https://github.com/clash-lang/clash-compiler/pull/3360). * In `clash-lib` and `clash-ghc`, structural equality and ordering now account for the names and types of variables, including in `eqTerm` and `eqType`, instead of relying only on variable uniques. See [#3361](https://github.com/clash-lang/clash-compiler/issues/3361), fixed in [#3362](https://github.com/clash-lang/clash-compiler/pull/3362).+* `popCount`, `countLeadingZeros` and `countTrailingZeros` on `BitVector` (and hence on `Unsigned`, `Signed` and `Index`, which delegate to it) went through `Integer`, which made Clash emit a `Dubious primitive instantiation` warning for `GHC.Num.Integer.integerToInt#` and put an `Integer` in the generated HDL. They now use `Clash.Sized.Internal.Index.fromEnum#`, which has a black box of its own. See [#3409](https://github.com/clash-lang/clash-compiler/pull/3409).  ## 1.10.1 *Aug 27th, 2026* 

@@ -1,6 +1,6 @@ Cabal-version:        2.2 Name:                 clash-lib-Version:              1.10.2+Version:              1.10.3 Synopsis:             Clash: a functional hardware description language - As a library Description:   Clash is a functional hardware description language that borrows both its@@ -57,7 +57,8 @@ tested-with:          GHC == 9.6.7,                       GHC == 9.8.4,                       GHC == 9.10.3,-                      GHC == 9.12.4+                      GHC == 9.12.4,+                      GHC == 9.14.1  Extra-source-files:   README.md,@@ -155,7 +156,7 @@                       base16-bytestring       >= 0.1.1    && < 1.1,                       binary                  >= 0.8.5    && < 0.11,                       bytestring              >= 0.10.0.2 && < 0.13,-                      clash-prelude           == 1.10.2,+                      clash-prelude           == 1.10.3,                       containers              >= 0.6.7    && < 0.9,                       cryptohash-sha256       >= 0.11     && < 0.12,                       data-default            >= 0.7      && < 0.9,@@ -165,12 +166,12 @@                       exceptions              >= 0.8.3    && < 0.11.0,                       extra                   >= 1.6.17   && < 1.9,                       filepath                >= 1.3.0.1  && < 1.6,-                      ghc                     >= 9.6.0    && < 9.13,+                      ghc                     >= 9.6.0    && < 9.15,                       ghc-boot,                       ghc-boot-th,                       ghc-prim,-                      ghc-bignum              >=1.0       && <1.4,-                      ghci                    >= 9.6.0    && < 9.13,+                      ghc-bignum              >=1.0       && <1.5,+                      ghci                    >= 9.6.0    && < 9.15,                       hashable                >= 1.4.1.0  && < 1.6,                       haskell-src-meta        >= 0.8      && < 0.9,                       hint                    >= 0.7      && < 0.10,@@ -183,7 +184,7 @@                       pretty-show             >= 1.9      && < 2.0,                       primitive               >= 0.5.0.1  && < 1.0,                       string-interpolate      >= 0.3      && < 1.1,-                      template-haskell        >= 2.20.0.0  && < 2.24,+                      template-haskell        >= 2.20.0.0  && < 2.25,                       temporary               >= 1.2.1    && < 1.4,                       terminal-size           >= 0.3      && < 0.4,                       text                    >= 1.2.2    && < 2.2,@@ -263,6 +264,7 @@                       Clash.Normalize.PrimitiveReductions                       Clash.Normalize.Primitives                       Clash.Normalize.Strategy+                      Clash.Normalize.Strategy.Spec                       Clash.Normalize.Transformations                       Clash.Normalize.Transformations.ANF                       Clash.Normalize.Transformations.Case@@ -296,6 +298,8 @@                       Clash.Primitives.Xilinx.ClockGen                        Clash.Rewrite.Combinators+                      Clash.Rewrite.StrategyDSL+                      Clash.Rewrite.StrategyDSL.TH                       Clash.Rewrite.Types                       Clash.Rewrite.Util                       Clash.Rewrite.WorkFree@@ -437,5 +441,7 @@                  Clash.Tests.Netlist.Id                  Clash.Tests.Util.Interpolate                  Clash.Tests.Normalize.Transformations+                 Clash.Tests.Rewrite.StrategyDSL+                 Clash.Tests.Rewrite.StrategyDSL.Stubs                   Test.Clash.Rewrite

@@ -1,61 +1,61 @@ - BlackBox:-    name: Control.Exception.Base.recSelError+    name: ["Control.Exception.Base.recSelError", "GHC.Internal.Control.Exception.Base.recSelError"]     kind: Expression     type: 'recSelError ::       Addr# -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: Control.Exception.Base.recConError+    name: ["Control.Exception.Base.recConError", "GHC.Internal.Control.Exception.Base.recConError"]     kind: Expression     type: 'recConError ::       Addr# -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: Control.Exception.Base.irrefutPatError+    name: ["Control.Exception.Base.irrefutPatError", "GHC.Internal.Control.Exception.Base.irrefutPatError"]     kind: Expression     type: 'irrefutPatError       :: Addr# -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: Control.Exception.Base.runtimeError+    name: ["Control.Exception.Base.runtimeError", "GHC.Internal.Control.Exception.Base.runtimeError"]     kind: Expression     type: 'runtimeError ::       Addr# -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: Control.Exception.Base.nonExhaustiveGuardsError+    name: ["Control.Exception.Base.nonExhaustiveGuardsError", "GHC.Internal.Control.Exception.Base.nonExhaustiveGuardsError"]     kind: Expression     type: 'nonExhaustiveGuardsError       :: Addr# -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: Control.Exception.Base.patError+    name: ["Control.Exception.Base.patError", "GHC.Internal.Control.Exception.Base.patError"]     kind: Expression     type: 'patError :: Addr#       -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: Control.Exception.Base.noMethodBindingError+    name: ["Control.Exception.Base.noMethodBindingError", "GHC.Internal.Control.Exception.Base.noMethodBindingError"]     kind: Expression     type: 'noMethodBindingError       :: Addr# -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: Control.Exception.Base.absentError+    name: ["Control.Exception.Base.absentError", "GHC.Internal.Control.Exception.Base.absentError"]     kind: Expression     type: 'absentError ::       Addr# -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: Control.Exception.Base.typeError+    name: ["Control.Exception.Base.typeError", "GHC.Internal.Control.Exception.Base.typeError"]     kind: Expression     type: 'typeError :: Addr#       -> a'

@@ -1,5 +1,5 @@ - BlackBox:-    name: Debug.Trace.trace+    name: ["Debug.Trace.trace", "GHC.Internal.Debug.Trace.trace"]     kind: Expression     type: 'trace :: String       -> a -> a'

@@ -1,14 +1,14 @@ - BlackBox:-    name: GHC.CString.unpackCString#+    name: ["GHC.CString.unpackCString#", "GHC.Internal.CString.unpackCString#"]     kind: Expression     template: ~LIT[0]     workInfo: Never - BlackBox:-    name: GHC.CString.unpackFoldrCString#+    name: ["GHC.CString.unpackFoldrCString#", "GHC.Internal.CString.unpackFoldrCString#"]     kind: Expression     template: ~LIT[0]     workInfo: Never - Primitive:-    name: GHC.CString.unpackCStringUtf8#+    name: ["GHC.CString.unpackCStringUtf8#", "GHC.Internal.CString.unpackCStringUtf8#"]     primType: Function     workInfo: Never

@@ -1,23 +1,23 @@ - BlackBox:-    name: GHC.Classes.gtInt+    name: ["GHC.Classes.gtInt", "GHC.Internal.Classes.gtInt"]     kind: Expression     type: 'gtInt :: Int ->       Int -> Bool'     template: ~ARG[0] > ~ARG[1] - BlackBox:-    name: GHC.Classes.geInt+    name: ["GHC.Classes.geInt", "GHC.Internal.Classes.geInt"]     kind: Expression     type: 'geInt :: Int ->       Int -> Bool'     template: ~ARG[0] >= ~ARG[1] - BlackBox:-    name: GHC.Classes.ltInt+    name: ["GHC.Classes.ltInt", "GHC.Internal.Classes.ltInt"]     kind: Expression     type: 'ltInt :: Int ->       Int -> Bool'     template: ~ARG[0] < ~ARG[1] - BlackBox:-    name: GHC.Classes.leInt+    name: ["GHC.Classes.leInt", "GHC.Internal.Classes.leInt"]     kind: Expression     type: 'leInt :: Int ->       Int -> Bool'

@@ -1,17 +1,17 @@ - BlackBox:-    name: GHC.Err.error+    name: ["GHC.Err.error", "GHC.Internal.Err.error"]     kind: Expression     type: 'error :: forall r a . HasCallStack => [Char] -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: GHC.Err.errorWithoutStackTrace+    name: ["GHC.Err.errorWithoutStackTrace", "GHC.Internal.Err.errorWithoutStackTrace"]     kind: Expression     type: 'errorWithoutStackTrace :: forall r a . [Char] -> a'     template: ~ERRORO     workInfo: Constant - BlackBox:-    name: GHC.Err.undefined+    name: ["GHC.Err.undefined", "GHC.Internal.Err.undefined"]     kind: Expression     type: 'undefined :: forall r a . HasCallStack => a'     template: ~ERRORO

@@ -1,63 +0,0 @@-- BlackBox:-    name: GHC.Internal.Control.Exception.Base.recSelError-    kind: Expression-    type: 'recSelError ::-      Addr# -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Control.Exception.Base.recConError-    kind: Expression-    type: 'recConError ::-      Addr# -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Control.Exception.Base.irrefutPatError-    kind: Expression-    type: 'irrefutPatError-      :: Addr# -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Control.Exception.Base.runtimeError-    kind: Expression-    type: 'runtimeError ::-      Addr# -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Control.Exception.Base.nonExhaustiveGuardsError-    kind: Expression-    type: 'nonExhaustiveGuardsError-      :: Addr# -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Control.Exception.Base.patError-    kind: Expression-    type: 'patError :: Addr#-      -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Control.Exception.Base.noMethodBindingError-    kind: Expression-    type: 'noMethodBindingError-      :: Addr# -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Control.Exception.Base.absentError-    kind: Expression-    type: 'absentError ::-      Addr# -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Control.Exception.Base.typeError-    kind: Expression-    type: 'typeError :: Addr#-      -> a'-    template: ~ERRORO-    workInfo: Constant

@@ -1,7 +0,0 @@-- BlackBox:-    name: GHC.Internal.Debug.Trace.trace-    kind: Expression-    type: 'trace :: String-      -> a -> a'-    template: ~ARG[1]-    workInfo: Never

@@ -1,18 +0,0 @@-- BlackBox:-    name: GHC.Internal.Err.error-    kind: Expression-    type: 'error :: forall r a . HasCallStack => [Char] -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Err.errorWithoutStackTrace-    kind: Expression-    type: 'errorWithoutStackTrace :: forall r a . [Char] -> a'-    template: ~ERRORO-    workInfo: Constant-- BlackBox:-    name: GHC.Internal.Err.undefined-    kind: Expression-    type: 'undefined :: forall r a . HasCallStack => a'-    template: ~ERRORO-    workInfo: Constant

@@ -1,17 +0,0 @@-- BlackBox:-    name: GHC.Internal.TypeNats.natVal-    kind: Expression-    type: 'natVal :: forall-      n proxy. KnownNat n => proxy n -> Natural'-    template: ~ARG[0]-    workInfo: Never-- Primitive:-    name: GHC.Internal.TypeNats.someNatVal-    primType: Function-    type: 'someNatVal :: Natural -> SomeNat'-    workInfo: Never-- Primitive:-    name: GHC.Internal.TypeNats.withSomeSNat-    primType: Function-    type: 'withSomeSNat :: forall rep (r :: TYPE rep). Natural -> (forall n. SNat n -> r) -> r'-    workInfo: Never

@@ -1,18 +1,18 @@ - Primitive:-    name: GHC.Magic.lazy+    name: ["GHC.Magic.lazy", "GHC.Internal.Magic.lazy"]     primType: Function     workInfo: Never - Primitive:-    name: GHC.Magic.noinline+    name: ["GHC.Magic.noinline", "GHC.Internal.Magic.noinline"]     primType: Function     type: forall a. a -> a     workInfo: Never - Primitive:-    name: GHC.Magic.nospec+    name: ["GHC.Magic.nospec", "GHC.Internal.Magic.nospec"]     primType: Function     type: forall a. a -> a     workInfo: Never - Primitive:-    name: GHC.Magic.runRW#+    name: ["GHC.Magic.runRW#", "GHC.Internal.Magic.runRW#"]     primType: Function     workInfo: Never

@@ -1,32 +1,32 @@ - Primitive:-    name: GHC.Num.Integer.IS+    name: ["GHC.Num.Integer.IS", "GHC.Internal.Bignum.Integer.IS"]     comment: Needed to make the evaluator handle this constructor strictly     primType: Constructor     warning: 'GHC.Num.Integer.IS: Integers are dynamically sized in simulation, but       fixed-length after synthesis. Use carefully.'     workInfo: Never - Primitive:-    name: GHC.Num.Integer.IP+    name: ["GHC.Num.Integer.IP", "GHC.Internal.Bignum.Integer.IP"]     comment: Needed to make the evaluator handle this constructor strictly     primType: Constructor     warning: 'GHC.Num.Integer.IP: Integers are dynamically sized in simulation, but       fixed-length after synthesis. Use carefully.'     workInfo: Never - Primitive:-    name: GHC.Num.Integer.IN+    name: ["GHC.Num.Integer.IN", "GHC.Internal.Bignum.Integer.IN"]     comment: Needed to make the evaluator handle this constructor strictly     primType: Constructor     warning: 'GHC.Num.Integer.IN: Integers are dynamically sized in simulation, but       fixed-length after synthesis. Use carefully.'     workInfo: Never - Primitive:-    name: GHC.Num.Integer.integerFromNatural+    name: ["GHC.Num.Integer.integerFromNatural", "GHC.Internal.Bignum.Integer.integerFromNatural"]     primType: Function     warning: 'GHC.Num.Integer.integerFromNatural: No blackbox available without size       inference for Natural and Integer'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerAdd+    name: ["GHC.Num.Integer.integerAdd", "GHC.Internal.Bignum.Integer.integerAdd"]     kind: Expression     type: 'integerAdd :: Integer       -> Integer -> Integer'@@ -34,7 +34,7 @@     warning: 'GHC.Num.Integer.integerAdd: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerSub+    name: ["GHC.Num.Integer.integerSub", "GHC.Internal.Bignum.Integer.integerSub"]     kind: Expression     type: 'integerSub :: Integer       -> Integer -> Integer'@@ -42,7 +42,7 @@     warning: 'GHC.Num.Integer.integerSub: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerLe+    name: ["GHC.Num.Integer.integerLe", "GHC.Internal.Bignum.Integer.integerLe"]     kind: Expression     type: 'integerLe :: Integer       -> Integer -> Bool'@@ -50,7 +50,7 @@     warning: 'GHC.Num.Integer.integerLe: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerGt+    name: ["GHC.Num.Integer.integerGt", "GHC.Internal.Bignum.Integer.integerGt"]     kind: Expression     type: 'integerGt :: Integer       -> Integer -> Bool'@@ -58,7 +58,7 @@     warning: 'GHC.Num.Integer.integerGt: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerLt+    name: ["GHC.Num.Integer.integerLt", "GHC.Internal.Bignum.Integer.integerLt"]     kind: Expression     type: 'integerLt :: Integer       -> Integer -> Bool'@@ -66,7 +66,7 @@     warning: 'GHC.Num.Integer.integerLt: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerGe+    name: ["GHC.Num.Integer.integerGe", "GHC.Internal.Bignum.Integer.integerGe"]     kind: Expression     type: 'integerGe :: Integer       -> Integer -> Bool'

@@ -1,19 +1,19 @@ - Primitive:-    name: GHC.Num.Natural.NS+    name: ["GHC.Num.Natural.NS", "GHC.Internal.Bignum.Natural.NS"]     comment: Needed to make the evaluator handle this constructor strictly     primType: Constructor     warning: 'GHC.Num.Natural.NS: Naturals are dynamically sized in simulation, but       fixed-length after synthesis. Use carefully.'     workInfo: Never - Primitive:-    name: GHC.Num.Natural.NB+    name: ["GHC.Num.Natural.NB", "GHC.Internal.Bignum.Natural.NB"]     comment: Needed to make the evaluator handle this constructor strictly     primType: Constructor     warning: 'GHC.Num.Natural.NB: Naturals are dynamically sized in simulation, but       fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Natural.naturalAdd+    name: ["GHC.Num.Natural.naturalAdd", "GHC.Internal.Bignum.Natural.naturalAdd"]     kind: Expression     type: 'naturalSub :: Natural       -> Natural -> Natural'@@ -21,13 +21,13 @@     warning: 'GHC.Num.Natural.naturalAdd: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - Primitive:-    name: GHC.Num.Natural.naturalSub+    name: ["GHC.Num.Natural.naturalSub", "GHC.Internal.Bignum.Natural.naturalSub"]     primType: Function     warning: 'GHC.Num.Natural.naturalSub: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Natural.naturalSubUnsafe+    name: ["GHC.Num.Natural.naturalSubUnsafe", "GHC.Internal.Bignum.Natural.naturalSubUnsafe"]     kind: Expression     type: 'naturalSubUnsafe       :: Natural -> Natural -> Natural'@@ -35,7 +35,7 @@     warning: 'GHC.Num.Natural.naturalSubUnsafe: Naturals are dynamically sized in       simulation, but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalSubThrow+    name: ["GHC.Num.Natural.naturalSubThrow", "GHC.Internal.Bignum.Natural.naturalSubThrow"]     kind: Expression     type: 'naturalSubThrow       :: Natural -> Natural -> Natural'@@ -43,7 +43,7 @@     warning: 'GHC.Num.Natural.naturalSubThrow: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalMul+    name: ["GHC.Num.Natural.naturalMul", "GHC.Internal.Bignum.Natural.naturalMul"]     kind: Expression     type: 'naturalMul :: Natural       -> Natural -> Natural'@@ -51,13 +51,13 @@     warning: 'GHC.Num.Natural.naturalMul: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - Primitive:-    name: GHC.Num.Natural.naturalGcd+    name: ["GHC.Num.Natural.naturalGcd", "GHC.Internal.Bignum.Natural.naturalGcd"]     primType: Function     warning: 'GHC.Num.Natural.naturalGcd: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.'     workInfo: Never - Primitive:-    name: GHC.Num.Natural.naturalLcm+    name: ["GHC.Num.Natural.naturalLcm", "GHC.Internal.Bignum.Natural.naturalLcm"]     primType: Function     warning: 'GHC.Num.Natural.naturalLcm: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.'

@@ -1,107 +1,107 @@ - Primitive:-    name: GHC.Prim.dataToTag#+    name: ["GHC.Prim.dataToTag#", "GHC.Internal.Prim.dataToTag#"]     primType: Function - Primitive:-    name: GHC.Prim.dataToTagSmall#+    name: ["GHC.Prim.dataToTagSmall#", "GHC.Internal.Prim.dataToTagSmall#"]     primType: Function - Primitive:-    name: GHC.Prim.dataToTagLarge#+    name: ["GHC.Prim.dataToTagLarge#", "GHC.Internal.Prim.dataToTagLarge#"]     primType: Function - Primitive:-    name: GHC.Prim.tagToEnum#+    name: ["GHC.Prim.tagToEnum#", "GHC.Internal.Prim.tagToEnum#"]     primType: Function - BlackBox:-    name: GHC.Prim.unsafeCoerce#+    name: ["GHC.Prim.unsafeCoerce#", "GHC.Internal.Prim.unsafeCoerce#"]     kind: Expression     type: 'unsafeCoerce# ::       a -> b'     template: ~ARG[0]     workInfo: Never - BlackBox:-    name: GHC.Prim.+#+    name: ["GHC.Prim.+#", "GHC.Internal.Prim.+#"]     kind: Expression     type: '(+#) :: Int# ->       Int# -> Int#'     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.plusInt8#+    name: ["GHC.Prim.plusInt8#", "GHC.Internal.Prim.plusInt8#"]     kind: Expression     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.plusInt16#+    name: ["GHC.Prim.plusInt16#", "GHC.Internal.Prim.plusInt16#"]     kind: Expression     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.plusInt32#+    name: ["GHC.Prim.plusInt32#", "GHC.Internal.Prim.plusInt32#"]     kind: Expression     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.plusInt64#+    name: ["GHC.Prim.plusInt64#", "GHC.Internal.Prim.plusInt64#"]     kind: Expression     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.-#+    name: ["GHC.Prim.-#", "GHC.Internal.Prim.-#"]     kind: Expression     type: '(-#) :: Int# ->       Int# -> Int#'     template: ~ARG[0] - ~ARG[1] - BlackBox:-    name: GHC.Prim.subInt8#+    name: ["GHC.Prim.subInt8#", "GHC.Internal.Prim.subInt8#"]     kind: Expression     template: ~ARG[0] - ~ARG[1] - BlackBox:-    name: GHC.Prim.subInt16#+    name: ["GHC.Prim.subInt16#", "GHC.Internal.Prim.subInt16#"]     kind: Expression     template: ~ARG[0] - ~ARG[1] - BlackBox:-    name: GHC.Prim.subInt32#+    name: ["GHC.Prim.subInt32#", "GHC.Internal.Prim.subInt32#"]     kind: Expression     template: ~ARG[0] - ~ARG[1] - BlackBox:-    name: GHC.Prim.subInt64#+    name: ["GHC.Prim.subInt64#", "GHC.Internal.Prim.subInt64#"]     kind: Expression     template: ~ARG[0] - ~ARG[1] - BlackBox:-    name: GHC.Prim.plusWord#+    name: ["GHC.Prim.plusWord#", "GHC.Internal.Prim.plusWord#"]     kind: Expression     type: 'plusWord# :: Word#       -> Word# -> Word#'     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.plusWord8#+    name: ["GHC.Prim.plusWord8#", "GHC.Internal.Prim.plusWord8#"]     kind: Expression     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.plusWord16#+    name: ["GHC.Prim.plusWord16#", "GHC.Internal.Prim.plusWord16#"]     kind: Expression     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.plusWord32#+    name: ["GHC.Prim.plusWord32#", "GHC.Internal.Prim.plusWord32#"]     kind: Expression     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.plusWord64#+    name: ["GHC.Prim.plusWord64#", "GHC.Internal.Prim.plusWord64#"]     kind: Expression     template: ~ARG[0] + ~ARG[1] - BlackBox:-    name: GHC.Prim.minusWord#+    name: ["GHC.Prim.minusWord#", "GHC.Internal.Prim.minusWord#"]     kind: Expression     type: 'minusWord# :: Word#       -> Word# -> Word#'     template: ~ARG[0] - ~ARG[1] - BlackBox:-    name: GHC.Prim.subWord8#+    name: ["GHC.Prim.subWord8#", "GHC.Internal.Prim.subWord8#"]     kind: Expression     template: ~ARG[0] - ~ARG[1] - BlackBox:-    name: GHC.Prim.subWord16#+    name: ["GHC.Prim.subWord16#", "GHC.Internal.Prim.subWord16#"]     kind: Expression     template: ~ARG[0] - ~ARG[1] - BlackBox:-    name: GHC.Prim.subWord32#+    name: ["GHC.Prim.subWord32#", "GHC.Internal.Prim.subWord32#"]     kind: Expression     template: ~ARG[0] - ~ARG[1] - BlackBox:-    name: GHC.Prim.subWord64#+    name: ["GHC.Prim.subWord64#", "GHC.Internal.Prim.subWord64#"]     kind: Expression     template: ~ARG[0] - ~ARG[1]

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Prim.Panic.absentError+    name: ["GHC.Prim.Panic.absentError", "GHC.Internal.Prim.Panic.absentError"]     kind: Expression     type: 'absentError ::       Addr# -> a'

@@ -1,17 +1,17 @@ - BlackBox:-    name: GHC.TypeNats.natVal+    name: ["GHC.TypeNats.natVal", "GHC.Internal.TypeNats.natVal"]     kind: Expression     type: 'natVal :: forall       n proxy. KnownNat n => proxy n -> Natural'     template: ~ARG[0]     workInfo: Never - Primitive:-    name: GHC.TypeNats.someNatVal+    name: ["GHC.TypeNats.someNatVal", "GHC.Internal.TypeNats.someNatVal"]     primType: Function     type: 'someNatVal :: Natural -> SomeNat'     workInfo: Never - Primitive:-    name: GHC.TypeNats.withSomeSNat+    name: ["GHC.TypeNats.withSomeSNat", "GHC.Internal.TypeNats.withSomeSNat"]     primType: Function     type: 'withSomeSNat :: forall rep (r :: TYPE rep). Natural -> (forall n. SNat n -> r) -> r'     workInfo: Never

@@ -1,16 +1,16 @@ - Primitive:-    name: GHC.Types.MkCoercible+    name: ["GHC.Types.MkCoercible", "GHC.Internal.Types.MkCoercible"]     primType: Constructor     workInfo: Never - BlackBox:-    name: GHC.Types.I#+    name: ["GHC.Types.I#", "GHC.Internal.Types.I#"]     kind: Expression     comment: Needed to make the evaluator handle this constructor strictly     type: 'I# :: Int# -> Int'     template: ~ARG[0]     workInfo: Never - BlackBox:-    name: GHC.Types.W#+    name: ["GHC.Types.W#", "GHC.Internal.Types.W#"]     kind: Expression     comment: Needed to make the evaluator handle this constructor strictly     type: 'W# :: Word# -> Word'

@@ -102,19 +102,19 @@     kind: Declaration     type: Index m -> Index       n -> Index (m + n - 1)-    template: assign ~RESULT = ~ARG[0] + ~ARG[1];+    template: assign ~RESULT = ~IF~AND[~SIZE[~TYP[0]],~SIZE[~TYP[1]]]~THEN~ARG[0] + ~ARG[1]~ELSE~IF~SIZE[~TYP[0]]~THEN~ARG[0]~ELSE~ARG[1]~FI~FI; - BlackBox:     name: Clash.Sized.Internal.Index.minus#     kind: Declaration     type: Index m -> Index       n -> Index (m + n - 1)-    template: assign ~RESULT = ~ARG[0] - ~ARG[1];+    template: assign ~RESULT = ~IF~AND[~SIZE[~TYP[0]],~SIZE[~TYP[1]]]~THEN~ARG[0] - ~ARG[1]~ELSE~IF~SIZE[~TYP[0]]~THEN~ARG[0]~ELSE-~ARG[1]~FI~FI; - BlackBox:     name: Clash.Sized.Internal.Index.times#     kind: Declaration     type: Index m -> Index       n -> Index (((m-1) * (n-1)) + 1)-    template: assign ~RESULT = ~ARG[0] * ~ARG[1];+    template: assign ~RESULT = ~IF~AND[~SIZE[~TYP[0]],~SIZE[~TYP[1]]]~THEN~ARG[0] * ~ARG[1]~ELSE~SIZE[~TYPO]'d0~FI; - BlackBox:     name: Clash.Sized.Internal.Index.rem#     kind: Expression

@@ -1,29 +1,29 @@ - BlackBox:-    name: GHC.Classes.eqInt+    name: ["GHC.Classes.eqInt", "GHC.Internal.Classes.eqInt"]     kind: Expression     type: 'eqInt :: Int ->       Int -> Bool'     template: ~ARG[0] == ~ARG[1] - BlackBox:-    name: GHC.Classes.neInt+    name: ["GHC.Classes.neInt", "GHC.Internal.Classes.neInt"]     kind: Expression     type: 'neInt :: Int ->       Int -> Bool'     template: ~ARG[0] != ~ARG[1] - BlackBox:-    name: GHC.Classes.&&+    name: ["GHC.Classes.&&", "GHC.Internal.Classes.&&"]     kind: Expression     type: '(&&) :: Bool ->       Bool -> Bool'     template: ~ARG[0] & ~ARG[1] - BlackBox:-    name: GHC.Classes.||+    name: ["GHC.Classes.||", "GHC.Internal.Classes.||"]     kind: Expression     type: '(||) :: Bool ->       Bool -> Bool'     template: ~ARG[0] | ~ARG[1] - BlackBox:-    name: GHC.Classes.not+    name: ["GHC.Classes.not", "GHC.Internal.Classes.not"]     kind: Expression     type: 'not :: Bool ->       Bool'

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Num.Integer.integerToNatural+    name: ["GHC.Num.Integer.integerToNatural", "GHC.Internal.Bignum.Integer.integerToNatural"]     kind: Expression     type: 'integerToNatural       :: Integer -> Natural'@@ -8,7 +8,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToNaturalThrow+    name: ["GHC.Num.Integer.integerToNaturalThrow", "GHC.Internal.Bignum.Integer.integerToNaturalThrow"]     kind: Expression     type: 'integerToNaturalThrow       :: Integer -> Natural'@@ -17,7 +17,7 @@       in simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToNaturalClamp+    name: ["GHC.Num.Integer.integerToNaturalClamp", "GHC.Internal.Bignum.Integer.integerToNaturalClamp"]     kind: Expression     type: 'integerToNatural       :: Integer -> Natural'@@ -26,7 +26,7 @@       in simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToInt#+    name: ["GHC.Num.Integer.integerToInt#", "GHC.Internal.Bignum.Integer.integerToInt#"]     kind: Declaration     type: 'integerToInt ::       Integer -> Int#'@@ -35,7 +35,7 @@       but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerMul+    name: ["GHC.Num.Integer.integerMul", "GHC.Internal.Bignum.Integer.integerMul"]     kind: Expression     type: 'integerMul :: Integer       -> Integer -> Integer'@@ -43,7 +43,7 @@     warning: 'GHC.Num.Integer.integerMul: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerNegate+    name: ["GHC.Num.Integer.integerNegate", "GHC.Internal.Bignum.Integer.integerNegate"]     kind: Expression     type: 'integerNegate ::       Integer -> Integer'@@ -51,7 +51,7 @@     warning: 'GHC.Num.Integer.integerNegate: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerAbs+    name: ["GHC.Num.Integer.integerAbs", "GHC.Internal.Bignum.Integer.integerAbs"]     kind: Expression     type: 'integerAbs :: Integer       -> Integer'@@ -59,7 +59,7 @@     warning: 'GHC.Num.Integer.integerAbs: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerRem+    name: ["GHC.Num.Integer.integerRem", "GHC.Internal.Bignum.Integer.integerRem"]     kind: Expression     type: 'integerRem :: Integer       -> Integer -> Integer'@@ -67,7 +67,7 @@     warning: 'GHC.Num.Integer.integerRem: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerEq+    name: ["GHC.Num.Integer.integerEq", "GHC.Internal.Bignum.Integer.integerEq"]     kind: Expression     type: 'integerEq :: Integer       -> Integer -> Bool'@@ -75,7 +75,7 @@     warning: 'GHC.Num.Integer.integerEq: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerNe+    name: ["GHC.Num.Integer.integerNe", "GHC.Internal.Bignum.Integer.integerNe"]     kind: Expression     type: 'integerNe :: Integer       -> Integer -> Bool'@@ -83,7 +83,7 @@     warning: 'GHC.Num.Integer.integerNe: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerEq#+    name: ["GHC.Num.Integer.integerEq#", "GHC.Internal.Bignum.Integer.integerEq#"]     kind: Expression     type: 'integerEq :: Integer       -> Integer -> Int#'@@ -91,7 +91,7 @@     warning: 'GHC.Num.Integer.integerEq#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerNe#+    name: ["GHC.Num.Integer.integerNe#", "GHC.Internal.Bignum.Integer.integerNe#"]     kind: Expression     type: 'integerNe# :: Integer       -> Integer -> Int#'@@ -99,7 +99,7 @@     warning: 'GHC.Num.Integer.integerNe#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerLe#+    name: ["GHC.Num.Integer.integerLe#", "GHC.Internal.Bignum.Integer.integerLe#"]     kind: Expression     type: 'integerLe :: Integer       -> Integer -> Int#'@@ -107,7 +107,7 @@     warning: 'GHC.Num.Integer.integerLe#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerGt#+    name: ["GHC.Num.Integer.integerGt#", "GHC.Internal.Bignum.Integer.integerGt#"]     kind: Expression     type: 'integerGt# :: Integer       -> Integer -> Int#'@@ -115,7 +115,7 @@     warning: 'GHC.Num.Integer.integerGt#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerLt#+    name: ["GHC.Num.Integer.integerLt#", "GHC.Internal.Bignum.Integer.integerLt#"]     kind: Expression     type: 'integerLt# :: Integer       -> Integer -> Int#'@@ -123,7 +123,7 @@     warning: 'GHC.Num.Integer.integerLt#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerGe#+    name: ["GHC.Num.Integer.integerGe#", "GHC.Internal.Bignum.Integer.integerGe#"]     kind: Expression     type: 'integerGe# :: Integer       -> Integer -> Int#'@@ -131,7 +131,7 @@     warning: 'GHC.Num.Integer.integerGe#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerShiftR#+    name: ["GHC.Num.Integer.integerShiftR#", "GHC.Internal.Bignum.Integer.integerShiftR#"]     kind: Expression     type: 'integerShiftR ::       Integer -> Word# -> Integer'@@ -139,7 +139,7 @@     warning: 'GHC.Num.Integer.integerShiftR#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerShiftL#+    name: ["GHC.Num.Integer.integerShiftL#", "GHC.Internal.Bignum.Integer.integerShiftL#"]     kind: Expression     type: 'integerShiftL ::       Integer -> Word# -> Integer'@@ -147,7 +147,7 @@     warning: 'GHC.Num.Integer.integerShiftL#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerTestBit#+    name: ["GHC.Num.Integer.integerTestBit#", "GHC.Internal.Bignum.Integer.integerTestBit#"]     kind: Expression     type: 'integerTestBit       :: Integer -> Word# -> Int#'@@ -155,7 +155,7 @@     warning: 'GHC.Num.Integer.integerTestBit#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerFromWord#+    name: ["GHC.Num.Integer.integerFromWord#", "GHC.Internal.Bignum.Integer.integerFromWord#"]     kind: Declaration     type: 'integerFromWord#       :: Word# -> Integer'@@ -164,7 +164,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToWord#+    name: ["GHC.Num.Integer.integerToWord#", "GHC.Internal.Bignum.Integer.integerToWord#"]     kind: Declaration     type: 'integerToWord#       :: Integer -> Word#'@@ -173,7 +173,7 @@       but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToInt64#+    name: ["GHC.Num.Integer.integerToInt64#", "GHC.Internal.Bignum.Integer.integerToInt64#"]     kind: Expression     type: 'integerToInt64#:: Integer -> Int64#'     template: ~ARG[0]@@ -181,7 +181,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToWord64#+    name: ["GHC.Num.Integer.integerToWord64#", "GHC.Internal.Bignum.Integer.integerToWord64#"]     comment: only used by 32 bit GHC     kind: Declaration     type: 'integerToWord64#@@ -191,7 +191,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerFromWord64#+    name: ["GHC.Num.Integer.integerFromWord64#", "GHC.Internal.Bignum.Integer.integerFromWord64#"]     kind: Declaration     type: 'integerFromWord64# :: Word64# -> Integer'     template: assign ~RESULT = $signed(~ARG[0]);@@ -199,7 +199,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerBit#+    name: ["GHC.Num.Integer.integerBit#", "GHC.Internal.Bignum.Integer.integerBit#"]     kind: Expression     type: 'integerBit# ::       Word# -> Integer'@@ -207,7 +207,7 @@     warning: 'GHC.Num.Integer.integerBit#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerComplement+    name: ["GHC.Num.Integer.integerComplement", "GHC.Internal.Bignum.Integer.integerComplement"]     kind: Expression     type: 'integerComplement       :: Integer -> Integer'@@ -215,7 +215,7 @@     warning: 'GHC.Num.Integer.integerComplement: Integers are dynamically sized in       simulation, but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerXor+    name: ["GHC.Num.Integer.integerXor", "GHC.Internal.Bignum.Integer.integerXor"]     kind: Expression     type: 'integerXor :: Integer       -> Integer -> Integer'@@ -223,7 +223,7 @@     warning: 'GHC.Num.Integer.integerXor: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerOr+    name: ["GHC.Num.Integer.integerOr", "GHC.Internal.Bignum.Integer.integerOr"]     kind: Expression     type: 'integerOr :: Integer       -> Integer -> Integer'@@ -231,7 +231,7 @@     warning: 'GHC.Num.Integer.integerOr: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerAnd+    name: ["GHC.Num.Integer.integerAnd", "GHC.Internal.Bignum.Integer.integerAnd"]     kind: Expression     type: 'andInteger :: Integer       -> Integer -> Integer'@@ -239,7 +239,7 @@     warning: 'GHC.Num.Integer.integerAnd: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerSignum+    name: ["GHC.Num.Integer.integerSignum", "GHC.Internal.Bignum.Integer.integerSignum"]     kind: Expression     type: 'integerSignum ::       Integer -> Integer'@@ -248,7 +248,7 @@     warning: 'GHC.Num.Integer.integerSignum: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.$wintegerSignum+    name: ["GHC.Num.Integer.$wintegerSignum", "GHC.Internal.Bignum.Integer.$wintegerSignum"]     kind: Expression     type: 'integerSignum ::       Integer -> Int#'@@ -257,7 +257,7 @@     warning: 'GHC.Num.Integer.$wintegerSignum: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerLogBase#+    name: ["GHC.Num.Integer.integerLogBase#", "GHC.Internal.Bignum.Integer.integerLogBase#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -279,7 +279,7 @@     warning: 'GHC.Num.Integer.integerLogBase#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerCompare+    name: ["GHC.Num.Integer.integerCompare", "GHC.Internal.Bignum.Integer.integerCompare"]     kind: Expression     type: 'integerCompare       :: Integer -> Integer -> Ordering'@@ -288,7 +288,7 @@     warning: 'GHC.Num.Integer.integerCompare: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerQuot+    name: ["GHC.Num.Integer.integerQuot", "GHC.Internal.Bignum.Integer.integerQuot"]     kind: Expression     type: 'integerQuot ::       Integer -> Integer -> Integer'@@ -296,7 +296,7 @@     warning: 'GHC.Num.Integer.integerQuot: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.$wintegerFromInt64#+    name: ["GHC.Num.Integer.$wintegerFromInt64#", "GHC.Internal.Bignum.Integer.$wintegerFromInt64#"]     kind: Declaration     type: '$wintegerFromInt64# :: Int64# -> Int#'     template: |-

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Num.Natural.naturalMul+    name: ["GHC.Num.Natural.naturalMul", "GHC.Internal.Bignum.Natural.naturalMul"]     kind: Expression     type: 'naturalMul :: Natural       -> Natural -> Natural'@@ -7,7 +7,7 @@     warning: 'GHC.Num.Natural.naturalMul: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalFromWord#+    name: ["GHC.Num.Natural.naturalFromWord#", "GHC.Internal.Bignum.Natural.naturalFromWord#"]     kind: Declaration     type: 'naturalFromWord#       :: Word# -> Natural'@@ -16,7 +16,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Natural.naturalRem+    name: ["GHC.Num.Natural.naturalRem", "GHC.Internal.Bignum.Natural.naturalRem"]     kind: Expression     type: 'naturalRem :: Natural       -> Natural -> Natural'@@ -24,7 +24,7 @@     warning: 'GHC.Num.Natural.naturalRem: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalLogBase#+    name: ["GHC.Num.Natural.naturalLogBase#", "GHC.Internal.Bignum.Natural.naturalLogBase#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -46,7 +46,7 @@     warning: 'GHC.Num.Natural.naturalLogBase#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalEq#+    name: ["GHC.Num.Natural.naturalEq#", "GHC.Internal.Bignum.Natural.naturalEq#"]     kind: Expression     type: 'naturalEq :: Natural       -> Natural -> Int#'@@ -54,7 +54,7 @@     warning: 'GHC.Num.Natural.naturalEq#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalNe#+    name: ["GHC.Num.Natural.naturalNe#", "GHC.Internal.Bignum.Natural.naturalNe#"]     kind: Expression     type: 'naturalNe# :: Natural       -> Natural -> Int#'@@ -62,7 +62,7 @@     warning: 'GHC.Num.Natural.naturalNe#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalLe#+    name: ["GHC.Num.Natural.naturalLe#", "GHC.Internal.Bignum.Natural.naturalLe#"]     kind: Expression     type: 'naturalLe :: Natural       -> Natural -> Int#'@@ -70,7 +70,7 @@     warning: 'GHC.Num.Natural.naturalLe#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalGt#+    name: ["GHC.Num.Natural.naturalGt#", "GHC.Internal.Bignum.Natural.naturalGt#"]     kind: Expression     type: 'naturalGt# :: Natural       -> Natural -> Int#'@@ -78,7 +78,7 @@     warning: 'GHC.Num.Natural.naturalGt#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalLt#+    name: ["GHC.Num.Natural.naturalLt#", "GHC.Internal.Bignum.Natural.naturalLt#"]     kind: Expression     type: 'naturalLt# :: Natural       -> Natural -> Int#'@@ -86,7 +86,7 @@     warning: 'GHC.Num.Natural.naturalLt#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalGe#+    name: ["GHC.Num.Natural.naturalGe#", "GHC.Internal.Bignum.Natural.naturalGe#"]     kind: Expression     type: 'naturalGe# :: Natural       -> Natural -> Int#'@@ -94,7 +94,7 @@     warning: 'GHC.Num.Natural.naturalGe#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalShiftL#+    name: ["GHC.Num.Natural.naturalShiftL#", "GHC.Internal.Bignum.Natural.naturalShiftL#"]     kind: Expression     type: 'naturalShiftL#       :: Natural -> Word# -> Natural'@@ -102,7 +102,7 @@     warning: 'GHC.Num.Natural.naturalShiftL#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalShiftR#+    name: ["GHC.Num.Natural.naturalShiftR#", "GHC.Internal.Bignum.Natural.naturalShiftR#"]     kind: Expression     type: 'naturalShiftR#       :: Natuarl -> Word# -> Natural'@@ -110,7 +110,7 @@     warning: 'GHC.Num.Natural.naturalShiftR#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.NaturalCompare+    name: ["GHC.Num.Natural.NaturalCompare", "GHC.Internal.Bignum.Natural.NaturalCompare"]     kind: Expression     type: 'naturalCompare       :: Natural -> Natural -> Ordering'@@ -119,7 +119,7 @@     warning: 'GHC.Num.Natural.naturalCompare: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalQuot+    name: ["GHC.Num.Natural.naturalQuot", "GHC.Internal.Bignum.Natural.naturalQuot"]     kind: Expression     type: 'naturalQuot ::       Natural -> Natural -> Natural'

@@ -1,247 +1,247 @@ - BlackBox:-    name: GHC.Prim.gtChar#+    name: ["GHC.Prim.gtChar#", "GHC.Internal.Prim.gtChar#"]     kind: Expression     type: 'gtChar# :: Char#       -> Char# -> Int#'     template: '(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.geChar#+    name: ["GHC.Prim.geChar#", "GHC.Internal.Prim.geChar#"]     kind: Expression     type: 'geChar# :: Char#       -> Char# -> Int#'     template: '(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.eqChar#+    name: ["GHC.Prim.eqChar#", "GHC.Internal.Prim.eqChar#"]     kind: Expression     type: 'eqChar# :: Char#       -> Char# -> Int#'     template: '(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.neChar#+    name: ["GHC.Prim.neChar#", "GHC.Internal.Prim.neChar#"]     kind: Expression     type: 'neChar# :: Char#       -> Char# -> Int#'     template: '(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.ltChar#+    name: ["GHC.Prim.ltChar#", "GHC.Internal.Prim.ltChar#"]     kind: Expression     type: 'ltChar# :: Char#       -> Char# -> Int#'     template: '(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.leChar#+    name: ["GHC.Prim.leChar#", "GHC.Internal.Prim.leChar#"]     kind: Expression     type: 'leChar# :: Char#       -> Char# -> Int#'     template: '(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.ord#+    name: ["GHC.Prim.ord#", "GHC.Internal.Prim.ord#"]     kind: Expression     type: 'ord :: Char# ->       Int#'     template: $signed({{(~SIZE[~TYPO]-~SIZE[~TYP[0]]) {1'b0}},~VAR[c][0]}) - BlackBox:-    name: GHC.Prim.*#+    name: ["GHC.Prim.*#", "GHC.Internal.Prim.*#"]     kind: Expression     type: '(*#) :: Int# ->       Int# -> Int#'     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.remInt#+    name: ["GHC.Prim.remInt#", "GHC.Internal.Prim.remInt#"]     kind: Expression     type: 'remInt# :: Int#       -> Int# -> Int#'     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.andI#+    name: ["GHC.Prim.andI#", "GHC.Internal.Prim.andI#"]     kind: Expression     type: 'andI# :: Int# ->       Int# -> Int#'     template: ~ARG[0] & ~ARG[1] - BlackBox:-    name: GHC.Prim.orI#+    name: ["GHC.Prim.orI#", "GHC.Internal.Prim.orI#"]     kind: Expression     type: 'orI# :: Int# ->       Int# -> Int#'     template: ~ARG[0] | ~ARG[1] - BlackBox:-    name: GHC.Prim.xorI#+    name: ["GHC.Prim.xorI#", "GHC.Internal.Prim.xorI#"]     kind: Expression     type: 'xorI# :: Int# ->       Int# -> Int#'     template: ~ARG[0] ^ ~ARG[1] - BlackBox:-    name: GHC.Prim.notI#+    name: ["GHC.Prim.notI#", "GHC.Internal.Prim.notI#"]     kind: Expression     type: 'notI# :: Int# ->       Int#'     template: ~ ~ARG[0] - BlackBox:-    name: GHC.Prim.negateInt#+    name: ["GHC.Prim.negateInt#", "GHC.Internal.Prim.negateInt#"]     kind: Expression     type: 'negateInt# :: Int#       -> Int#'     template: -(~ARG[0]) - BlackBox:-    name: GHC.Prim.>#+    name: ["GHC.Prim.>#", "GHC.Internal.Prim.>#"]     kind: Expression     type: '(>#) :: Int# ->       Int# -> Int#'     template: '(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.>=#+    name: ["GHC.Prim.>=#", "GHC.Internal.Prim.>=#"]     kind: Expression     type: '(>=#) :: Int# ->       Int# -> Int#'     template: '(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.==#+    name: ["GHC.Prim.==#", "GHC.Internal.Prim.==#"]     kind: Expression     type: '(==) :: Int# ->       Int# -> Int#'     template: '(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim./=#+    name: ["GHC.Prim./=#", "GHC.Internal.Prim./=#"]     kind: Expression     type: '(/=#) :: Int# ->       Int# -> Int#'     template: '(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.<#+    name: ["GHC.Prim.<#", "GHC.Internal.Prim.<#"]     kind: Expression     type: '(<#) :: Int# ->       Int# -> Int#'     template: '(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.<=#+    name: ["GHC.Prim.<=#", "GHC.Internal.Prim.<=#"]     kind: Expression     type: '(<=#) :: Int# ->       Int# -> Int#'     template: '(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.chr#+    name: ["GHC.Prim.chr#", "GHC.Internal.Prim.chr#"]     kind: Expression     type: 'ord :: Int# ->       Char#'     template: $unsigned(~VAR[i][0][0+:~SIZE[~TYPO]]) - BlackBox:-    name: GHC.Prim.int2Word#+    name: ["GHC.Prim.int2Word#", "GHC.Internal.Prim.int2Word#"]     kind: Expression     type: 'int2Word# :: Int#       -> Word#'     template: $unsigned(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.uncheckedIShiftL#+    name: ["GHC.Prim.uncheckedIShiftL#", "GHC.Internal.Prim.uncheckedIShiftL#"]     kind: Expression     type: 'uncheckedIShiftL#       :: Int# -> Int# -> Int#'     template: ~ARG[0] <<< ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedIShiftRA#+    name: ["GHC.Prim.uncheckedIShiftRA#", "GHC.Internal.Prim.uncheckedIShiftRA#"]     kind: Expression     type: 'uncheckedIShiftRA#       :: Int# -> Int# -> Int#'     template: ~ARG[0] >>> ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedIShiftRL#+    name: ["GHC.Prim.uncheckedIShiftRL#", "GHC.Internal.Prim.uncheckedIShiftRL#"]     kind: Expression     type: 'uncheckedIShiftRL#       :: Int# -> Int# -> Int#'     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.timesWord#+    name: ["GHC.Prim.timesWord#", "GHC.Internal.Prim.timesWord#"]     kind: Expression     type: 'timesWord# :: Word#       -> Word# -> Word#'     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.remWord#+    name: ["GHC.Prim.remWord#", "GHC.Internal.Prim.remWord#"]     kind: Expression     type: 'remWord# :: Word#       -> Word# -> Word#'     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.and#+    name: ["GHC.Prim.and#", "GHC.Internal.Prim.and#"]     kind: Expression     type: 'and# :: Word# ->       Word# -> Word#'     template: ~ARG[0] & ~ARG[1] - BlackBox:-    name: GHC.Prim.or#+    name: ["GHC.Prim.or#", "GHC.Internal.Prim.or#"]     kind: Expression     type: 'or# :: Word# ->       Word# -> Word#'     template: ~ARG[0] | ~ARG[1] - BlackBox:-    name: GHC.Prim.xor#+    name: ["GHC.Prim.xor#", "GHC.Internal.Prim.xor#"]     kind: Expression     type: 'xor# :: Word# ->       Word# -> Word#'     template: ~ARG[0] ^ ~ARG[1] - BlackBox:-    name: GHC.Prim.not#+    name: ["GHC.Prim.not#", "GHC.Internal.Prim.not#"]     kind: Expression     type: 'not# :: Word# ->       Word#'     template: ~ ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftL#+    name: ["GHC.Prim.uncheckedShiftL#", "GHC.Internal.Prim.uncheckedShiftL#"]     kind: Expression     type: 'uncheckedShiftL#       :: Word# -> Int# -> Word#'     template: ~ARG[0] << ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRL#+    name: ["GHC.Prim.uncheckedShiftRL#", "GHC.Internal.Prim.uncheckedShiftRL#"]     kind: Expression     type: 'uncheckedShiftRL#       :: Word# -> Int# -> Word#'     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.word2Int#+    name: ["GHC.Prim.word2Int#", "GHC.Internal.Prim.word2Int#"]     kind: Expression     type: 'int2Word# :: Word#       -> Int#'     template: $signed(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.gtWord#+    name: ["GHC.Prim.gtWord#", "GHC.Internal.Prim.gtWord#"]     kind: Expression     type: 'gtWord# :: Word#       -> Word# -> Int#'     template: '(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.geWord#+    name: ["GHC.Prim.geWord#", "GHC.Internal.Prim.geWord#"]     kind: Expression     type: 'geWord# :: Word#       -> Word# -> Int#'     template: '(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.eqWord#+    name: ["GHC.Prim.eqWord#", "GHC.Internal.Prim.eqWord#"]     kind: Expression     type: 'eqWord# :: Word#       -> Word# -> Int#'     template: '(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.neWord#+    name: ["GHC.Prim.neWord#", "GHC.Internal.Prim.neWord#"]     kind: Expression     type: 'neWord# :: Word#       -> Word# -> Int#'     template: '(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.ltWord#+    name: ["GHC.Prim.ltWord#", "GHC.Internal.Prim.ltWord#"]     kind: Expression     type: 'ltWord# :: Word#       -> Word# -> Int#'     template: '(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.leWord#+    name: ["GHC.Prim.leWord#", "GHC.Internal.Prim.leWord#"]     kind: Expression     type: 'leWord# :: Word#       -> Word# -> Int#'     template: '(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]''sd1 : ~SIZE[~TYPO]''sd0' - BlackBox:-    name: GHC.Prim.byteSwap16#+    name: ["GHC.Prim.byteSwap16#", "GHC.Internal.Prim.byteSwap16#"]     kind: Declaration     type: 'byteSwap16# ::       Word# -> Word#'@@ -252,7 +252,7 @@       // byteSwap16 end     workInfo: Never - BlackBox:-    name: GHC.Prim.byteSwap32#+    name: ["GHC.Prim.byteSwap32#", "GHC.Internal.Prim.byteSwap32#"]     kind: Declaration     type: 'byteSwap32# ::       Word# -> Word#'@@ -263,7 +263,7 @@       // byteSwap32 end     workInfo: Never - BlackBox:-    name: GHC.Prim.byteSwap64#+    name: ["GHC.Prim.byteSwap64#", "GHC.Internal.Prim.byteSwap64#"]     kind: Declaration     type: 'byteSwap64# ::       Word# -> Word#'@@ -274,7 +274,7 @@       // byteSwap64 end     workInfo: Never - BlackBox:-    name: GHC.Prim.byteSwap#+    name: ["GHC.Prim.byteSwap#", "GHC.Internal.Prim.byteSwap#"]     kind: Declaration     type: 'byteSwap# :: Word#       -> Word#'@@ -286,7 +286,7 @@       // byteSwap end     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow8Int#+    name: ["GHC.Prim.narrow8Int#", "GHC.Internal.Prim.narrow8Int#"]     kind: Declaration     type: 'narrow8Int# ::       Int# -> Int#'@@ -296,7 +296,7 @@       // narrow8Int end     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow16Int#+    name: ["GHC.Prim.narrow16Int#", "GHC.Internal.Prim.narrow16Int#"]     kind: Declaration     type: 'narrow16Int# ::       Int# -> Int#'@@ -306,7 +306,7 @@       // narrow16Int end     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow32Int#+    name: ["GHC.Prim.narrow32Int#", "GHC.Internal.Prim.narrow32Int#"]     kind: Declaration     type: 'narrow32Int# ::       Int# -> Int#'@@ -316,7 +316,7 @@       // narrow32Int end     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow8Word#+    name: ["GHC.Prim.narrow8Word#", "GHC.Internal.Prim.narrow8Word#"]     kind: Declaration     type: 'narrow8Int# ::       Word# -> Word#'@@ -326,7 +326,7 @@       // narrow8Word end     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow16Word#+    name: ["GHC.Prim.narrow16Word#", "GHC.Internal.Prim.narrow16Word#"]     kind: Declaration     type: 'narrow16Word# ::       Word# -> Word#'@@ -336,7 +336,7 @@       // narrow16Word end     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow32Word#+    name: ["GHC.Prim.narrow32Word#", "GHC.Internal.Prim.narrow32Word#"]     kind: Declaration     type: 'narrow32Int# ::       Word# -> Word#'@@ -346,7 +346,7 @@       // narrow32Word end     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse#+    name: ["GHC.Prim.bitReverse#", "GHC.Internal.Prim.bitReverse#"]     kind: Declaration     type: 'bitReverse# ::       Word# -> Word#'@@ -361,7 +361,7 @@       // bitReverse end     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse8#+    name: ["GHC.Prim.bitReverse8#", "GHC.Internal.Prim.bitReverse8#"]     kind: Declaration     type: 'bitReverse8# ::       Word# -> Word#'@@ -376,7 +376,7 @@       // bitReverse8 end     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse16#+    name: ["GHC.Prim.bitReverse16#", "GHC.Internal.Prim.bitReverse16#"]     kind: Declaration     type: 'bitReverse16# ::       Word# -> Word#'@@ -391,7 +391,7 @@       // bitReverse16 end     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse32#+    name: ["GHC.Prim.bitReverse32#", "GHC.Internal.Prim.bitReverse32#"]     kind: Declaration     type: 'bitReverse32# ::       Word# -> Word#'@@ -406,7 +406,7 @@       // bitReverse32 end     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse64#+    name: ["GHC.Prim.bitReverse64#", "GHC.Internal.Prim.bitReverse64#"]     kind: Declaration     type: 'bitReverse64# ::       Word# -> Word#'@@ -421,19 +421,19 @@       // bitReverse64 end     workInfo: Never - BlackBox:-    name: GHC.Prim.quotInt#+    name: ["GHC.Prim.quotInt#", "GHC.Internal.Prim.quotInt#"]     kind: Expression     type: 'quotInt# :: Int#       -> Int# -> Int#'     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.quotWord#+    name: ["GHC.Prim.quotWord#", "GHC.Internal.Prim.quotWord#"]     kind: Expression     type: 'quotWord# :: Word#       -> Word# -> Word#'     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.int8ToInt#+    name: ["GHC.Prim.int8ToInt#", "GHC.Internal.Prim.int8ToInt#"]     kind: Declaration     template: |-       // int8ToInt begin@@ -441,7 +441,7 @@       // int8ToInt end     workInfo: Never - BlackBox:-    name: GHC.Prim.intToInt8#+    name: ["GHC.Prim.intToInt8#", "GHC.Internal.Prim.intToInt8#"]     kind: Declaration     template: |-       // intToInt8 begin@@ -449,64 +449,64 @@       // intToInt8 end     workInfo: Never - BlackBox:-    name: GHC.Prim.negateInt8#+    name: ["GHC.Prim.negateInt8#", "GHC.Internal.Prim.negateInt8#"]     kind: Expression     template: -(~ARG[0]) - BlackBox:-    name: GHC.Prim.timesInt8#+    name: ["GHC.Prim.timesInt8#", "GHC.Internal.Prim.timesInt8#"]     kind: Expression     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.quotInt8#+    name: ["GHC.Prim.quotInt8#", "GHC.Internal.Prim.quotInt8#"]     kind: Expression     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.remInt8#+    name: ["GHC.Prim.remInt8#", "GHC.Internal.Prim.remInt8#"]     kind: Expression     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftLInt8#+    name: ["GHC.Prim.uncheckedShiftLInt8#", "GHC.Internal.Prim.uncheckedShiftLInt8#"]     kind: Expression     template: ~ARG[0] <<< ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRAInt8#+    name: ["GHC.Prim.uncheckedShiftRAInt8#", "GHC.Internal.Prim.uncheckedShiftRAInt8#"]     kind: Expression     template: ~ARG[0] >>> ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRLInt8#+    name: ["GHC.Prim.uncheckedShiftRLInt8#", "GHC.Internal.Prim.uncheckedShiftRLInt8#"]     kind: Expression     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.int8ToWord8#+    name: ["GHC.Prim.int8ToWord8#", "GHC.Internal.Prim.int8ToWord8#"]     kind: Expression     template: $unsigned(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.eqInt8#+    name: ["GHC.Prim.eqInt8#", "GHC.Internal.Prim.eqInt8#"]     kind: Expression     template: "(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.geInt8#+    name: ["GHC.Prim.geInt8#", "GHC.Internal.Prim.geInt8#"]     kind: Expression     template: "(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.gtInt8#+    name: ["GHC.Prim.gtInt8#", "GHC.Internal.Prim.gtInt8#"]     kind: Expression     template: "(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.leInt8#+    name: ["GHC.Prim.leInt8#", "GHC.Internal.Prim.leInt8#"]     kind: Expression     template: "(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.ltInt8#+    name: ["GHC.Prim.ltInt8#", "GHC.Internal.Prim.ltInt8#"]     kind: Expression     template: "(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.neInt8#+    name: ["GHC.Prim.neInt8#", "GHC.Internal.Prim.neInt8#"]     kind: Expression     template: "(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.word8ToWord#+    name: ["GHC.Prim.word8ToWord#", "GHC.Internal.Prim.word8ToWord#"]     kind: Declaration     template: |-       // word8ToWord begin@@ -514,7 +514,7 @@       // word8ToWord end     workInfo: Never - BlackBox:-    name: GHC.Prim.wordToWord8#+    name: ["GHC.Prim.wordToWord8#", "GHC.Internal.Prim.wordToWord8#"]     kind: Declaration     template: |-       // wordToWord8 begin@@ -522,72 +522,72 @@       // wordToWord8 end     workInfo: Never - BlackBox:-    name: GHC.Prim.timesWord8#+    name: ["GHC.Prim.timesWord8#", "GHC.Internal.Prim.timesWord8#"]     kind: Expression     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.quotWord8#+    name: ["GHC.Prim.quotWord8#", "GHC.Internal.Prim.quotWord8#"]     kind: Expression     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.remWord8#+    name: ["GHC.Prim.remWord8#", "GHC.Internal.Prim.remWord8#"]     kind: Expression     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.andWord8#+    name: ["GHC.Prim.andWord8#", "GHC.Internal.Prim.andWord8#"]     kind: Expression     template: ~ARG[0] & ~ARG[1] - BlackBox:-    name: GHC.Prim.orWord8#+    name: ["GHC.Prim.orWord8#", "GHC.Internal.Prim.orWord8#"]     kind: Expression     template: ~ARG[0] | ~ARG[1] - BlackBox:-    name: GHC.Prim.xorWord8#+    name: ["GHC.Prim.xorWord8#", "GHC.Internal.Prim.xorWord8#"]     kind: Expression     template: ~ARG[0] ^ ~ARG[1] - BlackBox:-    name: GHC.Prim.notWord8#+    name: ["GHC.Prim.notWord8#", "GHC.Internal.Prim.notWord8#"]     kind: Expression     template: ~ ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftLWord8#+    name: ["GHC.Prim.uncheckedShiftLWord8#", "GHC.Internal.Prim.uncheckedShiftLWord8#"]     kind: Expression     template: ~ARG[0] << ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRLWord8#+    name: ["GHC.Prim.uncheckedShiftRLWord8#", "GHC.Internal.Prim.uncheckedShiftRLWord8#"]     kind: Expression     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.word8ToInt8#+    name: ["GHC.Prim.word8ToInt8#", "GHC.Internal.Prim.word8ToInt8#"]     kind: Expression     template: $signed(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.eqWord8#+    name: ["GHC.Prim.eqWord8#", "GHC.Internal.Prim.eqWord8#"]     kind: Expression     template: "(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.geWord8#+    name: ["GHC.Prim.geWord8#", "GHC.Internal.Prim.geWord8#"]     kind: Expression     template: "(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.gtWord8#+    name: ["GHC.Prim.gtWord8#", "GHC.Internal.Prim.gtWord8#"]     kind: Expression     template: "(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.leWord8#+    name: ["GHC.Prim.leWord8#", "GHC.Internal.Prim.leWord8#"]     kind: Expression     template: "(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.ltWord8#+    name: ["GHC.Prim.ltWord8#", "GHC.Internal.Prim.ltWord8#"]     kind: Expression     template: "(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.neWord8#+    name: ["GHC.Prim.neWord8#", "GHC.Internal.Prim.neWord8#"]     kind: Expression     template: "(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.int16ToInt#+    name: ["GHC.Prim.int16ToInt#", "GHC.Internal.Prim.int16ToInt#"]     kind: Declaration     template: |-       // int16ToInt begin@@ -595,7 +595,7 @@       // int16ToInt end     workInfo: Never - BlackBox:-    name: GHC.Prim.intToInt16#+    name: ["GHC.Prim.intToInt16#", "GHC.Internal.Prim.intToInt16#"]     kind: Declaration     template: |-       // intToInt16 begin@@ -603,64 +603,64 @@       // intToInt16 end     workInfo: Never - BlackBox:-    name: GHC.Prim.negateInt16#+    name: ["GHC.Prim.negateInt16#", "GHC.Internal.Prim.negateInt16#"]     kind: Expression     template: -(~ARG[0]) - BlackBox:-    name: GHC.Prim.timesInt16#+    name: ["GHC.Prim.timesInt16#", "GHC.Internal.Prim.timesInt16#"]     kind: Expression     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.quotInt16#+    name: ["GHC.Prim.quotInt16#", "GHC.Internal.Prim.quotInt16#"]     kind: Expression     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.remInt16#+    name: ["GHC.Prim.remInt16#", "GHC.Internal.Prim.remInt16#"]     kind: Expression     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftLInt16#+    name: ["GHC.Prim.uncheckedShiftLInt16#", "GHC.Internal.Prim.uncheckedShiftLInt16#"]     kind: Expression     template: ~ARG[0] <<< ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRAInt16#+    name: ["GHC.Prim.uncheckedShiftRAInt16#", "GHC.Internal.Prim.uncheckedShiftRAInt16#"]     kind: Expression     template: ~ARG[0] >>> ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRLInt16#+    name: ["GHC.Prim.uncheckedShiftRLInt16#", "GHC.Internal.Prim.uncheckedShiftRLInt16#"]     kind: Expression     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.int16ToWord16#+    name: ["GHC.Prim.int16ToWord16#", "GHC.Internal.Prim.int16ToWord16#"]     kind: Expression     template: $unsigned(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.eqInt16#+    name: ["GHC.Prim.eqInt16#", "GHC.Internal.Prim.eqInt16#"]     kind: Expression     template: "(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.geInt16#+    name: ["GHC.Prim.geInt16#", "GHC.Internal.Prim.geInt16#"]     kind: Expression     template: "(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.gtInt16#+    name: ["GHC.Prim.gtInt16#", "GHC.Internal.Prim.gtInt16#"]     kind: Expression     template: "(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.leInt16#+    name: ["GHC.Prim.leInt16#", "GHC.Internal.Prim.leInt16#"]     kind: Expression     template: "(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.ltInt16#+    name: ["GHC.Prim.ltInt16#", "GHC.Internal.Prim.ltInt16#"]     kind: Expression     template: "(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.neInt16#+    name: ["GHC.Prim.neInt16#", "GHC.Internal.Prim.neInt16#"]     kind: Expression     template: "(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.word16ToWord#+    name: ["GHC.Prim.word16ToWord#", "GHC.Internal.Prim.word16ToWord#"]     kind: Declaration     template: |-       // word16ToWord begin@@ -668,7 +668,7 @@       // word16ToWord end     workInfo: Never - BlackBox:-    name: GHC.Prim.wordToWord16#+    name: ["GHC.Prim.wordToWord16#", "GHC.Internal.Prim.wordToWord16#"]     kind: Declaration     template: |-       // wordToWord16 begin@@ -676,72 +676,72 @@       // wordToWord16 end     workInfo: Never - BlackBox:-    name: GHC.Prim.timesWord16#+    name: ["GHC.Prim.timesWord16#", "GHC.Internal.Prim.timesWord16#"]     kind: Expression     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.quotWord16#+    name: ["GHC.Prim.quotWord16#", "GHC.Internal.Prim.quotWord16#"]     kind: Expression     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.remWord16#+    name: ["GHC.Prim.remWord16#", "GHC.Internal.Prim.remWord16#"]     kind: Expression     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.andWord16#+    name: ["GHC.Prim.andWord16#", "GHC.Internal.Prim.andWord16#"]     kind: Expression     template: ~ARG[0] & ~ARG[1] - BlackBox:-    name: GHC.Prim.orWord16#+    name: ["GHC.Prim.orWord16#", "GHC.Internal.Prim.orWord16#"]     kind: Expression     template: ~ARG[0] | ~ARG[1] - BlackBox:-    name: GHC.Prim.xorWord16#+    name: ["GHC.Prim.xorWord16#", "GHC.Internal.Prim.xorWord16#"]     kind: Expression     template: ~ARG[0] ^ ~ARG[1] - BlackBox:-    name: GHC.Prim.notWord16#+    name: ["GHC.Prim.notWord16#", "GHC.Internal.Prim.notWord16#"]     kind: Expression     template: ~ ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftLWord16#+    name: ["GHC.Prim.uncheckedShiftLWord16#", "GHC.Internal.Prim.uncheckedShiftLWord16#"]     kind: Expression     template: ~ARG[0] << ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRLWord16#+    name: ["GHC.Prim.uncheckedShiftRLWord16#", "GHC.Internal.Prim.uncheckedShiftRLWord16#"]     kind: Expression     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.word16ToInt16#+    name: ["GHC.Prim.word16ToInt16#", "GHC.Internal.Prim.word16ToInt16#"]     kind: Expression     template: $signed(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.eqWord16#+    name: ["GHC.Prim.eqWord16#", "GHC.Internal.Prim.eqWord16#"]     kind: Expression     template: "(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.geWord16#+    name: ["GHC.Prim.geWord16#", "GHC.Internal.Prim.geWord16#"]     kind: Expression     template: "(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.gtWord16#+    name: ["GHC.Prim.gtWord16#", "GHC.Internal.Prim.gtWord16#"]     kind: Expression     template: "(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.leWord16#+    name: ["GHC.Prim.leWord16#", "GHC.Internal.Prim.leWord16#"]     kind: Expression     template: "(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.ltWord16#+    name: ["GHC.Prim.ltWord16#", "GHC.Internal.Prim.ltWord16#"]     kind: Expression     template: "(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.neWord16#+    name: ["GHC.Prim.neWord16#", "GHC.Internal.Prim.neWord16#"]     kind: Expression     template: "(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.int32ToInt#+    name: ["GHC.Prim.int32ToInt#", "GHC.Internal.Prim.int32ToInt#"]     kind: Declaration     template: |-       // int32ToInt begin@@ -749,7 +749,7 @@       // int32ToInt end     workInfo: Never - BlackBox:-    name: GHC.Prim.intToInt32#+    name: ["GHC.Prim.intToInt32#", "GHC.Internal.Prim.intToInt32#"]     kind: Declaration     template: |-       // intToInt32 begin@@ -757,64 +757,64 @@       // intToInt32 end     workInfo: Never - BlackBox:-    name: GHC.Prim.negateInt32#+    name: ["GHC.Prim.negateInt32#", "GHC.Internal.Prim.negateInt32#"]     kind: Expression     template: -(~ARG[0]) - BlackBox:-    name: GHC.Prim.timesInt32#+    name: ["GHC.Prim.timesInt32#", "GHC.Internal.Prim.timesInt32#"]     kind: Expression     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.quotInt32#+    name: ["GHC.Prim.quotInt32#", "GHC.Internal.Prim.quotInt32#"]     kind: Expression     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.remInt32#+    name: ["GHC.Prim.remInt32#", "GHC.Internal.Prim.remInt32#"]     kind: Expression     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftLInt32#+    name: ["GHC.Prim.uncheckedShiftLInt32#", "GHC.Internal.Prim.uncheckedShiftLInt32#"]     kind: Expression     template: ~ARG[0] <<< ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRAInt32#+    name: ["GHC.Prim.uncheckedShiftRAInt32#", "GHC.Internal.Prim.uncheckedShiftRAInt32#"]     kind: Expression     template: ~ARG[0] >>> ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRLInt32#+    name: ["GHC.Prim.uncheckedShiftRLInt32#", "GHC.Internal.Prim.uncheckedShiftRLInt32#"]     kind: Expression     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.int32ToWord32#+    name: ["GHC.Prim.int32ToWord32#", "GHC.Internal.Prim.int32ToWord32#"]     kind: Expression     template: $unsigned(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.eqInt32#+    name: ["GHC.Prim.eqInt32#", "GHC.Internal.Prim.eqInt32#"]     kind: Expression     template: "(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.geInt32#+    name: ["GHC.Prim.geInt32#", "GHC.Internal.Prim.geInt32#"]     kind: Expression     template: "(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.gtInt32#+    name: ["GHC.Prim.gtInt32#", "GHC.Internal.Prim.gtInt32#"]     kind: Expression     template: "(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.leInt32#+    name: ["GHC.Prim.leInt32#", "GHC.Internal.Prim.leInt32#"]     kind: Expression     template: "(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.ltInt32#+    name: ["GHC.Prim.ltInt32#", "GHC.Internal.Prim.ltInt32#"]     kind: Expression     template: "(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.neInt32#+    name: ["GHC.Prim.neInt32#", "GHC.Internal.Prim.neInt32#"]     kind: Expression     template: "(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.word32ToWord#+    name: ["GHC.Prim.word32ToWord#", "GHC.Internal.Prim.word32ToWord#"]     kind: Declaration     template: |-       // word32ToWord begin@@ -822,7 +822,7 @@       // word32ToWord end     workInfo: Never - BlackBox:-    name: GHC.Prim.wordToWord32#+    name: ["GHC.Prim.wordToWord32#", "GHC.Internal.Prim.wordToWord32#"]     kind: Declaration     template: |-       // wordToWord32 begin@@ -830,72 +830,72 @@       // wordToWord32 end     workInfo: Never - BlackBox:-    name: GHC.Prim.timesWord32#+    name: ["GHC.Prim.timesWord32#", "GHC.Internal.Prim.timesWord32#"]     kind: Expression     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.quotWord32#+    name: ["GHC.Prim.quotWord32#", "GHC.Internal.Prim.quotWord32#"]     kind: Expression     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.remWord32#+    name: ["GHC.Prim.remWord32#", "GHC.Internal.Prim.remWord32#"]     kind: Expression     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.andWord32#+    name: ["GHC.Prim.andWord32#", "GHC.Internal.Prim.andWord32#"]     kind: Expression     template: ~ARG[0] & ~ARG[1] - BlackBox:-    name: GHC.Prim.orWord32#+    name: ["GHC.Prim.orWord32#", "GHC.Internal.Prim.orWord32#"]     kind: Expression     template: ~ARG[0] | ~ARG[1] - BlackBox:-    name: GHC.Prim.xorWord32#+    name: ["GHC.Prim.xorWord32#", "GHC.Internal.Prim.xorWord32#"]     kind: Expression     template: ~ARG[0] ^ ~ARG[1] - BlackBox:-    name: GHC.Prim.notWord32#+    name: ["GHC.Prim.notWord32#", "GHC.Internal.Prim.notWord32#"]     kind: Expression     template: ~ ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftLWord32#+    name: ["GHC.Prim.uncheckedShiftLWord32#", "GHC.Internal.Prim.uncheckedShiftLWord32#"]     kind: Expression     template: ~ARG[0] << ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRLWord32#+    name: ["GHC.Prim.uncheckedShiftRLWord32#", "GHC.Internal.Prim.uncheckedShiftRLWord32#"]     kind: Expression     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.word32ToInt32#+    name: ["GHC.Prim.word32ToInt32#", "GHC.Internal.Prim.word32ToInt32#"]     kind: Expression     template: $signed(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.eqWord32#+    name: ["GHC.Prim.eqWord32#", "GHC.Internal.Prim.eqWord32#"]     kind: Expression     template: "(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.geWord32#+    name: ["GHC.Prim.geWord32#", "GHC.Internal.Prim.geWord32#"]     kind: Expression     template: "(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.gtWord32#+    name: ["GHC.Prim.gtWord32#", "GHC.Internal.Prim.gtWord32#"]     kind: Expression     template: "(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.leWord32#+    name: ["GHC.Prim.leWord32#", "GHC.Internal.Prim.leWord32#"]     kind: Expression     template: "(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.ltWord32#+    name: ["GHC.Prim.ltWord32#", "GHC.Internal.Prim.ltWord32#"]     kind: Expression     template: "(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.neWord32#+    name: ["GHC.Prim.neWord32#", "GHC.Internal.Prim.neWord32#"]     kind: Expression     template: "(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.int64ToInt#+    name: ["GHC.Prim.int64ToInt#", "GHC.Internal.Prim.int64ToInt#"]     kind: Declaration     template: |-       // int64ToInt begin@@ -903,7 +903,7 @@       // int64ToInt end     workInfo: Never - BlackBox:-    name: GHC.Prim.intToInt64#+    name: ["GHC.Prim.intToInt64#", "GHC.Internal.Prim.intToInt64#"]     kind: Declaration     template: |-       // intToInt64 begin@@ -911,64 +911,64 @@       // intToInt64 end     workInfo: Never - BlackBox:-    name: GHC.Prim.negateInt64#+    name: ["GHC.Prim.negateInt64#", "GHC.Internal.Prim.negateInt64#"]     kind: Expression     template: -(~ARG[0]) - BlackBox:-    name: GHC.Prim.timesInt64#+    name: ["GHC.Prim.timesInt64#", "GHC.Internal.Prim.timesInt64#"]     kind: Expression     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.quotInt64#+    name: ["GHC.Prim.quotInt64#", "GHC.Internal.Prim.quotInt64#"]     kind: Expression     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.remInt64#+    name: ["GHC.Prim.remInt64#", "GHC.Internal.Prim.remInt64#"]     kind: Expression     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedIShiftL64#+    name: ["GHC.Prim.uncheckedIShiftL64#", "GHC.Internal.Prim.uncheckedIShiftL64#"]     kind: Expression     template: ~ARG[0] <<< ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedIShiftRA64#+    name: ["GHC.Prim.uncheckedIShiftRA64#", "GHC.Internal.Prim.uncheckedIShiftRA64#"]     kind: Expression     template: ~ARG[0] >>> ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedIShiftRL64#+    name: ["GHC.Prim.uncheckedIShiftRL64#", "GHC.Internal.Prim.uncheckedIShiftRL64#"]     kind: Expression     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.int64ToWord64#+    name: ["GHC.Prim.int64ToWord64#", "GHC.Internal.Prim.int64ToWord64#"]     kind: Expression     template: $unsigned(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.eqInt64#+    name: ["GHC.Prim.eqInt64#", "GHC.Internal.Prim.eqInt64#"]     kind: Expression     template: "(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.geInt64#+    name: ["GHC.Prim.geInt64#", "GHC.Internal.Prim.geInt64#"]     kind: Expression     template: "(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.gtInt64#+    name: ["GHC.Prim.gtInt64#", "GHC.Internal.Prim.gtInt64#"]     kind: Expression     template: "(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.leInt64#+    name: ["GHC.Prim.leInt64#", "GHC.Internal.Prim.leInt64#"]     kind: Expression     template: "(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.ltInt64#+    name: ["GHC.Prim.ltInt64#", "GHC.Internal.Prim.ltInt64#"]     kind: Expression     template: "(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.neInt64#+    name: ["GHC.Prim.neInt64#", "GHC.Internal.Prim.neInt64#"]     kind: Expression     template: "(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.word64ToWord#+    name: ["GHC.Prim.word64ToWord#", "GHC.Internal.Prim.word64ToWord#"]     kind: Declaration     template: |-       // word64ToWord begin@@ -976,7 +976,7 @@       // word64ToWord end     workInfo: Never - BlackBox:-    name: GHC.Prim.wordToWord64#+    name: ["GHC.Prim.wordToWord64#", "GHC.Internal.Prim.wordToWord64#"]     kind: Declaration     template: |-       // wordToWord64 begin@@ -984,67 +984,67 @@       // wordToWord64 end     workInfo: Never - BlackBox:-    name: GHC.Prim.timesWord64#+    name: ["GHC.Prim.timesWord64#", "GHC.Internal.Prim.timesWord64#"]     kind: Expression     template: ~ARG[0] * ~ARG[1] - BlackBox:-    name: GHC.Prim.quotWord64#+    name: ["GHC.Prim.quotWord64#", "GHC.Internal.Prim.quotWord64#"]     kind: Expression     template: ~ARG[0] / ~ARG[1] - BlackBox:-    name: GHC.Prim.remWord64#+    name: ["GHC.Prim.remWord64#", "GHC.Internal.Prim.remWord64#"]     kind: Expression     template: ~ARG[0] % ~ARG[1] - BlackBox:-    name: GHC.Prim.and64#+    name: ["GHC.Prim.and64#", "GHC.Internal.Prim.and64#"]     kind: Expression     template: ~ARG[0] & ~ARG[1] - BlackBox:-    name: GHC.Prim.or64#+    name: ["GHC.Prim.or64#", "GHC.Internal.Prim.or64#"]     kind: Expression     template: ~ARG[0] | ~ARG[1] - BlackBox:-    name: GHC.Prim.xor64#+    name: ["GHC.Prim.xor64#", "GHC.Internal.Prim.xor64#"]     kind: Expression     template: ~ARG[0] ^ ~ARG[1] - BlackBox:-    name: GHC.Prim.not64#+    name: ["GHC.Prim.not64#", "GHC.Internal.Prim.not64#"]     kind: Expression     template: ~ ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftL64#+    name: ["GHC.Prim.uncheckedShiftL64#", "GHC.Internal.Prim.uncheckedShiftL64#"]     kind: Expression     template: ~ARG[0] << ~ARG[1] - BlackBox:-    name: GHC.Prim.uncheckedShiftRL64#+    name: ["GHC.Prim.uncheckedShiftRL64#", "GHC.Internal.Prim.uncheckedShiftRL64#"]     kind: Expression     template: ~ARG[0] >> ~ARG[1] - BlackBox:-    name: GHC.Prim.word64ToInt64#+    name: ["GHC.Prim.word64ToInt64#", "GHC.Internal.Prim.word64ToInt64#"]     kind: Expression     template: $signed(~ARG[0])     workInfo: Never - BlackBox:-    name: GHC.Prim.eqWord64#+    name: ["GHC.Prim.eqWord64#", "GHC.Internal.Prim.eqWord64#"]     kind: Expression     template: "(~ARG[0] == ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.geWord64#+    name: ["GHC.Prim.geWord64#", "GHC.Internal.Prim.geWord64#"]     kind: Expression     template: "(~ARG[0] >= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.gtWord64#+    name: ["GHC.Prim.gtWord64#", "GHC.Internal.Prim.gtWord64#"]     kind: Expression     template: "(~ARG[0] > ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.leWord64#+    name: ["GHC.Prim.leWord64#", "GHC.Internal.Prim.leWord64#"]     kind: Expression     template: "(~ARG[0] <= ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.ltWord64#+    name: ["GHC.Prim.ltWord64#", "GHC.Internal.Prim.ltWord64#"]     kind: Expression     template: "(~ARG[0] < ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0" - BlackBox:-    name: GHC.Prim.neWord64#+    name: ["GHC.Prim.neWord64#", "GHC.Internal.Prim.neWord64#"]     kind: Expression     template: "(~ARG[0] != ~ARG[1]) ? ~SIZE[~TYPO]'sd1 : ~SIZE[~TYPO]'sd0"

@@ -174,5 +174,5 @@       end       // pragma translate_on       // resetGen end-    warning: Clash.Signal.Internal.resetGenN can not be synthesized to hardware!+    warning: Clash.Signal.Internal.resetGenN cannot be synthesized to hardware!     workInfo: Always

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Classes.divInt#+    name: ["GHC.Classes.divInt#", "GHC.Internal.Classes.divInt#"]     kind: Declaration     type: 'divInt# :: Int#       -> Int# -> Int#'@@ -25,7 +25,7 @@       assign ~RESULT = $signed(~SYM[6][~SIZE[~TYPO]-1:0]);       // divInt# end - BlackBox:-    name: GHC.Classes.modInt#+    name: ["GHC.Classes.modInt#", "GHC.Internal.Classes.modInt#"]     kind: Declaration     type: 'modInt# :: Int#       -> Int# -> Int#'

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Num.Integer.integerDiv+    name: ["GHC.Num.Integer.integerDiv", "GHC.Internal.Bignum.Integer.integerDiv"]     kind: Declaration     type: 'integerDiv :: Integer       -> Integer -> Integer'@@ -27,7 +27,7 @@     warning: 'GHC.Num.Integer.integerDiv: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerMod+    name: ["GHC.Num.Integer.integerMod", "GHC.Internal.Bignum.Integer.integerMod"]     kind: Declaration     type: 'integerMod :: Integer       -> Integer -> Integer'@@ -45,7 +45,7 @@     warning: 'GHC.Num.Integer.integerMod: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerDivMod#+    name: ["GHC.Num.Integer.integerDivMod#", "GHC.Internal.Bignum.Integer.integerDivMod#"]     kind: Declaration     type: 'integerDivMod ::       Integer -> Integer -> (# Integer, Integer #)'@@ -83,7 +83,7 @@     warning: 'GHC.Num.Integer.integerDivMod#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerQuotRem#+    name: ["GHC.Num.Integer.integerQuotRem#", "GHC.Internal.Bignum.Integer.integerQuotRem#"]     kind: Declaration     type: 'integerQuotRem       :: Integer -> Integer -> (# Integer, Integer #)'

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Prim.quotRemInt#+    name: ["GHC.Prim.quotRemInt#", "GHC.Internal.Prim.quotRemInt#"]     kind: Declaration     type: 'quotRemInt# ::       Int# -> Int# -> (#Int#, Int##)'@@ -13,7 +13,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemInt end - BlackBox:-    name: GHC.Prim.quotRemWord#+    name: ["GHC.Prim.quotRemWord#", "GHC.Internal.Prim.quotRemWord#"]     kind: Declaration     type: 'quotRemWord# ::       Word# -> Word# -> (#Word#, Word##)'@@ -27,7 +27,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemWord end - BlackBox:-    name: GHC.Prim.popCnt8#+    name: ["GHC.Prim.popCnt8#", "GHC.Internal.Prim.popCnt8#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -81,7 +81,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt8 end - BlackBox:-    name: GHC.Prim.popCnt16#+    name: ["GHC.Prim.popCnt16#", "GHC.Internal.Prim.popCnt16#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -135,7 +135,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt16 end - BlackBox:-    name: GHC.Prim.popCnt32#+    name: ["GHC.Prim.popCnt32#", "GHC.Internal.Prim.popCnt32#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -189,7 +189,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt32 end - BlackBox:-    name: GHC.Prim.popCnt64#+    name: ["GHC.Prim.popCnt64#", "GHC.Internal.Prim.popCnt64#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -243,7 +243,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt64 end - BlackBox:-    name: GHC.Prim.popCnt#+    name: ["GHC.Prim.popCnt#", "GHC.Internal.Prim.popCnt#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -297,7 +297,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt end - BlackBox:-    name: GHC.Prim.clz8#+    name: ["GHC.Prim.clz8#", "GHC.Internal.Prim.clz8#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -363,7 +363,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz8 end - BlackBox:-    name: GHC.Prim.clz16#+    name: ["GHC.Prim.clz16#", "GHC.Internal.Prim.clz16#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -445,7 +445,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz16 end - BlackBox:-    name: GHC.Prim.clz32#+    name: ["GHC.Prim.clz32#", "GHC.Internal.Prim.clz32#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -543,7 +543,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz32 end - BlackBox:-    name: GHC.Prim.clz64#+    name: ["GHC.Prim.clz64#", "GHC.Internal.Prim.clz64#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -657,7 +657,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz64 end - BlackBox:-    name: GHC.Prim.clz#+    name: ["GHC.Prim.clz#", "GHC.Internal.Prim.clz#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -846,7 +846,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz end - BlackBox:-    name: GHC.Prim.ctz8#+    name: ["GHC.Prim.ctz8#", "GHC.Internal.Prim.ctz8#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -917,7 +917,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz8 end - BlackBox:-    name: GHC.Prim.ctz16#+    name: ["GHC.Prim.ctz16#", "GHC.Internal.Prim.ctz16#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -1004,7 +1004,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz16 end - BlackBox:-    name: GHC.Prim.ctz32#+    name: ["GHC.Prim.ctz32#", "GHC.Internal.Prim.ctz32#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -1107,7 +1107,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz32 end - BlackBox:-    name: GHC.Prim.ctz64#+    name: ["GHC.Prim.ctz64#", "GHC.Internal.Prim.ctz64#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -1226,7 +1226,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz64 end - BlackBox:-    name: GHC.Prim.ctz#+    name: ["GHC.Prim.ctz#", "GHC.Internal.Prim.ctz#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -1425,7 +1425,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz end - BlackBox:-    name: GHC.Prim.quotRemInt8#+    name: ["GHC.Prim.quotRemInt8#", "GHC.Internal.Prim.quotRemInt8#"]     kind: Declaration     type: 'quotRemInt8# ::       Int8# -> Int8# -> (#Int8#, Int8##)'@@ -1439,7 +1439,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemInt8 end - BlackBox:-    name: GHC.Prim.quotRemWord8#+    name: ["GHC.Prim.quotRemWord8#", "GHC.Internal.Prim.quotRemWord8#"]     kind: Declaration     type: 'quotRemWord8# ::       Word8# -> Word8# -> (#Word8#, Word8##)'@@ -1453,7 +1453,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemWord8 end - BlackBox:-    name: GHC.Prim.quotRemInt16#+    name: ["GHC.Prim.quotRemInt16#", "GHC.Internal.Prim.quotRemInt16#"]     kind: Declaration     type: 'quotRemInt16# ::       Int16# -> Int16# -> (#Int16#, Int16##)'@@ -1467,7 +1467,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemInt16 end - BlackBox:-    name: GHC.Prim.quotRemWord16#+    name: ["GHC.Prim.quotRemWord16#", "GHC.Internal.Prim.quotRemWord16#"]     kind: Declaration     type: 'quotRemWord16# ::       Word16# -> Word16# -> (#Word16#, Word16##)'@@ -1481,7 +1481,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemWord16 end - BlackBox:-    name: GHC.Prim.quotRemInt32#+    name: ["GHC.Prim.quotRemInt32#", "GHC.Internal.Prim.quotRemInt32#"]     kind: Declaration     type: 'quotRemInt32# ::       Int32# -> Int32# -> (#Int32#, Int32##)'@@ -1495,7 +1495,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemInt32 end - BlackBox:-    name: GHC.Prim.quotRemWord32#+    name: ["GHC.Prim.quotRemWord32#", "GHC.Internal.Prim.quotRemWord32#"]     kind: Declaration     type: 'quotRemWord32# ::       Word32# -> Word32# -> (#Word32#, Word32##)'

@@ -180,4 +180,5 @@       assign ~RESULT = ~SYM[0];       // pragma translate_on       // resetGen end+    warning: Clash.Signal.Internal.resetGenN cannot be synthesized to hardware!     workInfo: Always

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Classes.divInt#+    name: ["GHC.Classes.divInt#", "GHC.Internal.Classes.divInt#"]     kind: Declaration     type: 'divInt# :: Int#       -> Int# -> Int#'@@ -25,7 +25,7 @@       assign ~RESULT = $signed(~SYM[6][~SIZE[~TYPO]-1:0]);       // divInt# end - BlackBox:-    name: GHC.Classes.modInt#+    name: ["GHC.Classes.modInt#", "GHC.Internal.Classes.modInt#"]     kind: Declaration     type: 'modInt# :: Int#       -> Int# -> Int#'

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Num.Integer.integerDiv+    name: ["GHC.Num.Integer.integerDiv", "GHC.Internal.Bignum.Integer.integerDiv"]     kind: Declaration     type: 'integerDiv :: Integer       -> Integer -> Integer'@@ -27,7 +27,7 @@     warning: 'GHC.Num.Integer.integerDiv: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerMod+    name: ["GHC.Num.Integer.integerMod", "GHC.Internal.Bignum.Integer.integerMod"]     kind: Declaration     type: 'integerMod :: Integer       -> Integer -> Integer'@@ -45,7 +45,7 @@     warning: 'GHC.Num.Integer.integerMod: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerDivMod#+    name: ["GHC.Num.Integer.integerDivMod#", "GHC.Internal.Bignum.Integer.integerDivMod#"]     kind: Declaration     type: 'integerDivMod ::       Integer -> Integer -> (# Integer, Integer #)'@@ -85,7 +85,7 @@     warning: 'GHC.Num.Integer.integerDivMod#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerQuotRem#+    name: ["GHC.Num.Integer.integerQuotRem#", "GHC.Internal.Bignum.Integer.integerQuotRem#"]     kind: Declaration     type: 'integerQuotRem       :: Integer -> Integer -> (# Integer, Integer #)'

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Prim.quotRemInt#+    name: ["GHC.Prim.quotRemInt#", "GHC.Internal.Prim.quotRemInt#"]     kind: Declaration     type: 'quotRemInt# ::       Int# -> Int# -> (#Int#, Int##)'@@ -13,7 +13,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemInt end - BlackBox:-    name: GHC.Prim.quotRemWord#+    name: ["GHC.Prim.quotRemWord#", "GHC.Internal.Prim.quotRemWord#"]     kind: Declaration     type: 'quotRemWord# ::       Word# -> Word# -> (#Word#, Word##)'@@ -27,7 +27,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemWord end - BlackBox:-    name: GHC.Prim.popCnt8#+    name: ["GHC.Prim.popCnt8#", "GHC.Internal.Prim.popCnt8#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -91,7 +91,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt8 end - BlackBox:-    name: GHC.Prim.popCnt16#+    name: ["GHC.Prim.popCnt16#", "GHC.Internal.Prim.popCnt16#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -155,7 +155,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt16 end - BlackBox:-    name: GHC.Prim.popCnt32#+    name: ["GHC.Prim.popCnt32#", "GHC.Internal.Prim.popCnt32#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -219,7 +219,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt32 end - BlackBox:-    name: GHC.Prim.popCnt64#+    name: ["GHC.Prim.popCnt64#", "GHC.Internal.Prim.popCnt64#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -283,7 +283,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt64 end - BlackBox:-    name: GHC.Prim.popCnt#+    name: ["GHC.Prim.popCnt#", "GHC.Internal.Prim.popCnt#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -347,7 +347,7 @@       assign ~RESULT = $unsigned(~SYM[3][(2*~SYM[0])-2]);       // popCnt end - BlackBox:-    name: GHC.Prim.clz8#+    name: ["GHC.Prim.clz8#", "GHC.Internal.Prim.clz8#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -413,7 +413,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz8 end - BlackBox:-    name: GHC.Prim.clz16#+    name: ["GHC.Prim.clz16#", "GHC.Internal.Prim.clz16#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -495,7 +495,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz16 end - BlackBox:-    name: GHC.Prim.clz32#+    name: ["GHC.Prim.clz32#", "GHC.Internal.Prim.clz32#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -593,7 +593,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz32 end - BlackBox:-    name: GHC.Prim.clz64#+    name: ["GHC.Prim.clz64#", "GHC.Internal.Prim.clz64#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -707,7 +707,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz64 end - BlackBox:-    name: GHC.Prim.clz#+    name: ["GHC.Prim.clz#", "GHC.Internal.Prim.clz#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -895,7 +895,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // clz end - BlackBox:-    name: GHC.Prim.ctz8#+    name: ["GHC.Prim.ctz8#", "GHC.Internal.Prim.ctz8#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -966,7 +966,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz8 end - BlackBox:-    name: GHC.Prim.ctz16#+    name: ["GHC.Prim.ctz16#", "GHC.Internal.Prim.ctz16#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -1053,7 +1053,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz16 end - BlackBox:-    name: GHC.Prim.ctz32#+    name: ["GHC.Prim.ctz32#", "GHC.Internal.Prim.ctz32#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -1156,7 +1156,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz32 end - BlackBox:-    name: GHC.Prim.ctz64#+    name: ["GHC.Prim.ctz64#", "GHC.Internal.Prim.ctz64#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -1275,7 +1275,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz64 end - BlackBox:-    name: GHC.Prim.ctz#+    name: ["GHC.Prim.ctz#", "GHC.Internal.Prim.ctz#"]     imports:     - ~INCLUDENAME[0].inc     includes:@@ -1473,7 +1473,7 @@       assign ~RESULT = $unsigned(~SYM[7]);       // ctz end - BlackBox:-    name: GHC.Prim.quotRemInt8#+    name: ["GHC.Prim.quotRemInt8#", "GHC.Internal.Prim.quotRemInt8#"]     kind: Declaration     type: 'quotRemInt8# ::       Int8# -> Int8# -> (#Int8#, Int8##)'@@ -1487,7 +1487,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemInt8 end - BlackBox:-    name: GHC.Prim.quotRemWord8#+    name: ["GHC.Prim.quotRemWord8#", "GHC.Internal.Prim.quotRemWord8#"]     kind: Declaration     type: 'quotRemWord8# ::       Word8# -> Word8# -> (#Word8#, Word8##)'@@ -1501,7 +1501,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemWord8 end - BlackBox:-    name: GHC.Prim.quotRemInt16#+    name: ["GHC.Prim.quotRemInt16#", "GHC.Internal.Prim.quotRemInt16#"]     kind: Declaration     type: 'quotRemInt16# ::       Int16# -> Int16# -> (#Int16#, Int16##)'@@ -1515,7 +1515,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemInt16 end - BlackBox:-    name: GHC.Prim.quotRemWord16#+    name: ["GHC.Prim.quotRemWord16#", "GHC.Internal.Prim.quotRemWord16#"]     kind: Declaration     type: 'quotRemWord16# ::       Word16# -> Word16# -> (#Word16#, Word16##)'@@ -1529,7 +1529,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemWord16 end - BlackBox:-    name: GHC.Prim.quotRemInt32#+    name: ["GHC.Prim.quotRemInt32#", "GHC.Internal.Prim.quotRemInt32#"]     kind: Declaration     type: 'quotRemInt32# ::       Int32# -> Int32# -> (#Int32#, Int32##)'@@ -1543,7 +1543,7 @@       assign ~RESULT = {~SYM[0],~SYM[1]};       // quotRemInt32 end - BlackBox:-    name: GHC.Prim.quotRemWord32#+    name: ["GHC.Prim.quotRemWord32#", "GHC.Internal.Prim.quotRemWord32#"]     kind: Declaration     type: 'quotRemWord32# ::       Word32# -> Word32# -> (#Word32#, Word32##)'

@@ -218,6 +218,7 @@       -- pragma translate_on       end block;       -- resetGen end+    warning: Clash.Signal.Internal.resetGenN cannot be synthesized to hardware!     workInfo: Always - BlackBox:     name: Clash.Signal.Internal.unsafeFromReset

@@ -449,7 +449,8 @@     type: 'minus# :: (KnownNat       m, KnownNat n) => BitVector m -> BitVector n -> BitVector (Max m n + 1)'     template: ~IF~AND[~SIZE[~TYP[2]],~SIZE[~TYP[3]]]~THENstd_logic_vector(resize(unsigned(~ARG[2]),~SIZE[~TYPO])-      - resize(unsigned(~ARG[3]),~SIZE[~TYPO]))~ELSE~IF~SIZE[~TYP[2]]~THENstd_logic_vector(resize(unsigned(~ARG[2]),~SIZE[~TYPO]))~ELSEstd_logic_vector(-resize(signed(~ARG[3]),~SIZE[~TYPO]))~FI~FI+      - resize(unsigned(~ARG[3]),~SIZE[~TYPO]))~ELSE~IF~SIZE[~TYP[2]]~THENstd_logic_vector(resize(unsigned(~ARG[2]),~SIZE[~TYPO]))~ELSEstd_logic_vector(to_unsigned(0,~SIZE[~TYPO])+      - resize(unsigned(~ARG[3]),~SIZE[~TYPO]))~FI~FI - BlackBox:     name: Clash.Sized.Internal.BitVector.times#     kind: Expression

@@ -99,19 +99,22 @@     kind: Expression     type: Index m -> Index       n -> Index (m + n - 1)-    template: resize(~ARG[0],~SIZE[~TYPO]) + resize(~ARG[1],~SIZE[~TYPO])+    template: ~IF~AND[~SIZE[~TYP[0]],~SIZE[~TYP[1]]]~THENresize(~ARG[0],~SIZE[~TYPO])+      + resize(~ARG[1],~SIZE[~TYPO])~ELSE~IF~SIZE[~TYP[0]]~THENresize(~ARG[0],~SIZE[~TYPO])~ELSEresize(~ARG[1],~SIZE[~TYPO])~FI~FI - BlackBox:     name: Clash.Sized.Internal.Index.minus#     kind: Expression     type: Index m -> Index       n -> Index (m + n - 1)-    template: resize(~ARG[0],~SIZE[~TYPO]) - resize(~ARG[1],~SIZE[~TYPO])+    template: ~IF~AND[~SIZE[~TYP[0]],~SIZE[~TYP[1]]]~THENresize(~ARG[0],~SIZE[~TYPO])+      - resize(~ARG[1],~SIZE[~TYPO])~ELSE~IF~SIZE[~TYP[0]]~THENresize(~ARG[0],~SIZE[~TYPO])~ELSEto_unsigned(0,~SIZE[~TYPO])+      - resize(~ARG[1],~SIZE[~TYPO])~FI~FI - BlackBox:     name: Clash.Sized.Internal.Index.times#     kind: Expression     type: Index m -> Index       n -> Index (((m-1) * (n-1)) + 1)-    template: resize(~ARG[0] * ~ARG[1],~SIZE[~TYPO])+    template: ~IF~AND[~SIZE[~TYP[0]],~SIZE[~TYP[1]]]~THENresize(~ARG[0] * ~ARG[1],~SIZE[~TYPO])~ELSEto_unsigned(0,~SIZE[~TYPO])~FI - BlackBox:     name: Clash.Sized.Internal.Index.rem#     kind: Declaration

@@ -132,8 +132,7 @@     type: 'minus# :: Signed       m -> Signed n -> Signed (1 + Max m n)'     template: ~IF~AND[~SIZE[~TYP[0]],~SIZE[~TYP[1]]]~THENresize(~ARG[0],~SIZE[~TYPO])-      - resize(~ARG[1],~SIZE[~TYPO])~ELSE~IF~SIZE[~TYP[0]]~THENresize(~ARG[0],~SIZE[~TYPO])~ELSEresize(--      ~ARG[1],~SIZE[~TYPO])~FI~FI+      - resize(~ARG[1],~SIZE[~TYPO])~ELSE~IF~SIZE[~TYP[0]]~THENresize(~ARG[0],~SIZE[~TYPO])~ELSE-resize(~ARG[1],~SIZE[~TYPO])~FI~FI - BlackBox:     name: Clash.Sized.Internal.Signed.times#     kind: Expression

@@ -117,7 +117,8 @@     type: 'minus# :: (KnownNat       m,KnownNat n) => Unsigned m -> Unsigned n -> Unsigned (1 + Max m n)'     template: ~IF~AND[~SIZE[~TYP[2]],~SIZE[~TYP[3]]]~THENresize(~ARG[2],~SIZE[~TYPO])-      - resize(~ARG[3],~SIZE[~TYPO])~ELSE~IF~SIZE[~TYP[2]]~THENresize(~ARG[2],~SIZE[~TYPO])~ELSEresize(~ARG[3],~SIZE[~TYPO])~FI~FI+      - resize(~ARG[3],~SIZE[~TYPO])~ELSE~IF~SIZE[~TYP[2]]~THENresize(~ARG[2],~SIZE[~TYPO])~ELSEto_unsigned(0,~SIZE[~TYPO])+      - resize(~ARG[3],~SIZE[~TYPO])~FI~FI - BlackBox:     name: Clash.Sized.Internal.Unsigned.times#     kind: Expression

@@ -1,35 +1,35 @@ - BlackBox:-    name: GHC.Classes.eqInt+    name: ["GHC.Classes.eqInt", "GHC.Internal.Classes.eqInt"]     kind: Expression     type: 'eqInt :: Int ->       Int -> Bool'     template: ~ARG[0] = ~ARG[1] - BlackBox:-    name: GHC.Classes.neInt+    name: ["GHC.Classes.neInt", "GHC.Internal.Classes.neInt"]     kind: Expression     type: 'neInt :: Int ->       Int -> Bool'     template: ~ARG[0] /= ~ARG[1] - BlackBox:-    name: GHC.Classes.&&+    name: ["GHC.Classes.&&", "GHC.Internal.Classes.&&"]     kind: Expression     type: '(&&) :: Bool ->       Bool -> Bool'     template: ~ARG[0] and ~ARG[1] - BlackBox:-    name: GHC.Classes.||+    name: ["GHC.Classes.||", "GHC.Internal.Classes.||"]     kind: Expression     type: '(::) :: Bool ->       Bool -> Bool'     template: ~ARG[0] or ~ARG[1] - BlackBox:-    name: GHC.Classes.not+    name: ["GHC.Classes.not", "GHC.Internal.Classes.not"]     kind: Expression     type: 'not :: Bool ->       Bool'     template: not ~ARG[0] - BlackBox:-    name: GHC.Classes.divInt#+    name: ["GHC.Classes.divInt#", "GHC.Internal.Classes.divInt#"]     kind: Declaration     type: 'divInt# :: Int#       -> Int# -> Int#'@@ -55,7 +55,7 @@       end block;       -- divInt# end - BlackBox:-    name: GHC.Classes.modInt#+    name: ["GHC.Classes.modInt#", "GHC.Internal.Classes.modInt#"]     kind: Expression     type: 'modInt# :: Int#       -> Int# -> Int#'

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Num.Integer.integerToNatural+    name: ["GHC.Num.Integer.integerToNatural", "GHC.Internal.Bignum.Integer.integerToNatural"]     kind: Expression     type: 'integerToNatural       :: Integer -> Natural'@@ -8,7 +8,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToNaturalThrow+    name: ["GHC.Num.Integer.integerToNaturalThrow", "GHC.Internal.Bignum.Integer.integerToNaturalThrow"]     kind: Declaration     type: 'integerToNaturalThrow       :: Integer -> Natural'@@ -21,7 +21,7 @@       in simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToNaturalClamp+    name: ["GHC.Num.Integer.integerToNaturalClamp", "GHC.Internal.Bignum.Integer.integerToNaturalClamp"]     kind: Declaration     type: 'integerToNatural       :: Integer -> Natural'@@ -34,7 +34,7 @@       in simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToInt#+    name: ["GHC.Num.Integer.integerToInt#", "GHC.Internal.Bignum.Integer.integerToInt#"]     kind: Expression     type: 'integerToInt ::       Integer -> Int#'@@ -43,7 +43,7 @@       but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerMul+    name: ["GHC.Num.Integer.integerMul", "GHC.Internal.Bignum.Integer.integerMul"]     kind: Declaration     type: 'integerMul :: Integer       -> Integer -> Integer'@@ -57,7 +57,7 @@     warning: 'GHC.Num.Integer.integerMul: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerNegate+    name: ["GHC.Num.Integer.integerNegate", "GHC.Internal.Bignum.Integer.integerNegate"]     kind: Expression     type: 'integerNegate ::       Integer -> Integer'@@ -65,7 +65,7 @@     warning: 'GHC.Num.Integer.integerNegate: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerAbs+    name: ["GHC.Num.Integer.integerAbs", "GHC.Internal.Bignum.Integer.integerAbs"]     kind: Expression     type: 'integerAbs :: Integer       -> Integer'@@ -73,7 +73,7 @@     warning: 'GHC.Num.Integer.integerAbs: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerDiv+    name: ["GHC.Num.Integer.integerDiv", "GHC.Internal.Bignum.Integer.integerDiv"]     kind: Declaration     type: 'integerDiv :: Integer       -> Integer -> Integer'@@ -101,7 +101,7 @@     warning: 'GHC.Num.Integer.integerDiv: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerMod+    name: ["GHC.Num.Integer.integerMod", "GHC.Internal.Bignum.Integer.integerMod"]     kind: Expression     type: 'integerMod :: Integer       -> Integer -> Integer'@@ -109,7 +109,7 @@     warning: 'GHC.Num.Integer.integerMod: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerDivMod#+    name: ["GHC.Num.Integer.integerDivMod#", "GHC.Internal.Bignum.Integer.integerDivMod#"]     kind: Declaration     type: 'integerDivMod ::       Integer -> Integer -> (# Integer, Integer #)'@@ -145,7 +145,7 @@     warning: 'GHC.Num.Integer.integerDivMod#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerQuotRem#+    name: ["GHC.Num.Integer.integerQuotRem#", "GHC.Internal.Bignum.Integer.integerQuotRem#"]     kind: Declaration     type: 'integerQuotRem       :: Integer -> Integer -> (# Integer, Integer #)'@@ -158,7 +158,7 @@     warning: 'GHC.Num.Integer.integerQuotRem#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerRem+    name: ["GHC.Num.Integer.integerRem", "GHC.Internal.Bignum.Integer.integerRem"]     kind: Declaration     type: 'integerRem :: Integer       -> Integer -> Integer'@@ -171,7 +171,7 @@     warning: 'GHC.Num.Integer.integerRem: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerEq+    name: ["GHC.Num.Integer.integerEq", "GHC.Internal.Bignum.Integer.integerEq"]     kind: Expression     type: 'integerEq :: Integer       -> Integer -> Bool'@@ -179,7 +179,7 @@     warning: 'GHC.Num.Integer.integerEq: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerNe+    name: ["GHC.Num.Integer.integerNe", "GHC.Internal.Bignum.Integer.integerNe"]     kind: Expression     type: 'integerNe :: Integer       -> Integer -> Bool'@@ -187,7 +187,7 @@     warning: 'GHC.Num.Integer.integerNe: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerEq#+    name: ["GHC.Num.Integer.integerEq#", "GHC.Internal.Bignum.Integer.integerEq#"]     kind: Declaration     type: 'integerEq# :: Integer       -> Integer -> Int#'@@ -195,7 +195,7 @@     warning: 'GHC.Num.Integer.integerEq#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerNe#+    name: ["GHC.Num.Integer.integerNe#", "GHC.Internal.Bignum.Integer.integerNe#"]     kind: Declaration     type: 'integerNe# :: Integer       -> Integer -> Int#'@@ -203,7 +203,7 @@     warning: 'GHC.Num.Integer.integerNe#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerLe#+    name: ["GHC.Num.Integer.integerLe#", "GHC.Internal.Bignum.Integer.integerLe#"]     kind: Declaration     type: 'integerLe# :: Integer       -> Integer -> Int#'@@ -211,7 +211,7 @@     warning: 'GHC.Num.Integer.integerLe#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerGt#+    name: ["GHC.Num.Integer.integerGt#", "GHC.Internal.Bignum.Integer.integerGt#"]     kind: Declaration     type: 'integerGt# :: Integer       -> Integer -> Int#'@@ -219,7 +219,7 @@     warning: 'GHC.Num.Integer.integerGt#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerLt#+    name: ["GHC.Num.Integer.integerLt#", "GHC.Internal.Bignum.Integer.integerLt#"]     kind: Declaration     type: 'integerLt# :: Integer       -> Integer -> Int#'@@ -227,7 +227,7 @@     warning: 'GHC.Num.Integer.integerLt#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerGe#+    name: ["GHC.Num.Integer.integerGe#", "GHC.Internal.Bignum.Integer.integerGe#"]     kind: Declaration     type: 'integerGe# :: Integer       -> Integer -> Int#'@@ -235,7 +235,7 @@     warning: 'GHC.Num.Integer.integerGe#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerShiftR#+    name: ["GHC.Num.Integer.integerShiftR#", "GHC.Internal.Bignum.Integer.integerShiftR#"]     kind: Declaration     type: 'integerShiftR#       :: Integer -> Word# -> Integer'@@ -253,7 +253,7 @@     warning: 'GHC.Num.Integer.integerShiftR#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerShiftL#+    name: ["GHC.Num.Integer.integerShiftL#", "GHC.Internal.Bignum.Integer.integerShiftL#"]     kind: Declaration     type: 'integerShiftL#       :: Integer -> Word# -> Integer'@@ -271,7 +271,7 @@     warning: 'GHC.Num.Integer.integerShiftL#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerTestBit#+    name: ["GHC.Num.Integer.integerTestBit#", "GHC.Internal.Bignum.Integer.integerTestBit#"]     kind: Declaration     type: 'integerTestBit       :: Integer -> Word# -> Int#'@@ -279,7 +279,7 @@     warning: 'GHC.Num.Integer.integerTestBit#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerFromWord#+    name: ["GHC.Num.Integer.integerFromWord#", "GHC.Internal.Bignum.Integer.integerFromWord#"]     kind: Expression     type: 'integerFromWord       :: Word# -> Integer'@@ -288,7 +288,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToWord#+    name: ["GHC.Num.Integer.integerToWord#", "GHC.Internal.Bignum.Integer.integerToWord#"]     kind: Expression     type: 'integerToWord ::       Integer -> Word#'@@ -297,7 +297,7 @@       but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToInt64#+    name: ["GHC.Num.Integer.integerToInt64#", "GHC.Internal.Bignum.Integer.integerToInt64#"]     kind: Expression     type: 'integerToInt64# :: Integer -> Int64#'     template: ~ARG[0]@@ -305,7 +305,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerToWord64#+    name: ["GHC.Num.Integer.integerToWord64#", "GHC.Internal.Bignum.Integer.integerToWord64#"]     comment: only used by 32 bit GHC     kind: Expression     type: 'integerToWord ::@@ -315,7 +315,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerFromWord64#+    name: ["GHC.Num.Integer.integerFromWord64#", "GHC.Internal.Bignum.Integer.integerFromWord64#"]     kind: Expression     type: 'integerFromWord64# :: Word64# -> Integer'     template: signed(std_logic_vector(~ARG[0]))@@ -323,7 +323,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Integer.integerBit#+    name: ["GHC.Num.Integer.integerBit#", "GHC.Internal.Bignum.Integer.integerBit#"]     kind: Expression     type: 'integerBit :: Word#       -> Integer'@@ -331,7 +331,7 @@     warning: 'GHC.Num.Integer.integerBit#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerComplement+    name: ["GHC.Num.Integer.integerComplement", "GHC.Internal.Bignum.Integer.integerComplement"]     kind: Expression     type: 'integerComplement       :: Integer -> Integer'@@ -339,7 +339,7 @@     warning: 'GHC.Num.Integer.integerComplement: Integers are dynamically sized in       simulation, but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerXor+    name: ["GHC.Num.Integer.integerXor", "GHC.Internal.Bignum.Integer.integerXor"]     kind: Expression     type: 'integerXor :: Integer       -> Integer -> Integer'@@ -347,7 +347,7 @@     warning: 'GHC.Num.Integer.integerXor: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerOr+    name: ["GHC.Num.Integer.integerOr", "GHC.Internal.Bignum.Integer.integerOr"]     kind: Expression     type: 'integerOr :: Integer       -> Integer -> Integer'@@ -355,7 +355,7 @@     warning: 'GHC.Num.Integer.integerOr: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerAnd+    name: ["GHC.Num.Integer.integerAnd", "GHC.Internal.Bignum.Integer.integerAnd"]     kind: Expression     type: 'integerAnd :: Integer       -> Integer -> Integer'@@ -363,7 +363,7 @@     warning: 'GHC.Num.Integer.integerAnd: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerSignum+    name: ["GHC.Num.Integer.integerSignum", "GHC.Internal.Bignum.Integer.integerSignum"]     kind: Declaration     type: 'integerSignum ::       Integer -> Integer'@@ -377,7 +377,7 @@     warning: 'GHC.Num.Integer.integerSignum: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.$wintegerSignum+    name: ["GHC.Num.Integer.$wintegerSignum", "GHC.Internal.Bignum.Integer.$wintegerSignum"]     kind: Declaration     type: '$wsignumInteger       :: Integer -> Int#'@@ -391,7 +391,7 @@     warning: 'GHC.Num.Integer.$wintegerSignum: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerLogBase#+    name: ["GHC.Num.Integer.integerLogBase#", "GHC.Internal.Bignum.Integer.integerLogBase#"]     kind: Expression     type: 'integerLogBase#       :: Integer -> Integer -> Int#'@@ -399,7 +399,7 @@     warning: 'GHC.Num.Integer.integerLogBase#: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerCompare+    name: ["GHC.Num.Integer.integerCompare", "GHC.Internal.Bignum.Integer.integerCompare"]     kind: Declaration     type: 'integerCompare       :: Integer -> Integer -> Ordering'@@ -413,7 +413,7 @@     warning: 'GHC.Num.Integer.integerCompare: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.integerQuot+    name: ["GHC.Num.Integer.integerQuot", "GHC.Internal.Bignum.Integer.integerQuot"]     kind: Declaration     type: 'integerQuot ::       Integer -> Integer -> Integer'@@ -426,7 +426,7 @@     warning: 'GHC.Num.Integer.integerQuot: Integers are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Integer.$wintegerFromInt64#+    name: ["GHC.Num.Integer.$wintegerFromInt64#", "GHC.Internal.Bignum.Integer.$wintegerFromInt64#"]     kind: Expression     type: '$wintegerFromInt64# :: Int64# -> Int#'     template: resize(~ARG[0],~SIZE[~TYPO])

@@ -1,5 +1,5 @@ - BlackBox:-    name: GHC.Num.Natural.naturalMul+    name: ["GHC.Num.Natural.naturalMul", "GHC.Internal.Bignum.Natural.naturalMul"]     kind: Expression     type: 'timesNatural ::       Natural -> Natural -> Natural'@@ -7,7 +7,7 @@     warning: 'GHC.Num.Natural.timesNatural: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalFromWord#+    name: ["GHC.Num.Natural.naturalFromWord#", "GHC.Internal.Bignum.Natural.naturalFromWord#"]     kind: Expression     type: 'naturalFromWord#       :: Word# -> Natural'@@ -16,7 +16,7 @@       simulation, but fixed-length after synthesis. Use carefully.'     workInfo: Never - BlackBox:-    name: GHC.Num.Natural.naturalRem+    name: ["GHC.Num.Natural.naturalRem", "GHC.Internal.Bignum.Natural.naturalRem"]     kind: Declaration     type: 'naturalRem :: Natural       -> Natural -> Natural'@@ -29,7 +29,7 @@     warning: 'GHC.Num.Natural.naturalRem: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalLogBase#+    name: ["GHC.Num.Natural.naturalLogBase#", "GHC.Internal.Bignum.Natural.naturalLogBase#"]     kind: Expression     type: 'naturalLogBase#       :: Natural -> Natural -> Word#'@@ -37,7 +37,7 @@     warning: 'GHC.Num.Natural.naturalLogBase#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalEq#+    name: ["GHC.Num.Natural.naturalEq#", "GHC.Internal.Bignum.Natural.naturalEq#"]     kind: Declaration     type: 'naturalEq# :: Natural       -> Natural -> Int#'@@ -45,7 +45,7 @@     warning: 'GHC.Num.Natural.naturalEq#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalNe#+    name: ["GHC.Num.Natural.naturalNe#", "GHC.Internal.Bignum.Natural.naturalNe#"]     kind: Declaration     type: 'naturalNe# :: Natural       -> Natural -> Int#'@@ -54,7 +54,7 @@     warning: 'GHC.Num.Natural.naturalNe#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalLe#+    name: ["GHC.Num.Natural.naturalLe#", "GHC.Internal.Bignum.Natural.naturalLe#"]     kind: Declaration     type: 'naturalLe# :: Natural       -> Natural -> Int#'@@ -63,7 +63,7 @@     warning: 'GHC.Num.Natural.naturalLe#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalGt#+    name: ["GHC.Num.Natural.naturalGt#", "GHC.Internal.Bignum.Natural.naturalGt#"]     kind: Declaration     type: 'naturalGt# :: Natural       -> Natural -> Int#'@@ -71,7 +71,7 @@     warning: 'GHC.Num.Natural.naturalGt#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalLt#+    name: ["GHC.Num.Natural.naturalLt#", "GHC.Internal.Bignum.Natural.naturalLt#"]     kind: Declaration     type: 'naturalLt# :: Natural       -> Natural -> Int#'@@ -79,7 +79,7 @@     warning: 'GHC.Num.Natural.naturalLt#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalGe#+    name: ["GHC.Num.Natural.naturalGe#", "GHC.Internal.Bignum.Natural.naturalGe#"]     kind: Declaration     type: 'naturalGe# :: Natural       -> Natural -> Int#'@@ -88,7 +88,7 @@     warning: 'GHC.Num.Natural.naturalGe#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalShiftL#+    name: ["GHC.Num.Natural.naturalShiftL#", "GHC.Internal.Bignum.Natural.naturalShiftL#"]     kind: Declaration     type: 'naturalShiftL#       :: Natural -> Word# -> Natural'@@ -106,7 +106,7 @@     warning: 'GHC.Num.Natural.naturalShiftL#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalShiftR#+    name: ["GHC.Num.Natural.naturalShiftR#", "GHC.Internal.Bignum.Natural.naturalShiftR#"]     kind: Declaration     type: 'naturalShiftR#       :: Natural -> Word# -> Natural'@@ -124,7 +124,7 @@     warning: 'GHC.Num.Natural.naturalShiftR#: Naturals are dynamically sized in simulation,       but fixed-length after synthesis. Use carefully.' - BlackBox:-    name: GHC.Num.Natural.naturalCompare+    name: ["GHC.Num.Natural.naturalCompare", "GHC.Internal.Bignum.Natural.naturalCompare"]     kind: Declaration     type: 'naturalCompare       :: Natural -> Natural -> Ordering'@@ -135,7 +135,7 @@                "10";       -- end naturalCompare - BlackBox:-    name: GHC.Num.Natural.naturalQuot+    name: ["GHC.Num.Natural.naturalQuot", "GHC.Internal.Bignum.Natural.naturalQuot"]     kind: Declaration     type: 'naturalQuot ::       Natural -> Natural -> Natural'

@@ -1,47 +1,47 @@ - BlackBox:-    name: GHC.Prim.gtChar#+    name: ["GHC.Prim.gtChar#", "GHC.Internal.Prim.gtChar#"]     kind: Declaration     type: 'gtChar# :: Char#       -> Char# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geChar#+    name: ["GHC.Prim.geChar#", "GHC.Internal.Prim.geChar#"]     kind: Declaration     type: 'geChar# :: Char#       -> Char# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.eqChar#+    name: ["GHC.Prim.eqChar#", "GHC.Internal.Prim.eqChar#"]     kind: Declaration     type: 'eqChar# :: Char#       -> Char# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neChar#+    name: ["GHC.Prim.neChar#", "GHC.Internal.Prim.neChar#"]     kind: Declaration     type: 'neChar# :: Char#       -> Char# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltChar#+    name: ["GHC.Prim.ltChar#", "GHC.Internal.Prim.ltChar#"]     kind: Declaration     type: 'ltChar# :: Char#       -> Char# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leChar#+    name: ["GHC.Prim.leChar#", "GHC.Internal.Prim.leChar#"]     kind: Declaration     type: 'leChar# :: Char#       -> Char# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ord#+    name: ["GHC.Prim.ord#", "GHC.Internal.Prim.ord#"]     kind: Expression     type: 'ord# :: Char# ->       Int#'     template: signed(std_logic_vector(resize(~ARG[0],~SIZE[~TYPO]))) - BlackBox:-    name: GHC.Prim.*#+    name: ["GHC.Prim.*#", "GHC.Internal.Prim.*#"]     kind: Declaration     type: '(*#) :: Int# ->       Int# -> Int#'@@ -53,7 +53,7 @@         ~RESULT <= ~SYM[1](~SIZE[~TYPO]-1 downto 0);       end block; - BlackBox:-    name: GHC.Prim.remInt#+    name: ["GHC.Prim.remInt#", "GHC.Internal.Prim.remInt#"]     kind: Declaration     type: 'remInt# :: Int#       -> Int# -> Int#'@@ -64,7 +64,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemInt#+    name: ["GHC.Prim.quotRemInt#", "GHC.Internal.Prim.quotRemInt#"]     kind: Declaration     type: 'quotRemInt# ::       Int# -> Int# -> (#Int#, Int##)'@@ -76,87 +76,87 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.andI#+    name: ["GHC.Prim.andI#", "GHC.Internal.Prim.andI#"]     kind: Expression     type: 'and# :: Int# ->       Int# -> Int#'     template: ~ARG[0] and ~ARG[1] - BlackBox:-    name: GHC.Prim.orI#+    name: ["GHC.Prim.orI#", "GHC.Internal.Prim.orI#"]     kind: Expression     type: 'or# :: Int# ->       Int# -> Int#'     template: ~ARG[0] or ~ARG[1] - BlackBox:-    name: GHC.Prim.xorI#+    name: ["GHC.Prim.xorI#", "GHC.Internal.Prim.xorI#"]     kind: Expression     type: 'xor# :: Int# ->       Int# -> Int#'     template: ~ARG[0] xor ~ARG[1] - BlackBox:-    name: GHC.Prim.notI#+    name: ["GHC.Prim.notI#", "GHC.Internal.Prim.notI#"]     kind: Expression     type: 'not# :: Int# ->       Int#'     template: not ~ARG[0] - BlackBox:-    name: GHC.Prim.negateInt#+    name: ["GHC.Prim.negateInt#", "GHC.Internal.Prim.negateInt#"]     kind: Expression     type: 'negateInt# :: Int#       -> Int#'     template: -~ARG[0] - BlackBox:-    name: GHC.Prim.>#+    name: ["GHC.Prim.>#", "GHC.Internal.Prim.>#"]     kind: Declaration     type: '(>#) :: Int# ->       Int# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.>=#+    name: ["GHC.Prim.>=#", "GHC.Internal.Prim.>=#"]     kind: Declaration     type: '(>=#) :: Int# ->       Int# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.==#+    name: ["GHC.Prim.==#", "GHC.Internal.Prim.==#"]     kind: Declaration     type: '(==) :: Int# ->       Int# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim./=#+    name: ["GHC.Prim./=#", "GHC.Internal.Prim./=#"]     kind: Declaration     type: '(/=#) :: Int# ->       Int# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.<#+    name: ["GHC.Prim.<#", "GHC.Internal.Prim.<#"]     kind: Declaration     type: '(<#) :: Int# ->       Int# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.<=#+    name: ["GHC.Prim.<=#", "GHC.Internal.Prim.<=#"]     kind: Declaration     type: '(<=#) :: Int# ->       Int# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.chr#+    name: ["GHC.Prim.chr#", "GHC.Internal.Prim.chr#"]     kind: Expression     type: 'ord# :: Int# ->       Chr#'     template: resize(unsigned(std_logic_vector(~ARG[0])),21)     workInfo: Never - BlackBox:-    name: GHC.Prim.int2Word#+    name: ["GHC.Prim.int2Word#", "GHC.Internal.Prim.int2Word#"]     kind: Expression     type: 'word2Int# :: Int#       -> Word#'     template: unsigned(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.uncheckedIShiftL#+    name: ["GHC.Prim.uncheckedIShiftL#", "GHC.Internal.Prim.uncheckedIShiftL#"]     kind: Declaration     type: 'uncheckedIShiftL#       :: Int# -> Int# -> Int#'@@ -176,7 +176,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedIShiftRA#+    name: ["GHC.Prim.uncheckedIShiftRA#", "GHC.Internal.Prim.uncheckedIShiftRA#"]     kind: Declaration     type: 'uncheckedIShiftRA#       :: Int# -> Int# -> Int#'@@ -196,7 +196,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedIShiftRL#+    name: ["GHC.Prim.uncheckedIShiftRL#", "GHC.Internal.Prim.uncheckedIShiftRL#"]     kind: Declaration     type: 'uncheckedIShiftRL#       :: Int# -> Int# -> Int#'@@ -216,13 +216,13 @@             ;       end block; - BlackBox:-    name: GHC.Prim.timesWord#+    name: ["GHC.Prim.timesWord#", "GHC.Internal.Prim.timesWord#"]     kind: Expression     type: 'timesWord# :: Word#       -> Word# -> Word#'     template: resize(~ARG[0] * ~ARG[1],~SIZE[~TYPO]) - BlackBox:-    name: GHC.Prim.remWord#+    name: ["GHC.Prim.remWord#", "GHC.Internal.Prim.remWord#"]     kind: Declaration     type: 'remWord# :: Word#       -> Word# -> Word#'@@ -233,7 +233,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemWord#+    name: ["GHC.Prim.quotRemWord#", "GHC.Internal.Prim.quotRemWord#"]     kind: Declaration     type: 'quotRemWord# ::       Word# -> Word# -> (#Word#, Word##)'@@ -245,31 +245,31 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.and#+    name: ["GHC.Prim.and#", "GHC.Internal.Prim.and#"]     kind: Expression     type: 'and# :: Word# ->       Word# -> Word#'     template: ~ARG[0] and ~ARG[1] - BlackBox:-    name: GHC.Prim.or#+    name: ["GHC.Prim.or#", "GHC.Internal.Prim.or#"]     kind: Expression     type: 'or# :: Word# ->       Word# -> Word#'     template: ~ARG[0] or ~ARG[1] - BlackBox:-    name: GHC.Prim.xor#+    name: ["GHC.Prim.xor#", "GHC.Internal.Prim.xor#"]     kind: Expression     type: 'xor# :: Word# ->       Word# -> Word#'     template: ~ARG[0] xor ~ARG[1] - BlackBox:-    name: GHC.Prim.not#+    name: ["GHC.Prim.not#", "GHC.Internal.Prim.not#"]     kind: Expression     type: 'not# :: Word# ->       Word#'     template: not ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftL#+    name: ["GHC.Prim.uncheckedShiftL#", "GHC.Internal.Prim.uncheckedShiftL#"]     kind: Declaration     type: 'uncheckedShiftL#       :: Word# -> Int# -> Word#'@@ -289,7 +289,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRL#+    name: ["GHC.Prim.uncheckedShiftRL#", "GHC.Internal.Prim.uncheckedShiftRL#"]     kind: Declaration     type: 'uncheckedShiftR#       :: Word# -> Int# -> Word#'@@ -309,50 +309,50 @@             ;       end block; - BlackBox:-    name: GHC.Prim.word2Int#+    name: ["GHC.Prim.word2Int#", "GHC.Internal.Prim.word2Int#"]     kind: Expression     type: 'word2Int# :: word#       -> Int#'     template: signed(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.gtWord#+    name: ["GHC.Prim.gtWord#", "GHC.Internal.Prim.gtWord#"]     kind: Declaration     type: 'gtWord# :: Word#       -> Word# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geWord#+    name: ["GHC.Prim.geWord#", "GHC.Internal.Prim.geWord#"]     kind: Declaration     type: 'geWord# :: Word#       -> Word# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.eqWord#+    name: ["GHC.Prim.eqWord#", "GHC.Internal.Prim.eqWord#"]     kind: Declaration     type: 'eqWord# :: Word#       -> Word# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neWord#+    name: ["GHC.Prim.neWord#", "GHC.Internal.Prim.neWord#"]     kind: Declaration     type: 'neWord# :: Word#       -> Word# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltWord#+    name: ["GHC.Prim.ltWord#", "GHC.Internal.Prim.ltWord#"]     kind: Declaration     type: 'ltWord# :: Word#       -> Word# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leWord#+    name: ["GHC.Prim.leWord#", "GHC.Internal.Prim.leWord#"]     kind: Declaration     type: 'leWord# :: Word#       -> Word# -> Int#'     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.popCnt8#+    name: ["GHC.Prim.popCnt8#", "GHC.Internal.Prim.popCnt8#"]     kind: Declaration     type: 'popCnt8 :: Word#       -> Word#'@@ -392,7 +392,7 @@       end block;       -- popCnt8 end - BlackBox:-    name: GHC.Prim.popCnt16#+    name: ["GHC.Prim.popCnt16#", "GHC.Internal.Prim.popCnt16#"]     kind: Declaration     type: 'popCnt16 :: Word#       -> Word#'@@ -432,7 +432,7 @@       end block;       -- popCnt16 end - BlackBox:-    name: GHC.Prim.popCnt32#+    name: ["GHC.Prim.popCnt32#", "GHC.Internal.Prim.popCnt32#"]     kind: Declaration     type: 'popCnt32 :: Word#       -> Word#'@@ -472,7 +472,7 @@       end block;       -- popCnt32 end - BlackBox:-    name: GHC.Prim.popCnt64#+    name: ["GHC.Prim.popCnt64#", "GHC.Internal.Prim.popCnt64#"]     kind: Declaration     type: 'popCnt64 :: Word#       -> Word#'@@ -512,7 +512,7 @@       end block;       -- popCnt64 end - BlackBox:-    name: GHC.Prim.popCnt#+    name: ["GHC.Prim.popCnt#", "GHC.Internal.Prim.popCnt#"]     kind: Declaration     type: 'popCnt :: Word#       -> Word#'@@ -552,7 +552,7 @@       end block;       -- popCnt end - BlackBox:-    name: GHC.Prim.clz8#+    name: ["GHC.Prim.clz8#", "GHC.Internal.Prim.clz8#"]     kind: Expression     type: 'clz8 :: Word# -> Word#'     imports:@@ -603,7 +603,7 @@         end;     template: resize(~INCLUDENAME[0].clz8(~VAR[][0](7 downto 0)),~SIZE[~TYPO]) - BlackBox:-    name: GHC.Prim.clz16#+    name: ["GHC.Prim.clz16#", "GHC.Internal.Prim.clz16#"]     kind: Expression     type: 'clz16 :: Word# -> Word#'     imports:@@ -656,7 +656,7 @@         end;     template: resize(~INCLUDENAME[0].clz16(~VAR[][0](15 downto 0)),~SIZE[~TYPO]) - BlackBox:-    name: GHC.Prim.clz32#+    name: ["GHC.Prim.clz32#", "GHC.Internal.Prim.clz32#"]     kind: Expression     type: 'clz32 :: Word# -> Word#'     imports:@@ -712,7 +712,7 @@     template: resize(~INCLUDENAME[0].clz32(~VAR[][0](31 downto 0)),~SIZE[~TYPO])  - BlackBox:-    name: GHC.Prim.clz64#+    name: ["GHC.Prim.clz64#", "GHC.Internal.Prim.clz64#"]     kind: Expression     type: 'clz64 :: Word# -> Word#'     imports:@@ -769,7 +769,7 @@         end;     template: resize(~INCLUDENAME[0].clz64(~ARG[0]),~SIZE[~TYPO]) - BlackBox:-    name: GHC.Prim.clz#+    name: ["GHC.Prim.clz#", "GHC.Internal.Prim.clz#"]     kind: Expression     type: 'clz :: Word# -> Word#'     imports:@@ -844,7 +844,7 @@         end;     template: resize(~INCLUDENAME[0].clz(~ARG[0]),~SIZE[~TYPO]) - BlackBox:-    name: GHC.Prim.ctz8#+    name: ["GHC.Prim.ctz8#", "GHC.Internal.Prim.ctz8#"]     kind: Declaration     type: 'ctz8 :: Word# -> Word#'     imports:@@ -910,7 +910,7 @@       end block;       -- ctz8 end - BlackBox:-    name: GHC.Prim.ctz16#+    name: ["GHC.Prim.ctz16#", "GHC.Internal.Prim.ctz16#"]     kind: Declaration     type: 'ctz16 :: Word# -> Word#'     imports:@@ -978,7 +978,7 @@       end block;       -- ctz16 end - BlackBox:-    name: GHC.Prim.ctz32#+    name: ["GHC.Prim.ctz32#", "GHC.Internal.Prim.ctz32#"]     kind: Declaration     type: 'ctz32 :: Word# -> Word#'     imports:@@ -1048,7 +1048,7 @@       end block;       -- ctz32 end - BlackBox:-    name: GHC.Prim.ctz64#+    name: ["GHC.Prim.ctz64#", "GHC.Internal.Prim.ctz64#"]     kind: Declaration     type: 'ctz64 :: Word# -> Word#'     imports:@@ -1117,7 +1117,7 @@       end block;       -- ctz64 end - BlackBox:-    name: GHC.Prim.ctz#+    name: ["GHC.Prim.ctz#", "GHC.Internal.Prim.ctz#"]     kind: Declaration     type: 'ctz :: Word# -> Word#'     imports:@@ -1203,7 +1203,7 @@       end block;       -- ctz end - BlackBox:-    name: GHC.Prim.byteSwap16#+    name: ["GHC.Prim.byteSwap16#", "GHC.Internal.Prim.byteSwap16#"]     kind: Declaration     type: 'byteSwap16# ::       Word# -> Word#'@@ -1214,7 +1214,7 @@       -- byteSwap16 end     workInfo: Never - BlackBox:-    name: GHC.Prim.byteSwap32#+    name: ["GHC.Prim.byteSwap32#", "GHC.Internal.Prim.byteSwap32#"]     kind: Declaration     type: 'byteSwap32# ::       Word# -> Word#'@@ -1227,7 +1227,7 @@       -- byteSwap32 end     workInfo: Never - BlackBox:-    name: GHC.Prim.byteSwap64#+    name: ["GHC.Prim.byteSwap64#", "GHC.Internal.Prim.byteSwap64#"]     kind: Declaration     type: 'byteSwap64# ::       Word# -> Word#'@@ -1240,7 +1240,7 @@       -- byteSwap64 end     workInfo: Never - BlackBox:-    name: GHC.Prim.byteSwap#+    name: ["GHC.Prim.byteSwap#", "GHC.Internal.Prim.byteSwap#"]     kind: Declaration     type: 'byteSwap# :: Word#       -> Word#'@@ -1255,49 +1255,49 @@       -- byteSwap end     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow8Int#+    name: ["GHC.Prim.narrow8Int#", "GHC.Internal.Prim.narrow8Int#"]     kind: Expression     type: 'narrow8Int# ::       Int# -> Int#'     template: resize(~VAR[i][0](7 downto 0),~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow16Int#+    name: ["GHC.Prim.narrow16Int#", "GHC.Internal.Prim.narrow16Int#"]     kind: Expression     type: 'narrow16Int# ::       Int# -> Int#'     template: resize(~VAR[i][0](15 downto 0),~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow32Int#+    name: ["GHC.Prim.narrow32Int#", "GHC.Internal.Prim.narrow32Int#"]     kind: Expression     type: 'narrow32Int# ::       Int# -> Int#'     template: resize(~VAR[i][0](31 downto 0),~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow8Word#+    name: ["GHC.Prim.narrow8Word#", "GHC.Internal.Prim.narrow8Word#"]     kind: Expression     type: 'narrow8Word# ::       Word# -> Word#'     template: resize(~VAR[w][0](7 downto 0),~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow16Word#+    name: ["GHC.Prim.narrow16Word#", "GHC.Internal.Prim.narrow16Word#"]     kind: Expression     type: 'narrow16Word# ::       Word# -> Word#'     template: resize(~VAR[w][0](15 downto 0),~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.narrow32Word#+    name: ["GHC.Prim.narrow32Word#", "GHC.Internal.Prim.narrow32Word#"]     kind: Expression     type: 'narrow32Word# ::       Word# -> Word#'     template: resize(~VAR[w][0](31 downto 0),~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse#+    name: ["GHC.Prim.bitReverse#", "GHC.Internal.Prim.bitReverse#"]     kind: Declaration     type: 'bitReverse# ::       Word# -> Word#'@@ -1310,7 +1310,7 @@       -- bitReverse end     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse8#+    name: ["GHC.Prim.bitReverse8#", "GHC.Internal.Prim.bitReverse8#"]     kind: Declaration     type: 'bitReverse8# ::       Word# -> Word#'@@ -1323,7 +1323,7 @@       -- bitReverse8 end     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse16#+    name: ["GHC.Prim.bitReverse16#", "GHC.Internal.Prim.bitReverse16#"]     kind: Declaration     type: 'bitReverse16# ::       Word# -> Word#'@@ -1336,7 +1336,7 @@       -- bitReverse16 end     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse32#+    name: ["GHC.Prim.bitReverse32#", "GHC.Internal.Prim.bitReverse32#"]     kind: Declaration     type: 'bitReverse32# ::       Word# -> Word#'@@ -1349,7 +1349,7 @@       -- bitReverse32 end     workInfo: Never - BlackBox:-    name: GHC.Prim.bitReverse64#+    name: ["GHC.Prim.bitReverse64#", "GHC.Internal.Prim.bitReverse64#"]     kind: Declaration     type: 'bitReverse64# ::       Word# -> Word#'@@ -1362,7 +1362,7 @@       -- bitReverse64 end     workInfo: Never - BlackBox:-    name: GHC.Prim.quotInt#+    name: ["GHC.Prim.quotInt#", "GHC.Internal.Prim.quotInt#"]     kind: Declaration     type: 'quotInt# :: Int#       -> Int# -> Int#'@@ -1373,7 +1373,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotWord#+    name: ["GHC.Prim.quotWord#", "GHC.Internal.Prim.quotWord#"]     kind: Declaration     type: 'quotWord# :: Word#       -> Word# -> Word#'@@ -1384,21 +1384,21 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.int8ToInt#+    name: ["GHC.Prim.int8ToInt#", "GHC.Internal.Prim.int8ToInt#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.intToInt8#+    name: ["GHC.Prim.intToInt8#", "GHC.Internal.Prim.intToInt8#"]     kind: Expression     template: ~VAR[i][0](7 downto 0)     workInfo: Never - BlackBox:-    name: GHC.Prim.negateInt8#+    name: ["GHC.Prim.negateInt8#", "GHC.Internal.Prim.negateInt8#"]     kind: Expression     template: -~ARG[0] - BlackBox:-    name: GHC.Prim.timesInt8#+    name: ["GHC.Prim.timesInt8#", "GHC.Internal.Prim.timesInt8#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_mult][0] : block@@ -1408,7 +1408,7 @@         ~RESULT <= ~SYM[1](~SIZE[~TYPO]-1 downto 0);       end block; - BlackBox:-    name: GHC.Prim.quotInt8#+    name: ["GHC.Prim.quotInt8#", "GHC.Internal.Prim.quotInt8#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] / ~ARG[1]@@ -1417,7 +1417,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.remInt8#+    name: ["GHC.Prim.remInt8#", "GHC.Internal.Prim.remInt8#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] rem ~ARG[1]@@ -1426,7 +1426,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemInt8#+    name: ["GHC.Prim.quotRemInt8#", "GHC.Internal.Prim.quotRemInt8#"]     kind: Declaration     template: |-       ~RESULT <= (~ARG[0] / ~ARG[1], ~ARG[0] rem ~ARG[1])@@ -1435,7 +1435,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.uncheckedShiftLInt8#+    name: ["GHC.Prim.uncheckedShiftLInt8#", "GHC.Internal.Prim.uncheckedShiftLInt8#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftL][0] : block@@ -1453,7 +1453,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRAInt8#+    name: ["GHC.Prim.uncheckedShiftRAInt8#", "GHC.Internal.Prim.uncheckedShiftRAInt8#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftR][0] : block@@ -1471,7 +1471,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRLInt8#+    name: ["GHC.Prim.uncheckedShiftRLInt8#", "GHC.Internal.Prim.uncheckedShiftRLInt8#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftRL][0] : block@@ -1489,50 +1489,50 @@             ;       end block; - BlackBox:-    name: GHC.Prim.int8ToWord8#+    name: ["GHC.Prim.int8ToWord8#", "GHC.Internal.Prim.int8ToWord8#"]     kind: Expression     template: unsigned(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.eqInt8#+    name: ["GHC.Prim.eqInt8#", "GHC.Internal.Prim.eqInt8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geInt8#+    name: ["GHC.Prim.geInt8#", "GHC.Internal.Prim.geInt8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.gtInt8#+    name: ["GHC.Prim.gtInt8#", "GHC.Internal.Prim.gtInt8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leInt8#+    name: ["GHC.Prim.leInt8#", "GHC.Internal.Prim.leInt8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltInt8#+    name: ["GHC.Prim.ltInt8#", "GHC.Internal.Prim.ltInt8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neInt8#+    name: ["GHC.Prim.neInt8#", "GHC.Internal.Prim.neInt8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.word8ToWord#+    name: ["GHC.Prim.word8ToWord#", "GHC.Internal.Prim.word8ToWord#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.wordToWord8#+    name: ["GHC.Prim.wordToWord8#", "GHC.Internal.Prim.wordToWord8#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.timesWord8#+    name: ["GHC.Prim.timesWord8#", "GHC.Internal.Prim.timesWord8#"]     kind: Expression     template: resize(~ARG[0] * ~ARG[1],~SIZE[~TYPO]) - BlackBox:-    name: GHC.Prim.quotWord8#+    name: ["GHC.Prim.quotWord8#", "GHC.Internal.Prim.quotWord8#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] / ~ARG[1]@@ -1541,7 +1541,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.remWord8#+    name: ["GHC.Prim.remWord8#", "GHC.Internal.Prim.remWord8#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] rem ~ARG[1]@@ -1550,7 +1550,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemWord8#+    name: ["GHC.Prim.quotRemWord8#", "GHC.Internal.Prim.quotRemWord8#"]     kind: Declaration     template: |-       ~RESULT <= (~ARG[0] / ~ARG[1], ~ARG[0] rem ~ARG[1])@@ -1559,23 +1559,23 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.andWord8#+    name: ["GHC.Prim.andWord8#", "GHC.Internal.Prim.andWord8#"]     kind: Expression     template: ~ARG[0] and ~ARG[1] - BlackBox:-    name: GHC.Prim.orWord8#+    name: ["GHC.Prim.orWord8#", "GHC.Internal.Prim.orWord8#"]     kind: Expression     template: ~ARG[0] or ~ARG[1] - BlackBox:-    name: GHC.Prim.xorWord8#+    name: ["GHC.Prim.xorWord8#", "GHC.Internal.Prim.xorWord8#"]     kind: Expression     template: ~ARG[0] xor ~ARG[1] - BlackBox:-    name: GHC.Prim.notWord8#+    name: ["GHC.Prim.notWord8#", "GHC.Internal.Prim.notWord8#"]     kind: Expression     template: not ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftLWord8#+    name: ["GHC.Prim.uncheckedShiftLWord8#", "GHC.Internal.Prim.uncheckedShiftLWord8#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftL][0] : block@@ -1593,7 +1593,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRLWord8#+    name: ["GHC.Prim.uncheckedShiftRLWord8#", "GHC.Internal.Prim.uncheckedShiftRLWord8#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftRL][0] : block@@ -1611,50 +1611,50 @@             ;       end block; - BlackBox:-    name: GHC.Prim.word8ToInt8#+    name: ["GHC.Prim.word8ToInt8#", "GHC.Internal.Prim.word8ToInt8#"]     kind: Expression     template: signed(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.eqWord8#+    name: ["GHC.Prim.eqWord8#", "GHC.Internal.Prim.eqWord8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geWord8#+    name: ["GHC.Prim.geWord8#", "GHC.Internal.Prim.geWord8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.gtWord8#+    name: ["GHC.Prim.gtWord8#", "GHC.Internal.Prim.gtWord8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leWord8#+    name: ["GHC.Prim.leWord8#", "GHC.Internal.Prim.leWord8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltWord8#+    name: ["GHC.Prim.ltWord8#", "GHC.Internal.Prim.ltWord8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neWord8#+    name: ["GHC.Prim.neWord8#", "GHC.Internal.Prim.neWord8#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.int16ToInt#+    name: ["GHC.Prim.int16ToInt#", "GHC.Internal.Prim.int16ToInt#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.intToInt16#+    name: ["GHC.Prim.intToInt16#", "GHC.Internal.Prim.intToInt16#"]     kind: Expression     template: ~VAR[i][0](15 downto 0)     workInfo: Never - BlackBox:-    name: GHC.Prim.negateInt16#+    name: ["GHC.Prim.negateInt16#", "GHC.Internal.Prim.negateInt16#"]     kind: Expression     template: -~ARG[0] - BlackBox:-    name: GHC.Prim.timesInt16#+    name: ["GHC.Prim.timesInt16#", "GHC.Internal.Prim.timesInt16#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_mult][0] : block@@ -1664,7 +1664,7 @@         ~RESULT <= ~SYM[1](~SIZE[~TYPO]-1 downto 0);       end block; - BlackBox:-    name: GHC.Prim.quotInt16#+    name: ["GHC.Prim.quotInt16#", "GHC.Internal.Prim.quotInt16#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] / ~ARG[1]@@ -1673,7 +1673,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.remInt16#+    name: ["GHC.Prim.remInt16#", "GHC.Internal.Prim.remInt16#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] rem ~ARG[1]@@ -1682,7 +1682,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemInt16#+    name: ["GHC.Prim.quotRemInt16#", "GHC.Internal.Prim.quotRemInt16#"]     kind: Declaration     template: |-       ~RESULT <= (~ARG[0] / ~ARG[1], ~ARG[0] rem ~ARG[1])@@ -1691,7 +1691,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.uncheckedShiftLInt16#+    name: ["GHC.Prim.uncheckedShiftLInt16#", "GHC.Internal.Prim.uncheckedShiftLInt16#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftL][0] : block@@ -1709,7 +1709,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRAInt16#+    name: ["GHC.Prim.uncheckedShiftRAInt16#", "GHC.Internal.Prim.uncheckedShiftRAInt16#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftR][0] : block@@ -1727,7 +1727,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRLInt16#+    name: ["GHC.Prim.uncheckedShiftRLInt16#", "GHC.Internal.Prim.uncheckedShiftRLInt16#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftRL][0] : block@@ -1745,50 +1745,50 @@             ;       end block; - BlackBox:-    name: GHC.Prim.int16ToWord16#+    name: ["GHC.Prim.int16ToWord16#", "GHC.Internal.Prim.int16ToWord16#"]     kind: Expression     template: unsigned(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.eqInt16#+    name: ["GHC.Prim.eqInt16#", "GHC.Internal.Prim.eqInt16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geInt16#+    name: ["GHC.Prim.geInt16#", "GHC.Internal.Prim.geInt16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.gtInt16#+    name: ["GHC.Prim.gtInt16#", "GHC.Internal.Prim.gtInt16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leInt16#+    name: ["GHC.Prim.leInt16#", "GHC.Internal.Prim.leInt16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltInt16#+    name: ["GHC.Prim.ltInt16#", "GHC.Internal.Prim.ltInt16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neInt16#+    name: ["GHC.Prim.neInt16#", "GHC.Internal.Prim.neInt16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.word16ToWord#+    name: ["GHC.Prim.word16ToWord#", "GHC.Internal.Prim.word16ToWord#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.wordToWord16#+    name: ["GHC.Prim.wordToWord16#", "GHC.Internal.Prim.wordToWord16#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.timesWord16#+    name: ["GHC.Prim.timesWord16#", "GHC.Internal.Prim.timesWord16#"]     kind: Expression     template: resize(~ARG[0] * ~ARG[1],~SIZE[~TYPO]) - BlackBox:-    name: GHC.Prim.quotWord16#+    name: ["GHC.Prim.quotWord16#", "GHC.Internal.Prim.quotWord16#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] / ~ARG[1]@@ -1797,7 +1797,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.remWord16#+    name: ["GHC.Prim.remWord16#", "GHC.Internal.Prim.remWord16#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] rem ~ARG[1]@@ -1806,7 +1806,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemWord16#+    name: ["GHC.Prim.quotRemWord16#", "GHC.Internal.Prim.quotRemWord16#"]     kind: Declaration     template: |-       ~RESULT <= (~ARG[0] / ~ARG[1], ~ARG[0] rem ~ARG[1])@@ -1815,23 +1815,23 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.andWord16#+    name: ["GHC.Prim.andWord16#", "GHC.Internal.Prim.andWord16#"]     kind: Expression     template: ~ARG[0] and ~ARG[1] - BlackBox:-    name: GHC.Prim.orWord16#+    name: ["GHC.Prim.orWord16#", "GHC.Internal.Prim.orWord16#"]     kind: Expression     template: ~ARG[0] or ~ARG[1] - BlackBox:-    name: GHC.Prim.xorWord16#+    name: ["GHC.Prim.xorWord16#", "GHC.Internal.Prim.xorWord16#"]     kind: Expression     template: ~ARG[0] xor ~ARG[1] - BlackBox:-    name: GHC.Prim.notWord16#+    name: ["GHC.Prim.notWord16#", "GHC.Internal.Prim.notWord16#"]     kind: Expression     template: not ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftLWord16#+    name: ["GHC.Prim.uncheckedShiftLWord16#", "GHC.Internal.Prim.uncheckedShiftLWord16#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftL][0] : block@@ -1849,7 +1849,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRLWord16#+    name: ["GHC.Prim.uncheckedShiftRLWord16#", "GHC.Internal.Prim.uncheckedShiftRLWord16#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftRL][0] : block@@ -1867,50 +1867,50 @@             ;       end block; - BlackBox:-    name: GHC.Prim.word16ToInt16#+    name: ["GHC.Prim.word16ToInt16#", "GHC.Internal.Prim.word16ToInt16#"]     kind: Expression     template: signed(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.eqWord16#+    name: ["GHC.Prim.eqWord16#", "GHC.Internal.Prim.eqWord16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geWord16#+    name: ["GHC.Prim.geWord16#", "GHC.Internal.Prim.geWord16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.gtWord16#+    name: ["GHC.Prim.gtWord16#", "GHC.Internal.Prim.gtWord16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leWord16#+    name: ["GHC.Prim.leWord16#", "GHC.Internal.Prim.leWord16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltWord16#+    name: ["GHC.Prim.ltWord16#", "GHC.Internal.Prim.ltWord16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neWord16#+    name: ["GHC.Prim.neWord16#", "GHC.Internal.Prim.neWord16#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.int32ToInt#+    name: ["GHC.Prim.int32ToInt#", "GHC.Internal.Prim.int32ToInt#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.intToInt32#+    name: ["GHC.Prim.intToInt32#", "GHC.Internal.Prim.intToInt32#"]     kind: Expression     template: ~VAR[i][0](31 downto 0)     workInfo: Never - BlackBox:-    name: GHC.Prim.negateInt32#+    name: ["GHC.Prim.negateInt32#", "GHC.Internal.Prim.negateInt32#"]     kind: Expression     template: -~ARG[0] - BlackBox:-    name: GHC.Prim.timesInt32#+    name: ["GHC.Prim.timesInt32#", "GHC.Internal.Prim.timesInt32#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_mult][0] : block@@ -1920,7 +1920,7 @@         ~RESULT <= ~SYM[1](~SIZE[~TYPO]-1 downto 0);       end block; - BlackBox:-    name: GHC.Prim.quotInt32#+    name: ["GHC.Prim.quotInt32#", "GHC.Internal.Prim.quotInt32#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] / ~ARG[1]@@ -1929,7 +1929,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.remInt32#+    name: ["GHC.Prim.remInt32#", "GHC.Internal.Prim.remInt32#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] rem ~ARG[1]@@ -1938,7 +1938,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemInt32#+    name: ["GHC.Prim.quotRemInt32#", "GHC.Internal.Prim.quotRemInt32#"]     kind: Declaration     template: |-       ~RESULT <= (~ARG[0] / ~ARG[1], ~ARG[0] rem ~ARG[1])@@ -1947,7 +1947,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.uncheckedShiftLInt32#+    name: ["GHC.Prim.uncheckedShiftLInt32#", "GHC.Internal.Prim.uncheckedShiftLInt32#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftL][0] : block@@ -1965,7 +1965,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRAInt32#+    name: ["GHC.Prim.uncheckedShiftRAInt32#", "GHC.Internal.Prim.uncheckedShiftRAInt32#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftR][0] : block@@ -1983,7 +1983,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRLInt32#+    name: ["GHC.Prim.uncheckedShiftRLInt32#", "GHC.Internal.Prim.uncheckedShiftRLInt32#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftRL][0] : block@@ -2001,50 +2001,50 @@             ;       end block; - BlackBox:-    name: GHC.Prim.int32ToWord32#+    name: ["GHC.Prim.int32ToWord32#", "GHC.Internal.Prim.int32ToWord32#"]     kind: Expression     template: unsigned(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.eqInt32#+    name: ["GHC.Prim.eqInt32#", "GHC.Internal.Prim.eqInt32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geInt32#+    name: ["GHC.Prim.geInt32#", "GHC.Internal.Prim.geInt32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.gtInt32#+    name: ["GHC.Prim.gtInt32#", "GHC.Internal.Prim.gtInt32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leInt32#+    name: ["GHC.Prim.leInt32#", "GHC.Internal.Prim.leInt32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltInt32#+    name: ["GHC.Prim.ltInt32#", "GHC.Internal.Prim.ltInt32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neInt32#+    name: ["GHC.Prim.neInt32#", "GHC.Internal.Prim.neInt32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.word32ToWord#+    name: ["GHC.Prim.word32ToWord#", "GHC.Internal.Prim.word32ToWord#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.wordToWord32#+    name: ["GHC.Prim.wordToWord32#", "GHC.Internal.Prim.wordToWord32#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.timesWord32#+    name: ["GHC.Prim.timesWord32#", "GHC.Internal.Prim.timesWord32#"]     kind: Expression     template: resize(~ARG[0] * ~ARG[1],~SIZE[~TYPO]) - BlackBox:-    name: GHC.Prim.quotWord32#+    name: ["GHC.Prim.quotWord32#", "GHC.Internal.Prim.quotWord32#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] / ~ARG[1]@@ -2053,7 +2053,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.remWord32#+    name: ["GHC.Prim.remWord32#", "GHC.Internal.Prim.remWord32#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] rem ~ARG[1]@@ -2062,7 +2062,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemWord32#+    name: ["GHC.Prim.quotRemWord32#", "GHC.Internal.Prim.quotRemWord32#"]     kind: Declaration     template: |-       ~RESULT <= (~ARG[0] / ~ARG[1], ~ARG[0] rem ~ARG[1])@@ -2071,23 +2071,23 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.andWord32#+    name: ["GHC.Prim.andWord32#", "GHC.Internal.Prim.andWord32#"]     kind: Expression     template: ~ARG[0] and ~ARG[1] - BlackBox:-    name: GHC.Prim.orWord32#+    name: ["GHC.Prim.orWord32#", "GHC.Internal.Prim.orWord32#"]     kind: Expression     template: ~ARG[0] or ~ARG[1] - BlackBox:-    name: GHC.Prim.xorWord32#+    name: ["GHC.Prim.xorWord32#", "GHC.Internal.Prim.xorWord32#"]     kind: Expression     template: ~ARG[0] xor ~ARG[1] - BlackBox:-    name: GHC.Prim.notWord32#+    name: ["GHC.Prim.notWord32#", "GHC.Internal.Prim.notWord32#"]     kind: Expression     template: not ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftLWord32#+    name: ["GHC.Prim.uncheckedShiftLWord32#", "GHC.Internal.Prim.uncheckedShiftLWord32#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftL][0] : block@@ -2105,7 +2105,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRLWord32#+    name: ["GHC.Prim.uncheckedShiftRLWord32#", "GHC.Internal.Prim.uncheckedShiftRLWord32#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftRL][0] : block@@ -2123,50 +2123,50 @@             ;       end block; - BlackBox:-    name: GHC.Prim.word32ToInt32#+    name: ["GHC.Prim.word32ToInt32#", "GHC.Internal.Prim.word32ToInt32#"]     kind: Expression     template: signed(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.eqWord32#+    name: ["GHC.Prim.eqWord32#", "GHC.Internal.Prim.eqWord32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geWord32#+    name: ["GHC.Prim.geWord32#", "GHC.Internal.Prim.geWord32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.gtWord32#+    name: ["GHC.Prim.gtWord32#", "GHC.Internal.Prim.gtWord32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leWord32#+    name: ["GHC.Prim.leWord32#", "GHC.Internal.Prim.leWord32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltWord32#+    name: ["GHC.Prim.ltWord32#", "GHC.Internal.Prim.ltWord32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neWord32#+    name: ["GHC.Prim.neWord32#", "GHC.Internal.Prim.neWord32#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.int64ToInt#+    name: ["GHC.Prim.int64ToInt#", "GHC.Internal.Prim.int64ToInt#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.intToInt64#+    name: ["GHC.Prim.intToInt64#", "GHC.Internal.Prim.intToInt64#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.negateInt64#+    name: ["GHC.Prim.negateInt64#", "GHC.Internal.Prim.negateInt64#"]     kind: Expression     template: -~ARG[0] - BlackBox:-    name: GHC.Prim.timesInt64#+    name: ["GHC.Prim.timesInt64#", "GHC.Internal.Prim.timesInt64#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_mult][0] : block@@ -2176,7 +2176,7 @@         ~RESULT <= ~SYM[1](~SIZE[~TYPO]-1 downto 0);       end block; - BlackBox:-    name: GHC.Prim.quotInt64#+    name: ["GHC.Prim.quotInt64#", "GHC.Internal.Prim.quotInt64#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] / ~ARG[1]@@ -2185,7 +2185,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.remInt64#+    name: ["GHC.Prim.remInt64#", "GHC.Internal.Prim.remInt64#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] rem ~ARG[1]@@ -2194,7 +2194,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemInt64#+    name: ["GHC.Prim.quotRemInt64#", "GHC.Internal.Prim.quotRemInt64#"]     kind: Declaration     template: |-       ~RESULT <= (~ARG[0] / ~ARG[1], ~ARG[0] rem ~ARG[1])@@ -2203,7 +2203,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.uncheckedIShiftL64#+    name: ["GHC.Prim.uncheckedIShiftL64#", "GHC.Internal.Prim.uncheckedIShiftL64#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftL][0] : block@@ -2221,7 +2221,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedIShiftRA64#+    name: ["GHC.Prim.uncheckedIShiftRA64#", "GHC.Internal.Prim.uncheckedIShiftRA64#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftR][0] : block@@ -2239,7 +2239,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedIShiftRL64#+    name: ["GHC.Prim.uncheckedIShiftRL64#", "GHC.Internal.Prim.uncheckedIShiftRL64#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftRL][0] : block@@ -2257,50 +2257,50 @@             ;       end block; - BlackBox:-    name: GHC.Prim.int64ToWord64#+    name: ["GHC.Prim.int64ToWord64#", "GHC.Internal.Prim.int64ToWord64#"]     kind: Expression     template: unsigned(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.eqInt64#+    name: ["GHC.Prim.eqInt64#", "GHC.Internal.Prim.eqInt64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geInt64#+    name: ["GHC.Prim.geInt64#", "GHC.Internal.Prim.geInt64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.gtInt64#+    name: ["GHC.Prim.gtInt64#", "GHC.Internal.Prim.gtInt64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leInt64#+    name: ["GHC.Prim.leInt64#", "GHC.Internal.Prim.leInt64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltInt64#+    name: ["GHC.Prim.ltInt64#", "GHC.Internal.Prim.ltInt64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neInt64#+    name: ["GHC.Prim.neInt64#", "GHC.Internal.Prim.neInt64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.word64ToWord#+    name: ["GHC.Prim.word64ToWord#", "GHC.Internal.Prim.word64ToWord#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.wordToWord64#+    name: ["GHC.Prim.wordToWord64#", "GHC.Internal.Prim.wordToWord64#"]     kind: Expression     template: resize(~ARG[0],~SIZE[~TYPO])     workInfo: Never - BlackBox:-    name: GHC.Prim.timesWord64#+    name: ["GHC.Prim.timesWord64#", "GHC.Internal.Prim.timesWord64#"]     kind: Expression     template: resize(~ARG[0] * ~ARG[1],~SIZE[~TYPO]) - BlackBox:-    name: GHC.Prim.quotWord64#+    name: ["GHC.Prim.quotWord64#", "GHC.Internal.Prim.quotWord64#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] / ~ARG[1]@@ -2309,7 +2309,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.remWord64#+    name: ["GHC.Prim.remWord64#", "GHC.Internal.Prim.remWord64#"]     kind: Declaration     template: |-       ~RESULT <= ~ARG[0] rem ~ARG[1]@@ -2318,7 +2318,7 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.quotRemWord64#+    name: ["GHC.Prim.quotRemWord64#", "GHC.Internal.Prim.quotRemWord64#"]     kind: Declaration     template: |-       ~RESULT <= (~ARG[0] / ~ARG[1], ~ARG[0] rem ~ARG[1])@@ -2327,23 +2327,23 @@           -- pragma translate_on           ; - BlackBox:-    name: GHC.Prim.and64#+    name: ["GHC.Prim.and64#", "GHC.Internal.Prim.and64#"]     kind: Expression     template: ~ARG[0] and ~ARG[1] - BlackBox:-    name: GHC.Prim.or64#+    name: ["GHC.Prim.or64#", "GHC.Internal.Prim.or64#"]     kind: Expression     template: ~ARG[0] or ~ARG[1] - BlackBox:-    name: GHC.Prim.xor64#+    name: ["GHC.Prim.xor64#", "GHC.Internal.Prim.xor64#"]     kind: Expression     template: ~ARG[0] xor ~ARG[1] - BlackBox:-    name: GHC.Prim.not64#+    name: ["GHC.Prim.not64#", "GHC.Internal.Prim.not64#"]     kind: Expression     template: not ~ARG[0] - BlackBox:-    name: GHC.Prim.uncheckedShiftL64#+    name: ["GHC.Prim.uncheckedShiftL64#", "GHC.Internal.Prim.uncheckedShiftL64#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftL][0] : block@@ -2361,7 +2361,7 @@             ;       end block; - BlackBox:-    name: GHC.Prim.uncheckedShiftRL64#+    name: ["GHC.Prim.uncheckedShiftRL64#", "GHC.Internal.Prim.uncheckedShiftRL64#"]     kind: Declaration     template: |-       ~GENSYM[~RESULT_shiftRL][0] : block@@ -2379,31 +2379,31 @@             ;       end block; - BlackBox:-    name: GHC.Prim.word64ToInt64#+    name: ["GHC.Prim.word64ToInt64#", "GHC.Internal.Prim.word64ToInt64#"]     kind: Expression     template: signed(std_logic_vector(~ARG[0]))     workInfo: Never - BlackBox:-    name: GHC.Prim.eqWord64#+    name: ["GHC.Prim.eqWord64#", "GHC.Internal.Prim.eqWord64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] = ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.geWord64#+    name: ["GHC.Prim.geWord64#", "GHC.Internal.Prim.geWord64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] >= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.gtWord64#+    name: ["GHC.Prim.gtWord64#", "GHC.Internal.Prim.gtWord64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] > ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.leWord64#+    name: ["GHC.Prim.leWord64#", "GHC.Internal.Prim.leWord64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] <= ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.ltWord64#+    name: ["GHC.Prim.ltWord64#", "GHC.Internal.Prim.ltWord64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] < ~ARG[1] else to_signed(0,~SIZE[~TYPO]); - BlackBox:-    name: GHC.Prim.neWord64#+    name: ["GHC.Prim.neWord64#", "GHC.Internal.Prim.neWord64#"]     kind: Declaration     template: ~RESULT <= to_signed(1,~SIZE[~TYPO]) when ~ARG[0] /= ~ARG[1] else to_signed(0,~SIZE[~TYPO]);

@@ -29,6 +29,7 @@   , TmName   , varToId   , Bind(..)+  , bindToList   , LetBinding   , Pat (..)   , patIds

@@ -129,6 +129,9 @@       any (`T.isPrefixOf` (nameOcc nm)) $ map T.pack         [ "GHC.Tuple.Prim.Tuple"         , "GHC.Tuple.Tuple"+        -- GHC >= 9.14 hosts the Tuple type constructors here, with+        -- 'base'\''s 'GHC.Tuple' re-exporting them.+        , "GHC.Internal.Tuple.Tuple"         ]  -- | Get the DataCons belonging to a TyCon

@@ -518,11 +518,11 @@       [i1, i2] ->         Just $ ConstTy $ TyCon $           case compare i1 i2 of-            LT -> Name User "GHC.Types.LT"+            LT -> Name User (showt 'LT)                     (fromGhcUnique ordLTDataConKey) wiredInSrcSpan-            EQ -> Name User "GHC.Types.EQ"+            EQ -> Name User (showt 'EQ)                     (fromGhcUnique ordEQDataConKey) wiredInSrcSpan-            GT -> Name User "GHC.Types.GT"+            GT -> Name User (showt 'GT)                     (fromGhcUnique ordGTDataConKey) wiredInSrcSpan       _ -> Nothing @@ -531,11 +531,11 @@       [s1, s2] ->         Just $ ConstTy $ TyCon $           case compare s1 s2 of-            LT -> Name User "GHC.Types.LT"+            LT -> Name User (showt 'LT)                     (fromGhcUnique ordLTDataConKey) wiredInSrcSpan-            EQ -> Name User "GHC.Types.EQ"+            EQ -> Name User (showt 'EQ)                     (fromGhcUnique ordEQDataConKey) wiredInSrcSpan-            GT -> Name User "GHC.Types.GT"+            GT -> Name User (showt 'GT)                     (fromGhcUnique ordGTDataConKey) wiredInSrcSpan       _ -> Nothing 

@@ -629,7 +629,11 @@   --   isHidden :: Name a -> [Type] -> Bool   isHidden nm [a1, a2] | TyConApp a2Nm _ <- tyView a2 =-       nameOcc nm `elem` ["GHC.Classes.(%,%)", "GHC.Classes.CTuple2"]+       -- Constraint-tuple type constructors moved from 'GHC.Classes' (<= 9.12)+       -- to 'GHC.Internal.Classes' (>= 9.14); both forms appear here.+       nameOcc nm `elem` [ "GHC.Classes.(%,%)", "GHC.Internal.Classes.(%,%)"+                         , "GHC.Classes.CTuple2", "GHC.Internal.Classes.CTuple2"+                         ]     && splitTy (tyView (stripIP a1))     && nameOcc a2Nm == "Clash.Signal.Internal.KnownDomain"   isHidden _ _ = False@@ -643,7 +647,10 @@                            -- in a bitvector, so we need to make sure Clash                            -- splits them off                            , "Clash.Explicit.SimIO.File"+                           -- Handle moved to 'GHC.Internal.IO.Handle.Types' on+                           -- GHC >= 9.14.                            , "GHC.IO.Handle.Types.Handle"+                           , "GHC.Internal.IO.Handle.Types.Handle"                            ]   splitTy _ = False 

@@ -275,6 +275,8 @@   -> Maybe TopEntity   -> String   -> (String, Maybe String)+prefixModuleName _hdl _compPrefix (Just (tb@(TestBench _))) _modName =+  error $ "Internal error: prefixModuleName: unexpected TestBench: " <> show tb prefixModuleName hdl compPrefix annM modName =   case compPrefix of     Just (Data.Text.unpack -> p)

@@ -1,5 +1,6 @@ {-|-Copyright   :  (C) 2024, Martijn Bastiaan+Copyright   :  (C) 2024, Martijn Bastiaan,+                   2026, QBayLogic B.V. License     :  BSD2 (see the file LICENSE) Maintainer  :  QBayLogic B.V. <devops@qbaylogic.com> @@ -114,7 +115,7 @@  -- | Which GHCs are broken and why brokenGhcs :: [Why]-brokenGhcs = [brokenClashCores, brokenTypeErrors, slowStarts]+brokenGhcs = [brokenClashCores, brokenTypeErrors, slowStarts, brokenGhc912]  where   brokenClashCores = Why     { what = "GHC is known to fail compilation of libraries used by the Clash compiler test suite"@@ -135,6 +136,16 @@     , solution = "Upgrade to GHC 9.6.3 or newer, or downgrade to GHC 9.4.7"     , issue = "https://github.com/clash-lang/clash-compiler/issues/2710"     , brokenOn = [(All, GhcRange{from=Ghc 9 4 8, to=Ghc 9 6 3})]+    }++  -- GHC 9.12.4 fixes the bugs affecting Clash reported in:+  -- https://gitlab.haskell.org/ghc/ghc/-/work_items/26185+  -- https://gitlab.haskell.org/ghc/ghc/-/work_items/26711+  brokenGhc912 = Why+    { what = "GHC 9.12.1 through 9.12.3 contain bugs affecting Clash"+    , solution = "Upgrade to GHC 9.12.4 or newer"+    , issue = "https://github.com/clash-lang/clash-compiler/issues/3415"+    , brokenOn = [(All, GhcRange{from=Ghc 9 12 1, to=Ghc 9 12 4})]     }  -- | Given a 'BrokenOn', determine whether current OS matches

@@ -26,6 +26,9 @@ import           Control.Lens                     ((.=), (<~)) import qualified Control.Lens                     as Lens import           Control.Monad                    (zipWithM)+import           Data.Text.Extra                  (showt)+import           GHC.Num.Integer                  (Integer(..))+import           GHC.Num.Natural                  (Natural(..)) import           Control.Monad.Extra              (concatMapM, mapMaybeM) import           Control.Monad.Reader             (runReaderT) import           Control.Monad.State.Strict       (State, runStateT, runState)@@ -945,6 +948,10 @@    case scrutRendered of     Left newDecls -> pure (Noop, newDecls)+    -- The projected field is zero-width / void, so it is filtered out of the+    -- subject's fields below and there is nothing to select. Rendering it+    -- anyway would reference the pattern's binder, which is never declared.+    Right (_, _, decls) | isVoid vHwTy -> pure (Noop, decls)     Right (selId, modM, decls) -> do       let altVarId = Id.unsafeFromCoreId varTm       modifier <- case pat of@@ -1098,22 +1105,22 @@         in  return dc'       Void {} -> return Noop       Signed _-        | dcNm == "GHC.Num.Integer.IS"+        | dcNm == showt 'IS         , (a:_) <- argExprsFiltered         -> pure a         -- ByteArray# are non-translatable / void, except when they're literals-        | dcNm == "GHC.Num.Integer.IP"+        | dcNm == showt 'IP         , (a@(HW.Literal Nothing (NumLit _)):_) <- argExprs         -> pure a-        | dcNm == "GHC.Num.Integer.IN"+        | dcNm == showt 'IN         -- ByteArray# are non-translatable / void, except when they're literals         , (HW.Literal Nothing (NumLit i):_) <- argExprs         -> pure (HW.Literal Nothing (NumLit (negate i)))       Unsigned _-        | dcNm == "GHC.Num.Natural.NS"+        | dcNm == showt 'NS         , (a:_) <- argExprsFiltered         -> pure a-        | dcNm == "GHC.Num.Natural.NB"+        | dcNm == showt 'NB         -- ByteArray# are non-translatable / void, except when they're literals         , (a@(HW.Literal Nothing (NumLit _)):_) <- argExprs         -> pure a

@@ -3,7 +3,7 @@   Copyright  :  (C) 2012-2016, University of Twente,                     2016-2017, Myrtle Software Ltd,                     2017     , Google Inc.,-                    2021-2024, QBayLogic B.V.+                    2021-2026, QBayLogic B.V.                     2022     , Google Inc.   License    :  BSD2 (see the file LICENSE)   Maintainer :  QBayLogic B.V. <devops@qbaylogic.com>@@ -20,6 +20,11 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TemplateHaskell #-} +-- 'dataToTagSmall#' and 'dataToTagLarge#' (used below in TH name quotes so that+-- Clash can match the primops by their canonical names across GHC versions) are+-- deprecated as of GHC 9.14 in favor of @dataToTag#@ from @GHC.Magic@.+{-# OPTIONS_GHC -Wno-deprecations #-}+ module Clash.Netlist.BlackBox     ( mkBlackBoxContext     , extractPrimWarnOrFail@@ -50,6 +55,9 @@ import           Data.Text                     (unpack) import qualified Data.Text                     as TextS import           Data.Text.Extra+import           GHC.Num.Integer               (Integer(..))+import           GHC.Num.Natural               (Natural(..))+import qualified GHC.Prim import           GHC.Stack   (HasCallStack, callStack, prettyCallStack) import qualified System.Console.ANSI           as ANSI@@ -527,7 +535,7 @@                     -- Otherwise don't render them                     Nothing -> return (Identifier (Id.unsafeMake "__VOID__") Nothing,[])         P.Primitive pNm _ _-          | pNm == "GHC.Prim.tagToEnum#" -> do+          | pNm == showt 'GHC.Prim.tagToEnum# -> do               hwTy <- N.unsafeCoreTypeToHWTypeM' $(curLoc) ty               case args of                 [Right (ConstTy (TyCon tcN)), Left (C.Literal (IntLiteral i))] -> do@@ -542,6 +550,9 @@                   (scrutExpr,scrutDecls) <-                     mkExpr False declType (NetlistId (Id.unsafeMake "c$tte_rhs") scrutTy) scrut                   case scrutExpr of+                    -- Singleton enumerations have no hardware representation,+                    -- just like their constructor applications.+                    _ | isVoid hwTy -> return (Noop,scrutDecls)                     Identifier id_ Nothing -> return (DataTag hwTy (Left id_),scrutDecls)                     _ -> do                       scrutHTy <- unsafeCoreTypeToHWTypeM' $(curLoc) scrutTy@@ -549,6 +560,9 @@                       netDecl <- N.mkInit declType assignTy tmpRhs scrutHTy scrutExpr                       return (DataTag hwTy (Left tmpRhs), netDecl ++ scrutDecls)                 _ -> error $ $(curLoc) ++ "tagToEnum: " ++ show (map (either showPpr showPpr) args)+          -- 'dataToTag#' was removed from GHC.Prim in favor of+          -- 'dataToTagSmall#' / 'dataToTagLarge#'. Kept as a literal for+          -- compatibility with older GHCs where it may still appear.           | pNm == "GHC.Prim.dataToTag#" -> case args of               [Right _,Left (Data dc)] -> do                 iw <- Lens.view intWidth@@ -556,13 +570,18 @@               [Right _,Left scrut] -> mkDataToTag declType assignTy scrut               _ -> error $ $(curLoc) ++ "dataToTag: " ++ show (map (either showPpr showPpr) args) +#if MIN_VERSION_ghc(9,10,0)+          -- 'dataToTagSmall#' / 'dataToTagLarge#' only exist on GHC >= 9.10;+          -- TH-quoting them requires the symbols to be in scope at compile+          -- time, so this clause is CPP-gated.           | pNm `elem`-            ["GHC.Prim.dataToTagSmall#", "GHC.Prim.dataToTagLarge#"] -> case args of+            [showt 'GHC.Prim.dataToTagSmall#, showt 'GHC.Prim.dataToTagLarge#] -> case args of               [Right _, Right _,Left (Data dc)] -> do                 iw <- Lens.view intWidth                 return (N.Literal (Just (Signed iw,iw)) (NumLit $ toInteger $ dcTag dc - 1),[])               [Right _, Right _,Left scrut] -> mkDataToTag declType assignTy scrut               _ -> error $ $(curLoc) ++ "dataToTag: " ++ show (map (either showPpr showPpr) args)+#endif            | pNm == "Clash.Explicit.SimIO.mealyIO" -> do               resM <- resBndr1 True dst@@ -647,14 +666,14 @@                 _ ->                   return (Noop,decls) -          | pNm == "GHC.Num.Integer.IS" -> do+          | pNm == showt 'IS -> do               (expr,decls) <- case lefts args of                 (arg:_) -> mkExpr False declType dst arg                 _ -> error "internal error: insufficient arguments"               iw <- Lens.view intWidth               return (N.DataCon (Signed iw) (DC (Void Nothing,-1)) [expr],decls) -          | pNm == "GHC.Num.Integer.IP" -> do+          | pNm == showt 'IP -> do               (expr,decls) <- case lefts args of                 (arg:_) -> mkExpr False declType dst arg                 _ -> error "internal error: insufficient arguments"@@ -662,7 +681,7 @@                 N.Literal Nothing (NumLit _) -> return (expr,decls)                 _ -> error "non-constant ByteArray# not supported" -          | pNm == "GHC.Num.Integer.IN" -> do+          | pNm == showt 'IN -> do               (expr,decls) <- case lefts args of                 (arg:_) -> mkExpr False declType dst arg                 _ -> error "internal error: insufficient arguments"@@ -671,14 +690,14 @@                   return (N.Literal Nothing (NumLit (negate i)),decls)                 _ -> error "non-constant ByteArray# not supported" -          | pNm == "GHC.Num.Natural.NS" -> do+          | pNm == showt 'NS -> do               (expr,decls) <- case lefts args of                 (arg:_) -> mkExpr False declType dst arg                 _ -> error "internal error: insufficient arguments"               iw <- Lens.view intWidth               return (N.DataCon (Unsigned iw) (DC (Void Nothing,-1)) [expr],decls) -          | pNm == "GHC.Num.Integer.NB" -> do+          | pNm == showt 'NB -> do               (expr,decls) <- case lefts args of                 (arg:_) -> mkExpr False declType dst arg                 _ -> error "internal error: insufficient arguments"

@@ -14,6 +14,7 @@ {-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE LambdaCase #-}+{-# LANGUAGE MagicHash #-} {-# LANGUAGE NumericUnderscores #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE QuasiQuotes #-}@@ -62,8 +63,13 @@ import qualified Data.Set                        as Set import           Data.Set                        (Set) import qualified Data.Text+import           Data.Text.Extra                 (showt) import           Data.Text.Lazy                  (Text) import qualified Data.Text.Lazy                  as Text+import qualified GHC.CString+import           GHC.Exts                        (Int(..), Word(..))+import           GHC.Int                         (Int8(..), Int16(..), Int32(..), Int64(..))+import           GHC.Word                        (Word8(..), Word16(..), Word32(..), Word64(..)) import           System.Directory                (doesFileExist, canonicalizePath) import           System.IO.Unsafe                (unsafePerformIO) @@ -657,9 +663,9 @@           | DataCon (Unsigned _) _ [Literal _ (NumLit i)] <- l             -> fromInteger i           | BlackBoxE pNm _lib _use _incl _templ bbCtx _paren <- l-          , pNm `elem` ["GHC.Int.I8#", "GHC.Int.I16#", "GHC.Int.I32#", "GHC.Int.I64#"-                       ,"GHC.Word.W8#","GHC.Word.W16#","GHC.Word.W32#","GHC.Word.W64#"-                       ,"GHC.Types.I#","GHC.Types.W#"+          , pNm `elem` [ showt 'I8#, showt 'I16#, showt 'I32#, showt 'I64#+                       , showt 'W8#, showt 'W16#, showt 'W32#, showt 'W64#+                       , showt 'I#, showt 'W#                        ]           , [Literal _ (NumLit j)] <- extractLiterals bbCtx           -> fromInteger j@@ -877,9 +883,9 @@   mkLit (DataCon _ (DC (Void {}, _)) [Literal (Just (Signed _,_)) i])   = Literal Nothing i  -- Int   mkLit (DataCon _ (DC (Void {}, _)) [Literal (Just (Unsigned _,_)) i]) = Literal Nothing i  -- SNat, Word -  mkLit (BlackBoxE pNm _ _ _ _ bbCtx _) | pNm `elem` ["GHC.Int.I8#", "GHC.Int.I16#", "GHC.Int.I32#", "GHC.Int.I64#"-                                                     ,"GHC.Word.W8#","GHC.Word.W16#","GHC.Word.W32#","GHC.Word.W64#"-                                                     ,"GHC.Types.I#","GHC.Types.W#"+  mkLit (BlackBoxE pNm _ _ _ _ bbCtx _) | pNm `elem` [ showt 'I8#, showt 'I16#, showt 'I32#, showt 'I64#+                                                     , showt 'W8#, showt 'W16#, showt 'W32#, showt 'W64#+                                                     , showt 'I#, showt 'W#                                                      ]                                         , [Literal _ i] <- extractLiterals bbCtx                                         = Literal Nothing i@@ -1094,10 +1100,10 @@   case bbInputs ctx of     (e0,_,_):_ -> exprToString e0     _ -> error "internal error: insufficient bbInputs"-exprToString (BlackBoxE "GHC.CString.unpackCString#" _ _ _ _ ctx _) =-  case bbInputs ctx of-    (e0,_,_):_ -> exprToString e0-    _ -> error "internal error: insufficient bbInputs"+exprToString (BlackBoxE nm _ _ _ _ ctx _)+  | nm == showt 'GHC.CString.unpackCString#,+    (e0,_,_):_ <- bbInputs ctx+  = exprToString e0 exprToString _ = Nothing  prettyBlackBox :: Monad m

@@ -47,6 +47,8 @@ -- is "foo_12_13" this function would return "Just 25". In this case, "foo_12_26" -- is guaranteed to be a fresh identifier. lookupFreshCache# :: FreshCache -> Identifier -> Maybe Word+lookupFreshCache# _fresh0 rawId@RawIdentifier {} =+  error $ "Internal error: unexpected raw identifier: " <> show rawId lookupFreshCache# fresh0 id0 = do   fresh1 <- HashMap.lookup (i_baseNameCaseFold id0) fresh0   IntMap.lookup (length (i_extensionsRev id0)) fresh1@@ -75,7 +77,7 @@   -> (IdentifierSet, Identifier) mkUnique# _is0 (RawIdentifier {}) =   error "Internal error: mkUnique# cannot be used on RawIdentifiers"-mkUnique# is0 id_@(i_extensionsRev -> []) = deepen# is0 id_+mkUnique# is0 id_@UniqueIdentifier{i_extensionsRev=[]} = deepen# is0 id_ mkUnique# is id0 = (is{is_freshCache=freshCache, is_store=isStore}, id2)  where   freshCache = updateFreshCache# (is_freshCache is) id2@@ -147,7 +149,7 @@ next# :: HasCallStack => IdentifierSet -> Identifier ->  (IdentifierSet, Identifier) next# is0 (RawIdentifier t Nothing _) = uncurry next# (make# is0 t) next# is0 (RawIdentifier _ (Just id_) _) = next# is0 id_-next# is0 id_@(i_extensionsRev -> []) = deepen# is0 id_+next# is0 id_@UniqueIdentifier{i_extensionsRev=[]} = deepen# is0 id_ next# is0 id_ = mkUnique# is0 id_  -- | Non-monadic, internal version of 'nextN'

@@ -1467,6 +1467,8 @@   -- ^ Top entity annotation   -> m Identifier   -- ^ New identifier+genTopName _prefixM tb@(TestBench {}) =+  error $ "Internal error: genTopName: unexpected TestBench: " <> show tb genTopName prefixM ann =   case prefixM of     Just prefix | not (Text.null prefix) ->

@@ -14,6 +14,8 @@ {-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE TemplateHaskell #-} +--{-# OPTIONS_GHC -ddump-splices #-}+ module Clash.Normalize where  import           Control.Exception                (throw)@@ -29,6 +31,7 @@ import qualified Clash.Data.UniqMap               as UniqMap import           Data.List   (intersect, mapAccumL)+import qualified Data.HashMap.Strict              as HashMap import qualified Data.Map                         as Map import qualified Data.Maybe                       as Maybe import qualified Data.Set                         as Set@@ -70,17 +73,16 @@   (HWMap, FilteredHWType(..)) import           Clash.Netlist.Util   (splitNormalized)-import           Clash.Normalize.Strategy-import           Clash.Normalize.Transformations+import           Clash.Normalize.Strategy         (constantPropagation, normalization)+import           Clash.Normalize.Strategy.Spec    (flattenSpec) import           Clash.Normalize.Types import           Clash.Normalize.Util-import           Clash.Rewrite.Combinators-  ((>->), (!->), bottomupR, repeatR, topdownFixR)+import           Clash.Rewrite.StrategyDSL.TH     (compileStrategy) import           Clash.Rewrite.Types   (RewriteEnv (..), RewriteState (..), bindings, debugOpts, extra,    tcCache, topEntities, newInlineStrategy) import           Clash.Rewrite.Util-  (apply, isUntranslatableType, runRewriteSession)+  (isUntranslatableType, runRewriteSession) import           Clash.Util import           Clash.Util.Interpolate           (i) import           Clash.Util.Supply                (Supply)@@ -144,6 +146,9 @@                   emptyVarEnv                   Map.empty                   rcsMap+                  normalization+                  constantPropagation+                  HashMap.empty -- workFreeAppCache  normalize   :: [Id]@@ -348,37 +353,6 @@            then return (Right ((nm,e),us))            else return (Left b) -{--Note [flatten pass structure]-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~-Through experimentation we've learned the following:--1. The evaluator-backed rewrites ('reduceConst', 'reduceNonRepPrim') must not-   sit inside the top-down propagation bundle. 'topdownFixR' settles that bundle-   at each node with 'repeatR', so a bundled 'reduceConst' is re-attempted --   evaluator call and all - for every 'appProp' or 'caseCon' that fires there.-   On large designs we've measured that dominates; hoisting them out was worth-   ~30%. See #3338.--2. There should be exactly two traversals per round, and the bottom-up one has-   to come first.--   'allR' rebuilds every node it walks, so each extra traversal costs a full-   term rebuild per round even when nothing fires. Running 'flattenLet' and the-   evaluator-backed rewrites as one fused bottom-up pass instead of two-   consecutive ones is therefore free of charge (it does not change which-   rewrites fire, or in which order they fire relative to each other).--   Running that bottom-up pass _before_ the top-down one lets the constants it-   folds be consumed by 'caseCon' in the same round. With the passes the other-   way round the folded constants sit unused until the next round, so-   constant-heavy designs pay for an extra iteration of the whole loop:-   @tests/shouldwork/Basic/AES.hs@ did ~36k extra node visits per transformation-   that way.--If you touch code related to this, please make sure to run benchmarks.--}- -- | Flatten a 'CallTree', memoizing results by binder Id within one cleanup -- pass. Without the cache, every binder reachable from the root is flattened -- as many times as it appears in the (un-deduplicated) call tree.@@ -438,26 +412,8 @@          return (CBranch (nm,(Binding nm' sp inl pr newExpr' r)) (concat allUsed'))       else return (CBranch (nm,(Binding nm' sp inl pr newExpr r)) allUsed) -  flatten =-    -- See Note [flatten pass structure].-    repeatR (bottomupR (apply "flattenLet" flattenLet >->-                        (apply "reduceConst" reduceConst !->-                           apply "deadcode" deadCode) >->-                        apply "reduceNonRepPrim" reduceNonRepPrim >->-                        apply "removeUnusedExpr" removeUnusedExpr) >->-             topdownFixR (apply "appProp" appProp >->-               apply "bindConstantVar" bindConstantVar >->-               apply "caseCon" caseCon)) !->-    topdownSucR (apply "topLet" topLet) >->-    -- See [Note] relation `collapseRHSNoops` and `inlineCleanup`-    -- Note that we do this as the very last step, after all constant propagation-    -- has been done to avoid #3036.-    topdownSucR (apply "collapseRHSNoops" collapseRHSNoops) >->-    topdownSucR (apply "inlineCleanup" inlineCleanup) >->-    bottomupR (apply "caseCon" caseCon) >-> -- https://github.com/clash-lang/clash-compiler/issues/3159 / #3204-    bottomupR (apply "flattenLet" flattenLet) >-> -- https://github.com/clash-lang/clash-compiler/issues/3185-    bottomupR (apply "bindConstantVar" bindConstantVar) >-> -- https://github.com/clash-lang/clash-compiler/issues/3041-    topdownSucR (apply "topLet" topLet)+  -- The flattening strategy is described in Clash.Normalize.Strategy.Spec.+  flatten = $(compileStrategy flattenSpec)    goCheap c@(CLeaf   (nm2,(Binding _ _ inl2 _ e _)))     | isNoInline inl2  = (Nothing     ,[c])

@@ -54,6 +54,7 @@ import qualified Data.Maybe                       as Maybe import           Data.Semigroup                   (sconcat) import           Data.Text.Extra                  (showt)+import qualified GHC.Classes import           GHC.Stack                        (HasCallStack)  import           GHC.Builtin.Names@@ -71,8 +72,8 @@ import           Clash.Core.Pretty                (showPpr) import           Clash.Core.Subst                 (extendTvSubst, mkSubst, substTy) import           Clash.Core.Term-  (IsMultiPrim (..), CoreContext (..), PrimInfo (..), Term (..), WorkInfo (..), Pat (..),-   collectTermIds, mkApps, PrimUnfolding(..))+  (Bind (..), IsMultiPrim (..), CoreContext (..), PrimInfo (..), Term (..), WorkInfo (..),+   Pat (..), collectTermIds, mkApps, PrimUnfolding(..), stripTicks) import           Clash.Core.Type                  (LitTy (..), Type (..),                                                    TypeView (..), coreView1,                                                    mkFunTy, mkTyConApp,@@ -84,14 +85,14 @@   (integerPrimTy, typeNatKind, liftedTypeKind) import           Clash.Core.Util   (appendToVec, extractElems, extractTElems, mkRTree,-   mkUniqInternalId, mkUniqSystemTyVar, mkVec, dataConInstArgTys, primCo)-import           Clash.Core.Var                   (mkTyVar, mkLocalId)-import           Clash.Core.VarEnv                (extendInScopeSetList)+   mkInternalVar, mkUniqInternalId, mkUniqSystemTyVar, mkVec, dataConInstArgTys, primCo)+import           Clash.Core.Var                   (isLocalId, mkTyVar, mkLocalId)+import           Clash.Core.VarEnv+  (InScopeSet, extendInScopeSet, extendInScopeSetList) import qualified Clash.Data.UniqMap as UniqMap import qualified Clash.Normalize.Primitives as NP (undefined) import           Clash.Sized.RTree                (RTree) import           Clash.Sized.Vector               (Vec)-import {-# SOURCE #-} Clash.Normalize.Strategy import           Clash.Normalize.Types import           Clash.Rewrite.Types import           Clash.Rewrite.Util@@ -111,6 +112,14 @@ typeNatSub =   Name User "GHC.TypeNats.-" (fromGhcUnique typeNatSubTyFamNameKey) wiredInSrcSpan +-- | The compiled 'Clash.Normalize.Strategy.constantPropagation' strategy,+-- taken from the normalization state. See the documentation of+-- '_constantPropagationStrategy' for why it is not simply imported.+constantPropagation :: NormRewrite+constantPropagation ctx tm = do+  strategy <- Lens.use (extra . constantPropagationStrategy)+  strategy ctx tm+ vecHeadPrim   :: TyConName   -- ^ Vec TyCon name@@ -175,8 +184,40 @@   nTV = mkTyVar typeNatKind (mkUnsafeSystemName "n" 0)   aTV = mkTyVar liftedTypeKind (mkUnsafeSystemName "a" 1) +-- | Let-bind a vector, unless it already is a local variable. This makes sure+-- the head and tail projections of 'extractHeadTail' share the vector instead+-- of each getting their own copy. Because single-step reductions feed the tail+-- projection back into the primitive, such copies pile up: unrolling a vector+-- of length @n@ would otherwise result in @n@ copies of the vector. That is+-- harmless for local variables, but a global binder gets inlined (and+-- normalized) at every occurrence. See:+--+--   https://github.com/clash-lang/clash-compiler/issues/3461+--+-- Non-representable vectors are never let-bound:+-- 'Clash.Normalize.Transformations.Inline.inlineOrLiftNonRep' would inline or+-- lift such a let-binding, undoing the sharing.+shareVec+  :: Bool+  -- ^ Whether the vector is representable+  -> InScopeSet+  -> Term+  -- ^ Vector to share+  -> NormalizeSession (InScopeSet, Term -> Term, Term)+  -- ^ (Updated in scope set, function binding the vector, the shared vector)+shareVec isRepresentable is0 vec+  | not isRepresentable = noShare+  | Var v <- stripTicks vec, isLocalId v = noShare+  | otherwise = do+      tcm <- Lens.view tcCache+      v <- mkInternalVar is0 "vec" (inferCoreTypeOf tcm vec)+      pure (extendInScopeSet is0 v, Let (NonRec v vec), Var v)+ where+  noShare = pure (is0, id, vec)+ -- | Makes two case statements: the first one extract the _head_ from the given--- vector, the latter the tail.+-- vector, the latter the tail. Use 'shareVec' on the vector first to prevent+-- it from being duplicated. extractHeadTail   :: DataCon   -- ^ The Cons (:>) constructor@@ -287,17 +328,21 @@   -> Type -- ^ Element type of the lhs of the function   -> Type -- ^ Element type of the rhs of the function   -> Type -- ^ Element type of the result of the function+  -> Bool -- ^ Whether the 1st vector argument is representable, see 'shareVec'+  -> Bool -- ^ Whether the 2nd vector argument is representable, see 'shareVec'   -> Term -- ^ The zipWith'd functions   -> Term -- ^ The 1st vector argument   -> Term -- ^ The 2nd vector argument   -> TransformContext   -> NormalizeSession Term-reduceZipWith zipWithPrimInfo n lhsElTy rhsElTy resElTy fun lhsArg rhsArg _ctx = do+reduceZipWith zipWithPrimInfo n lhsElTy rhsElTy resElTy lhsRep rhsRep fun lhsArg0 rhsArg0 (TransformContext is0 _) = do   tcm <- Lens.view tcCache-  changed (go tcm (inferCoreTypeOf tcm lhsArg))+  (is1, bindLhs, lhsArg1) <- shareVec lhsRep is0 lhsArg0+  (_, bindRhs, rhsArg1) <- shareVec rhsRep is1 rhsArg0+  changed (bindLhs (bindRhs (go tcm lhsArg1 rhsArg1 (inferCoreTypeOf tcm lhsArg0))))  where-  go tcm (coreView1 tcm -> Just ty) = go tcm ty-  go tcm (tyView -> TyConApp vecTcNm _)+  go tcm lhsArg rhsArg (coreView1 tcm -> Just ty) = go tcm lhsArg rhsArg ty+  go tcm lhsArg rhsArg (tyView -> TyConApp vecTcNm _)     | (Just vecTc) <- UniqMap.lookup vecTcNm tcm     , nameOcc vecTcNm == showt ''Vec     , [nilCon, consCon] <- tyConDataCons vecTc@@ -317,7 +362,7 @@                                              , Left bs ]         in           mkVecCons consCon resElTy n c cs-  go _ ty =+  go _ _ _ ty =     error $ $(curLoc) ++ [I.i|       reduceZipWith: argument does not have a vector type: @@ -332,17 +377,19 @@   -> Integer  -- ^ Length of the vector   -> Type -- ^ Argument type of the function   -> Type -- ^ Result type of the function+  -> Bool -- ^ Whether the map'd over vector is representable, see 'shareVec'   -> Term -- ^ The map'd function   -> Term -- ^ The map'd over vector   -> TransformContext   -> NormalizeSession Term-reduceMap mapPrimInfo n argElTy resElTy fun arg _ctx = do+reduceMap mapPrimInfo n argElTy resElTy argRep fun arg0 (TransformContext is0 _) = do     tcm <- Lens.view tcCache-    let ty = inferCoreTypeOf tcm arg-    changed (go tcm ty)+    let ty = inferCoreTypeOf tcm arg0+    (_, bindArg, arg1) <- shareVec argRep is0 arg0+    changed (bindArg (go tcm arg1 ty))   where-    go tcm (coreView1 tcm -> Just ty') = go tcm ty'-    go tcm (tyView -> TyConApp vecTcNm _)+    go tcm arg (coreView1 tcm -> Just ty') = go tcm arg ty'+    go tcm arg (tyView -> TyConApp vecTcNm _)       | (Just vecTc)     <- UniqMap.lookup vecTcNm tcm       , nameOcc vecTcNm == showt ''Vec       , [nilCon,consCon] <- tyConDataCons vecTc@@ -360,7 +407,7 @@                                            , Left as ]           in             mkVecCons consCon resElTy n b bs-    go _ ty =+    go _ _ ty =       error $ $(curLoc) ++ [I.i|         reduceMap: argument does not have a vector type: @@ -620,6 +667,8 @@   -- ^ Length of the vector   -> Type   -- ^ Element type of the argument vector+  -> Bool+  -- ^ Whether the argument vector is representable, see 'shareVec'   -> Term   -- ^ The function to fold with   -> Term@@ -628,14 +677,15 @@   -- ^ The argument vector   -> TransformContext   -> NormalizeSession Term-reduceFoldr _ 0 _ _ start _ _ = changed start-reduceFoldr foldrPrimInfo n aTy fun start arg _ctx = do+reduceFoldr _ 0 _ _ _ start _ _ = changed start+reduceFoldr foldrPrimInfo n aTy argRep fun start arg0 (TransformContext is0 _) = do     tcm <- Lens.view tcCache-    let ty = inferCoreTypeOf tcm arg-    changed (go tcm ty)+    let ty = inferCoreTypeOf tcm arg0+    (_, bindArg, arg1) <- shareVec argRep is0 arg0+    changed (bindArg (go tcm arg1 ty))   where-    go tcm (coreView1 tcm -> Just ty') = go tcm ty'-    go tcm (tyView -> TyConApp vecTcNm _)+    go tcm arg (coreView1 tcm -> Just ty') = go tcm arg ty'+    go tcm arg (tyView -> TyConApp vecTcNm _)       | nameOcc vecTcNm == showt ''Vec       , Just vecTc <- UniqMap.lookup vecTcNm tcm       , [_nilCon, consCon] <- tyConDataCons vecTc@@ -650,7 +700,7 @@         in           mkApps fun [Left a, Left b] -    go _ ty =+    go _ _ ty =       error $ $(curLoc) ++ [I.i|         reduceFoldr: argument does not have a vector type: @@ -862,16 +912,18 @@   :: PrimInfo -- ^ Primitive info for 'init'   -> Integer  -- ^ Length of the vector   -> Type -- ^ Element type of the vector+  -> Bool -- ^ Whether the argument vector is representable, see 'shareVec'   -> Term -- ^ The argument vector   -> TransformContext   -> NormalizeSession Term-reduceInit initPrimInfo n aTy vArg _ctx = do+reduceInit initPrimInfo n aTy vArgRep vArg0 (TransformContext is0 _) = do   tcm <- Lens.view tcCache-  let ty = inferCoreTypeOf tcm vArg-  changed (go tcm ty)+  let ty = inferCoreTypeOf tcm vArg0+  (_, bindArg, vArg1) <- shareVec vArgRep is0 vArg0+  changed (bindArg (go tcm vArg1 ty))  where-  go tcm (coreView1 tcm -> Just ty') = go tcm ty'-  go tcm (tyView -> TyConApp vecTcNm _)+  go tcm vArg (coreView1 tcm -> Just ty') = go tcm vArg ty'+  go tcm vArg (tyView -> TyConApp vecTcNm _)     | (Just vecTc) <- UniqMap.lookup vecTcNm tcm     , nameOcc vecTcNm == showt ''Vec     , [nilCon, consCon]  <- tyConDataCons vecTc@@ -885,7 +937,7 @@         in           mkVecCons consCon aTy n a as1 -  go _ ty =+  go _ _ ty =     error $ $(curLoc) ++ [I.i|       reduceInit: argument does not have a vector type: @@ -1110,7 +1162,7 @@     -> Term   eqIntPrim intTy boolTy =     Prim (PrimInfo-           "GHC.Classes.eqInt"+           (showt 'GHC.Classes.eqInt)            (mkFunTy intTy (mkFunTy intTy boolTy))            WorkVariable            SingleResult@@ -1219,7 +1271,7 @@     -> Term   eqIntPrim intTy boolTy =     Prim ( PrimInfo-            "GHC.Classes.eqInt"+            (showt 'GHC.Classes.eqInt)             (mkFunTy intTy (mkFunTy intTy boolTy))             WorkVariable             SingleResult

@@ -4,340 +4,29 @@   License    :  BSD2 (see the file LICENSE)   Maintainer :  QBayLogic B.V. <devops@qbaylogic.com> -  Transformation process for normalization+  Transformation process for normalization. The strategies themselves are+  described in "Clash.Normalize.Strategy.Spec". -} -{-# LANGUAGE CPP #-}--module Clash.Normalize.Strategy where--import Clash.Normalize.Transformations-import Clash.Normalize.Types-import Clash.Rewrite.Combinators-import Clash.Rewrite.Types-import Clash.Rewrite.Util+{-# LANGUAGE TemplateHaskell #-} --- [Note: bottomup traversal reduceConst]------ 2-May-2019: There is a bug in the evaluator where all data constructors are--- considered lazy, even though their declaration says they have strict fields.--- This causes some reductions to fail because the term under the constructor is--- not in WHNF, which is what some of the evaluation rules for certain primitive--- operations expect. Using a bottom-up traversal works around this bug by--- ensuring that the values under the constructor are in WHNF.------ Using a bottomup traversal ensures that constants are reduced to NF, even if--- constructors are lazy, thus ensuring more sensible/smaller generated HDL.+--{-# OPTIONS_GHC -ddump-splices #-} --- | Normalisation transformation-normalization :: NormRewrite-normalization =-  rmDeadcode >-> multPrim >-> constantPropagation >-> rmUnusedExpr >-!-> anf >-!-> rmDeadcode >->-  bindConst >-> letTL-  >-> evalConst-  >-!-> cse >-!-> cleanup >->-  elimCaseBigNum >->  -- see [Note] late elimCaseBigNum-  xOptim >-> rmDeadcode >->-  cleanup >-> bindSimIO >-> recLetRec >-> splitArgs-  where-    multPrim   = topdownR (apply "setupMultiResultPrim" setupMultiResultPrim)-    anf        = topdownR (apply "nonRepANF" nonRepANF) >-> apply "ANF" makeANF >-> topdownR (apply "caseCon" caseCon)-    letTL      = topdownSucR (apply "topLet" topLet)-    recLetRec  = apply "recToLetRec" recToLetRec-    rmUnusedExpr = bottomupR (apply "removeUnusedExpr" removeUnusedExpr)-    rmDeadcode = bottomupR (apply "deadcode" deadCode)-    bindConst  = topdownR (apply "bindConstantVar" bindConstantVar)-    -- See [Note] bottomup traversal reduceConst:-    evalConst  = bottomupR (apply "reduceConst" reduceConst)-    cse        = topdownR (apply "CSE" simpleCSE)-    elimCaseBigNum = topdownR (apply "elimCaseBigNum" elimCaseBigNumInternals)-    xOptim     = bottomupR (apply "xOptimize" xOptimize)-    cleanup    = topdownR (apply "etaExpandSyn" etaExpandSyn) >->-                 topdownSucR (apply "inlineCleanup" inlineCleanup) !->-                 innerMost (applyMany [("caseCon"        , caseCon)-                                      ,("bindConstantVar", bindConstantVar)-                                      ,("letFlat"        , flattenLet)])-                 >-> rmDeadcode >-> letTL-    splitArgs  = topdownR (apply "separateArguments" separateArguments) !->-                 bottomupR (apply "caseCon" caseCon)-    bindSimIO  = topdownR (apply "bindSimIO" inlineSimIO)+module Clash.Normalize.Strategy+  ( normalization+  , constantPropagation+  ) where +import Clash.Normalize.Strategy.Spec+import Clash.Normalize.Types (NormRewrite)+import Clash.Rewrite.StrategyDSL.TH (compileStrategy)  constantPropagation :: NormRewrite-constantPropagation =-  inlineAndPropagate >->-  caseFlattening >->-  etaTL >->-  dec >->-  spec >->-  dec >->-  conSpec-  where-    etaTL              = apply "etaTL" etaExpansionTL !-> topdownR (apply "applicationPropagation" appProp)-    -- The outer repeatR is still needed: inlineNR is a full traversal whose-    -- results can only be processed by re-running the top-down bundle from the-    -- new root.-    ---    -- NB: 'topdownFixR' is deliberately _not_ used here, see-    -- Note [topdownFixR is not for inlining bundles].-    inlineAndPropagate = repeatR (topdownR (applyMany transPropagateAndInline) >-> inlineNR)-    spec               = bottomupR (applyMany specTransformations)-    caseFlattening     = topdownFixR (apply "caseFlat" caseFlat)-    dec                = topdownFixR (apply "DEC" disjointExpressionConsolidation)-    conSpec            = bottomupR  ((apply "appPropCS" appProp !->-                                     bottomupR (apply "constantSpec" constantSpec)) >-!-                                     apply "constantSpec" constantSpec)--    transPropagateAndInline :: [(String,NormRewrite)]-    transPropagateAndInline =-      [ ("applicationPropagation", appProp              )-      , ("bindConstantVar"       , bindConstantVar      )-      , ("caseLet"               , caseLet              )-      , ("caseCase"              , caseCase             )-      , ("caseCon"               , caseCon              )-      , ("elimExistentials"      , elimExistentials     )-      , ("caseEliminateNonReachable"  , caseEliminateNonReachable )-      , ("removeUnusedExpr"      , removeUnusedExpr     )-      -- These transformations can safely be applied in a top-down traversal as-      -- they themselves check whether the to-be-inlined binder is recursive or not.-      , ("inlineWorkFree"  , inlineWorkFree)-      , ("inlineSmall"     , inlineSmall)-      , ("bindOrLiftNonRep", inlineOrLiftNonRep) -- See: [Note] bindNonRep before liftNonRep-                                                 -- See: [Note] bottom-up traversal for liftNonRep-      , ("reduceNonRepPrim", reduceNonRepPrim)---      , ("caseCast"        , caseCast)-      , ("letCast"         , letCast)-      , ("splitCastWork"   , splitCastWork)-      , ("argCastSpec"     , argCastSpec)-      , ("inlineCast"      , inlineCast)-      , ("elimCastCast"    , elimCastCast)-      ]--    -- InlineNonRep cannot be applied in a top-down traversal, as the non-representable-    -- binder might be recursive. The idea is, is that if the recursive-    -- non-representable binder is inlined once, we can get rid of the recursive-    -- aspect using the case-of-known-constructor-    ---    -- Note that we first do a dead code removal pass, which makes sure that-    -- unused let-bindings get cleaned up. Only if no dead code is removed-    -- 'inlineNonRep' is executed. We do this for two reasons:-    ---    --   1. 'deadCode' is an expensive operation and is therefore left out of-    --      the hot loop 'transPropagateAndInline'.-    ---    --   2. In various situations 'transPropagateAndInline' can do more work-    --      after 'deadCode' was successful. This work in turn might remove a-    --      a construct 'inlineNonRep' would fire on - saving the compiler work.-    ---    inlineNR :: NormRewrite-    inlineNR =-          bottomupR (apply "deadCode" deadCode)-      >-! apply "inlineNonRep" inlineNonRep--    specTransformations :: [(String,NormRewrite)]-    specTransformations =-      [ ("typeSpec"    , typeSpec)-      , ("nonRepSpec"  , nonRepSpec)-      , ("zeroWidthSpec", zeroWidthSpec)-        -- See Note [zeroWidthSpec enabling transformations]-      ]--{--[Note] late elimCaseBigNum--elimCaseBigNum is placed fairly late in the pipeline, after any constant folding and after caseCon.-Because Naturals also hide inside SNat/Nat/KnownNats, and those can be bigger then 64bits.-But they're ultimately monomorphic and thus static and will be evaluated.-We just have to make sure that evaluation happens before we do elimCaseBigNum.--For an example of where this can happen see foldableSNat in tests/shouldwork/Issues/T3157_IntegerNaturalInternals.hs--}--{--Note [zeroWidthSpec enabling transformations]-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~-When zeroWidthSpec fires, it can lead to better results in normalization, but-this is somewhat incidental. The extra transformations which fire are typically-from--  * calls to transformations like caseCon which occur after constantPropagation-    (e.g. caseCon run after ANF conversion).--  * flattening / inlining which happens late in normalization (after regular-    normalization has occurred)--  * normalizing another function due to being marked NOINLINE--If we consider the following:--    data AB = A | B--    ab :: KnownNat n => Index n -> AB -> AB-    ab n A = if n >  0 then A else B-    ab n B = if n == 0 then B else A-    {-# NOINLINE ab #-}--    topEntity = ab @1-    {-# NOINLINE topEntity #-}--The zeroWidthSpec transformation fires on the topEntity, giving a-post-normalization topEntity of--    \(x :: Index 1) ->-      \(y :: AB) ->-        letrec result :: AB = ab' y in result--where--    ab' = ab (fromInteger# 0)--The extra transformations which fire happen later when ab' is normalized.-Removing the NOINLINE from ab gives the same result, but the extra-transformations fire in flattening instead.--}--{- [Note] bottom-up traversal for liftNonRep-We used to say:--"The liftNonRep transformation must be applied in a topDown traversal because-of what Clash considers tail calls in its join-point analysis."--Consider:--> let fail = \x -> ...-> in  case ... of->       A -> let fail1 = \y -> case ... of->                                 X -> fail ...->                                 Y -> ...->            in case ... of->                 P -> fail1 ...->                 Q -> ...->       B -> fail ...--under "normal" tail call rules, the local 'fail' functions is not a join-point-because it is used in a let-binding. However, we apply "special" tail call rules-in Clash. Because 'fail' is used in a TC position within 'fail1', and 'fail1' is-only used in a TC position, in Clash, we consider 'tail' also only to be used-in a TC position.--Now image we apply 'liftNonRep' in a bottom up traversal, we will end up with:--> fail1 = \fail y -> case ... of->   X -> fail ...->   Y -> ...--> let fail = \x -> ...-> in  case ... of->       A -> case ... of->                 P -> fail1 fail ...->                 Q -> ...->       B -> fail ...--Suddenly, 'fail' ends up in an argument position, because it occurred as a-_locally_ bound variable within 'fail1'. And because of that 'fail' stops being-a join-point.--However, when we apply 'liftNonRep' in a top down traversal we end up with:--> fail = \x -> ...->-> fail1 = \y -> case ... of->   X -> fail ...->   Y -> ...->-> let ...-> in  case ... of->       A -> let->            in case ... of->                 P -> fail1 ...->                 Q -> ...->       B -> fail ...--and all is well with the world.--UPDATE:-We can now just perform liftNonRep in a bottom-up traversal again, because-liftNonRep no longer checks that if the binding that is lifted is a join-point.-However, for this to work, bindNonRep must always have been exhaustively applied-before liftNonRep. See also: [Note] bindNonRep before liftNonRep.--}--{- [Note] bindNonRep before liftNonRep-The combination of liftNonRep and nonRepSpec can lead to non-termination in an-unchecked rewrite system (without termination measures in place) on the-following:--> main = f not-> f    = \a x -> (a x) && (f a x)--nonRepSpec will lead to:--> main = f'-> f    = \a x -> (a x) && (f a x)-> f'   = (\a x -> (a x) && (f a x)) not--then lamApp leads to:--> main = f'-> f    = \a x -> (a x) && (f a x)-> f'   = let a = not in (\x -> (a x) && (f a x))--then liftNonRep leads to:--> main = f'-> f    = \a x -> (a x) && (f a x)-> f'   = \x -> (g x) && (f g x)-> g    = not--and nonRepSepc leads to:--> main = f'-> f    = \a x -> (a x) && (f a x)-> f'   = \x -> (g x) && (f'' g x)-> g    = not-> f''  = (\a x -> (a x) && (f a x)) g--This cycle continues indefinitely, as liftNonRep creates a new global variable,-which is never alpha-equivalent to the previous global variable introduced by-liftNonRep.--That is why bindNonRep must always be applied before liftNonRep. When we end up-in the situation after lamApp:--> main = f'-> f    = \a x -> (a x) && (f a x)-> f'   = let a = not in (\x -> (a x) && (f a x))--bindNonRep will now lead to:--> main = f'-> f    = \a x -> (a x) && (f a x)-> f'   = \x -> (not x) && (f not x)--Because `f` has already been specialized on the alpha-equivalent-to-itself `not`-function, liftNonRep leads to:--> main = f'-> f    = \a x -> (a x) && (f a x)-> f'   = \x -> (not x) && (f' x)--And there is no non-terminating rewriting cycle.--That is why bindNonRep must always be exhaustively applied before we apply-liftNonRep.--}---- | Topdown traversal, stops upon first success-topdownSucR :: Rewrite extra -> Rewrite extra-topdownSucR r = r >-! (allR (topdownSucR r))-{-# INLINE topdownSucR #-}+constantPropagation = $(compileStrategy constantPropagationSpec) -innerMost :: Rewrite extra -> Rewrite extra-innerMost = let go r = bottomupR (r !-> innerMost r) in go-{-# INLINE innerMost #-}+-- constantPropagation is defined first: the splice below quotes its name,+-- and a top-level splice can only see the declarations above it. -applyMany :: [(String,Rewrite extra)] -> Rewrite extra-applyMany = foldr1 (>->) . map (uncurry apply)-{-# INLINE applyMany #-}+-- | Normalisation transformation+normalization :: NormRewrite+normalization = $(compileStrategy (normalizationSpec 'constantPropagation))

@@ -1,6 +0,0 @@-module Clash.Normalize.Strategy (constantPropagation, normalization) where--import Clash.Normalize.Types (NormRewrite)--normalization :: NormRewrite-constantPropagation :: NormRewrite

@@ -0,0 +1,402 @@+{-|+  Copyright  :  (C) 2012-2016, University of Twente,+                (C) 2021-2026, QBayLogic B.V.+  License    :  BSD2 (see the file LICENSE)+  Maintainer :  QBayLogic B.V. <devops@qbaylogic.com>++  The normalization strategies, as pure "Clash.Rewrite.StrategyDSL" values.+  "Clash.Normalize.Strategy" compiles 'normalizationSpec' and+  'constantPropagationSpec' into the executable 'Clash.Normalize.Strategy.normalization'+  and 'Clash.Normalize.Strategy.constantPropagation'; "Clash.Normalize"+  compiles 'flattenSpec' into the flattening strategy of @flattenCallTree@.+-}++{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE NoFieldSelectors #-}+{-# LANGUAGE OverloadedRecordDot #-}+{-# LANGUAGE TemplateHaskellQuotes #-}++module Clash.Normalize.Strategy.Spec+  ( normalizationSpec+  , constantPropagationSpec+  , flattenSpec+  ) where++import Language.Haskell.TH.Syntax (Name)++import Clash.Normalize.Transformations+import Clash.Rewrite.StrategyDSL++-- [Note: bottomup traversal reduceConst]+--+-- 2-May-2019: There is a bug in the evaluator where all data constructors are+-- considered lazy, even though their declaration says they have strict fields.+-- This causes some reductions to fail because the term under the constructor is+-- not in WHNF, which is what some of the evaluation rules for certain primitive+-- operations expect. Using a bottom-up traversal works around this bug by+-- ensuring that the values under the constructor are in WHNF.+--+-- Using a bottomup traversal ensures that constants are reduced to NF, even if+-- constructors are lazy, thus ensuring more sensible/smaller generated HDL.++-- | Normalisation transformation. The argument is the name of the compiled+-- 'Clash.Normalize.Strategy.constantPropagation' binding.+normalizationSpec :: Name -> Strat+normalizationSpec constantPropagationName =+  rmDeadcode >-> multPrim >-> callStrategy constantPropagationName >->+  rmUnusedExpr >-!-> anf >-!-> rmDeadcode >->+  bindConst >-> letTL+  >-> evalConst+  >-!-> cse >-!-> cleanup >->+  elimCaseBigNum >->  -- see [Note] late elimCaseBigNum+  xOptim >-> rmDeadcode >->+  cleanup >-> bindSimIO >-> recLetRec >-> splitArgs+  where+    multPrim   = topdown setupMultiResultPrim+    anf        = topdown nonRepANF >-> pass "ANF" 'makeANF >-> topdown caseCon+    letTL      = topdownSuc topLet+    recLetRec  = pass "recToLetRec" 'recToLetRec+    rmUnusedExpr = bottomup removeUnusedExpr+    rmDeadcode = bottomup (named "deadcode" deadCode)+    bindConst  = topdown bindConstantVar+    -- See [Note] bottomup traversal reduceConst:+    evalConst  = bottomup reduceConst+    cse        = topdown simpleCSE+    elimCaseBigNum = topdown elimCaseBigNumInternals+    xOptim     = bottomup xOptimize+    cleanup    = topdown etaExpandSyn >->+                 topdownSuc inlineCleanup !->+                 innerMost (chain [ caseCon+                                  , bindConstantVar+                                  , named "letFlat" flattenLet+                                  ])+                 >-> rmDeadcode >-> letTL+    splitArgs  = topdown separateArguments !->+                 bottomup caseCon+    bindSimIO  = topdown inlineSimIO+++constantPropagationSpec :: Strat+constantPropagationSpec =+  inlineAndPropagate >->+  caseFlattening >->+  etaTL >->+  dec >->+  spec >->+  dec >->+  conSpec+  where+    etaTL              = pass "etaTL" 'etaExpansionTL !-> topdown appProp+    -- The outer repeatR is still needed: inlineNR is a full traversal whose+    -- results can only be processed by re-running the top-down chain from the+    -- new root.+    --+    -- NB: 'topdownFix' is deliberately _not_ used here, see+    -- Note [topdownFixR is not for inlining bundles].+    inlineAndPropagate = repeatR (topdown transPropagateAndInline >-> inlineNR)+    spec               = bottomup specTransformations+    caseFlattening     = topdownFix caseFlat+    dec                = topdownFix disjointExpressionConsolidation+    conSpec            = bottomup ((one (named "appPropCS" appProp) !->+                                    nested (bottomup constantSpec)) >-!+                                   one constantSpec)++    transPropagateAndInline :: Step+    transPropagateAndInline = chain+      [ appProp+      , bindConstantVar+      , caseLet+      , caseCase+      , caseCon+      , elimExistentials+      , caseEliminateNonReachable+      , removeUnusedExpr+      -- These transformations can safely be applied in a top-down traversal as+      -- they themselves check whether the to-be-inlined binder is recursive or not.+      , inlineWorkFree+      , inlineSmall+      , inlineOrLiftNonRep -- See: [Note] bindNonRep before liftNonRep+                           -- See: [Note] bottom-up traversal for liftNonRep+      , reducePrim++      , caseCast+      , letCast+      , splitCastWork+      , argCastSpec+      , inlineCast+      , elimCastCast+      ]++    -- InlineNonRep cannot be applied in a top-down traversal, as the non-representable+    -- binder might be recursive. The idea is, is that if the recursive+    -- non-representable binder is inlined once, we can get rid of the recursive+    -- aspect using the case-of-known-constructor+    --+    -- Note that we first do a dead code removal pass, which makes sure that+    -- unused let-bindings get cleaned up. Only if no dead code is removed+    -- 'inlineNonRep' is executed. We do this for two reasons:+    --+    --   1. 'deadCode' is an expensive operation and is therefore left out of+    --      the hot loop 'transPropagateAndInline'.+    --+    --   2. In various situations 'transPropagateAndInline' can do more work+    --      after 'deadCode' was successful. This work in turn might remove a+    --      a construct 'inlineNonRep' would fire on - saving the compiler work.+    --+    inlineNR :: Strat+    inlineNR =+          bottomup deadCode+      >-! pass "inlineNonRep" 'inlineNonRep++    specTransformations :: Step+    specTransformations = chain+      [ typeSpec+      , nonRepSpec+      , zeroWidthSpec+        -- See Note [zeroWidthSpec enabling transformations]+      ]++{-+Note [flatten pass structure]+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+Through experimentation we've learned the following:++1. The evaluator-backed rewrites ('reduceConst', 'reducePrim') must not+   sit inside the top-down propagation chain. 'topdownFix' settles that chain+   at each node until a fixpoint, so a chained 'reduceConst' is re-attempted -+   evaluator call and all - for every 'appProp' or 'caseCon' that fires there.+   On large designs we've measured that dominates; hoisting them out was worth+   ~30%. See #3338.++2. There should be exactly two traversals per round, and the bottom-up one has+   to come first.++   A traversal rebuilds every node it walks, so each extra traversal costs a+   full term rebuild per round even when nothing fires. Running 'flattenLet'+   and the evaluator-backed rewrites as one fused bottom-up pass instead of two+   consecutive ones is therefore free of charge (it does not change which+   rewrites fire, or in which order they fire relative to each other).++   Running that bottom-up pass _before_ the top-down one lets the constants it+   folds be consumed by 'caseCon' in the same round. With the passes the other+   way round the folded constants sit unused until the next round, so+   constant-heavy designs pay for an extra iteration of the whole loop:+   @tests/shouldwork/Basic/AES.hs@ did ~36k extra node visits per transformation+   that way.++If you touch code related to this, please make sure to run benchmarks.+-}++-- | The flattening strategy of 'Clash.Normalize.flattenCallTree'.+flattenSpec :: Strat+flattenSpec =+  -- See Note [flatten pass structure].+  repeatR (bottomup (one flattenLet >->+                     (one reduceConst !-> one deadCode) >->+                     chain [ reducePrim+                           , removeUnusedExpr+                           ]) >->+           topdownFix (chain [ named "appProp" appProp+                             , bindConstantVar+                             , caseCon+                             ])) !->+  bottomup deadCode >-> -- See #3407+  letTL >->+  -- See [Note] relation `collapseRHSNoops` and `inlineCleanup`+  -- Note that we do this as the very last step, after all constant propagation+  -- has been done to avoid #3036.+  topdownSuc collapseRHSNoops >->+  topdownSuc inlineCleanup >->+  bottomup caseCon >-> -- https://github.com/clash-lang/clash-compiler/issues/3159 / #3204+  bottomup flattenLet >-> -- https://github.com/clash-lang/clash-compiler/issues/3185+  bottomup bindConstantVar >-> -- https://github.com/clash-lang/clash-compiler/issues/3041+  letTL+  where+    letTL = topdownSuc topLet++{-+[Note] late elimCaseBigNum++elimCaseBigNum is placed fairly late in the pipeline, after any constant folding and after caseCon.+Because Naturals also hide inside SNat/Nat/KnownNats, and those can be bigger then 64bits.+But they're ultimately monomorphic and thus static and will be evaluated.+We just have to make sure that evaluation happens before we do elimCaseBigNum.++For an example of where this can happen see foldableSNat in tests/shouldwork/Issues/T3157_IntegerNaturalInternals.hs+-}++{-+Note [zeroWidthSpec enabling transformations]+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+When zeroWidthSpec fires, it can lead to better results in normalization, but+this is somewhat incidental. The extra transformations which fire are typically+from++  * calls to transformations like caseCon which occur after constantPropagation+    (e.g. caseCon run after ANF conversion).++  * flattening / inlining which happens late in normalization (after regular+    normalization has occurred)++  * normalizing another function due to being marked NOINLINE++If we consider the following:++    data AB = A | B++    ab :: KnownNat n => Index n -> AB -> AB+    ab n A = if n >  0 then A else B+    ab n B = if n == 0 then B else A+    {-# NOINLINE ab #-}++    topEntity = ab @1+    {-# NOINLINE topEntity #-}++The zeroWidthSpec transformation fires on the topEntity, giving a+post-normalization topEntity of++    \(x :: Index 1) ->+      \(y :: AB) ->+        letrec result :: AB = ab' y in result++where++    ab' = ab (fromInteger# 0)++The extra transformations which fire happen later when ab' is normalized.+Removing the NOINLINE from ab gives the same result, but the extra+transformations fire in flattening instead.+-}++{- [Note] bottom-up traversal for liftNonRep+We used to say:++"The liftNonRep transformation must be applied in a topDown traversal because+of what Clash considers tail calls in its join-point analysis."++Consider:++> let fail = \x -> ...+> in  case ... of+>       A -> let fail1 = \y -> case ... of+>                                 X -> fail ...+>                                 Y -> ...+>            in case ... of+>                 P -> fail1 ...+>                 Q -> ...+>       B -> fail ...++under "normal" tail call rules, the local 'fail' functions is not a join-point+because it is used in a let-binding. However, we apply "special" tail call rules+in Clash. Because 'fail' is used in a TC position within 'fail1', and 'fail1' is+only used in a TC position, in Clash, we consider 'tail' also only to be used+in a TC position.++Now image we apply 'liftNonRep' in a bottom up traversal, we will end up with:++> fail1 = \fail y -> case ... of+>   X -> fail ...+>   Y -> ...++> let fail = \x -> ...+> in  case ... of+>       A -> case ... of+>                 P -> fail1 fail ...+>                 Q -> ...+>       B -> fail ...++Suddenly, 'fail' ends up in an argument position, because it occurred as a+_locally_ bound variable within 'fail1'. And because of that 'fail' stops being+a join-point.++However, when we apply 'liftNonRep' in a top down traversal we end up with:++> fail = \x -> ...+>+> fail1 = \y -> case ... of+>   X -> fail ...+>   Y -> ...+>+> let ...+> in  case ... of+>       A -> let+>            in case ... of+>                 P -> fail1 ...+>                 Q -> ...+>       B -> fail ...++and all is well with the world.++UPDATE:+We can now just perform liftNonRep in a bottom-up traversal again, because+liftNonRep no longer checks that if the binding that is lifted is a join-point.+However, for this to work, bindNonRep must always have been exhaustively applied+before liftNonRep. See also: [Note] bindNonRep before liftNonRep.+-}++{- [Note] bindNonRep before liftNonRep+The combination of liftNonRep and nonRepSpec can lead to non-termination in an+unchecked rewrite system (without termination measures in place) on the+following:++> main = f not+> f    = \a x -> (a x) && (f a x)++nonRepSpec will lead to:++> main = f'+> f    = \a x -> (a x) && (f a x)+> f'   = (\a x -> (a x) && (f a x)) not++then lamApp leads to:++> main = f'+> f    = \a x -> (a x) && (f a x)+> f'   = let a = not in (\x -> (a x) && (f a x))++then liftNonRep leads to:++> main = f'+> f    = \a x -> (a x) && (f a x)+> f'   = \x -> (g x) && (f g x)+> g    = not++and nonRepSepc leads to:++> main = f'+> f    = \a x -> (a x) && (f a x)+> f'   = \x -> (g x) && (f'' g x)+> g    = not+> f''  = (\a x -> (a x) && (f a x)) g++This cycle continues indefinitely, as liftNonRep creates a new global variable,+which is never alpha-equivalent to the previous global variable introduced by+liftNonRep.++That is why bindNonRep must always be applied before liftNonRep. When we end up+in the situation after lamApp:++> main = f'+> f    = \a x -> (a x) && (f a x)+> f'   = let a = not in (\x -> (a x) && (f a x))++bindNonRep will now lead to:++> main = f'+> f    = \a x -> (a x) && (f a x)+> f'   = \x -> (not x) && (f not x)++Because `f` has already been specialized on the alpha-equivalent-to-itself `not`+function, liftNonRep leads to:++> main = f'+> f    = \a x -> (a x) && (f a x)+> f'   = \x -> (not x) && (f' x)++And there is no non-terminating rewriting cycle.++That is why bindNonRep must always be exhaustively applied before we apply+liftNonRep.+-}

@@ -2,19 +2,23 @@   Copyright  :  (C) 2012-2016, University of Twente,                     2016-2017, Myrtle Software Ltd,                     2017-2018, Google Inc.,-                    2021,      QBayLogic B.V.+                    2021,2026, QBayLogic B.V.   License    :  BSD2 (see the file LICENSE)   Maintainer :  QBayLogic B.V. <devops@qbaylogic.com>    Transformations for converting to A-Normal Form. -} +{-# LANGUAGE MagicHash #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE TemplateHaskellQuotes #-}+{-# LANGUAGE UnboxedTuples #-}  module Clash.Normalize.Transformations.ANF   ( makeANF   , nonRepANF+  , nonRepANFWorker   ) where  import Control.Arrow ((***))@@ -26,6 +30,7 @@ import Data.Bifunctor (second) import qualified Data.Monoid as Monoid (Any(..)) import qualified Data.Text.Extra as Text (showt)+import GHC.Exts (State#) import GHC.Stack (HasCallStack)  import Clash.Explicit.SimIO (SimIO)@@ -49,6 +54,7 @@ import Clash.Normalize.Transformations.Specialize (specialize) import Clash.Normalize.Types (NormRewrite, NormalizeSession) import Clash.Rewrite.Combinators (bottomupR)+import Clash.Rewrite.StrategyDSL (Transformation, onApp, toTransformation) import Clash.Rewrite.Types   (Transform, TransformContext(..), tcCache) import Clash.Rewrite.Util@@ -186,7 +192,7 @@   TyConApp tcNm args     | nameOcc tcNm == Text.showt ''SimIO     -> True-    | nameOcc tcNm == "GHC.Prim.(#,#)"+    | nameOcc tcNm == Text.showt ''(# , #)     , [_,_,st,_] <- args     -> isStateTokenTy tcm st   FunTy _ res -> isSimIOTy tcm res@@ -199,7 +205,7 @@   -- ^ Type to check for state tokenness   -> Bool isStateTokenTy tcm ty = case tyView (coreView tcm ty) of-  TyConApp tcNm _ -> nameOcc tcNm == "GHC.Prim.State#"+  TyConApp tcNm _ -> nameOcc tcNm == Text.showt ''State#   _ -> False  -- | Note [ANF InScopeSet]@@ -394,8 +400,14 @@  -- | Bring an application of a DataCon or Primitive in ANF, when the argument is -- is considered non-representable-nonRepANF :: HasCallStack => NormRewrite-nonRepANF ctx@(TransformContext is0 _) e@(App appConPrim arg)+nonRepANF :: Transformation+nonRepANF = toTransformation "nonRepANF" (onApp 'nonRepANFWorker)++-- | The 'App' handler of 'nonRepANF'.+nonRepANFWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Term -> NormalizeSession Term+nonRepANFWorker ctx@(TransformContext is0 _) e appConPrim arg   | (conPrim, _) <- collectArgs e   , isCon conPrim || isPrim conPrim   = do@@ -410,5 +422,5 @@       (True,TyLam {}) -> specialize ctx e       _               -> return e -nonRepANF _ e = return e-{-# SCC nonRepANF #-}+nonRepANFWorker _ e _ _ = return e+{-# SCC nonRepANFWorker #-}

@@ -15,22 +15,31 @@ {-# LANGUAGE MagicHash #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE TemplateHaskellQuotes #-}  module Clash.Normalize.Transformations.Case   ( caseCase+  , caseCaseWorker   , caseCon+  , caseConWorker   , caseEliminateNonReachable+  , caseEliminateNonReachableWorker   , caseFlat+  , caseFlatWorker   , caseLet+  , caseLetWorker   , caseOneAlt   , elimExistentials+  , elimExistentialsWorker   , elimCaseBigNumInternals+  , elimCaseBigNumInternalsWorker   ) where  import Control.Exception.Base (patError) import GHC.Prim.Panic (absentError) import qualified Control.Lens as Lens-+import qualified Control.Monad.Writer as Writer+import qualified Data.Monoid as Monoid import Data.Bifunctor (second) import Data.Coerce (coerce) import qualified Data.Either as Either@@ -39,6 +48,8 @@ import qualified Data.Maybe as Maybe import qualified Data.Primitive.ByteArray as BA import qualified Data.Text.Extra as Text (showt)+import qualified GHC.Classes+import GHC.Exts (Int(..)) import GHC.Stack (HasCallStack)  import GHC.Num.Integer (Integer(..))@@ -71,8 +82,8 @@ import Clash.Netlist.Types (FilteredHWType(..), HWType(..)) import Clash.Netlist.Util (coreTypeToHWType) import qualified Clash.Normalize.Primitives as NP (undefined, undefinedX)-import Clash.Normalize.Types (NormRewrite, NormalizeSession)-import Clash.Rewrite.Combinators ((>-!))+import Clash.Normalize.Types (NormalizeSession)+import Clash.Rewrite.StrategyDSL (Transformation, onCase, toTransformation) import Clash.Rewrite.Types   ( TransformContext(..), bindings, customReprs, debugOpts, tcCache   , typeTranslator, workFreeBinders)@@ -85,8 +96,14 @@  -- | Move a Case-decomposition from the subject of a Case-decomposition to the -- alternatives-caseCase :: HasCallStack => NormRewrite-caseCase (TransformContext is0 _) e@(Case (stripTicks -> Case scrut alts1Ty alts1) alts2Ty alts2) = do+caseCase :: Transformation+caseCase = toTransformation "caseCase" (onCase 'caseCaseWorker)++-- | The 'Case' handler of 'caseCase'.+caseCaseWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> [Alt] -> NormalizeSession Term+caseCaseWorker (TransformContext is0 _) e (stripTicks -> Case scrut alts1Ty alts1) alts2Ty alts2 = do   ty1Rep <- not <$> isUntranslatableType False alts1Ty    -- This is only worth doing if the inner case-expression has a@@ -116,8 +133,8 @@                       (fmap (deShadowAlt is0) alts1)      in changed $ Case scrut alts2Ty newAlts -caseCase _ e = return e-{-# SCC caseCase #-}+caseCaseWorker _ e _ _ _ = return e+{-# SCC caseCaseWorker #-}  {- NOTE: caseOneAlt before caseCon'@@ -140,9 +157,25 @@ By trying caseOneAlt first clash can instead drop the case and use the body of the single alternative. -}-caseCon :: HasCallStack => NormRewrite-caseCon = const caseOneAlt >-! caseCon'+caseCon :: Transformation+caseCon = toTransformation "caseCon" (onCase 'caseConWorker) +-- | The 'Case' handler of 'caseCon': tries 'caseOneAlt' first and only when+-- that did not fire, 'caseCon''. See NOTE: caseOneAlt before caseCon'.+caseConWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> [Alt] -> NormalizeSession Term+caseConWorker ctx node subj ty alts = do+  (node1, oneAltChanged) <- Writer.listen (caseOneAlt node)+  if Monoid.getAny oneAltChanged+    then return node1+    else caseCon' ctx node subj ty alts++-- | Apply 'caseCon' to a freshly constructed case-expression; used by the+-- recursive calls inside 'caseCon''.+caseConOn :: TransformContext -> Term -> Type -> [Alt] -> NormalizeSession Term+caseConOn ctx subj ty alts = caseConWorker ctx (Case subj ty alts) subj ty alts+ -- | Specialize a Case-decomposition (replace by the RHS of an alternative) if -- the subject is (an application of) a DataCon; or if there is only a single -- alternative that doesn't reference variables bound by the pattern.@@ -172,8 +205,10 @@ -- let a1 = f a b -- in  h a1 -- @-caseCon' :: HasCallStack => NormRewrite-caseCon' ctx@(TransformContext is0 _) e@(Case subj ty alts) = do+caseCon'+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> [Alt] -> NormalizeSession Term+caseCon' ctx@(TransformContext is0 _) e subj ty alts = do  tcm <- Lens.view tcCache  case collectArgsTicks subj of   -- The subject is an applied data constructor@@ -258,9 +293,9 @@     -- We try to reduce the applied primitive to WHNF     whnfRW True ctx subj $ \ctx1 subj1 -> case collectArgsTicks subj1 of       -- WHNF of subject is a literal, try `caseCon` with that-      (Literal l,_,_) -> caseCon ctx1 (Case (Literal l) ty alts)+      (Literal l,_,_) -> caseConOn ctx1 (Literal l) ty alts       -- WHNF of subject is a data-constructor, try `caseCon` with that-      (Data _,_,_) -> caseCon ctx1 (Case subj1 ty alts)+      (Data _,_,_) -> caseConOn ctx1 subj1 ty alts       -- WHNF of subject is _|_, in the form of `error`: that means that the       -- entire case-expression is evaluates to _|_       (Prim pInfo,repTy:_:callStack:msg:_,ticks)@@ -312,7 +347,7 @@             -- one of the Clash number types. Then the only valid alternative is             -- the one that can match on the literal "0", so try 'caseCon' with             -- that.-            -> caseCon ctx1 (Case (Literal (IntegerLiteral 0)) ty alts)+            -> caseConOn ctx1 (Literal (IntegerLiteral 0)) ty alts           _ -> do             opts <- Lens.view debugOpts             -- When invariants are being checked, report missing evaluation@@ -330,7 +365,7 @@     -- one of the Clash number types. Then the only valid alternative is     -- the one that can match on the literal "0", so try 'caseCon' with     -- that.-    caseCon ctx (Case (Literal (IntegerLiteral 0)) ty alts)+    caseConOn ctx (Literal (IntegerLiteral 0)) ty alts    where     isNum0 (tyView -> TyConApp (nameOcc -> tcNm) [arg])       | tcNm `elem`@@ -351,8 +386,6 @@   -- Otherwise check whether the entire case-expression has a single   -- alternative, and pick that one.   _ -> caseOneAlt e--caseCon' _ e = return e {-# SCC caseCon' #-}  {- [Note: Name re-creation]@@ -458,17 +491,23 @@ -- @f@ is always specialized on @STy Int@. The SBool alternatives are therefore -- unreachable. Additional information can be found at: -- https://github.com/clash-lang/clash-compiler/pull/465-caseEliminateNonReachable :: HasCallStack => NormRewrite-caseEliminateNonReachable _ case0@(Case scrut altsTy alts0) = do+caseEliminateNonReachable :: Transformation+caseEliminateNonReachable =+  toTransformation "caseEliminateNonReachable"+    (onCase 'caseEliminateNonReachableWorker)++-- | The 'Case' handler of 'caseEliminateNonReachable'.+caseEliminateNonReachableWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> [Alt] -> NormalizeSession Term+caseEliminateNonReachableWorker _ case0 scrut altsTy alts0 = do   tcm <- Lens.view tcCache    let (altsAbsurd, altsOther) = List.partition (isAbsurdPat tcm . fst) alts0   case altsAbsurd of     [] -> return case0     _  -> changed =<< caseOneAlt (Case scrut altsTy altsOther)--caseEliminateNonReachable _ e = return e-{-# SCC caseEliminateNonReachable #-}+{-# SCC caseEliminateNonReachableWorker #-}  -- | Flatten ridiculous case-statements generated by GHC --@@ -510,14 +549,20 @@ --        2 -> fromInteger 1 --        3 -> fromInteger 0 -- @-caseFlat :: HasCallStack => NormRewrite-caseFlat (TransformContext is0 _) e@(Case (collectEqArgs -> Just (scrut',val)) ty _) =+caseFlat :: Transformation+caseFlat = toTransformation "caseFlat" (onCase 'caseFlatWorker)++-- | The 'Case' handler of 'caseFlat'.+caseFlatWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> [Alt] -> NormalizeSession Term+caseFlatWorker (TransformContext is0 _) e (collectEqArgs -> Just (scrut',val)) ty _ =   case collectFlat scrut' e of     Just alts' -> case collectArgs val of       -- When we're pattern matching on `Int`, extract the `Int#` first before       -- we do the Literal matching branches.       (Data dc,_)-        | nameOcc (dcName dc) == "GHC.Types.I#"+        | nameOcc (dcName dc) == Text.showt 'I#         , [argTy] <- dcArgTys dc         -> do           wild <- mkInternalVar is0 "wild" argTy@@ -527,8 +572,8 @@       _ -> changed (Case scrut' ty (last alts' : init alts'))     Nothing -> return e -caseFlat _ e = return e-{-# SCC caseFlat #-}+caseFlatWorker _ e _ _ _ = return e+{-# SCC caseFlatWorker #-}  collectFlat :: Term -> Term -> Maybe [Alt] collectFlat scrut (Case (collectEqArgs -> Just (scrut', val)) _ty [lAlt,rAlt])@@ -536,7 +581,7 @@   = case collectArgs val of       (Prim p,args') | isFromInt (primName p) ->         go (last args')-      (Data dc,args') | nameOcc (dcName dc) == "GHC.Types.I#" ->+      (Data dc,args') | nameOcc (dcName dc) == Text.showt 'I# ->         go (last args')       _ -> Nothing   where@@ -557,11 +602,11 @@     go _ = Nothing      isFalseDcPat (DataPat p _ _)-      = ((== "GHC.Types.False") . nameOcc . dcName) p+      = ((== Text.showt 'False) . nameOcc . dcName) p     isFalseDcPat _ = False      isTrueDcPat (DataPat p _ _)-      = ((== "GHC.Types.True") . nameOcc . dcName) p+      = ((== Text.showt 'True) . nameOcc . dcName) p     isTrueDcPat _ = False  collectFlat _ _ = Nothing@@ -579,7 +624,7 @@     = case args of         [_,Left scrut,Left val] -> Just (mkTicks scrut ticks,val)         _ -> error (show nm <> " expects 3 arguments, but got: " <> showPpr f)-  | nm == "GHC.Classes.eqInt"+  | nm == Text.showt 'GHC.Classes.eqInt     = case args of         [Left scrut,Left val] -> Just (mkTicks scrut ticks,val)         _ -> error ("eqInt expects 2 arguments, but got: " <> showPpr f)@@ -589,8 +634,14 @@ collectEqArgs _ = Nothing  -- | Lift the let-bindings out of the subject of a Case-decomposition-caseLet :: HasCallStack => NormRewrite-caseLet (TransformContext is0 _) (Case (collectTicks -> (Let xes e,ticks)) ty alts) = do+caseLet :: Transformation+caseLet = toTransformation "caseLet" (onCase 'caseLetWorker)++-- | The 'Case' handler of 'caseLet'.+caseLetWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> [Alt] -> NormalizeSession Term+caseLetWorker (TransformContext is0 _) _node (collectTicks -> (Let xes e,ticks)) ty alts = do   -- Note [CaseLet deshadow]   -- Imagine   --@@ -622,8 +673,8 @@   changed (Let (fmap (`mkTicks` ticks) xes1)                   (Case (mkTicks e1 ticks) ty alts)) -caseLet _ e = return e-{-# SCC caseLet #-}+caseLetWorker _ e _ _ _ = return e+{-# SCC caseLetWorker #-}  caseOneAlt :: Term -> NormalizeSession Term caseOneAlt e@(Case _ _ [(pat,altE)]) =@@ -671,36 +722,41 @@ -- This function solves 'n1' and replaces every occurrence with its solution. A -- very limited number of solutions are currently recognized: only adds (such -- as in the example) will be solved.-elimExistentials :: HasCallStack => NormRewrite-elimExistentials (TransformContext is0 _) (Case scrut altsTy alts0) = do+elimExistentials :: Transformation+elimExistentials =+  toTransformation "elimExistentials" (onCase 'elimExistentialsWorker)++-- | The 'Case' handler of 'elimExistentials'.+elimExistentialsWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> [Alt] -> NormalizeSession Term+elimExistentialsWorker (TransformContext is0 _) _node scrut altsTy alts0 = do   tcm <- Lens.view tcCache   alts1 <- traverse (go is0 tcm) alts0   caseOneAlt (Case scrut altsTy alts1)  where-    -- Eliminate free type variables if possible-    go :: InScopeSet -> TyConMap -> Alt -> NormalizeSession Alt-    go is2 tcm alt@(pat@(DataPat dc exts0 xs0), term0) =-      case solveNonAbsurds tcm (mkVarSet exts0) (patEqs tcm pat) of-        -- No equations solved:-        [] -> return alt-        -- One or more equations solved:-        sols ->-          changed =<< go is2 tcm (DataPat dc exts1 xs1, term1)-          where-            -- Substitute solution in existentials and applied types-            is3 = extendInScopeSetList is2 exts0-            xs1 = fmap (substTyInVar (extendTvSubstList (mkSubst is3) sols)) xs0-            exts1 = substInExistentialsList is2 exts0 sols--            -- Substitute solution in term.-            is4 = extendInScopeSetList is3 xs1-            subst = extendTvSubstList (mkSubst is4) sols-            term1 = substTm "Replacing tyVar due to solved eq" subst term0+  -- Eliminate free type variables if possible+  go :: InScopeSet -> TyConMap -> Alt -> NormalizeSession Alt+  go is2 tcm alt@(pat@(DataPat dc exts0 xs0), term0) =+    case solveNonAbsurds tcm (mkVarSet exts0) (patEqs tcm pat) of+      -- No equations solved:+      [] -> return alt+      -- One or more equations solved:+      sols ->+        changed =<< go is2 tcm (DataPat dc exts1 xs1, term1)+        where+          -- Substitute solution in existentials and applied types+          is3 = extendInScopeSetList is2 exts0+          xs1 = fmap (substTyInVar (extendTvSubstList (mkSubst is3) sols)) xs0+          exts1 = substInExistentialsList is2 exts0 sols -    go _ _ alt = return alt+          -- Substitute solution in term.+          is4 = extendInScopeSetList is3 xs1+          subst = extendTvSubstList (mkSubst is4) sols+          term1 = substTm "Replacing tyVar due to solved eq" subst term0 -elimExistentials _ e = return e-{-# SCC elimExistentials #-}+  go _ _ alt = return alt+{-# SCC elimExistentialsWorker #-}  -- | This finds cases on Integers and Naturals and rewrites them -- to remove the alternatives with bignums/bytearrays in them.@@ -720,8 +776,15 @@ -- -- This is as "safe" as the rest of the Natural/Integer handling that clash does in HDL, -- because numbers bigger then Word/Int can't exist there anyway.-elimCaseBigNumInternals :: HasCallStack => NormRewrite-elimCaseBigNumInternals _ e@(Case scrut altsTy alts0@(_:_:_)) =+elimCaseBigNumInternals :: Transformation+elimCaseBigNumInternals =+  toTransformation "elimCaseBigNum" (onCase 'elimCaseBigNumInternalsWorker)++-- | The 'Case' handler of 'elimCaseBigNumInternals'.+elimCaseBigNumInternalsWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> [Alt] -> NormalizeSession Term+elimCaseBigNumInternalsWorker _ e scrut altsTy alts0@(_:_:_) =   go alts0  where   go [] = return e@@ -738,4 +801,4 @@    where     fvs = Lens.foldMapOf freeLocalIds unitVarSet altE -elimCaseBigNumInternals _ e = return e+elimCaseBigNumInternalsWorker _ e _ _ _ = return e

@@ -1,12 +1,18 @@ {-# LANGUAGE LambdaCase #-} {-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE TemplateHaskellQuotes #-}  module Clash.Normalize.Transformations.Cast   ( argCastSpec+  , argCastSpecWorker   , caseCast+  , caseCastWorker   , elimCastCast+  , elimCastCastWorker   , letCast+  , letCastWorker   , splitCastWork+  , splitCastWorkWorker   ) where  import Control.Exception (throw)@@ -17,14 +23,17 @@  import Clash.Core.Name (nameOcc) import Clash.Core.Pretty (showPpr)-import Clash.Core.Term (LetBinding, Term(..), collectArgs, stripTicks)+import Clash.Core.Term+  (Bind, LetBinding, Term(..), bindToList, collectArgs, stripTicks) import Clash.Core.TermInfo (isCast)-import Clash.Core.Type (normalizeType)+import Clash.Core.Type (Type, normalizeType) import Clash.Core.Var (isGlobalId, varName) import Clash.Core.VarEnv (InScopeSet) import Clash.Debug (trace) import Clash.Normalize.Transformations.Specialize (specialize)-import Clash.Normalize.Types (NormRewrite, NormalizeSession)+import Clash.Normalize.Types (NormalizeSession)+import Clash.Rewrite.StrategyDSL+  (Transformation, onApp, onCast, onLet, toTransformation) import Clash.Rewrite.Types   (TransformContext(..), bindings, curFun, tcCache, workFreeBinders) import Clash.Rewrite.Util (changed, mkDerivedName, mkTmBinderFor)@@ -48,46 +57,64 @@ -- The reason d'etre for this transformation is that we hope to end up with -- and expression where two casts are "back-to-back" after which we can -- eliminate them in 'elimCastCast'.-argCastSpec :: HasCallStack => NormRewrite-argCastSpec ctx e@(App f (stripTicks -> Cast e' _ _))- -- Don't specialise when the arguments are casts-of-casts, these casts-of-casts- -- will be eliminated by 'elimCastCast' during the normalization of the- -- "current" function. We thus prevent the unnecessary introduction of a- -- specialized version of 'f'.+argCastSpec :: Transformation+argCastSpec = toTransformation "argCastSpec" (onApp 'argCastSpecWorker)++-- | The 'App' handler of 'argCastSpec'.+argCastSpecWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Term -> NormalizeSession Term+argCastSpecWorker ctx node f (stripTicks -> Cast e' _ _)+ -- Don't specialise when the arguments are casts-of-casts, these+ -- casts-of-casts will be eliminated by 'elimCastCast' during the+ -- normalization of the "current" function. We thus prevent the unnecessary+ -- introduction of a specialized version of 'f'.  | not (isCast e')  -- We can only push casts into global binders  , (Var g, _) <- collectArgs f  , isGlobalId g = do   bndrs <- Lens.use bindings   isWorkFree workFreeBinders bndrs e' >>= \case-    True -> go-    False -> warn go+    True -> specializeNode+    False -> warn specializeNode  where-  go = specialize ctx e+  specializeNode = specialize ctx node   warn = trace (unwords     [ "WARNING:", $(curLoc), "specializing a function on a non work-free"     , "cast. Generated HDL implementation might contain duplicate work."     , "Please report this as a bug.", "\n\nExpression where this occured:"-    , "\n\n" ++ showPpr e+    , "\n\n" ++ showPpr node     ])-argCastSpec _ e = return e-{-# SCC argCastSpec #-}+argCastSpecWorker _ctx node _function _argument = return node+{-# SCC argCastSpecWorker #-}  -- | Push a cast over a case into it's alternatives.-caseCast :: HasCallStack => NormRewrite-caseCast _ (Cast (stripTicks -> Case subj ty alts) ty1 ty2) = do+caseCast :: Transformation+caseCast = toTransformation "caseCast" (onCast 'caseCastWorker)++-- | The 'Cast' handler of 'caseCast'.+caseCastWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> Type -> NormalizeSession Term+caseCastWorker _ctx _node (stripTicks -> Case subj ty alts) ty1 ty2 = do   let alts' = map (\(p,e) -> (p, Cast e ty1 ty2)) alts   changed (Case subj ty alts')-caseCast _ e = return e-{-# SCC caseCast #-}+caseCastWorker _ctx node _body _fromType _toType = return node+{-# SCC caseCastWorker #-}  -- | Eliminate two back to back casts where the type going in and coming out are the same -- -- @ --   (cast :: b -> a) $ (cast :: a -> b) x   ==> x -- @-elimCastCast :: HasCallStack => NormRewrite-elimCastCast _ c@(Cast (stripTicks -> Cast e tyA tyB) tyB' tyC) = do+elimCastCast :: Transformation+elimCastCast = toTransformation "elimCastCast" (onCast 'elimCastCastWorker)++-- | The 'Cast' handler of 'elimCastCast'.+elimCastCastWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> Type -> NormalizeSession Term+elimCastCastWorker _ctx node (stripTicks -> Cast e tyA tyB) tyB' tyC = do   tcm <- Lens.view tcCache   let ntyA  = normalizeType tcm tyA       ntyB  = normalizeType tcm tyB@@ -95,22 +122,28 @@       ntyC  = normalizeType tcm tyC   if ntyB == ntyB' && ntyA == ntyC then changed e                                    else throwError-  where throwError = do-          (nm,sp) <- Lens.use curFun-          throw (ClashException sp ($(curLoc) ++ showPpr nm-                  ++ ": Found 2 nested casts whose types don't line up:\n"-                  ++ showPpr c)-                Nothing)--elimCastCast _ e = return e-{-# SCC elimCastCast #-}+ where+  throwError = do+    (nm,sp) <- Lens.use curFun+    throw (ClashException sp ($(curLoc) ++ showPpr nm+            ++ ": Found 2 nested casts whose types don't line up:\n"+            ++ showPpr node)+          Nothing)+elimCastCastWorker _ctx node _body _fromType _toType = return node+{-# SCC elimCastCastWorker #-}  -- | Push a cast over a Let into it's body-letCast :: HasCallStack => NormRewrite-letCast _ (Cast (stripTicks -> Let binds body) ty1 ty2) =+letCast :: Transformation+letCast = toTransformation "letCast" (onCast 'letCastWorker)++-- | The 'Cast' handler of 'letCast'.+letCastWorker+  :: HasCallStack+  => TransformContext -> Term -> Term -> Type -> Type -> NormalizeSession Term+letCastWorker _ctx _node (stripTicks -> Let binds body) ty1 ty2 =   changed $ Let binds (Cast body ty1 ty2)-letCast _ e = return e-{-# SCC letCast #-}+letCastWorker _ctx node _body _fromType _toType = return node+{-# SCC letCastWorker #-}  -- | Make a cast work-free by splitting the work of to a separate binding --@@ -120,27 +153,32 @@ -- let x  = cast x' --     x' = f a b -- @-splitCastWork :: HasCallStack => NormRewrite-splitCastWork ctx@(TransformContext is0 _) unchanged@(Letrec vs e') = do-  (vss', Monoid.getAny -> hasChanged) <- listen (mapM (splitCastLetBinding is0) vs)-  let vs' = concat vss'-  if hasChanged then changed (Letrec vs' e')-                else return unchanged-  where-    splitCastLetBinding-      :: InScopeSet-      -> LetBinding-      -> NormalizeSession [LetBinding]-    splitCastLetBinding isN x@(nm, e) = case stripTicks e of-      Cast (Var {}) _ _  -> return [x]  -- already work-free-      Cast (Cast {}) _ _ -> return [x]  -- casts will be eliminated-      Cast e0 ty1 ty2 -> do-        tcm <- Lens.view tcCache-        nm' <- mkTmBinderFor isN tcm (mkDerivedName ctx (nameOcc $ varName nm)) e0-        changed [(nm',e0)-                ,(nm, Cast (Var nm') ty1 ty2)-                ]-      _ -> return [x]+splitCastWork :: Transformation+splitCastWork = toTransformation "splitCastWork" (onLet 'splitCastWorkWorker) -splitCastWork _ e = return e-{-# SCC splitCastWork #-}+-- | The 'Let' handler of 'splitCastWork'.+splitCastWorkWorker+  :: HasCallStack+  => TransformContext -> Term -> Bind Term -> Term -> NormalizeSession Term+splitCastWorkWorker ctx@(TransformContext is0 _) node bind body = do+  (vss', Monoid.getAny -> hasChanged) <-+    listen (mapM (splitCastLetBinding is0) (bindToList bind))+  let vs' = concat vss'+  if hasChanged then changed (Letrec vs' body)+                else return node+ where+  splitCastLetBinding+    :: InScopeSet+    -> LetBinding+    -> NormalizeSession [LetBinding]+  splitCastLetBinding isN x@(nm, e) = case stripTicks e of+    Cast (Var {}) _ _  -> return [x]  -- already work-free+    Cast (Cast {}) _ _ -> return [x]  -- casts will be eliminated+    Cast e0 ty1 ty2 -> do+      tcm <- Lens.view tcCache+      nm' <- mkTmBinderFor isN tcm (mkDerivedName ctx (nameOcc $ varName nm)) e0+      changed [(nm',e0)+              ,(nm, Cast (Var nm') ty1 ty2)+              ]+    _ -> return [x]+{-# SCC splitCastWorkWorker #-}