diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-01-16 19:14:20 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-01-16 19:14:20 +0100 |
| commit | 96795853db5a3ee85d7c838a508b4153988e6042 (patch) | |
| tree | 4a68cb28a90372dac463f873f7744760f7ef5151 /ops/Data/Array/Strided/Arith/Internal.hs | |
| parent | 411d563023c65270aca746f12c4d597b49122b45 (diff) | |
C: Fix REDUCEFULL
Only the last inner vector was kept...
Diffstat (limited to 'ops/Data/Array/Strided/Arith/Internal.hs')
| -rw-r--r-- | ops/Data/Array/Strided/Arith/Internal.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ops/Data/Array/Strided/Arith/Internal.hs b/ops/Data/Array/Strided/Arith/Internal.hs index d94fc65..7578dd8 100644 --- a/ops/Data/Array/Strided/Arith/Internal.hs +++ b/ops/Data/Array/Strided/Arith/Internal.hs @@ -396,6 +396,7 @@ vectorRedInnerOp sn@SNat valconv ptrconv fscale fred array@(Array sh strides off Nothing -> error "impossible" -- TODO: test handling of negative strides +-- TODO: simplify away normalised dimensions -- | Reduce full array {-# NOINLINE vectorRedFullOp #-} vectorRedFullOp :: forall a b n. (Num a, Storable a) |