blob: dba506f9d39f2d1666a4e3f315b40d17794a3eac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
// Basic function with a heap check
// The GC block should only be one instruction
// (or rather it should be after assignment optimizations)
foo1 {
bits32 r;
B:
(r) = foreign "C--" bar() "safe";
L:
if (Hp > HpLim) {
(r) = foreign "C--" stg_gc_ret_p(r) "safe";
goto L;
}
return (r);
}
|
