Make the Ord Module independent of Unique order
[ghc.git] / testsuite / tests / cps / cps017.cmm
1 // Test whether extra proc-points are generated
2 // by a label after a call such as with a heap check,
3 // but where the return signature is different.
4 // The extra proc-point should be generated in this case.
5
6 foo1 () {
7   bits32 p, q;
8   bits32 x, y, z;
9   (p, q) = foreign "C--" bar(1, 2) "safe";
10 L:
11   if (Hp < HpLim) {
12     (p) = foreign "C--" do_gc() "safe";
13     goto L;
14   }
15   return (p+q+x+y+z);
16 }