Fold integer-gmp.git into ghc.git (re #8545)
[ghc.git] / testsuite / tests / cps / cps016.cmm
1 // Test whether extra proc-points are generated
2 // by a label after a call such as with a heap check.
3
4 foo1 () {
5   bits32 p, q;
6   bits32 x, y, z;
7   (p, q) = foreign "C--" bar(1, 2) "safe";
8 L:
9   if (Hp < HpLim) {
10     (p, q) = foreign "C--" do_gc() "safe";
11     goto L;
12   }
13   return (p+q+x+y+z);
14 }