Make the Ord Module independent of Unique order
[ghc.git] / testsuite / tests / cps / cps028.cmm
1 // Test classic dead-code elimination
2
3 sum (bits32 a, bits32 n) {
4   bits32 i, p, lim, sum; 
5   sum = 0;
6   i = 0;
7   p = a;
8   lim = a + 4 * n;
9  L:
10   if (p < lim) {
11     sum = sum + bits32[p];
12     i = i + 1;
13     p = p + 4;
14     goto L;
15   }
16   return (sum);
17 }