summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/cps/cps014.cmm
blob: 3b8b651c439d7958e090790fc0a8fb4fb7994dd8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Test explicit continuations.

// Note, we might want to check about suffix on foo2 (i.e. "_entry").
// I'm not sure that that is right.

foo1 (bits32 update) jump foo2(update) {
  bits32 x;
  return (x);
}

INFO_TABLE_RET (foo2, 0, bits32 update) (bits32 x) {
  bits32[update] = x;
  return (x);
}