Hojun-Cho
a95a7a316b
Every surviving carrier now owns its artifacts: checked mkdir/mkdtemp/ fopen acquisition, one all-exit cleanup funnel per carrier, ENOENT- tolerant checked unlinks, exact-path deletion (rm -rf only for an owned pid-keyed dir or a .sepwork beneath one), and cleanup failure fails a passing carrier without overwriting its diagnostic. In the same pass the carriers adapt to the driver contract this branch lands: --sep and WW_PKGCACHE are gone, -S and the /tmp/ww_run_<pid> scratch contract are asserted, and rows whose runtime or reject coverage moved to test/wcc/data fixtures or test/lang @test owners are trimmed to the byte/artifact/diagnostic observations only they can make. Repair and adaptation ride together because most files interleave both in the same hunks; splitting would manufacture intermediate carrier states that never existed and cannot run against either driver.
121 lines
3.4 KiB
C
121 lines
3.4 KiB
C
/*
|
|
* 944_alias_cgen_b5_run — SLIM CARRIER (#5-C3 alias fold-2). The 27 K_RUN value
|
|
* rows migrated to test/lang/alias_cgen_b5_test.ww (@test, cs==ww byte-id); the
|
|
* symmetric K_BUILDERR rejects (fill0_ctl, fill2_loud, g73_static_str) to
|
|
* test/wcc/data/alias_{fill0_ctl,fill2_loud,g73_static_str}/case.ww runww.
|
|
*
|
|
* What survives here is the one IRREDUCIBLE K_COMPILES row: both stages
|
|
* FRONTEND-compile (w6c / w6c_ww → .s, rc 0) but the asm diverges (the ww
|
|
* deref-field READ carries the #24 field(SB) leak) so run + byte-id cells are
|
|
* unavailable, and a full `ww build` can't link this self-contained `alloc()`
|
|
* case (no rt malloc) — runww //ww:compile links and so cannot host it. The
|
|
* pin is the ABSENCE of the pre-c2 cstage #73 fatal at the heap struct-lit
|
|
* str-arm fill; the ww-side leak rides task #24. Compile-smoke only.
|
|
*/
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <errno.h>
|
|
#include <unistd.h>
|
|
#include <sys/stat.h>
|
|
#include <sys/wait.h>
|
|
|
|
static int
|
|
runwait(const char *cmd)
|
|
{
|
|
int rc = system(cmd);
|
|
if (rc == -1) return -1;
|
|
if (WIFEXITED(rc)) return WEXITSTATUS(rc);
|
|
return -1;
|
|
}
|
|
|
|
/* both w6c and w6c_ww must FRONTEND-compile (rc 0); no run, no byte-id (#24). */
|
|
static int
|
|
run_row(const char *bin, const char *label, const char *src, int i)
|
|
{
|
|
char dir[128], srcf[192], ss[192], cmd[2048];
|
|
snprintf(dir, sizeof dir, "/tmp/ab5_%d_%d_XXXXXX", getpid(), i);
|
|
if (mkdtemp(dir) == NULL) {
|
|
fprintf(stderr, "row[%s]: temporary directory acquisition failed\n",
|
|
label);
|
|
return -1;
|
|
}
|
|
snprintf(srcf, sizeof srcf, "%s/c.ww", dir);
|
|
snprintf(ss, sizeof ss, "%s/o.s", dir);
|
|
|
|
FILE *f = fopen(srcf, "wb");
|
|
int ok = 1;
|
|
if (!f) {
|
|
fprintf(stderr, "row[%s]: source setup failed\n", label);
|
|
ok = 0;
|
|
goto cleanup;
|
|
}
|
|
fputs(src, f);
|
|
fclose(f);
|
|
|
|
snprintf(cmd, sizeof cmd, "%s/w6c -o %s %s 2>/dev/null", bin, ss, srcf);
|
|
if (runwait(cmd) != 0) {
|
|
fprintf(stderr, "row[%s]: cstage frontend compile failed\n", label);
|
|
ok = 0;
|
|
}
|
|
snprintf(cmd, sizeof cmd, "%s/w6c_ww -o %s %s 2>/dev/null", bin, ss, srcf);
|
|
if (runwait(cmd) != 0) {
|
|
fprintf(stderr, "row[%s]: wwstage frontend compile failed\n", label);
|
|
ok = 0;
|
|
}
|
|
|
|
cleanup:
|
|
{
|
|
int bad = 0;
|
|
if (unlink(ss) != 0 && errno != ENOENT) bad = 1;
|
|
if (unlink(srcf) != 0 && errno != ENOENT) bad = 1;
|
|
if (rmdir(dir) != 0) bad = 1;
|
|
if (bad) {
|
|
fprintf(stderr, "row[%s]: temporary cleanup failed\n", label);
|
|
ok = 0;
|
|
}
|
|
}
|
|
return ok ? 0 : 1;
|
|
}
|
|
|
|
struct row { const char *label; const char *src; };
|
|
|
|
static const struct row rows[] = {
|
|
{ "g73_heapfill",
|
|
"package main;\n"
|
|
"type s1t = str;\n"
|
|
"type s2t = s1t;\n"
|
|
"type box = struct { s: s2t, n: int };\n"
|
|
"export fn main() i32 = {\n"
|
|
" let p = alloc(box { s = \"hello\", n = 5 })!;\n"
|
|
" if (p.n != 5) { return 1; };\n"
|
|
" if (p.s.len != 5) { return 2; };\n"
|
|
" return 0;\n"
|
|
"};\n" },
|
|
};
|
|
|
|
int
|
|
main(void)
|
|
{
|
|
const char *bin = getenv("BIN");
|
|
if (!bin) bin = "out/bin";
|
|
char absbin[2080];
|
|
if (bin[0] != '/') {
|
|
char cwd[1024];
|
|
if (getcwd(cwd, sizeof cwd) == NULL) return 1;
|
|
snprintf(absbin, sizeof absbin, "%s/%s", cwd, bin);
|
|
bin = absbin;
|
|
}
|
|
|
|
int n = (int)(sizeof rows / sizeof rows[0]);
|
|
int fail = 0;
|
|
for (int i = 0; i < n; i++)
|
|
if (run_row(bin, rows[i].label, rows[i].src, i) != 0) fail++;
|
|
|
|
if (fail) {
|
|
fprintf(stderr, "alias_cgen_b5 (slim): %d/%d rows failed\n", fail, n);
|
|
return 1;
|
|
}
|
|
printf("alias_cgen_b5 (slim): %d/%d ok\n", n, n);
|
|
return 0;
|
|
}
|