diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-06-30 14:38:52 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-06-30 14:38:52 +0200 |
| commit | 4ada25636995115f2b26707870f611a138f4e20b (patch) | |
| tree | 07ade269d5b98ae8284d2064bb3a8ea928e3e405 /packages/base/src/Internal/ST.hs | |
| parent | 4730254f061832591d4a44c86d3bdfa4620f4322 (diff) | |
subMatrix changed to non copying slice
Diffstat (limited to 'packages/base/src/Internal/ST.hs')
| -rw-r--r-- | packages/base/src/Internal/ST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/base/src/Internal/ST.hs b/packages/base/src/Internal/ST.hs index 62dfddf..544c9e4 100644 --- a/packages/base/src/Internal/ST.hs +++ b/packages/base/src/Internal/ST.hs | |||
| @@ -231,7 +231,7 @@ extractMatrix (STMatrix m) rr rc = unsafeIOToST (extractR (orderOf m) m 0 (idxs[ | |||
| 231 | -- | r0 c0 height width | 231 | -- | r0 c0 height width |
| 232 | data Slice s t = Slice (STMatrix s t) Int Int Int Int | 232 | data Slice s t = Slice (STMatrix s t) Int Int Int Int |
| 233 | 233 | ||
| 234 | slice (Slice (STMatrix m) r0 c0 nr nc) = sliceMatrix (r0,c0) (nr,nc) m | 234 | slice (Slice (STMatrix m) r0 c0 nr nc) = subMatrix (r0,c0) (nr,nc) m |
| 235 | 235 | ||
| 236 | gemmm :: Element t => t -> Slice s t -> t -> Slice s t -> Slice s t -> ST s () | 236 | gemmm :: Element t => t -> Slice s t -> t -> Slice s t -> Slice s t -> ST s () |
| 237 | gemmm beta (slice->r) alpha (slice->a) (slice->b) = res | 237 | gemmm beta (slice->r) alpha (slice->a) (slice->b) = res |