summaryrefslogtreecommitdiff
path: root/testsuite/tests/cps/cps010.cmm
blob: 0b0ec9ebc4bff76f93d1aaaa3d69a985ad7c011a (plain)
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);
}