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


1
2
3
4
5
6
7
8
9

// Test general stack check
// Note, the GC block shouldn't trigger the stack limit

foo6_gc_slow("ptr" bits32 f, bits32 x) goto GC {
  return (7);
GC:
  foreign "C--" stg_gc_gen() "safe";
  jump foo6_gc_slow(f, x);
}