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


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

// Test basic function parameters and return values

foo2 (bits16 a, bits16 b, "ptr" bits16 c) {
  bits32 x, y;
  x = R1;
  (y) = foreign "C--" bar(x) "safe";
  goto L;
 L:
  foreign "C--" baz(x) "safe";
  //jump 12;
  goto M;
 M:
  return (12);
  //goto L;
  //goto L;
}