ww: import toolchain — C bootstrap + ww-side self-host (phases 0-10)
C bootstrap (phases 0-9):
cmd/wwc, cmd/6c, cmd/6a, cmd/6l, cmd/ww, rt, lib/*.
ww-side self-host (phase 10):
selfhost/cmd/wwc — ww-cgen frontend; bootstrap fixed point.
selfhost/cmd/6a — assembler; byte-identical to C 6a (test 991).
selfhost/cmd/6l — linker w/ archive (.a) support; byte-identical
to C 6l (test 992).
selfhost/cmd/ww — driver (build/run/version); byte-identical to
C ww (test 993).
make test: 15/15. make bootstrap: ww2.s == ww3.s, ww2.o == ww3.o,
ww2 == ww3 byte-identical, with the full ww-tooled chain.
This commit is contained in:
59
cmd/6a/main.c
Normal file
59
cmd/6a/main.c
Normal file
@@ -0,0 +1,59 @@
|
||||
/*
|
||||
* 6a — amd64 assembler driver. Read .s, parse, encode, emit ELF .o.
|
||||
*/
|
||||
#include "a.h"
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
|
||||
static int
|
||||
slurp(const char *path, char **buf, u64 *len)
|
||||
{
|
||||
FILE *f = fopen(path, "rb");
|
||||
if (f == NULL) return -1;
|
||||
fseek(f, 0, SEEK_END);
|
||||
long n = ftell(f);
|
||||
fseek(f, 0, SEEK_SET);
|
||||
if (n < 0) { fclose(f); return -1; }
|
||||
char *b = malloc((size_t)n + 1);
|
||||
if (fread(b, 1, (size_t)n, f) != (size_t)n) { free(b); fclose(f); return -1; }
|
||||
b[n] = 0;
|
||||
fclose(f);
|
||||
*buf = b;
|
||||
*len = (u64)n;
|
||||
return 0;
|
||||
}
|
||||
|
||||
int
|
||||
main(int argc, char **argv)
|
||||
{
|
||||
const char *src = NULL;
|
||||
const char *out = NULL;
|
||||
for (int i = 1; i < argc; i++) {
|
||||
if (strcmp(argv[i], "-o") == 0 && i + 1 < argc) out = argv[++i];
|
||||
else if (argv[i][0] == '-') {
|
||||
fprintf(stderr, "6a: unknown flag %s\n", argv[i]); return 2;
|
||||
} else if (src == NULL) src = argv[i];
|
||||
else { fprintf(stderr, "6a: only one input\n"); return 2; }
|
||||
}
|
||||
if (src == NULL || out == NULL) {
|
||||
fputs("usage: 6a -o file.o file.s\n", stderr);
|
||||
return 2;
|
||||
}
|
||||
char *buf;
|
||||
u64 len;
|
||||
if (slurp(src, &buf, &len) < 0) {
|
||||
fprintf(stderr, "6a: cannot read %s\n", src);
|
||||
return 1;
|
||||
}
|
||||
Asm a;
|
||||
a_init(&a, src, buf, len);
|
||||
if (a_parse(&a) != 0) return 1;
|
||||
if (a_encode(&a) != 0) return 1;
|
||||
FILE *f = fopen(out, "wb");
|
||||
if (f == NULL) { fprintf(stderr, "6a: cannot open %s\n", out); return 1; }
|
||||
int rc = a_emit_elf(&a, f);
|
||||
fclose(f);
|
||||
free(buf);
|
||||
return rc;
|
||||
}
|
||||
Reference in New Issue
Block a user