Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
This module implements an optimisation that moves in-place updates into/before loops where possible, with the end goal of minimising memory copies. As an example, consider this program:
let r = loop (r1 = r0) = for i < n do let a = r1[i] let r1[i] = a * i in r1 ... let x = y with [k] <- r in ...
We want to turn this into the following:
let x0 = y with [k] <- r0 loop (x = x0) = for i < n do let a = a[k,i] let x[k,i] = a * i in x let r = x[k] in ...
The intent is that we are also going to optimise the new data
movement (in the x0
-binding), possibly by changing how r0
is
defined. For the above transformation to be valid, a number of
conditions must be fulfilled:
r
must not be consumed after the original in-place update.k
andy
must be available at the beginning of the loop.x
must be visible wheneverr
is visible. (This means that bothx
andr
must be bound in the sameBody
.)- If
x
is consumed at a point after the loop,r
must not be used after that point. - The size of
r1
is invariant inside the loop. - The value
r
must come from something that we can actually optimise (e.g. not a function parameter). y
(or its aliases) may not be used inside the body of the loop.- The result of the loop may not alias the merge parameter
r1
. y
or its aliases may not be used after the loop.
FIXME: the implementation is not finished yet. Specifically, not all of the above conditions are checked.