Hojun-Cho
1657bdeda3
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.
60 lines
1.4 KiB
C
60 lines
1.4 KiB
C
/*
|
|
* 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;
|
|
}
|