testsuite/tests/ghc-regress/cps/cps020.cmm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

// Test for proc points

foo () {
  bits32 x, y, z;
  if (x<3) {
    y = 1;
    foreign "C--" bar() "safe";
    z = 1;
  } else {
    y = 2;
    foreign "C--" baz() "safe";
    z = 2;
  }
  return (x, y, z);
}