1 --!!! move arguments around on the stacks, mainly the B stack
3 import PrelBase ( Float#, Double#, Int#, Int(..) )
20 f :: Double# -> Float# -> Bool -> Double# -> Float#
21 -> Double# -> Double# -> Int# -> Float# -> Float#
23 f b1 s2 t b3 s4 b5 b6 i42 s7 s8
25 = g s2 b3 b5 i42 s8 b1 t s4 b6 s7
27 g :: Float# -> Double# -> Double# -> Int# -> Float#
28 -> Double# -> Bool -> Float# -> Double# -> Float#
30 g s2 b3 b5 i42 s8 b1 t s4 b6 s7
31 -- powers of 2 backwards, then others forwards
32 = h s7 b6 t b5 s2 b3 i42 s8 b1 s4
34 h :: Float# -> Double# -> Bool -> Double# -> Float#
35 -> Double# -> Int# -> Float# -> Double# -> Float#
37 h s7 b6 t b5 s2 b3 i42 s8 b1 s4