Hojun-Cho
d456263f7e
The r-prefixed waves absorb the runtime, reject, and byte-compare rows of the migrated native carriers; each fixture is one directory with one case.ww and a //ww:error, //ww:compile, //ww:run, or //ww:run-exit directive covering both frontends.
16 lines
315 B
Plaintext
16 lines
315 B
Plaintext
//ww:run
|
|
// Runtime half of 930_free_noop_run.c free_loop_no_stack_damage.
|
|
package main;
|
|
let g: i32 = 0;
|
|
fn bump(p: *i32) *i32 = { g = g + 1; return p; };
|
|
export fn main() i32 = {
|
|
let x: i32 = 1;
|
|
let i: i32 = 0;
|
|
for (i < 1000000) {
|
|
free(bump(&x));
|
|
i += 1;
|
|
};
|
|
if (g != 1000000) { return 5; };
|
|
return 0;
|
|
};
|