ww: rename toolchain to w-prefix + hare-style build/run/test driver
Plan 9-style w-prefix on the per-arch tools, disambiguating from the
real Plan 9 6c/6a/6l in ref/plan9front/:
cmd/wwc/ → cmd/wcc/ libwwc.a → libwcc.a
cmd/6{c,a,l} → cmd/w6{c,a,l} binary names too
test/wwc/ → test/wcc/ 6 test files w/ w6 prefix
selfhost/cmd mirror in lockstep
bootstrap/amd64/{w6c,w6a,w6l} snapshot binaries (gitignored)
WW_6{C,A,L} → WW_W6{C,A,L} env-var overrides
Plan 9 source-tree refs ("Plan 9 6c shape", ref/plan9front/, etc.)
preserved. Hare-style driver, both C and ww sides:
ww test [path] discover *_test.ww in a directory module, run
each; single-file mode for `ww test foo.ww`
Module-by-name `ww build foo` resolves to foo.ww or foo/foo.ww
via search path (cwd : -I dirs : $WW_LIB)
Default-to-cwd `ww build` / `ww test` build the cwd module
Run pass-through `ww run path arg1 arg2` reaches the program
lib/os: getcwd (79) and getdents64 (217) syscalls power `.` resolution
and directory enumeration on the ww side.
Makefile: wwstage tool deps now include lib/os/os.ww (+ lib/strconv
for wwdump_ww) so lib/* edits force their rebuild instead of leaving
stale binaries — surfaced when test 995 first failed against a stale
w6c_ww built before the lib/os additions.
Test 993 byte-identical parity gate (C-side ww vs ww-side ww_ww on a
build corpus) stays green; all 19 tests pass.
This commit is contained in:
2
.gitignore
vendored
2
.gitignore
vendored
@@ -26,5 +26,5 @@ examples/snake/snake
|
|||||||
# committing them is the v1.0 lock per PLAN.md (the new trust
|
# committing them is the v1.0 lock per PLAN.md (the new trust
|
||||||
# surface). `make bootstrap-snapshot` populates the dir from the
|
# surface). `make bootstrap-snapshot` populates the dir from the
|
||||||
# current wwstage; `make nocc` verifies they self-reproduce.
|
# current wwstage; `make nocc` verifies they self-reproduce.
|
||||||
# To ship, `git add -f bootstrap/amd64/{ww,6c,6a,6l}` explicitly.
|
# To ship, `git add -f bootstrap/amd64/{ww,w6c,w6a,w6l}` explicitly.
|
||||||
bootstrap/*/*
|
bootstrap/*/*
|
||||||
|
|||||||
28
BOOTSTRAP.md
28
BOOTSTRAP.md
@@ -8,11 +8,11 @@ under `selfhost/cmd/` and reach a byte-identical fixed point under
|
|||||||
come from somewhere. Today, that "somewhere" is a small C bootstrap
|
come from somewhere. Today, that "somewhere" is a small C bootstrap
|
||||||
toolchain — the **Cstage**:
|
toolchain — the **Cstage**:
|
||||||
|
|
||||||
cmd/wwc/ frontend library (lex, parse, check) → libwwc.a
|
cmd/wcc/ frontend library (lex, parse, check) → libwcc.a
|
||||||
cmd/6c/ amd64 compiler .ww → .s
|
cmd/w6c/ amd64 compiler .ww → .s
|
||||||
cmd/6a/ amd64 assembler .s → .o
|
cmd/w6a/ amd64 assembler .s → .o
|
||||||
cmd/6l/ amd64 linker .o → static ELF
|
cmd/w6l/ amd64 linker .o → static ELF
|
||||||
cmd/ww/ user-facing driver (orchestrates 6c → 6a → 6l)
|
cmd/ww/ user-facing driver (orchestrates w6c → w6a → w6l)
|
||||||
|
|
||||||
Cstage is built with `cc`. Once it exists, it compiles the
|
Cstage is built with `cc`. Once it exists, it compiles the
|
||||||
ww-rewritten tools (the **wwstage**) under `selfhost/cmd/`, which then
|
ww-rewritten tools (the **wwstage**) under `selfhost/cmd/`, which then
|
||||||
@@ -37,7 +37,7 @@ involved.
|
|||||||
## Make targets
|
## Make targets
|
||||||
|
|
||||||
make builds cstage + wwstage + libs
|
make builds cstage + wwstage + libs
|
||||||
make cstage Cstage only (cc → ww, 6c, 6a, 6l, wwdump, libs)
|
make cstage Cstage only (cc → ww, w6c, w6a, w6l, wwdump, libs)
|
||||||
make wwstage wwstage only (assumes cstage)
|
make wwstage wwstage only (assumes cstage)
|
||||||
make bootstrap three-stage build; gates on cmp ww2 == ww3
|
make bootstrap three-stage build; gates on cmp ww2 == ww3
|
||||||
make test runs all tests, including 990–995 (ww-side
|
make test runs all tests, including 990–995 (ww-side
|
||||||
@@ -57,12 +57,12 @@ Without cc:
|
|||||||
## Status
|
## Status
|
||||||
|
|
||||||
Phase 10 of `PLAN.md` is at its first exit criterion: the bootstrap is
|
Phase 10 of `PLAN.md` is at its first exit criterion: the bootstrap is
|
||||||
green and `selfhost/cmd/{wwc,6c,6a,6l,ww}` are byte-identical to their
|
green and `selfhost/cmd/{wcc,w6c,w6a,w6l,ww}` are byte-identical to their
|
||||||
Cstage counterparts. Test 995 pins the stronger property — the
|
Cstage counterparts. Test 995 pins the stronger property — the
|
||||||
wwstage rebuilds every one of its own tools through `ww_ww + 6c_ww +
|
wwstage rebuilds every one of its own tools through `ww_ww + w6c_ww +
|
||||||
6a_ww + 6l_ww`, byte-for-byte. Test 996 pins the equivalent for the
|
w6a_ww + w6l_ww`, byte-for-byte. Test 996 pins the equivalent for the
|
||||||
dynamic linker: `6l_ww` with `-L`/`-l` produces a byte-identical
|
dynamic linker: `w6l_ww` with `-L`/`-l` produces a byte-identical
|
||||||
PT_INTERP+PT_DYNAMIC binary to C-side `6l` on snake.
|
PT_INTERP+PT_DYNAMIC binary to C-side `w6l` on snake.
|
||||||
|
|
||||||
`make nocc` is wired and verifies stage-0 self-reproduction locally;
|
`make nocc` is wired and verifies stage-0 self-reproduction locally;
|
||||||
the stage-0 binaries under `bootstrap/$(ARCH)/` are gitignored until
|
the stage-0 binaries under `bootstrap/$(ARCH)/` are gitignored until
|
||||||
@@ -79,12 +79,12 @@ The pieces are already wired; only the binary commit is held back.
|
|||||||
When the compiler stabilises:
|
When the compiler stabilises:
|
||||||
|
|
||||||
1. On each supported arch, run `make wwstage && make bootstrap-snapshot`
|
1. On each supported arch, run `make wwstage && make bootstrap-snapshot`
|
||||||
to populate `bootstrap/<arch>/{ww,6c,6a,6l}` from the current
|
to populate `bootstrap/<arch>/{ww,w6c,w6a,w6l}` from the current
|
||||||
wwstage. Verify with `make nocc`.
|
wwstage. Verify with `make nocc`.
|
||||||
2. `git add -f bootstrap/<arch>/{ww,6c,6a,6l}` — explicit because
|
2. `git add -f bootstrap/<arch>/{ww,w6c,w6a,w6l}` — explicit because
|
||||||
the dir is gitignored. The binary SHAs become the new trust
|
the dir is gitignored. The binary SHAs become the new trust
|
||||||
surface.
|
surface.
|
||||||
3. Delete `cmd/wwc/`, `cmd/6c/`, `cmd/6a/`, `cmd/6l/`, `cmd/ww/`.
|
3. Delete `cmd/wcc/`, `cmd/w6c/`, `cmd/w6a/`, `cmd/w6l/`, `cmd/ww/`.
|
||||||
Drop `CC`/`AR` C-tool dependencies from the top-level Makefile.
|
Drop `CC`/`AR` C-tool dependencies from the top-level Makefile.
|
||||||
4. Move `selfhost/cmd/*` to `cmd/*` and `make nocc` becomes the
|
4. Move `selfhost/cmd/*` to `cmd/*` and `make nocc` becomes the
|
||||||
default `make`.
|
default `make`.
|
||||||
|
|||||||
44
CLAUDE.md
44
CLAUDE.md
@@ -13,17 +13,17 @@ This file is the contract for the work. Read PLAN.md for the schedule.
|
|||||||
- Toolchain: Plan 9-organized. One library + one binary per role
|
- Toolchain: Plan 9-organized. One library + one binary per role
|
||||||
per target architecture. Plan 9 uses a single digit per arch
|
per target architecture. Plan 9 uses a single digit per arch
|
||||||
(8=386, 6=amd64, 5=arm, 7=arm64, 9=power); we adopt that.
|
(8=386, 6=amd64, 5=arm, 7=arm64, 9=power); we adopt that.
|
||||||
- `cmd/wwc/` — frontend library (lex, parse, check). Builds
|
- `cmd/wcc/` — frontend library (lex, parse, check). Builds
|
||||||
`libwwc.a`. Not a binary.
|
`libwcc.a`. Not a binary.
|
||||||
- `cmd/6c/` — amd64 compiler. Reads `.ww`, writes `.s`
|
- `cmd/w6c/` — amd64 compiler. Reads `.ww`, writes `.s`
|
||||||
(Plan 9 amd64 asm).
|
(Plan 9 amd64 asm).
|
||||||
- `cmd/6a/` — amd64 assembler. Reads `.s`, writes `.o`
|
- `cmd/w6a/` — amd64 assembler. Reads `.s`, writes `.o`
|
||||||
(ELF, for C interop).
|
(ELF, for C interop).
|
||||||
- `cmd/6l/` — amd64 linker. Reads `.o` and `.a`, writes a
|
- `cmd/w6l/` — amd64 linker. Reads `.o` and `.a`, writes a
|
||||||
static ELF binary.
|
static ELF binary.
|
||||||
- `cmd/ww/` — user-facing driver (Hare's `hare(1)` /
|
- `cmd/ww/` — user-facing driver (Hare's `hare(1)` /
|
||||||
Plan 9's `cc(1)` analogue). Orchestrates `6c → 6a → 6l`.
|
Plan 9's `cc(1)` analogue). Orchestrates `w6c → w6a → w6l`.
|
||||||
Adding a new target later means a new triple (e.g. `7c`/`7a`/`7l`
|
Adding a new target later means a new triple (e.g. `w7c`/`w7a`/`w7l`
|
||||||
for arm64). The frontend library `wwc` is shared.
|
for arm64). The frontend library `wwc` is shared.
|
||||||
|
|
||||||
## Hard rules (do not violate)
|
## Hard rules (do not violate)
|
||||||
@@ -48,12 +48,12 @@ This file is the contract for the work. Read PLAN.md for the schedule.
|
|||||||
`extern "c"` marker is needed.
|
`extern "c"` marker is needed.
|
||||||
6. **Plan 9 toolchain. No LLVM, no QBE, no external IR.** We do not
|
6. **Plan 9 toolchain. No LLVM, no QBE, no external IR.** We do not
|
||||||
invent a portable SSA IR. We follow Plan 9: the per-target
|
invent a portable SSA IR. We follow Plan 9: the per-target
|
||||||
compiler (`6c` for amd64) reads `.ww` and writes Plan 9-style
|
compiler (`w6c` for amd64) reads `.ww` and writes Plan 9-style
|
||||||
target assembly (`.s`); the per-target assembler (`6a`) writes
|
target assembly (`.s`); the per-target assembler (`w6a`) writes
|
||||||
ELF objects; the per-target linker (`6l`) produces a static
|
ELF objects; the per-target linker (`w6l`) produces a static
|
||||||
binary. Each tool uses Plan 9 cc's in-memory `Prog`/`Adr`
|
binary. Each tool uses Plan 9 cc's in-memory `Prog`/`Adr`
|
||||||
shapes — read `ref/plan9front/sys/src/cmd/cc/`, `cmd/6c/`,
|
shapes — read `ref/plan9front/sys/src/cmd/cc/`, `cmd/w6c/`,
|
||||||
`cmd/6a/`, `cmd/6l/` before writing your own.
|
`cmd/w6a/`, `cmd/w6l/` before writing your own.
|
||||||
7. **No generics, no interfaces, no closures, no lambdas.** Four forms
|
7. **No generics, no interfaces, no closures, no lambdas.** Four forms
|
||||||
of bloat we refuse. Polymorphism, when genuinely needed, is a
|
of bloat we refuse. Polymorphism, when genuinely needed, is a
|
||||||
struct of function pointers plus a `ctx: *void` (Plan 9 `Bio`,
|
struct of function pointers plus a `ctx: *void` (Plan 9 `Bio`,
|
||||||
@@ -74,7 +74,7 @@ This file is the contract for the work. Read PLAN.md for the schedule.
|
|||||||
8. **Tests run after every change.** `make test` is the truth. A
|
8. **Tests run after every change.** `make test` is the truth. A
|
||||||
change without a green `make test` is not a change.
|
change without a green `make test` is not a change.
|
||||||
9. **Prototype in C, then self-host.** The C bootstrap toolchain
|
9. **Prototype in C, then self-host.** The C bootstrap toolchain
|
||||||
(`libwwc`, `6c`, `6a`, `6l`, `ww`) is throwaway scaffolding.
|
(`libwcc`, `w6c`, `w6a`, `w6l`, `ww`) is throwaway scaffolding.
|
||||||
Its job is to compile enough of `ww` to compile the ww
|
Its job is to compile enough of `ww` to compile the ww
|
||||||
reimplementations of itself. Do not over-engineer the C side.
|
reimplementations of itself. Do not over-engineer the C side.
|
||||||
|
|
||||||
@@ -300,7 +300,7 @@ ergonomics live in a sibling pure-`ww` package.
|
|||||||
POSIX `make`, no autotools, no cmake.
|
POSIX `make`, no autotools, no cmake.
|
||||||
|
|
||||||
```
|
```
|
||||||
make # builds libwwc, 6c, 6a, 6l, ww, stdlib
|
make # builds libwcc, w6c, w6a, w6l, ww, stdlib
|
||||||
make test # runs all tests (toolchain + stdlib)
|
make test # runs all tests (toolchain + stdlib)
|
||||||
make install # installs to $PREFIX (default /usr/local)
|
make install # installs to $PREFIX (default /usr/local)
|
||||||
make clean
|
make clean
|
||||||
@@ -312,11 +312,11 @@ Target layout under `out/`:
|
|||||||
out/
|
out/
|
||||||
bin/
|
bin/
|
||||||
ww user-facing driver
|
ww user-facing driver
|
||||||
6c amd64 compiler
|
w6c amd64 compiler
|
||||||
6a amd64 assembler
|
w6a amd64 assembler
|
||||||
6l amd64 linker
|
w6l amd64 linker
|
||||||
lib/
|
lib/
|
||||||
libwwc.a frontend library (linked into 6c)
|
libwcc.a frontend library (linked into w6c)
|
||||||
libwwrt.a runtime archive (linked into final binaries)
|
libwwrt.a runtime archive (linked into final binaries)
|
||||||
<pkg>.a precompiled stdlib modules
|
<pkg>.a precompiled stdlib modules
|
||||||
obj/... intermediate .s, .o per package
|
obj/... intermediate .s, .o per package
|
||||||
@@ -329,7 +329,7 @@ ELF. Dynamic is `ww build -shared` or per-library `-l`.
|
|||||||
|
|
||||||
Three tiers, all driven by `make test`:
|
Three tiers, all driven by `make test`:
|
||||||
|
|
||||||
1. **Compiler unit tests** (`test/wwc/`): C, table-driven. Lex, parse,
|
1. **Compiler unit tests** (`test/wcc/`): C, table-driven. Lex, parse,
|
||||||
typecheck, IR-gen, codegen each have their own table.
|
typecheck, IR-gen, codegen each have their own table.
|
||||||
2. **Language tests** (`test/lang/*.ww`): each file is a single ww
|
2. **Language tests** (`test/lang/*.ww`): each file is a single ww
|
||||||
program with a comment header declaring expected exit code and
|
program with a comment header declaring expected exit code and
|
||||||
@@ -355,7 +355,7 @@ Every change must:
|
|||||||
|
|
||||||
Applied to this project:
|
Applied to this project:
|
||||||
|
|
||||||
- `6c` is a single-pass-ish recursive-descent parser into a typed
|
- `w6c` is a single-pass-ish recursive-descent parser into a typed
|
||||||
AST, walked into a `Prog` list, then printed as text. No parser
|
AST, walked into a `Prog` list, then printed as text. No parser
|
||||||
generator, no LLVM, no SSA pass pipeline.
|
generator, no LLVM, no SSA pass pipeline.
|
||||||
- Optimizer is intentionally absent at first. Constant fold + dead
|
- Optimizer is intentionally absent at first. Constant fold + dead
|
||||||
@@ -370,7 +370,7 @@ Applied to this project:
|
|||||||
- `ref/hare/` — the Hare distribution. Read for syntax, FFI
|
- `ref/hare/` — the Hare distribution. Read for syntax, FFI
|
||||||
(`@symbol`), stdlib layout, type names, error idioms.
|
(`@symbol`), stdlib layout, type names, error idioms.
|
||||||
- `ref/plan9front/` — 9front. Read `sys/src/cmd/cc/` (the shared
|
- `ref/plan9front/` — 9front. Read `sys/src/cmd/cc/` (the shared
|
||||||
frontend library), `sys/src/cmd/8c/` and `sys/src/cmd/6c/` (per-
|
frontend library), `sys/src/cmd/8c/` and `sys/src/cmd/w6c/` (per-
|
||||||
target compilers), `sys/src/cmd/8a/` (assembler), `sys/src/cmd/8l/`
|
target compilers), `sys/src/cmd/8a/` (assembler), `sys/src/cmd/8l/`
|
||||||
(linker) for toolchain organization, `Prog`/`Adr` data shapes,
|
(linker) for toolchain organization, `Prog`/`Adr` data shapes,
|
||||||
mkfile style, and naming.
|
mkfile style, and naming.
|
||||||
@@ -404,7 +404,7 @@ When making changes:
|
|||||||
writing code.
|
writing code.
|
||||||
- Keep diffs small. One concern per change.
|
- Keep diffs small. One concern per change.
|
||||||
- Commits: Plan 9 style. Subject is one short lowercase line,
|
- Commits: Plan 9 style. Subject is one short lowercase line,
|
||||||
prefixed with the affected area: `6c: fix const fold for i64`,
|
prefixed with the affected area: `w6c: fix const fold for i64`,
|
||||||
`lib/fmt: handle %v for slices`, `cc: typo`. Body only when the
|
`lib/fmt: handle %v for slices`, `cc: typo`. Body only when the
|
||||||
why is not obvious from the diff. No `Co-Authored-By` trailer,
|
why is not obvious from the diff. No `Co-Authored-By` trailer,
|
||||||
no "Generated with" footer, no emoji.
|
no "Generated with" footer, no emoji.
|
||||||
|
|||||||
322
Makefile
322
Makefile
@@ -1,7 +1,7 @@
|
|||||||
# ww — Plan 9-organised toolchain. POSIX make.
|
# ww — Plan 9-organised toolchain. POSIX make.
|
||||||
#
|
#
|
||||||
# Build a small static frontend library libwwc.a and the user-facing
|
# Build a small static frontend library libwcc.a and the user-facing
|
||||||
# driver `ww`. Per-target tools (6c, 6a, 6l) and the runtime are added
|
# driver `ww`. Per-target tools (w6c, w6a, w6l) and the runtime are added
|
||||||
# in their own phases. Everything lands under out/.
|
# in their own phases. Everything lands under out/.
|
||||||
|
|
||||||
PREFIX ?= /usr/local
|
PREFIX ?= /usr/local
|
||||||
@@ -9,17 +9,17 @@ CC ?= cc
|
|||||||
AR ?= ar
|
AR ?= ar
|
||||||
CFLAGS ?= -O0 -g -Wall -Wextra -Wpedantic -Wno-unused-parameter
|
CFLAGS ?= -O0 -g -Wall -Wextra -Wpedantic -Wno-unused-parameter
|
||||||
CFLAGS += -std=c99 -fno-strict-aliasing -D_POSIX_C_SOURCE=200809L
|
CFLAGS += -std=c99 -fno-strict-aliasing -D_POSIX_C_SOURCE=200809L
|
||||||
INCS = -Icmd/wwc
|
INCS = -Icmd/wcc
|
||||||
|
|
||||||
OUT = out
|
OUT = out
|
||||||
BIN = $(OUT)/bin
|
BIN = $(OUT)/bin
|
||||||
LIB = $(OUT)/lib
|
LIB = $(OUT)/lib
|
||||||
OBJ = $(OUT)/obj
|
OBJ = $(OUT)/obj
|
||||||
|
|
||||||
WWC_SRC = cmd/wwc/mem.c cmd/wwc/err.c cmd/wwc/tok.c cmd/wwc/lex.c \
|
WCC_SRC = cmd/wcc/mem.c cmd/wcc/err.c cmd/wcc/tok.c cmd/wcc/lex.c \
|
||||||
cmd/wwc/ast.c cmd/wwc/parse.c cmd/wwc/sym.c cmd/wwc/type.c \
|
cmd/wcc/ast.c cmd/wcc/parse.c cmd/wcc/sym.c cmd/wcc/type.c \
|
||||||
cmd/wwc/check.c
|
cmd/wcc/check.c
|
||||||
WWC_OBJ = $(WWC_SRC:cmd/wwc/%.c=$(OBJ)/wwc/%.o)
|
WCC_OBJ = $(WCC_SRC:cmd/wcc/%.c=$(OBJ)/wcc/%.o)
|
||||||
|
|
||||||
WW_SRC = cmd/ww/main.c
|
WW_SRC = cmd/ww/main.c
|
||||||
WW_OBJ = $(WW_SRC:cmd/ww/%.c=$(OBJ)/ww/%.o)
|
WW_OBJ = $(WW_SRC:cmd/ww/%.c=$(OBJ)/ww/%.o)
|
||||||
@@ -27,234 +27,238 @@ WW_OBJ = $(WW_SRC:cmd/ww/%.c=$(OBJ)/ww/%.o)
|
|||||||
WD_SRC = cmd/wwdump/main.c
|
WD_SRC = cmd/wwdump/main.c
|
||||||
WD_OBJ = $(WD_SRC:cmd/wwdump/%.c=$(OBJ)/wwdump/%.o)
|
WD_OBJ = $(WD_SRC:cmd/wwdump/%.c=$(OBJ)/wwdump/%.o)
|
||||||
|
|
||||||
C6_SRC = cmd/6c/main.c cmd/6c/cgen.c cmd/6c/txt.c cmd/6c/swt.c \
|
W6C_SRC = cmd/w6c/main.c cmd/w6c/cgen.c cmd/w6c/txt.c cmd/w6c/swt.c \
|
||||||
cmd/6c/peep.c cmd/6c/reg.c
|
cmd/w6c/peep.c cmd/w6c/reg.c
|
||||||
C6_OBJ = $(C6_SRC:cmd/6c/%.c=$(OBJ)/6c/%.o)
|
W6C_OBJ = $(W6C_SRC:cmd/w6c/%.c=$(OBJ)/w6c/%.o)
|
||||||
|
|
||||||
A6_SRC = cmd/6a/main.c cmd/6a/lex.c cmd/6a/parse.c cmd/6a/asm.c cmd/6a/obj.c
|
W6A_SRC = cmd/w6a/main.c cmd/w6a/lex.c cmd/w6a/parse.c cmd/w6a/asm.c cmd/w6a/obj.c
|
||||||
A6_OBJ = $(A6_SRC:cmd/6a/%.c=$(OBJ)/6a/%.o)
|
W6A_OBJ = $(W6A_SRC:cmd/w6a/%.c=$(OBJ)/w6a/%.o)
|
||||||
|
|
||||||
L6_SRC = cmd/6l/main.c cmd/6l/obj.c cmd/6l/sym.c cmd/6l/pass.c cmd/6l/out.c \
|
W6L_SRC = cmd/w6l/main.c cmd/w6l/obj.c cmd/w6l/sym.c cmd/w6l/pass.c cmd/w6l/out.c \
|
||||||
cmd/6l/dyn.c cmd/6l/dynout.c
|
cmd/w6l/dyn.c cmd/w6l/dynout.c
|
||||||
L6_OBJ = $(L6_SRC:cmd/6l/%.c=$(OBJ)/6l/%.o)
|
W6L_OBJ = $(W6L_SRC:cmd/w6l/%.c=$(OBJ)/w6l/%.o)
|
||||||
|
|
||||||
RT_S = rt/start.s rt/syscall.s rt/alloc.s rt/streq.s rt/abort.s
|
RT_S = rt/start.s rt/syscall.s rt/alloc.s rt/streq.s rt/abort.s
|
||||||
RT_OBJ = $(RT_S:rt/%.s=$(OBJ)/rt/%.o)
|
RT_OBJ = $(RT_S:rt/%.s=$(OBJ)/rt/%.o)
|
||||||
|
|
||||||
# Cstage: one-time C bootstrap (see BOOTSTRAP.md). Built by `cc`.
|
# Cstage: one-time C bootstrap (see BOOTSTRAP.md). Built by `cc`.
|
||||||
# Goes away at v1.0, replaced by a checked-in stage-0 binary.
|
# Goes away at v1.0, replaced by a checked-in stage-0 binary.
|
||||||
CSTAGE_BINS = $(BIN)/ww $(BIN)/6c $(BIN)/6a $(BIN)/6l $(BIN)/wwdump
|
CSTAGE_BINS = $(BIN)/ww $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l $(BIN)/wwdump
|
||||||
|
|
||||||
# Wwstage: ww-rewritten toolchain. Built by Cstage today; will be the
|
# Wwstage: ww-rewritten toolchain. Built by Cstage today; will be the
|
||||||
# only toolchain after Phase 10 closeout. Byte-identical to Cstage
|
# only toolchain after Phase 10 closeout. Byte-identical to Cstage
|
||||||
# (tests 990-994).
|
# (tests 990-994).
|
||||||
WWSTAGE_BINS = $(BIN)/wwdump_ww $(BIN)/6c_ww $(BIN)/6a_ww $(BIN)/6l_ww $(BIN)/ww_ww
|
WWSTAGE_BINS = $(BIN)/wwdump_ww $(BIN)/w6c_ww $(BIN)/w6a_ww $(BIN)/w6l_ww $(BIN)/ww_ww
|
||||||
|
|
||||||
BINS = $(CSTAGE_BINS) $(WWSTAGE_BINS)
|
BINS = $(CSTAGE_BINS) $(WWSTAGE_BINS)
|
||||||
LIBS = $(LIB)/libwwc.a $(LIB)/libwwrt.a
|
LIBS = $(LIB)/libwcc.a $(LIB)/libwwrt.a
|
||||||
|
|
||||||
all: cstage wwstage
|
all: cstage wwstage
|
||||||
|
|
||||||
cstage: $(CSTAGE_BINS) $(LIBS)
|
cstage: $(CSTAGE_BINS) $(LIBS)
|
||||||
wwstage: $(WWSTAGE_BINS)
|
wwstage: $(WWSTAGE_BINS)
|
||||||
|
|
||||||
# ---- libwwc.a ----------------------------------------------------------
|
# ---- libwcc.a ----------------------------------------------------------
|
||||||
$(LIB)/libwwc.a: $(WWC_OBJ) | $(LIB)
|
$(LIB)/libwcc.a: $(WCC_OBJ) | $(LIB)
|
||||||
$(AR) rcs $@ $(WWC_OBJ)
|
$(AR) rcs $@ $(WCC_OBJ)
|
||||||
|
|
||||||
$(OBJ)/wwc/%.o: cmd/wwc/%.c cmd/wwc/ww.h | $(OBJ)/wwc
|
$(OBJ)/wcc/%.o: cmd/wcc/%.c cmd/wcc/ww.h | $(OBJ)/wcc
|
||||||
$(CC) $(CFLAGS) $(INCS) -c -o $@ $<
|
$(CC) $(CFLAGS) $(INCS) -c -o $@ $<
|
||||||
|
|
||||||
# ---- ww driver ---------------------------------------------------------
|
# ---- ww driver ---------------------------------------------------------
|
||||||
$(BIN)/ww: $(WW_OBJ) $(LIB)/libwwc.a | $(BIN)
|
$(BIN)/ww: $(WW_OBJ) $(LIB)/libwcc.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $(WW_OBJ) -L$(LIB) -lwwc
|
$(CC) $(CFLAGS) -o $@ $(WW_OBJ) -L$(LIB) -lwcc
|
||||||
|
|
||||||
$(OBJ)/ww/%.o: cmd/ww/%.c cmd/wwc/ww.h | $(OBJ)/ww
|
$(OBJ)/ww/%.o: cmd/ww/%.c cmd/wcc/ww.h | $(OBJ)/ww
|
||||||
$(CC) $(CFLAGS) $(INCS) -c -o $@ $<
|
$(CC) $(CFLAGS) $(INCS) -c -o $@ $<
|
||||||
|
|
||||||
# ---- wwdump (lex/AST diff anchor) --------------------------------------
|
# ---- wwdump (lex/AST diff anchor) --------------------------------------
|
||||||
$(BIN)/wwdump: $(WD_OBJ) $(LIB)/libwwc.a | $(BIN)
|
$(BIN)/wwdump: $(WD_OBJ) $(LIB)/libwcc.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $(WD_OBJ) -L$(LIB) -lwwc
|
$(CC) $(CFLAGS) -o $@ $(WD_OBJ) -L$(LIB) -lwcc
|
||||||
|
|
||||||
$(OBJ)/wwdump/%.o: cmd/wwdump/%.c cmd/wwc/ww.h | $(OBJ)/wwdump
|
$(OBJ)/wwdump/%.o: cmd/wwdump/%.c cmd/wcc/ww.h | $(OBJ)/wwdump
|
||||||
$(CC) $(CFLAGS) $(INCS) -c -o $@ $<
|
$(CC) $(CFLAGS) $(INCS) -c -o $@ $<
|
||||||
|
|
||||||
# ---- 6c amd64 compiler -------------------------------------------------
|
# ---- w6c amd64 compiler ------------------------------------------------
|
||||||
$(BIN)/6c: $(C6_OBJ) $(LIB)/libwwc.a | $(BIN)
|
$(BIN)/w6c: $(W6C_OBJ) $(LIB)/libwcc.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $(C6_OBJ) -L$(LIB) -lwwc
|
$(CC) $(CFLAGS) -o $@ $(W6C_OBJ) -L$(LIB) -lwcc
|
||||||
|
|
||||||
$(OBJ)/6c/%.o: cmd/6c/%.c cmd/6c/gc.h cmd/6c/6.out.h cmd/wwc/ww.h | $(OBJ)/6c
|
$(OBJ)/w6c/%.o: cmd/w6c/%.c cmd/w6c/gc.h cmd/w6c/6.out.h cmd/wcc/ww.h | $(OBJ)/w6c
|
||||||
$(CC) $(CFLAGS) $(INCS) -Icmd/6c -c -o $@ $<
|
$(CC) $(CFLAGS) $(INCS) -Icmd/w6c -c -o $@ $<
|
||||||
|
|
||||||
# ---- 6a amd64 assembler ------------------------------------------------
|
# ---- w6a amd64 assembler -----------------------------------------------
|
||||||
$(BIN)/6a: $(A6_OBJ) | $(BIN)
|
$(BIN)/w6a: $(W6A_OBJ) | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $(A6_OBJ)
|
$(CC) $(CFLAGS) -o $@ $(W6A_OBJ)
|
||||||
|
|
||||||
$(OBJ)/6a/%.o: cmd/6a/%.c cmd/6a/a.h cmd/6c/6.out.h | $(OBJ)/6a
|
$(OBJ)/w6a/%.o: cmd/w6a/%.c cmd/w6a/a.h cmd/w6c/6.out.h | $(OBJ)/w6a
|
||||||
$(CC) $(CFLAGS) -Icmd/6a -Icmd/6c -c -o $@ $<
|
$(CC) $(CFLAGS) -Icmd/w6a -Icmd/w6c -c -o $@ $<
|
||||||
|
|
||||||
# ---- 6l amd64 linker ---------------------------------------------------
|
# ---- w6l amd64 linker --------------------------------------------------
|
||||||
$(BIN)/6l: $(L6_OBJ) | $(BIN)
|
$(BIN)/w6l: $(W6L_OBJ) | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $(L6_OBJ)
|
$(CC) $(CFLAGS) -o $@ $(W6L_OBJ)
|
||||||
|
|
||||||
$(OBJ)/6l/%.o: cmd/6l/%.c cmd/6l/l.h | $(OBJ)/6l
|
$(OBJ)/w6l/%.o: cmd/w6l/%.c cmd/w6l/l.h | $(OBJ)/w6l
|
||||||
$(CC) $(CFLAGS) -Icmd/6l -c -o $@ $<
|
$(CC) $(CFLAGS) -Icmd/w6l -c -o $@ $<
|
||||||
|
|
||||||
# ---- ww-side wwdump (the lexer port, exercised by 990_selfhost) --------
|
# ---- ww-side wwdump (the lexer port, exercised by 990_selfhost) --------
|
||||||
# Built via the user-facing ww driver, with -I selfhost/cmd/wwc so it
|
# Built via the user-facing ww driver, with -I selfhost/cmd/wcc so it
|
||||||
# can find the lex/tok/mem ports. Output named wwdump_ww to avoid
|
# can find the lex/tok/mem ports. Output named wwdump_ww to avoid
|
||||||
# colliding with the C-side wwdump in $(BIN).
|
# colliding with the C-side wwdump in $(BIN).
|
||||||
$(BIN)/wwdump_ww: selfhost/cmd/wwdump/main.ww \
|
$(BIN)/wwdump_ww: selfhost/cmd/wwdump/main.ww \
|
||||||
selfhost/cmd/wwc/lex.ww selfhost/cmd/wwc/tok.ww \
|
selfhost/cmd/wcc/lex.ww selfhost/cmd/wcc/tok.ww \
|
||||||
selfhost/cmd/wwc/mem.ww selfhost/cmd/wwc/ast.ww \
|
selfhost/cmd/wcc/mem.ww selfhost/cmd/wcc/ast.ww \
|
||||||
selfhost/cmd/wwc/parse.ww selfhost/cmd/wwc/typ.ww \
|
selfhost/cmd/wcc/parse.ww selfhost/cmd/wcc/typ.ww \
|
||||||
selfhost/cmd/wwc/sym.ww selfhost/cmd/wwc/check.ww \
|
selfhost/cmd/wcc/sym.ww selfhost/cmd/wcc/check.ww \
|
||||||
selfhost/cmd/wwc/cgen.ww \
|
selfhost/cmd/wcc/cgen.ww \
|
||||||
$(BIN)/ww $(BIN)/6c $(BIN)/6a $(BIN)/6l \
|
lib/os/os.ww lib/strconv/strconv.ww \
|
||||||
|
$(BIN)/ww $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l \
|
||||||
$(LIB)/libwwrt.a | $(BIN)
|
$(LIB)/libwwrt.a | $(BIN)
|
||||||
cd $(BIN) && ./ww build -I $$PWD/../../selfhost/cmd/wwc \
|
cd $(BIN) && ./ww build -I $$PWD/../../selfhost/cmd/wcc \
|
||||||
$$PWD/../../selfhost/cmd/wwdump/main.ww
|
$$PWD/../../selfhost/cmd/wwdump/main.ww
|
||||||
mv $(BIN)/main $@
|
mv $(BIN)/main $@
|
||||||
|
|
||||||
# ---- ww-side 6c (compiler port, exercised by 994_6c_ww) ----------------
|
# ---- ww-side w6c (compiler port, exercised by 994_w6c_ww) -------------
|
||||||
# Thin driver: parse + cgen, both already living in selfhost/cmd/wwc.
|
# Thin driver: parse + cgen, both already living in selfhost/cmd/wcc.
|
||||||
# Build through `ww build` like the other wwstage tools.
|
# Build through `ww build` like the other wwstage tools.
|
||||||
$(BIN)/6c_ww: selfhost/cmd/6c/main.ww \
|
$(BIN)/w6c_ww: selfhost/cmd/w6c/main.ww \
|
||||||
selfhost/cmd/wwc/lex.ww selfhost/cmd/wwc/tok.ww \
|
selfhost/cmd/wcc/lex.ww selfhost/cmd/wcc/tok.ww \
|
||||||
selfhost/cmd/wwc/mem.ww selfhost/cmd/wwc/ast.ww \
|
selfhost/cmd/wcc/mem.ww selfhost/cmd/wcc/ast.ww \
|
||||||
selfhost/cmd/wwc/parse.ww selfhost/cmd/wwc/typ.ww \
|
selfhost/cmd/wcc/parse.ww selfhost/cmd/wcc/typ.ww \
|
||||||
selfhost/cmd/wwc/sym.ww selfhost/cmd/wwc/check.ww \
|
selfhost/cmd/wcc/sym.ww selfhost/cmd/wcc/check.ww \
|
||||||
selfhost/cmd/wwc/cgen.ww \
|
selfhost/cmd/wcc/cgen.ww \
|
||||||
$(BIN)/ww $(BIN)/6c $(BIN)/6a $(BIN)/6l \
|
lib/os/os.ww \
|
||||||
|
$(BIN)/ww $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l \
|
||||||
$(LIB)/libwwrt.a | $(BIN)
|
$(LIB)/libwwrt.a | $(BIN)
|
||||||
cd $(BIN) && ./ww build -I $$PWD/../../selfhost/cmd/wwc \
|
cd $(BIN) && ./ww build -I $$PWD/../../selfhost/cmd/wcc \
|
||||||
$$PWD/../../selfhost/cmd/6c/main.ww
|
$$PWD/../../selfhost/cmd/w6c/main.ww
|
||||||
mv $(BIN)/main $@
|
mv $(BIN)/main $@
|
||||||
|
|
||||||
# ---- ww-side 6a (assembler port, exercised by 991_6a_ww) ---------------
|
# ---- ww-side w6a (assembler port, exercised by 991_w6a_ww) ------------
|
||||||
# Built like wwdump_ww. Needs -I selfhost/cmd/6a for the local types/lex/
|
# Built like wwdump_ww. Needs -I selfhost/cmd/w6a for the local types/lex/
|
||||||
# parse/asm/obj modules and -I selfhost/cmd/wwc to find `mem`.
|
# parse/asm/obj modules and -I selfhost/cmd/wcc to find `mem`.
|
||||||
$(BIN)/6a_ww: selfhost/cmd/6a/main.ww selfhost/cmd/6a/types.ww \
|
$(BIN)/w6a_ww: selfhost/cmd/w6a/main.ww selfhost/cmd/w6a/types.ww \
|
||||||
selfhost/cmd/6a/lex.ww selfhost/cmd/6a/parse.ww \
|
selfhost/cmd/w6a/lex.ww selfhost/cmd/w6a/parse.ww \
|
||||||
selfhost/cmd/6a/asm.ww selfhost/cmd/6a/obj.ww \
|
selfhost/cmd/w6a/asm.ww selfhost/cmd/w6a/obj.ww \
|
||||||
selfhost/cmd/wwc/mem.ww \
|
selfhost/cmd/wcc/mem.ww \
|
||||||
$(BIN)/ww $(BIN)/6c $(BIN)/6a $(BIN)/6l \
|
lib/os/os.ww \
|
||||||
|
$(BIN)/ww $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l \
|
||||||
$(LIB)/libwwrt.a | $(BIN)
|
$(LIB)/libwwrt.a | $(BIN)
|
||||||
cd $(BIN) && ./ww build \
|
cd $(BIN) && ./ww build \
|
||||||
-I $$PWD/../../selfhost/cmd/6a \
|
-I $$PWD/../../selfhost/cmd/w6a \
|
||||||
-I $$PWD/../../selfhost/cmd/wwc \
|
-I $$PWD/../../selfhost/cmd/wcc \
|
||||||
$$PWD/../../selfhost/cmd/6a/main.ww
|
$$PWD/../../selfhost/cmd/w6a/main.ww
|
||||||
mv $(BIN)/main $@
|
mv $(BIN)/main $@
|
||||||
|
|
||||||
# ---- ww-side 6l (linker port, exercised by 992_6l_ww) ------------------
|
# ---- ww-side w6l (linker port, exercised by 992_w6l_ww) ---------------
|
||||||
# Built like 6a_ww. Needs -I selfhost/cmd/6l for the local sym/obj/pass/
|
# Built like 6a_ww. Needs -I selfhost/cmd/w6l for the local sym/obj/pass/
|
||||||
# out modules and -I selfhost/cmd/wwc to find `mem`.
|
# out modules and -I selfhost/cmd/wcc to find `mem`.
|
||||||
$(BIN)/6l_ww: selfhost/cmd/6l/main.ww selfhost/cmd/6l/sym.ww \
|
$(BIN)/w6l_ww: selfhost/cmd/w6l/main.ww selfhost/cmd/w6l/sym.ww \
|
||||||
selfhost/cmd/6l/obj.ww selfhost/cmd/6l/dyn.ww \
|
selfhost/cmd/w6l/obj.ww selfhost/cmd/w6l/dyn.ww \
|
||||||
selfhost/cmd/6l/pass.ww selfhost/cmd/6l/dynout.ww \
|
selfhost/cmd/w6l/pass.ww selfhost/cmd/w6l/dynout.ww \
|
||||||
selfhost/cmd/6l/out.ww selfhost/cmd/wwc/mem.ww \
|
selfhost/cmd/w6l/out.ww selfhost/cmd/wcc/mem.ww \
|
||||||
$(BIN)/ww $(BIN)/6c $(BIN)/6a $(BIN)/6l \
|
lib/os/os.ww \
|
||||||
|
$(BIN)/ww $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l \
|
||||||
$(LIB)/libwwrt.a | $(BIN)
|
$(LIB)/libwwrt.a | $(BIN)
|
||||||
cd $(BIN) && ./ww build \
|
cd $(BIN) && ./ww build \
|
||||||
-I $$PWD/../../selfhost/cmd/6l \
|
-I $$PWD/../../selfhost/cmd/w6l \
|
||||||
-I $$PWD/../../selfhost/cmd/wwc \
|
-I $$PWD/../../selfhost/cmd/wcc \
|
||||||
$$PWD/../../selfhost/cmd/6l/main.ww
|
$$PWD/../../selfhost/cmd/w6l/main.ww
|
||||||
mv $(BIN)/main $@
|
mv $(BIN)/main $@
|
||||||
|
|
||||||
# ---- ww-side ww driver (exercised by 993_ww_ww) ------------------------
|
# ---- ww-side ww driver (exercised by 993_ww_ww) ------------------------
|
||||||
# The driver pulls in lib/os (default search path) and selfhost/cmd/wwc
|
# The driver pulls in lib/os (default search path) and selfhost/cmd/wcc
|
||||||
# (for the bump arena). It then orchestrates 6c/6a/6l like the C driver.
|
# (for the bump arena). It then orchestrates w6c/w6a/w6l like the C driver.
|
||||||
$(BIN)/ww_ww: selfhost/cmd/ww/main.ww selfhost/cmd/wwc/mem.ww lib/os/os.ww \
|
$(BIN)/ww_ww: selfhost/cmd/ww/main.ww selfhost/cmd/wcc/mem.ww lib/os/os.ww \
|
||||||
$(BIN)/ww $(BIN)/6c $(BIN)/6a $(BIN)/6l \
|
$(BIN)/ww $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l \
|
||||||
$(LIB)/libwwrt.a | $(BIN)
|
$(LIB)/libwwrt.a | $(BIN)
|
||||||
cd $(BIN) && ./ww build \
|
cd $(BIN) && ./ww build \
|
||||||
-I $$PWD/../../selfhost/cmd/wwc \
|
-I $$PWD/../../selfhost/cmd/wcc \
|
||||||
$$PWD/../../selfhost/cmd/ww/main.ww
|
$$PWD/../../selfhost/cmd/ww/main.ww
|
||||||
mv $(BIN)/main $@
|
mv $(BIN)/main $@
|
||||||
|
|
||||||
# ---- runtime (libwwrt.a, assembled by our own 6a) ----------------------
|
# ---- runtime (libwwrt.a, assembled by our own w6a) ---------------------
|
||||||
$(OBJ)/rt/%.o: rt/%.s $(BIN)/6a | $(OBJ)/rt
|
$(OBJ)/rt/%.o: rt/%.s $(BIN)/w6a | $(OBJ)/rt
|
||||||
$(BIN)/6a -o $@ $<
|
$(BIN)/w6a -o $@ $<
|
||||||
|
|
||||||
$(LIB)/libwwrt.a: $(RT_OBJ) | $(LIB)
|
$(LIB)/libwwrt.a: $(RT_OBJ) | $(LIB)
|
||||||
$(AR) rcs $@ $(RT_OBJ)
|
$(AR) rcs $@ $(RT_OBJ)
|
||||||
|
|
||||||
# ---- directories -------------------------------------------------------
|
# ---- directories -------------------------------------------------------
|
||||||
$(BIN) $(LIB) $(OBJ)/wwc $(OBJ)/ww $(OBJ)/wwdump $(OBJ)/6c $(OBJ)/6a $(OBJ)/6l $(OBJ)/rt:
|
$(BIN) $(LIB) $(OBJ)/wcc $(OBJ)/ww $(OBJ)/wwdump $(OBJ)/w6c $(OBJ)/w6a $(OBJ)/w6l $(OBJ)/rt:
|
||||||
mkdir -p $@
|
mkdir -p $@
|
||||||
|
|
||||||
# ---- tests -------------------------------------------------------------
|
# ---- tests -------------------------------------------------------------
|
||||||
# Each phase adds a $(BIN)/test_<name> target; the runner walks them.
|
# Each phase adds a $(BIN)/test_<name> target; the runner walks them.
|
||||||
TESTS = $(BIN)/test_smoke $(BIN)/test_lex $(BIN)/test_parse $(BIN)/test_check \
|
TESTS = $(BIN)/test_smoke $(BIN)/test_lex $(BIN)/test_parse $(BIN)/test_check \
|
||||||
$(BIN)/test_6c $(BIN)/test_6a $(BIN)/test_6l $(BIN)/test_arch \
|
$(BIN)/test_w6c $(BIN)/test_w6a $(BIN)/test_w6l $(BIN)/test_arch \
|
||||||
$(BIN)/test_e2e $(BIN)/test_ffi $(BIN)/test_dyn $(BIN)/test_stdlib \
|
$(BIN)/test_e2e $(BIN)/test_ffi $(BIN)/test_dyn $(BIN)/test_stdlib \
|
||||||
$(BIN)/test_selfhost $(BIN)/test_6a_ww $(BIN)/test_6l_ww \
|
$(BIN)/test_selfhost $(BIN)/test_w6a_ww $(BIN)/test_w6l_ww \
|
||||||
$(BIN)/test_6c_ww $(BIN)/test_ww_ww $(BIN)/test_self_rebuild \
|
$(BIN)/test_w6c_ww $(BIN)/test_ww_ww $(BIN)/test_self_rebuild \
|
||||||
$(BIN)/test_dyn_ww
|
$(BIN)/test_dyn_ww
|
||||||
|
|
||||||
$(BIN)/test_smoke: test/wwc/000_smoke.c $(LIB)/libwwc.a | $(BIN)
|
$(BIN)/test_smoke: test/wcc/000_smoke.c $(LIB)/libwcc.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) $(INCS) -o $@ $< -L$(LIB) -lwwc
|
$(CC) $(CFLAGS) $(INCS) -o $@ $< -L$(LIB) -lwcc
|
||||||
|
|
||||||
$(BIN)/test_lex: test/wwc/100_lex.c $(LIB)/libwwc.a | $(BIN)
|
$(BIN)/test_lex: test/wcc/100_lex.c $(LIB)/libwcc.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) $(INCS) -o $@ $< -L$(LIB) -lwwc
|
$(CC) $(CFLAGS) $(INCS) -o $@ $< -L$(LIB) -lwcc
|
||||||
|
|
||||||
$(BIN)/test_parse: test/wwc/200_parse.c $(LIB)/libwwc.a | $(BIN)
|
$(BIN)/test_parse: test/wcc/200_parse.c $(LIB)/libwcc.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) $(INCS) -o $@ $< -L$(LIB) -lwwc
|
$(CC) $(CFLAGS) $(INCS) -o $@ $< -L$(LIB) -lwcc
|
||||||
|
|
||||||
$(BIN)/test_check: test/wwc/300_check.c $(LIB)/libwwc.a | $(BIN)
|
$(BIN)/test_check: test/wcc/300_check.c $(LIB)/libwcc.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) $(INCS) -o $@ $< -L$(LIB) -lwwc
|
$(CC) $(CFLAGS) $(INCS) -o $@ $< -L$(LIB) -lwcc
|
||||||
|
|
||||||
$(BIN)/test_6c: test/wwc/400_6c.c $(BIN)/6c | $(BIN)
|
$(BIN)/test_w6c: test/wcc/400_w6c.c $(BIN)/w6c | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_6a: test/wwc/500_6a.c $(BIN)/6c $(BIN)/6a | $(BIN)
|
$(BIN)/test_w6a: test/wcc/500_w6a.c $(BIN)/w6c $(BIN)/w6a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_6l: test/wwc/600_6l.c $(BIN)/6c $(BIN)/6a $(BIN)/6l | $(BIN)
|
$(BIN)/test_w6l: test/wcc/600_w6l.c $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_arch: test/wwc/610_arch.c $(BIN)/6c $(BIN)/6a $(BIN)/6l \
|
$(BIN)/test_arch: test/wcc/610_arch.c $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l \
|
||||||
$(OBJ)/rt/start.o | $(BIN)
|
$(OBJ)/rt/start.o | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_e2e: test/wwc/700_e2e.c $(BIN)/ww $(BIN)/6c $(BIN)/6a $(BIN)/6l \
|
$(BIN)/test_e2e: test/wcc/700_e2e.c $(BIN)/ww $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l \
|
||||||
$(LIB)/libwwrt.a $(OBJ)/rt/start.o | $(BIN)
|
$(LIB)/libwwrt.a $(OBJ)/rt/start.o | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_ffi: test/wwc/800_ffi.c $(BIN)/6c | $(BIN)
|
$(BIN)/test_ffi: test/wcc/800_ffi.c $(BIN)/w6c | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_dyn: test/wwc/810_dyn.c $(BIN)/ww $(BIN)/6c $(BIN)/6a $(BIN)/6l \
|
$(BIN)/test_dyn: test/wcc/810_dyn.c $(BIN)/ww $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l \
|
||||||
$(LIB)/libwwrt.a | $(BIN)
|
$(LIB)/libwwrt.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_stdlib: test/wwc/900_stdlib.c $(BIN)/6c | $(BIN)
|
$(BIN)/test_stdlib: test/wcc/900_stdlib.c $(BIN)/w6c | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_selfhost: test/wwc/990_selfhost.c $(BIN)/6c $(BIN)/6a $(BIN)/6l \
|
$(BIN)/test_selfhost: test/wcc/990_selfhost.c $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l \
|
||||||
$(BIN)/ww $(BIN)/wwdump $(BIN)/wwdump_ww $(LIB)/libwwrt.a | $(BIN)
|
$(BIN)/ww $(BIN)/wwdump $(BIN)/wwdump_ww $(LIB)/libwwrt.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_6a_ww: test/wwc/991_6a_ww.c $(BIN)/6a $(BIN)/6a_ww | $(BIN)
|
$(BIN)/test_w6a_ww: test/wcc/991_w6a_ww.c $(BIN)/w6a $(BIN)/w6a_ww | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_6l_ww: test/wwc/992_6l_ww.c $(BIN)/6l $(BIN)/6l_ww \
|
$(BIN)/test_w6l_ww: test/wcc/992_w6l_ww.c $(BIN)/w6l $(BIN)/w6l_ww \
|
||||||
$(LIB)/libwwrt.a | $(BIN)
|
$(LIB)/libwwrt.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_6c_ww: test/wwc/994_6c_ww.c $(BIN)/6c_ww $(BIN)/wwdump_ww | $(BIN)
|
$(BIN)/test_w6c_ww: test/wcc/994_w6c_ww.c $(BIN)/w6c_ww $(BIN)/wwdump_ww | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_ww_ww: test/wwc/993_ww_ww.c $(BIN)/ww $(BIN)/ww_ww \
|
$(BIN)/test_ww_ww: test/wcc/993_ww_ww.c $(BIN)/ww $(BIN)/ww_ww \
|
||||||
$(BIN)/6c $(BIN)/6a $(BIN)/6l $(LIB)/libwwrt.a | $(BIN)
|
$(BIN)/w6c $(BIN)/w6a $(BIN)/w6l $(LIB)/libwwrt.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_self_rebuild: test/wwc/995_self_rebuild.c $(BIN)/ww_ww \
|
$(BIN)/test_self_rebuild: test/wcc/995_self_rebuild.c $(BIN)/ww_ww \
|
||||||
$(BIN)/6c_ww $(BIN)/6a_ww $(BIN)/6l_ww $(BIN)/wwdump_ww \
|
$(BIN)/w6c_ww $(BIN)/w6a_ww $(BIN)/w6l_ww $(BIN)/wwdump_ww \
|
||||||
$(LIB)/libwwrt.a | $(BIN)
|
$(LIB)/libwwrt.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
$(BIN)/test_dyn_ww: test/wwc/996_dyn_ww.c $(BIN)/ww $(BIN)/6l $(BIN)/6l_ww \
|
$(BIN)/test_dyn_ww: test/wcc/996_dyn_ww.c $(BIN)/ww $(BIN)/w6l $(BIN)/w6l_ww \
|
||||||
$(LIB)/libwwrt.a | $(BIN)
|
$(LIB)/libwwrt.a | $(BIN)
|
||||||
$(CC) $(CFLAGS) -o $@ $<
|
$(CC) $(CFLAGS) -o $@ $<
|
||||||
|
|
||||||
@@ -264,7 +268,7 @@ test: all $(TESTS)
|
|||||||
install: all
|
install: all
|
||||||
mkdir -p $(PREFIX)/bin $(PREFIX)/lib
|
mkdir -p $(PREFIX)/bin $(PREFIX)/lib
|
||||||
cp $(BIN)/ww $(PREFIX)/bin/
|
cp $(BIN)/ww $(PREFIX)/bin/
|
||||||
cp $(LIB)/libwwc.a $(PREFIX)/lib/
|
cp $(LIB)/libwcc.a $(PREFIX)/lib/
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
rm -rf $(OUT)
|
rm -rf $(OUT)
|
||||||
@@ -272,8 +276,8 @@ clean:
|
|||||||
# ---- bootstrap (phase 10) ----------------------------------------------
|
# ---- bootstrap (phase 10) ----------------------------------------------
|
||||||
# Four-stage self-host: Cstage (these C tools) → ww1 → ww2 → ww3 → ww4
|
# Four-stage self-host: Cstage (these C tools) → ww1 → ww2 → ww3 → ww4
|
||||||
# with cmp ww2 == ww3 and cmp ww3 == ww4. Stage 1 is wwdump_ww (the
|
# with cmp ww2 == ww3 and cmp ww3 == ww4. Stage 1 is wwdump_ww (the
|
||||||
# ww-built frontend); stages 2/3/4 assemble with 6a_ww and link with
|
# ww-built frontend); stages 2/3/4 assemble with w6a_ww and link with
|
||||||
# 6l_ww — every tool below the driver is now in ww. The C `ww` driver
|
# w6l_ww — every tool below the driver is now in ww. The C `ww` driver
|
||||||
# still orchestrates the pipeline (porting it is the remaining phase-10
|
# still orchestrates the pipeline (porting it is the remaining phase-10
|
||||||
# work).
|
# work).
|
||||||
#
|
#
|
||||||
@@ -284,28 +288,28 @@ clean:
|
|||||||
BS = $(OUT)/bootstrap
|
BS = $(OUT)/bootstrap
|
||||||
bootstrap: all
|
bootstrap: all
|
||||||
@echo "=== stage 0 (Cstage): C-built tools ==="
|
@echo "=== stage 0 (Cstage): C-built tools ==="
|
||||||
@echo " $(BIN)/ww $(BIN)/6c $(BIN)/6a $(BIN)/6l"
|
@echo " $(BIN)/ww $(BIN)/w6c $(BIN)/w6a $(BIN)/w6l"
|
||||||
@echo
|
@echo
|
||||||
@echo "=== stage 1: ww-built tools, used to drive stages 2/3/4 ==="
|
@echo "=== stage 1: ww-built tools, used to drive stages 2/3/4 ==="
|
||||||
@ls -l $(BIN)/wwdump_ww $(BIN)/6a_ww $(BIN)/6l_ww $(BIN)/ww_ww
|
@ls -l $(BIN)/wwdump_ww $(BIN)/w6a_ww $(BIN)/w6l_ww $(BIN)/ww_ww
|
||||||
@rm -rf $(BS) && mkdir -p $(BS)
|
@rm -rf $(BS) && mkdir -p $(BS)
|
||||||
@echo
|
@echo
|
||||||
@echo "=== stage 2: ww2 = ww1 self-compiles main.combined.ww ==="
|
@echo "=== stage 2: ww2 = ww1 self-compiles main.combined.ww ==="
|
||||||
@$(BIN)/wwdump_ww -c selfhost/cmd/wwdump/main.combined.ww > $(BS)/ww2.s
|
@$(BIN)/wwdump_ww -c selfhost/cmd/wwdump/main.combined.ww > $(BS)/ww2.s
|
||||||
@$(BIN)/6a_ww -o $(BS)/ww2.o $(BS)/ww2.s
|
@$(BIN)/w6a_ww -o $(BS)/ww2.o $(BS)/ww2.s
|
||||||
@$(BIN)/6l_ww -o $(BS)/ww2 $(BS)/ww2.o $(LIB)/libwwrt.a
|
@$(BIN)/w6l_ww -o $(BS)/ww2 $(BS)/ww2.o $(LIB)/libwwrt.a
|
||||||
@ls -l $(BS)/ww2
|
@ls -l $(BS)/ww2
|
||||||
@echo
|
@echo
|
||||||
@echo "=== stage 3: ww3 = ww2 self-compiles main.combined.ww ==="
|
@echo "=== stage 3: ww3 = ww2 self-compiles main.combined.ww ==="
|
||||||
@$(BS)/ww2 -c selfhost/cmd/wwdump/main.combined.ww > $(BS)/ww3.s
|
@$(BS)/ww2 -c selfhost/cmd/wwdump/main.combined.ww > $(BS)/ww3.s
|
||||||
@$(BIN)/6a_ww -o $(BS)/ww3.o $(BS)/ww3.s
|
@$(BIN)/w6a_ww -o $(BS)/ww3.o $(BS)/ww3.s
|
||||||
@$(BIN)/6l_ww -o $(BS)/ww3 $(BS)/ww3.o $(LIB)/libwwrt.a
|
@$(BIN)/w6l_ww -o $(BS)/ww3 $(BS)/ww3.o $(LIB)/libwwrt.a
|
||||||
@ls -l $(BS)/ww3
|
@ls -l $(BS)/ww3
|
||||||
@echo
|
@echo
|
||||||
@echo "=== stage 4: ww4 = ww3 self-compiles main.combined.ww ==="
|
@echo "=== stage 4: ww4 = ww3 self-compiles main.combined.ww ==="
|
||||||
@$(BS)/ww3 -c selfhost/cmd/wwdump/main.combined.ww > $(BS)/ww4.s
|
@$(BS)/ww3 -c selfhost/cmd/wwdump/main.combined.ww > $(BS)/ww4.s
|
||||||
@$(BIN)/6a_ww -o $(BS)/ww4.o $(BS)/ww4.s
|
@$(BIN)/w6a_ww -o $(BS)/ww4.o $(BS)/ww4.s
|
||||||
@$(BIN)/6l_ww -o $(BS)/ww4 $(BS)/ww4.o $(LIB)/libwwrt.a
|
@$(BIN)/w6l_ww -o $(BS)/ww4 $(BS)/ww4.o $(LIB)/libwwrt.a
|
||||||
@ls -l $(BS)/ww4
|
@ls -l $(BS)/ww4
|
||||||
@echo
|
@echo
|
||||||
@echo "=== fixed-point gates ==="
|
@echo "=== fixed-point gates ==="
|
||||||
@@ -316,21 +320,21 @@ bootstrap: all
|
|||||||
@cmp $(BS)/ww3.o $(BS)/ww4.o && echo " ww3.o == ww4.o ✓ (byte-identical .o)"
|
@cmp $(BS)/ww3.o $(BS)/ww4.o && echo " ww3.o == ww4.o ✓ (byte-identical .o)"
|
||||||
@cmp $(BS)/ww3 $(BS)/ww4 && echo " ww3 == ww4 ✓ (byte-identical exe, ww3 is byte-stable as a compiler)"
|
@cmp $(BS)/ww3 $(BS)/ww4 && echo " ww3 == ww4 ✓ (byte-identical exe, ww3 is byte-stable as a compiler)"
|
||||||
@echo
|
@echo
|
||||||
@echo "BOOTSTRAP OK: ww-cgen + 6a_ww + 6l_ww reach a fixed point that holds across two iterations."
|
@echo "BOOTSTRAP OK: ww-cgen + w6a_ww + w6l_ww reach a fixed point that holds across two iterations."
|
||||||
@echo
|
@echo
|
||||||
@echo "Phase 10 remaining work:"
|
@echo "Phase 10 remaining work:"
|
||||||
@echo " - delete cmd/wwc/ cmd/6c/ cmd/6a/ cmd/6l/ cmd/ww/ in the final commit"
|
@echo " - delete cmd/wcc/ cmd/w6c/ cmd/w6a/ cmd/w6l/ cmd/ww/ in the final commit"
|
||||||
@echo
|
@echo
|
||||||
@echo "Already in selfhost/:"
|
@echo "Already in selfhost/:"
|
||||||
@echo " - cmd/wwc/ : ww-cgen (lex/parse/check/cgen) — bootstrap fixed point"
|
@echo " - cmd/wcc/ : ww-cgen (lex/parse/check/cgen) — bootstrap fixed point"
|
||||||
@echo " - cmd/6c/ : ww-6c (lex/parse/cgen front-end) — matches wwdump_ww -c (test 994)"
|
@echo " - cmd/w6c/ : ww-w6c (lex/parse/cgen front-end) — matches wwdump_ww -c (test 994)"
|
||||||
@echo " - cmd/6a/ : ww-6a (lex/parse/asm/obj) — byte-identical to C 6a (test 991)"
|
@echo " - cmd/w6a/ : ww-w6a (lex/parse/asm/obj) — byte-identical to C w6a (test 991)"
|
||||||
@echo " - cmd/6l/ : ww-6l (linker w/ archive support) — byte-identical to C 6l (test 992)"
|
@echo " - cmd/w6l/ : ww-w6l (linker w/ archive support) — byte-identical to C w6l (test 992)"
|
||||||
@echo " - cmd/ww/ : ww-driver (build/run/version) — byte-identical to C ww (test 993)"
|
@echo " - cmd/ww/ : ww-driver (build/run/version) — byte-identical to C ww (test 993)"
|
||||||
|
|
||||||
# ---- nocc: bootstrap from a checked-in stage-0 binary, no cc -----------
|
# ---- nocc: bootstrap from a checked-in stage-0 binary, no cc -----------
|
||||||
# A fresh-checkout flow that never invokes cc. Mirrors `make bootstrap`'s
|
# A fresh-checkout flow that never invokes cc. Mirrors `make bootstrap`'s
|
||||||
# fixed-point check but uses `bootstrap/$(ARCH)/{ww,6c,6a,6l}` as the
|
# fixed-point check but uses `bootstrap/$(ARCH)/{ww,w6c,w6a,w6l}` as the
|
||||||
# starting point and lands in $(OUT)/nocc/ so the cstage build under
|
# starting point and lands in $(OUT)/nocc/ so the cstage build under
|
||||||
# $(OUT)/ stays untouched. See bootstrap/README.md and BOOTSTRAP.md.
|
# $(OUT)/ stays untouched. See bootstrap/README.md and BOOTSTRAP.md.
|
||||||
#
|
#
|
||||||
@@ -347,14 +351,14 @@ NOCC_OBJ = $(NOCC_OUT)/obj
|
|||||||
bootstrap-snapshot: wwstage
|
bootstrap-snapshot: wwstage
|
||||||
@mkdir -p $(STAGE0)
|
@mkdir -p $(STAGE0)
|
||||||
@cp $(BIN)/ww_ww $(STAGE0)/ww
|
@cp $(BIN)/ww_ww $(STAGE0)/ww
|
||||||
@cp $(BIN)/6c_ww $(STAGE0)/6c
|
@cp $(BIN)/w6c_ww $(STAGE0)/w6c
|
||||||
@cp $(BIN)/6a_ww $(STAGE0)/6a
|
@cp $(BIN)/w6a_ww $(STAGE0)/w6a
|
||||||
@cp $(BIN)/6l_ww $(STAGE0)/6l
|
@cp $(BIN)/w6l_ww $(STAGE0)/w6l
|
||||||
@echo "snapshot: $(STAGE0)/{ww,6c,6a,6l} populated from $(BIN)/*_ww"
|
@echo "snapshot: $(STAGE0)/{ww,w6c,w6a,w6l} populated from $(BIN)/*_ww"
|
||||||
@echo " (gitignored — 'git add -f bootstrap/$(ARCH)/*' to ship)"
|
@echo " (gitignored — 'git add -f bootstrap/$(ARCH)/*' to ship)"
|
||||||
|
|
||||||
nocc:
|
nocc:
|
||||||
@for f in ww 6c 6a 6l; do \
|
@for f in ww w6c w6a w6l; do \
|
||||||
test -x $(STAGE0)/$$f || { \
|
test -x $(STAGE0)/$$f || { \
|
||||||
echo "$@: missing $(STAGE0)/$$f"; \
|
echo "$@: missing $(STAGE0)/$$f"; \
|
||||||
echo "$@: run 'make bootstrap-snapshot' first, or read bootstrap/README.md"; \
|
echo "$@: run 'make bootstrap-snapshot' first, or read bootstrap/README.md"; \
|
||||||
@@ -366,38 +370,38 @@ nocc:
|
|||||||
@mkdir -p $(NOCC_BIN) $(NOCC_LIB) $(NOCC_OBJ)
|
@mkdir -p $(NOCC_BIN) $(NOCC_LIB) $(NOCC_OBJ)
|
||||||
@# Stage 0: drop bootstrap binaries under both natural names and
|
@# Stage 0: drop bootstrap binaries under both natural names and
|
||||||
@# the _ww-suffixed names the driver expects when shelling out.
|
@# the _ww-suffixed names the driver expects when shelling out.
|
||||||
@for f in ww 6c 6a 6l; do \
|
@for f in ww w6c w6a w6l; do \
|
||||||
cp $(STAGE0)/$$f $(NOCC_BIN)/$$f; \
|
cp $(STAGE0)/$$f $(NOCC_BIN)/$$f; \
|
||||||
cp $(STAGE0)/$$f $(NOCC_BIN)/$${f}_ww; \
|
cp $(STAGE0)/$$f $(NOCC_BIN)/$${f}_ww; \
|
||||||
done
|
done
|
||||||
@# Assemble libwwrt.a using stage-0 6a — the linker needs it for
|
@# Assemble libwwrt.a using stage-0 w6a — the linker needs it for
|
||||||
@# every wwstage-built binary in the next stage. Member order
|
@# every wwstage-built binary in the next stage. Member order
|
||||||
@# follows $(RT_S) so the embedded symbol table matches the
|
@# follows $(RT_S) so the embedded symbol table matches the
|
||||||
@# cstage-built libwwrt.a (cstage uses ar rcs $(RT_OBJ), same
|
@# cstage-built libwwrt.a (cstage uses ar rcs $(RT_OBJ), same
|
||||||
@# order).
|
@# order).
|
||||||
@objs=""; for s in $(RT_S); do \
|
@objs=""; for s in $(RT_S); do \
|
||||||
b=`basename $$s .s`; \
|
b=`basename $$s .s`; \
|
||||||
$(NOCC_BIN)/6a -o $(NOCC_OBJ)/$$b.o $$s; \
|
$(NOCC_BIN)/w6a -o $(NOCC_OBJ)/$$b.o $$s; \
|
||||||
objs="$$objs $(NOCC_OBJ)/$$b.o"; \
|
objs="$$objs $(NOCC_OBJ)/$$b.o"; \
|
||||||
done; $(AR) rcs $(NOCC_LIB)/libwwrt.a $$objs
|
done; $(AR) rcs $(NOCC_LIB)/libwwrt.a $$objs
|
||||||
@echo "=== stage 1: stage-0 rebuilds the wwstage tools from source ==="
|
@echo "=== stage 1: stage-0 rebuilds the wwstage tools from source ==="
|
||||||
@# The driver's default lib path is $self_dir/../../lib — under
|
@# The driver's default lib path is $self_dir/../../lib — under
|
||||||
@# $(NOCC_BIN) that resolves to $(NOCC_OUT)/lib (libwwrt only).
|
@# $(NOCC_BIN) that resolves to $(NOCC_OUT)/lib (libwwrt only).
|
||||||
@# Pass -I $(CURDIR)/lib so `use os` etc. resolve to source.
|
@# Pass -I $(CURDIR)/lib so `use os` etc. resolve to source.
|
||||||
@cd $(NOCC_BIN) && ./ww build -I $(CURDIR)/selfhost/cmd/wwc \
|
@cd $(NOCC_BIN) && ./ww build -I $(CURDIR)/selfhost/cmd/wcc \
|
||||||
-I $(CURDIR)/lib $(CURDIR)/selfhost/cmd/6c/main.ww && mv main 6c_ww1
|
-I $(CURDIR)/lib $(CURDIR)/selfhost/cmd/w6c/main.ww && mv main w6c_ww1
|
||||||
@cd $(NOCC_BIN) && ./ww build -I $(CURDIR)/selfhost/cmd/6a \
|
@cd $(NOCC_BIN) && ./ww build -I $(CURDIR)/selfhost/cmd/w6a \
|
||||||
-I $(CURDIR)/selfhost/cmd/wwc -I $(CURDIR)/lib \
|
-I $(CURDIR)/selfhost/cmd/wcc -I $(CURDIR)/lib \
|
||||||
$(CURDIR)/selfhost/cmd/6a/main.ww && mv main 6a_ww1
|
$(CURDIR)/selfhost/cmd/w6a/main.ww && mv main w6a_ww1
|
||||||
@cd $(NOCC_BIN) && ./ww build -I $(CURDIR)/selfhost/cmd/6l \
|
@cd $(NOCC_BIN) && ./ww build -I $(CURDIR)/selfhost/cmd/w6l \
|
||||||
-I $(CURDIR)/selfhost/cmd/wwc -I $(CURDIR)/lib \
|
-I $(CURDIR)/selfhost/cmd/wcc -I $(CURDIR)/lib \
|
||||||
$(CURDIR)/selfhost/cmd/6l/main.ww && mv main 6l_ww1
|
$(CURDIR)/selfhost/cmd/w6l/main.ww && mv main w6l_ww1
|
||||||
@cd $(NOCC_BIN) && ./ww build -I $(CURDIR)/selfhost/cmd/wwc \
|
@cd $(NOCC_BIN) && ./ww build -I $(CURDIR)/selfhost/cmd/wcc \
|
||||||
-I $(CURDIR)/lib $(CURDIR)/selfhost/cmd/ww/main.ww && mv main ww_ww1
|
-I $(CURDIR)/lib $(CURDIR)/selfhost/cmd/ww/main.ww && mv main ww_ww1
|
||||||
@echo "=== fixed-point gates: rebuilt tools == stage-0 binaries? ==="
|
@echo "=== fixed-point gates: rebuilt tools == stage-0 binaries? ==="
|
||||||
@cmp $(NOCC_BIN)/6c_ww1 $(STAGE0)/6c && echo " 6c ✓"
|
@cmp $(NOCC_BIN)/w6c_ww1 $(STAGE0)/w6c && echo " w6c ✓"
|
||||||
@cmp $(NOCC_BIN)/6a_ww1 $(STAGE0)/6a && echo " 6a ✓"
|
@cmp $(NOCC_BIN)/w6a_ww1 $(STAGE0)/w6a && echo " w6a ✓"
|
||||||
@cmp $(NOCC_BIN)/6l_ww1 $(STAGE0)/6l && echo " 6l ✓"
|
@cmp $(NOCC_BIN)/w6l_ww1 $(STAGE0)/w6l && echo " w6l ✓"
|
||||||
@cmp $(NOCC_BIN)/ww_ww1 $(STAGE0)/ww && echo " ww ✓"
|
@cmp $(NOCC_BIN)/ww_ww1 $(STAGE0)/ww && echo " ww ✓"
|
||||||
@echo
|
@echo
|
||||||
@echo "NOCC OK: $(STAGE0)/* reproduces itself from source. cc not invoked."
|
@echo "NOCC OK: $(STAGE0)/* reproduces itself from source. cc not invoked."
|
||||||
|
|||||||
108
PLAN.md
108
PLAN.md
@@ -13,31 +13,31 @@ that prints its version. No compilation yet.
|
|||||||
Deliverables:
|
Deliverables:
|
||||||
|
|
||||||
- `Makefile` (POSIX) with `all`, `test`, `clean`, `install` targets.
|
- `Makefile` (POSIX) with `all`, `test`, `clean`, `install` targets.
|
||||||
- `cmd/wwc/` C library skeleton (builds `libwwc.a`):
|
- `cmd/wcc/` C library skeleton (builds `libwcc.a`):
|
||||||
- `ww.h` — central typedefs (`Node`, `Sym`, `Type`, `Lex`)
|
- `ww.h` — central typedefs (`Node`, `Sym`, `Type`, `Lex`)
|
||||||
- `mem.c` — bump arena allocator (no `malloc` in hot paths)
|
- `mem.c` — bump arena allocator (no `malloc` in hot paths)
|
||||||
- `err.c` — `errorf`, `fatal`, `warn`
|
- `err.c` — `errorf`, `fatal`, `warn`
|
||||||
- (lex/parse/check stubs added in later phases)
|
- (lex/parse/check stubs added in later phases)
|
||||||
- `cmd/ww/` driver skeleton: argv parsing, version print.
|
- `cmd/ww/` driver skeleton: argv parsing, version print.
|
||||||
- `test/run` — shell test harness.
|
- `test/run` — shell test harness.
|
||||||
- `test/wwc/000_smoke.c` — smoke test that asserts `ww -V` prints
|
- `test/wcc/000_smoke.c` — smoke test that asserts `ww -V` prints
|
||||||
the version.
|
the version.
|
||||||
|
|
||||||
Per-target binaries (`6c`, `6a`, `6l`) are NOT created here. They
|
Per-target binaries (`w6c`, `w6a`, `w6l`) are NOT created here. They
|
||||||
ship in their own phases (4, 5, 6).
|
ship in their own phases (4, 5, 6).
|
||||||
|
|
||||||
Exit criteria:
|
Exit criteria:
|
||||||
|
|
||||||
- `make` produces `out/bin/ww` and `out/lib/libwwc.a`.
|
- `make` produces `out/bin/ww` and `out/lib/libwcc.a`.
|
||||||
- `make test` runs the smoke test and passes.
|
- `make test` runs the smoke test and passes.
|
||||||
|
|
||||||
## Phase 1 — Lexer (in `libwwc.a`)
|
## Phase 1 — Lexer (in `libwcc.a`)
|
||||||
|
|
||||||
Goal: tokenize ww source into a stream of `Tok` structs.
|
Goal: tokenize ww source into a stream of `Tok` structs.
|
||||||
|
|
||||||
Deliverables:
|
Deliverables:
|
||||||
|
|
||||||
- `cmd/wwc/lex.c` — hand-rolled DFA. Handles:
|
- `cmd/wcc/lex.c` — hand-rolled DFA. Handles:
|
||||||
- identifiers, keywords (`fn`, `let`, `def`, `if`, `else`, `for`,
|
- identifiers, keywords (`fn`, `let`, `def`, `if`, `else`, `for`,
|
||||||
`switch`, `case`, `return`, `use`, `type`, `struct`, `defer`,
|
`switch`, `case`, `return`, `use`, `type`, `struct`, `defer`,
|
||||||
`break`, `continue`, `export`, `proc`, `chan`, `nil`, `true`,
|
`break`, `continue`, `export`, `proc`, `chan`, `nil`, `true`,
|
||||||
@@ -49,10 +49,10 @@ Deliverables:
|
|||||||
(`@symbol("name")`, etc.)
|
(`@symbol("name")`, etc.)
|
||||||
- explicit `;` terminators — no automatic insertion (Hare rule)
|
- explicit `;` terminators — no automatic insertion (Hare rule)
|
||||||
- `//` and `/* */` comments
|
- `//` and `/* */` comments
|
||||||
- `cmd/wwc/tok.c` — token names, debug printer.
|
- `cmd/wcc/tok.c` — token names, debug printer.
|
||||||
- `test/wwc/100_lex.c` — table-driven: input → token sequence.
|
- `test/wcc/100_lex.c` — table-driven: input → token sequence.
|
||||||
- `test/lang/lex/*.ww` — small files exercised via a tiny test
|
- `test/lang/lex/*.ww` — small files exercised via a tiny test
|
||||||
harness that links against `libwwc.a`.
|
harness that links against `libwcc.a`.
|
||||||
|
|
||||||
Exit criteria:
|
Exit criteria:
|
||||||
|
|
||||||
@@ -60,15 +60,15 @@ Exit criteria:
|
|||||||
stream deterministically.
|
stream deterministically.
|
||||||
- All lex tests green.
|
- All lex tests green.
|
||||||
|
|
||||||
## Phase 2 — Parser & AST (in `libwwc.a`)
|
## Phase 2 — Parser & AST (in `libwcc.a`)
|
||||||
|
|
||||||
Goal: parse the full grammar into an AST. No types yet.
|
Goal: parse the full grammar into an AST. No types yet.
|
||||||
|
|
||||||
Deliverables:
|
Deliverables:
|
||||||
|
|
||||||
- `cmd/wwc/parse.c` — recursive descent. Pratt expression parser for
|
- `cmd/wcc/parse.c` — recursive descent. Pratt expression parser for
|
||||||
precedence. No yacc.
|
precedence. No yacc.
|
||||||
- `cmd/wwc/ast.c` — `Node` constructor helpers; printer.
|
- `cmd/wcc/ast.c` — `Node` constructor helpers; printer.
|
||||||
- Grammar coverage:
|
- Grammar coverage:
|
||||||
- `use` imports (paths use `.` not `::`)
|
- `use` imports (paths use `.` not `::`)
|
||||||
- `type` declarations (struct, alias, fn type) with trailing `=`
|
- `type` declarations (struct, alias, fn type) with trailing `=`
|
||||||
@@ -81,7 +81,7 @@ Deliverables:
|
|||||||
- `defer`
|
- `defer`
|
||||||
- body-less `fn` declarations and `@symbol("name")` attribute for
|
- body-less `fn` declarations and `@symbol("name")` attribute for
|
||||||
FFI imports
|
FFI imports
|
||||||
- `test/wwc/200_parse.c` — table-driven AST shape tests.
|
- `test/wcc/200_parse.c` — table-driven AST shape tests.
|
||||||
- `test/lang/parse/*.ww` — programs that should parse but not yet
|
- `test/lang/parse/*.ww` — programs that should parse but not yet
|
||||||
typecheck; harness only checks parser exits 0.
|
typecheck; harness only checks parser exits 0.
|
||||||
|
|
||||||
@@ -91,22 +91,22 @@ Exit criteria:
|
|||||||
`ref/hare/cmd/hare/main.ha`.
|
`ref/hare/cmd/hare/main.ha`.
|
||||||
- AST printer output is deterministic.
|
- AST printer output is deterministic.
|
||||||
|
|
||||||
## Phase 3 — Type checker (in `libwwc.a`)
|
## Phase 3 — Type checker (in `libwcc.a`)
|
||||||
|
|
||||||
Goal: resolve names, infer/check types, produce a typed AST.
|
Goal: resolve names, infer/check types, produce a typed AST.
|
||||||
|
|
||||||
Deliverables:
|
Deliverables:
|
||||||
|
|
||||||
- `cmd/wwc/sym.c` — symbol table. Lexical scopes. Plan 9 style hash.
|
- `cmd/wcc/sym.c` — symbol table. Lexical scopes. Plan 9 style hash.
|
||||||
- `cmd/wwc/type.c` — type representation, equality, conversion rules.
|
- `cmd/wcc/type.c` — type representation, equality, conversion rules.
|
||||||
- `cmd/wwc/check.c` — type checking pass over the AST. Errors carry
|
- `cmd/wcc/check.c` — type checking pass over the AST. Errors carry
|
||||||
source locations.
|
source locations.
|
||||||
- Built-in types: all integer widths, `bool`, `f32`, `f64`, `rune`,
|
- Built-in types: all integer widths, `bool`, `f32`, `f64`, `rune`,
|
||||||
`str`, `void`, pointers, slices `[]T`, fixed arrays `[N]T`,
|
`str`, `void`, pointers, slices `[]T`, fixed arrays `[N]T`,
|
||||||
function types.
|
function types.
|
||||||
- Slice semantics: `{ ptr, len, cap }`, indexing bounds-checked at
|
- Slice semantics: `{ ptr, len, cap }`, indexing bounds-checked at
|
||||||
runtime (debug builds; release may elide via flag).
|
runtime (debug builds; release may elide via flag).
|
||||||
- `test/wwc/300_check.c` — table-driven: src → expected error or OK.
|
- `test/wcc/300_check.c` — table-driven: src → expected error or OK.
|
||||||
- `test/lang/check/*.ww` — both passing and failing cases.
|
- `test/lang/check/*.ww` — both passing and failing cases.
|
||||||
|
|
||||||
Exit criteria:
|
Exit criteria:
|
||||||
@@ -114,17 +114,17 @@ Exit criteria:
|
|||||||
- All built-in types correctly checked.
|
- All built-in types correctly checked.
|
||||||
- Negative tests produce stable, useful diagnostics.
|
- Negative tests produce stable, useful diagnostics.
|
||||||
|
|
||||||
## Phase 4 — `6c` amd64 compiler
|
## Phase 4 — `w6c` amd64 compiler
|
||||||
|
|
||||||
Goal: turn typed AST into Plan 9-style amd64 assembly text. The
|
Goal: turn typed AST into Plan 9-style amd64 assembly text. The
|
||||||
binary `6c` is a Plan 9 cc analogue for amd64. There is no separate
|
binary `w6c` is a Plan 9 cc analogue for amd64. There is no separate
|
||||||
SSA IR file; the only on-disk intermediate is `.s`.
|
SSA IR file; the only on-disk intermediate is `.s`.
|
||||||
|
|
||||||
Deliverables:
|
Deliverables:
|
||||||
|
|
||||||
- `cmd/6c/` (links against `libwwc.a`):
|
- `cmd/w6c/` (links against `libwcc.a`):
|
||||||
- `6.out.h` — amd64 opcode enum, register names, addressing
|
- `6.out.h` — amd64 opcode enum, register names, addressing
|
||||||
modes. Mirror `ref/plan9front/sys/src/cmd/6c/` shape.
|
modes. Mirror `ref/plan9front/sys/src/cmd/w6c/` shape.
|
||||||
- `gc.h` — `Prog`, `Adr`, scratch regs, stack layout.
|
- `gc.h` — `Prog`, `Adr`, scratch regs, stack layout.
|
||||||
- `cgen.c` — typed AST → `Prog` list (walking, not SSA).
|
- `cgen.c` — typed AST → `Prog` list (walking, not SSA).
|
||||||
- `txt.c` — `Prog` list → textual Plan 9 amd64 asm.
|
- `txt.c` — `Prog` list → textual Plan 9 amd64 asm.
|
||||||
@@ -133,22 +133,22 @@ Deliverables:
|
|||||||
first; tighten later).
|
first; tighten later).
|
||||||
- `mkfile` — Plan 9 mkfile next to the Makefile entries.
|
- `mkfile` — Plan 9 mkfile next to the Makefile entries.
|
||||||
- Output suffix `.s`. Plan 9 amd64 asm syntax (not GAS).
|
- Output suffix `.s`. Plan 9 amd64 asm syntax (not GAS).
|
||||||
- `test/lang/6c/*.ww` — golden tests: src → expected `.s` text.
|
- `test/lang/w6c/*.ww` — golden tests: src → expected `.s` text.
|
||||||
|
|
||||||
Exit criteria:
|
Exit criteria:
|
||||||
|
|
||||||
- `6c hello.ww` produces `hello.s`.
|
- `w6c hello.ww` produces `hello.s`.
|
||||||
- 20+ programs round-trip identically across runs.
|
- 20+ programs round-trip identically across runs.
|
||||||
- The output is consumable by phase 5's `6a`.
|
- The output is consumable by phase 5's `w6a`.
|
||||||
|
|
||||||
## Phase 5 — `6a` amd64 assembler
|
## Phase 5 — `w6a` amd64 assembler
|
||||||
|
|
||||||
Goal: assemble Plan 9 amd64 asm into ELF object files. ELF (not
|
Goal: assemble Plan 9 amd64 asm into ELF object files. ELF (not
|
||||||
Plan 9 a.out) so we can interop with C archives in phase 8.
|
Plan 9 a.out) so we can interop with C archives in phase 8.
|
||||||
|
|
||||||
Deliverables:
|
Deliverables:
|
||||||
|
|
||||||
- `cmd/6a/`:
|
- `cmd/w6a/`:
|
||||||
- `lex.c` — tokenize Plan 9 asm.
|
- `lex.c` — tokenize Plan 9 asm.
|
||||||
- `parse.c` — hand-rolled grammar (Plan 9 uses yacc; we go
|
- `parse.c` — hand-rolled grammar (Plan 9 uses yacc; we go
|
||||||
hand-rolled to keep rule #6 honest).
|
hand-rolled to keep rule #6 honest).
|
||||||
@@ -157,21 +157,21 @@ Deliverables:
|
|||||||
- `mkfile`
|
- `mkfile`
|
||||||
- Pseudoregisters supported: `SP`, `FP`, `SB` (static base) per
|
- Pseudoregisters supported: `SP`, `FP`, `SB` (static base) per
|
||||||
Plan 9 convention, on top of `AX`, `BX`, ..., `R8`-`R15`.
|
Plan 9 convention, on top of `AX`, `BX`, ..., `R8`-`R15`.
|
||||||
- `test/wwc/500_asm.c` — round-trip known asm to known bytes.
|
- `test/wcc/500_asm.c` — round-trip known asm to known bytes.
|
||||||
|
|
||||||
Exit criteria:
|
Exit criteria:
|
||||||
|
|
||||||
- `6a hello.s -o hello.o` produces a valid ELF amd64 object.
|
- `w6a hello.s -o hello.o` produces a valid ELF amd64 object.
|
||||||
- `objdump -d hello.o` matches expectations across a 20-program
|
- `objdump -d hello.o` matches expectations across a 20-program
|
||||||
corpus.
|
corpus.
|
||||||
|
|
||||||
## Phase 6 — `6l` amd64 linker
|
## Phase 6 — `w6l` amd64 linker
|
||||||
|
|
||||||
Goal: link ELF objects into a static ELF executable.
|
Goal: link ELF objects into a static ELF executable.
|
||||||
|
|
||||||
Deliverables:
|
Deliverables:
|
||||||
|
|
||||||
- `cmd/6l/`:
|
- `cmd/w6l/`:
|
||||||
- `obj.c` — load ELF `.o` files and `.a` archives.
|
- `obj.c` — load ELF `.o` files and `.a` archives.
|
||||||
- `sym.c` — global symbol table; resolution.
|
- `sym.c` — global symbol table; resolution.
|
||||||
- `pass.c` — section layout, relocation application.
|
- `pass.c` — section layout, relocation application.
|
||||||
@@ -182,14 +182,14 @@ Deliverables:
|
|||||||
|
|
||||||
Exit criteria:
|
Exit criteria:
|
||||||
|
|
||||||
- `6l -o hello hello.o libwwrt.a` produces a static ELF binary.
|
- `w6l -o hello hello.o libwwrt.a` produces a static ELF binary.
|
||||||
- `ldd hello` reports "not a dynamic executable".
|
- `ldd hello` reports "not a dynamic executable".
|
||||||
- The binary exits 0 with the program's intended semantics.
|
- The binary exits 0 with the program's intended semantics.
|
||||||
|
|
||||||
## Phase 7 — Runtime + driver wiring
|
## Phase 7 — Runtime + driver wiring
|
||||||
|
|
||||||
Goal: a tiny static runtime, plus the `ww` driver wired to call
|
Goal: a tiny static runtime, plus the `ww` driver wired to call
|
||||||
`6c → 6a → 6l` end to end.
|
`w6c → w6a → w6l` end to end.
|
||||||
|
|
||||||
Deliverables:
|
Deliverables:
|
||||||
|
|
||||||
@@ -201,8 +201,8 @@ Deliverables:
|
|||||||
- `rt/slice.c` — slice helpers used by codegen
|
- `rt/slice.c` — slice helpers used by codegen
|
||||||
(`bounds_check`, `slice_grow` for explicit user calls).
|
(`bounds_check`, `slice_grow` for explicit user calls).
|
||||||
- Build artifact: `out/lib/libwwrt.a`.
|
- Build artifact: `out/lib/libwwrt.a`.
|
||||||
- `cmd/ww/` driver: reads `ww build foo.ww`, runs `6c` then `6a`
|
- `cmd/ww/` driver: reads `ww build foo.ww`, runs `w6c` then `w6a`
|
||||||
then `6l`, links `libwwrt.a` into the output.
|
then `w6l`, links `libwwrt.a` into the output.
|
||||||
|
|
||||||
Exit criteria:
|
Exit criteria:
|
||||||
|
|
||||||
@@ -217,8 +217,8 @@ Deliverables:
|
|||||||
|
|
||||||
- Body-less `fn` declarations + `@symbol("name")` attribute parser
|
- Body-less `fn` declarations + `@symbol("name")` attribute parser
|
||||||
and checker rules already in phases 2/3 — finalize codegen.
|
and checker rules already in phases 2/3 — finalize codegen.
|
||||||
- amd64 SysV ABI: formalize struct-by-value and varargs in `6c`.
|
- amd64 SysV ABI: formalize struct-by-value and varargs in `w6c`.
|
||||||
- `6l` learns to slurp static archives from a search path.
|
- `w6l` learns to slurp static archives from a search path.
|
||||||
- `lib/c/libc/` — minimal libc bindings (`malloc`, `free`, `printf`,
|
- `lib/c/libc/` — minimal libc bindings (`malloc`, `free`, `printf`,
|
||||||
`read`, `write`, `open`, `close`).
|
`read`, `write`, `open`, `close`).
|
||||||
- `lib/c/tls/` — bindings to libtls or BearSSL (decide; BearSSL is
|
- `lib/c/tls/` — bindings to libtls or BearSSL (decide; BearSSL is
|
||||||
@@ -226,7 +226,7 @@ Deliverables:
|
|||||||
- `lib/c/crypto/` — bindings to libcrypto subset (sha256, aes, hmac).
|
- `lib/c/crypto/` — bindings to libcrypto subset (sha256, aes, hmac).
|
||||||
- `lib/c/curses/` — ncurses bindings (initscr, getch, mvprintw, ...).
|
- `lib/c/curses/` — ncurses bindings (initscr, getch, mvprintw, ...).
|
||||||
- `ww` driver: `ww build -lcrypto -ltls -lncurses` resolves these
|
- `ww` driver: `ww build -lcrypto -ltls -lncurses` resolves these
|
||||||
via a `pkg-config`-style probe, hands `.a` paths to `6l`.
|
via a `pkg-config`-style probe, hands `.a` paths to `w6l`.
|
||||||
|
|
||||||
Exit criteria:
|
Exit criteria:
|
||||||
|
|
||||||
@@ -268,7 +268,7 @@ Exit criteria per module:
|
|||||||
|
|
||||||
## Phase 10 — Self-host
|
## Phase 10 — Self-host
|
||||||
|
|
||||||
Goal: rewrite `libwwc`, `6c`, `6a`, `6l`, and `ww` in ww. Drop the
|
Goal: rewrite `libwcc`, `w6c`, `w6a`, `w6l`, and `ww` in ww. Drop the
|
||||||
C bootstrap.
|
C bootstrap.
|
||||||
|
|
||||||
Steps:
|
Steps:
|
||||||
@@ -278,9 +278,9 @@ Steps:
|
|||||||
2. Port `lex.c` → `lex.ww`. Diff token streams against C output.
|
2. Port `lex.c` → `lex.ww`. Diff token streams against C output.
|
||||||
3. Port `parse.c` → `parse.ww`. Diff ASTs.
|
3. Port `parse.c` → `parse.ww`. Diff ASTs.
|
||||||
4. Port `check.c`. Diff typed ASTs.
|
4. Port `check.c`. Diff typed ASTs.
|
||||||
5. Port `6c` (cgen, txt, peep, reg, swt). Diff `.s` output byte
|
5. Port `w6c` (cgen, txt, peep, reg, swt). Diff `.s` output byte
|
||||||
for byte.
|
for byte.
|
||||||
6. Port `6a` and `6l`. Diff resulting `.o` and final binaries.
|
6. Port `w6a` and `w6l`. Diff resulting `.o` and final binaries.
|
||||||
7. Three-stage bootstrap:
|
7. Three-stage bootstrap:
|
||||||
`Cstage (gcc-built tools) → ww1 → ww2 → ww3`, with
|
`Cstage (gcc-built tools) → ww1 → ww2 → ww3`, with
|
||||||
`cmp ww2 ww3` OK for each tool.
|
`cmp ww2 ww3` OK for each tool.
|
||||||
@@ -288,7 +288,7 @@ Steps:
|
|||||||
Exit criteria:
|
Exit criteria:
|
||||||
|
|
||||||
- `make bootstrap` runs the three-stage build green.
|
- `make bootstrap` runs the three-stage build green.
|
||||||
- The C `cmd/wwc/`, `cmd/6c/`, `cmd/6a/`, `cmd/6l/` C trees are
|
- The C `cmd/wcc/`, `cmd/w6c/`, `cmd/w6a/`, `cmd/w6l/` C trees are
|
||||||
deleted in this phase's final commit.
|
deleted in this phase's final commit.
|
||||||
|
|
||||||
### Status (2026-05)
|
### Status (2026-05)
|
||||||
@@ -296,10 +296,10 @@ Exit criteria:
|
|||||||
Steps 1–6 done. The five ww-side tools live in `selfhost/cmd/`:
|
Steps 1–6 done. The five ww-side tools live in `selfhost/cmd/`:
|
||||||
|
|
||||||
- `wwc/` — ww-native lex/parse/check/cgen (the frontend library)
|
- `wwc/` — ww-native lex/parse/check/cgen (the frontend library)
|
||||||
- `6c/` — ww-native compiler binary; thin driver over wwc's cgen
|
- `w6c/` — ww-native compiler binary; thin driver over wwc's cgen
|
||||||
- `6a/` — ww-native amd64 assembler
|
- `w6a/` — ww-native amd64 assembler
|
||||||
- `6l/` — ww-native amd64 linker
|
- `w6l/` — ww-native amd64 linker
|
||||||
- `ww/` — ww-native driver, shells to `6c_ww/6a_ww/6l_ww`
|
- `ww/` — ww-native driver, shells to `w6c_ww/w6a_ww/w6l_ww`
|
||||||
|
|
||||||
Step 7 reaches its fixed point: `make bootstrap` produces ww1 → ww2 →
|
Step 7 reaches its fixed point: `make bootstrap` produces ww1 → ww2 →
|
||||||
ww3 with `cmp ww2 ww3` byte-identical. Tests 990–994 confirm each
|
ww3 with `cmp ww2 ww3` byte-identical. Tests 990–994 confirm each
|
||||||
@@ -312,20 +312,20 @@ toolchain underneath).
|
|||||||
the wwstage tools end-to-end. Cstage is still required at first-
|
the wwstage tools end-to-end. Cstage is still required at first-
|
||||||
checkout time (no checked-in stage-0 binary yet). ET_DYN dynamic
|
checkout time (no checked-in stage-0 binary yet). ET_DYN dynamic
|
||||||
linking is also fully ported to the ww side (test 996 confirms
|
linking is also fully ported to the ww side (test 996 confirms
|
||||||
`6l_ww -L ... -l ...` is byte-identical to `6l` on snake); the one
|
`w6l_ww -L ... -l ...` is byte-identical to `w6l` on snake); the one
|
||||||
remaining gap is that `ww_ww build`'s argv parser does not yet
|
remaining gap is that `ww_ww build`'s argv parser does not yet
|
||||||
forward `-L`/`-l` to the linker — `6l_ww` accepts them when invoked
|
forward `-L`/`-l` to the linker — `w6l_ww` accepts them when invoked
|
||||||
directly, just not through the ww-side driver. Snake's Makefile
|
directly, just not through the ww-side driver. Snake's Makefile
|
||||||
still drives the C `ww` for that reason; switching it to `6l_ww` +
|
still drives the C `ww` for that reason; switching it to `w6l_ww` +
|
||||||
explicit args works today.
|
explicit args works today.
|
||||||
|
|
||||||
Exit criterion 1 (bootstrap green) is met. Exit criterion 2 (delete
|
Exit criterion 1 (bootstrap green) is met. Exit criterion 2 (delete
|
||||||
the C trees) is **deferred to v1.0**: removing `cmd/wwc/`, `cmd/6c/`,
|
the C trees) is **deferred to v1.0**: removing `cmd/wcc/`, `cmd/w6c/`,
|
||||||
`cmd/6a/`, `cmd/6l/`, `cmd/ww/` is a one-way door. Until the compiler
|
`cmd/w6a/`, `cmd/w6l/`, `cmd/ww/` is a one-way door. Until the compiler
|
||||||
stops churning we keep Cstage as the canonical fresh-checkout entry
|
stops churning we keep Cstage as the canonical fresh-checkout entry
|
||||||
point and treat `selfhost/cmd/*` as the path forward. At v1.0, the
|
point and treat `selfhost/cmd/*` as the path forward. At v1.0, the
|
||||||
plan is to ship a checked-in stage-0 binary archive
|
plan is to ship a checked-in stage-0 binary archive
|
||||||
(`bootstrap/<arch>/{ww,6c,6a,6l}`), delete the C trees, and promote
|
(`bootstrap/<arch>/{ww,w6c,w6a,w6l}`), delete the C trees, and promote
|
||||||
`selfhost/cmd/*` to `cmd/*`.
|
`selfhost/cmd/*` to `cmd/*`.
|
||||||
|
|
||||||
See `BOOTSTRAP.md` for the build flow and `make cstage`/`make wwstage`
|
See `BOOTSTRAP.md` for the build flow and `make cstage`/`make wwstage`
|
||||||
@@ -365,7 +365,7 @@ Exit criteria:
|
|||||||
|
|
||||||
## Test cadence
|
## Test cadence
|
||||||
|
|
||||||
Every phase has its own test directory (`test/wwc/<phase>_*.c`,
|
Every phase has its own test directory (`test/wcc/<phase>_*.c`,
|
||||||
`test/lang/<phase-area>/*.ww`). `make test` runs them all in order
|
`test/lang/<phase-area>/*.ww`). `make test` runs them all in order
|
||||||
of phase. CI is just `make test` in a clean tree.
|
of phase. CI is just `make test` in a clean tree.
|
||||||
|
|
||||||
@@ -387,7 +387,7 @@ Tag the tree at each phase boundary:
|
|||||||
you've copied.
|
you've copied.
|
||||||
- **Writing a linker is hard.** ELF is documented, static linking
|
- **Writing a linker is hard.** ELF is documented, static linking
|
||||||
is the small subset. Read `ref/plan9front/sys/src/cmd/8l/` and
|
is the small subset. Read `ref/plan9front/sys/src/cmd/8l/` and
|
||||||
the ELF spec before writing `6l`. Start with hello-world and grow.
|
the ELF spec before writing `w6l`. Start with hello-world and grow.
|
||||||
- **Static linking against C libs.** OpenSSL is a pain to build
|
- **Static linking against C libs.** OpenSSL is a pain to build
|
||||||
static; BearSSL or LibreTLS are more pleasant. Pick early.
|
static; BearSSL or LibreTLS are more pleasant. Pick early.
|
||||||
- **Self-host bootstrap divergence.** Diff outputs at every stage,
|
- **Self-host bootstrap divergence.** Diff outputs at every stage,
|
||||||
|
|||||||
@@ -6,15 +6,15 @@ executables that match the wwstage layout:
|
|||||||
|
|
||||||
bootstrap/amd64/
|
bootstrap/amd64/
|
||||||
ww driver, equivalent to out/bin/ww_ww
|
ww driver, equivalent to out/bin/ww_ww
|
||||||
6c compiler, out/bin/6c_ww
|
w6c compiler, out/bin/w6c_ww
|
||||||
6a assembler, out/bin/6a_ww
|
w6a assembler, out/bin/w6a_ww
|
||||||
6l linker, out/bin/6l_ww
|
w6l linker, out/bin/w6l_ww
|
||||||
|
|
||||||
The binaries are intentionally **gitignored** until the compiler stops
|
The binaries are intentionally **gitignored** until the compiler stops
|
||||||
churning enough to make the trust surface stable — see `PLAN.md` and
|
churning enough to make the trust surface stable — see `PLAN.md` and
|
||||||
the v1.0 plan in `BOOTSTRAP.md`. To put them under your local working
|
the v1.0 plan in `BOOTSTRAP.md`. To put them under your local working
|
||||||
copy, run `make bootstrap-snapshot` after a green `make wwstage`; to
|
copy, run `make bootstrap-snapshot` after a green `make wwstage`; to
|
||||||
ship them, `git add -f bootstrap/amd64/{ww,6c,6a,6l}` explicitly.
|
ship them, `git add -f bootstrap/amd64/{ww,w6c,w6a,w6l}` explicitly.
|
||||||
|
|
||||||
## Workflow
|
## Workflow
|
||||||
|
|
||||||
@@ -30,6 +30,6 @@ build under `out/` is undisturbed.
|
|||||||
## When to refresh the snapshot
|
## When to refresh the snapshot
|
||||||
|
|
||||||
The stage-0 binaries are frozen at the cgen state they were built
|
The stage-0 binaries are frozen at the cgen state they were built
|
||||||
with. A `make nocc` failure usually means the live `selfhost/cmd/wwc`
|
with. A `make nocc` failure usually means the live `selfhost/cmd/wcc`
|
||||||
cgen has drifted from the snapshot — regenerate with
|
cgen has drifted from the snapshot — regenerate with
|
||||||
`make bootstrap-snapshot` and re-verify.
|
`make bootstrap-snapshot` and re-verify.
|
||||||
|
|||||||
@@ -1,8 +1,8 @@
|
|||||||
/*
|
/*
|
||||||
* a.h — 6a-private header. Modelled on Plan 9 cmd/6a/a.h, trimmed
|
* a.h — w6a-private header. Modelled on Plan 9 cmd/6a/a.h, trimmed
|
||||||
* to the instruction subset that 6c emits.
|
* to the instruction subset that w6c emits.
|
||||||
*
|
*
|
||||||
* 6a is line-oriented and has no preprocessor: each non-blank, non-
|
* w6a is line-oriented and has no preprocessor: each non-blank, non-
|
||||||
* label line is one instruction. We read the whole file into a list
|
* label line is one instruction. We read the whole file into a list
|
||||||
* of `Aprog`s, then encode and emit ELF64.
|
* of `Aprog`s, then encode and emit ELF64.
|
||||||
*/
|
*/
|
||||||
@@ -387,7 +387,7 @@ a_encode(Asm *a)
|
|||||||
Asym *s = a_intern(a, p->to.sym);
|
Asym *s = a_intern(a, p->to.sym);
|
||||||
a_addreloc(a, reloff, 2, s, -4);
|
a_addreloc(a, reloff, 2, s, -4);
|
||||||
} else {
|
} else {
|
||||||
fprintf(stderr, "6a: line %d: unsupported MOVQ shape\n", p->line);
|
fprintf(stderr, "w6a: line %d: unsupported MOVQ shape\n", p->line);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -407,7 +407,7 @@ a_encode(Asm *a)
|
|||||||
emit_modrm_mem(a, rcode(p->to.type),
|
emit_modrm_mem(a, rcode(p->to.type),
|
||||||
p->from.reg, p->from.offset);
|
p->from.reg, p->from.offset);
|
||||||
} else {
|
} else {
|
||||||
fprintf(stderr, "6a: line %d: unsupported MOVB shape\n", p->line);
|
fprintf(stderr, "w6a: line %d: unsupported MOVB shape\n", p->line);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -421,7 +421,7 @@ a_encode(Asm *a)
|
|||||||
emit_modrm_mem(a, rcode(p->to.type),
|
emit_modrm_mem(a, rcode(p->to.type),
|
||||||
p->from.reg, p->from.offset);
|
p->from.reg, p->from.offset);
|
||||||
} else {
|
} else {
|
||||||
fprintf(stderr, "6a: line %d: unsupported MOVZBQ shape\n", p->line);
|
fprintf(stderr, "w6a: line %d: unsupported MOVZBQ shape\n", p->line);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -449,7 +449,7 @@ a_encode(Asm *a)
|
|||||||
a_emit_byte(a, modrm(3,
|
a_emit_byte(a, modrm(3,
|
||||||
rcode(p->from.type), rcode(p->to.type)));
|
rcode(p->from.type), rcode(p->to.type)));
|
||||||
} else {
|
} else {
|
||||||
fprintf(stderr, "6a: line %d: unsupported MOVL shape\n", p->line);
|
fprintf(stderr, "w6a: line %d: unsupported MOVL shape\n", p->line);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -462,7 +462,7 @@ a_encode(Asm *a)
|
|||||||
emit_modrm_mem(a, rcode(p->to.type),
|
emit_modrm_mem(a, rcode(p->to.type),
|
||||||
p->from.reg, p->from.offset);
|
p->from.reg, p->from.offset);
|
||||||
} else {
|
} else {
|
||||||
fprintf(stderr, "6a: line %d: unsupported MOVSXD shape\n", p->line);
|
fprintf(stderr, "w6a: line %d: unsupported MOVSXD shape\n", p->line);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -479,7 +479,7 @@ a_encode(Asm *a)
|
|||||||
sse_mr_load(a, 0xF2, 0x11, p->from.type,
|
sse_mr_load(a, 0xF2, 0x11, p->from.type,
|
||||||
p->to.reg, p->to.offset);
|
p->to.reg, p->to.offset);
|
||||||
} else {
|
} else {
|
||||||
fprintf(stderr, "6a: line %d: unsupported MOVSD shape\n", p->line);
|
fprintf(stderr, "w6a: line %d: unsupported MOVSD shape\n", p->line);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -516,7 +516,7 @@ a_encode(Asm *a)
|
|||||||
sse_mr_load(a, 0xF3, 0x11, p->from.type,
|
sse_mr_load(a, 0xF3, 0x11, p->from.type,
|
||||||
p->to.reg, p->to.offset);
|
p->to.reg, p->to.offset);
|
||||||
} else {
|
} else {
|
||||||
fprintf(stderr, "6a: line %d: unsupported MOVSS shape\n", p->line);
|
fprintf(stderr, "w6a: line %d: unsupported MOVSS shape\n", p->line);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -665,7 +665,7 @@ a_encode(Asm *a)
|
|||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
default:
|
default:
|
||||||
fprintf(stderr, "6a: unsupported opcode %d on line %d\n", p->as, p->line);
|
fprintf(stderr, "w6a: unsupported opcode %d on line %d\n", p->as, p->line);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -673,7 +673,7 @@ a_encode(Asm *a)
|
|||||||
/* second pass: patch fixups */
|
/* second pass: patch fixups */
|
||||||
for (Fixup *f = fixups; f; f = f->next) {
|
for (Fixup *f = fixups; f; f = f->next) {
|
||||||
if (!label_defined(a, f->label)) {
|
if (!label_defined(a, f->label)) {
|
||||||
fprintf(stderr, "6a: undefined label '%s'\n", f->label);
|
fprintf(stderr, "w6a: undefined label '%s'\n", f->label);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
continue;
|
continue;
|
||||||
}
|
}
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* lex.c — character-level helpers for 6a's line-oriented parser.
|
* lex.c — character-level helpers for w6a's line-oriented parser.
|
||||||
* The parser itself lives in parse.c; here we keep the tokenisers
|
* The parser itself lives in parse.c; here we keep the tokenisers
|
||||||
* for identifiers and numbers so parse.c stays focused on syntax.
|
* for identifiers and numbers so parse.c stays focused on syntax.
|
||||||
*/
|
*/
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* 6a — amd64 assembler driver. Read .s, parse, encode, emit ELF .o.
|
* w6a — amd64 assembler driver. Read .s, parse, encode, emit ELF .o.
|
||||||
*/
|
*/
|
||||||
#include "a.h"
|
#include "a.h"
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
@@ -32,18 +32,18 @@ main(int argc, char **argv)
|
|||||||
for (int i = 1; i < argc; i++) {
|
for (int i = 1; i < argc; i++) {
|
||||||
if (strcmp(argv[i], "-o") == 0 && i + 1 < argc) out = argv[++i];
|
if (strcmp(argv[i], "-o") == 0 && i + 1 < argc) out = argv[++i];
|
||||||
else if (argv[i][0] == '-') {
|
else if (argv[i][0] == '-') {
|
||||||
fprintf(stderr, "6a: unknown flag %s\n", argv[i]); return 2;
|
fprintf(stderr, "w6a: unknown flag %s\n", argv[i]); return 2;
|
||||||
} else if (src == NULL) src = argv[i];
|
} else if (src == NULL) src = argv[i];
|
||||||
else { fprintf(stderr, "6a: only one input\n"); return 2; }
|
else { fprintf(stderr, "w6a: only one input\n"); return 2; }
|
||||||
}
|
}
|
||||||
if (src == NULL || out == NULL) {
|
if (src == NULL || out == NULL) {
|
||||||
fputs("usage: 6a -o file.o file.s\n", stderr);
|
fputs("usage: w6a -o file.o file.s\n", stderr);
|
||||||
return 2;
|
return 2;
|
||||||
}
|
}
|
||||||
char *buf;
|
char *buf;
|
||||||
u64 len;
|
u64 len;
|
||||||
if (slurp(src, &buf, &len) < 0) {
|
if (slurp(src, &buf, &len) < 0) {
|
||||||
fprintf(stderr, "6a: cannot read %s\n", src);
|
fprintf(stderr, "w6a: cannot read %s\n", src);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
Asm a;
|
Asm a;
|
||||||
@@ -51,7 +51,7 @@ main(int argc, char **argv)
|
|||||||
if (a_parse(&a) != 0) return 1;
|
if (a_parse(&a) != 0) return 1;
|
||||||
if (a_encode(&a) != 0) return 1;
|
if (a_encode(&a) != 0) return 1;
|
||||||
FILE *f = fopen(out, "wb");
|
FILE *f = fopen(out, "wb");
|
||||||
if (f == NULL) { fprintf(stderr, "6a: cannot open %s\n", out); return 1; }
|
if (f == NULL) { fprintf(stderr, "w6a: cannot open %s\n", out); return 1; }
|
||||||
int rc = a_emit_elf(&a, f);
|
int rc = a_emit_elf(&a, f);
|
||||||
fclose(f);
|
fclose(f);
|
||||||
free(buf);
|
free(buf);
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* parse.c — line-oriented parser for the asm subset emitted by 6c.
|
* parse.c — line-oriented parser for the asm subset emitted by w6c.
|
||||||
*
|
*
|
||||||
* Grammar:
|
* Grammar:
|
||||||
* line := blank | comment | label | text | instr
|
* line := blank | comment | label | text | instr
|
||||||
@@ -36,7 +36,7 @@ a_init(Asm *a, const char *file, const char *src, u64 len)
|
|||||||
static void
|
static void
|
||||||
err(Asm *a, const char *msg)
|
err(Asm *a, const char *msg)
|
||||||
{
|
{
|
||||||
fprintf(stderr, "6a: %s:%d: %s\n", a->file, a->line, msg);
|
fprintf(stderr, "w6a: %s:%d: %s\n", a->file, a->line, msg);
|
||||||
a->errs++;
|
a->errs++;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
/*
|
/*
|
||||||
* 6.out.h — amd64 instruction enum + register names. Mirrors the
|
* 6.out.h — amd64 instruction enum + register names. Mirrors the
|
||||||
* Plan 9 6c shape (cmd/6c/6.out.h) but trimmed to the subset that
|
* Plan 9 6c shape (cmd/6c/6.out.h) but trimmed to the subset that
|
||||||
* 6c emits and 6a consumes in this bootstrap. Each new opcode added
|
* w6c emits and w6a consumes in this bootstrap. Each new opcode added
|
||||||
* here must also gain encoding support in cmd/6a/asm.c.
|
* here must also gain encoding support in cmd/w6a/asm.c.
|
||||||
*/
|
*/
|
||||||
#ifndef SIX_OUT_H
|
#ifndef SIX_OUT_H
|
||||||
#define SIX_OUT_H
|
#define SIX_OUT_H
|
||||||
@@ -10,7 +10,7 @@
|
|||||||
* (SysV amd64 ABI). We don't yet handle struct-by-value or
|
* (SysV amd64 ABI). We don't yet handle struct-by-value or
|
||||||
* floats; floats and slices are deferred.
|
* floats; floats and slices are deferred.
|
||||||
*
|
*
|
||||||
* Calling our own functions: emit CALL <name>(SB), let 6a/6l resolve.
|
* Calling our own functions: emit CALL <name>(SB), let w6a/w6l resolve.
|
||||||
* Calling C externs: same — extern symbols are just unresolved CALLs.
|
* Calling C externs: same — extern symbols are just unresolved CALLs.
|
||||||
*/
|
*/
|
||||||
#include "gc.h"
|
#include "gc.h"
|
||||||
@@ -605,7 +605,7 @@ cgexpr(Cg *c, Node *n, Local *locals)
|
|||||||
* inspect n->lhs. UCOMISD/UCOMISS sets ZF/CF as if an
|
* inspect n->lhs. UCOMISD/UCOMISS sets ZF/CF as if an
|
||||||
* unsigned compare, so the JA family is the right Jcc set
|
* unsigned compare, so the JA family is the right Jcc set
|
||||||
* regardless of how the operand types are signed. Plan 9's
|
* regardless of how the operand types are signed. Plan 9's
|
||||||
* own 6c picks the same pattern (txt.c around AUCOMISD).
|
* own w6c picks the same pattern (txt.c around AUCOMISD).
|
||||||
* NaN handling: UCOMI sets PF on unordered; we ignore it,
|
* NaN handling: UCOMI sets PF on unordered; we ignore it,
|
||||||
* which means NaN compares behave like Hare's default. */
|
* which means NaN compares behave like Hare's default. */
|
||||||
if (n->lhs && node_isfloat(n->lhs) &&
|
if (n->lhs && node_isfloat(n->lhs) &&
|
||||||
@@ -1837,7 +1837,7 @@ cgexpr(Cg *c, Node *n, Local *locals)
|
|||||||
* with a single MOVQ. Without this, returning `o.p.val`
|
* with a single MOVQ. Without this, returning `o.p.val`
|
||||||
* silently leaves AX = o.p (the pointer) and the outer
|
* silently leaves AX = o.p (the pointer) and the outer
|
||||||
* cast/use sees the pointer instead of the dereferenced
|
* cast/use sees the pointer instead of the dereferenced
|
||||||
* field. (Surfaced building ww-6l.) */
|
* field. (Surfaced building ww-w6l.) */
|
||||||
if (n->lhs->kind == N_DOT) {
|
if (n->lhs->kind == N_DOT) {
|
||||||
Type *lt = n->lhs->type;
|
Type *lt = n->lhs->type;
|
||||||
Type *lu = (lt && lt->kind == TY_NAMED) ? lt->under : lt;
|
Type *lu = (lt && lt->kind == TY_NAMED) ? lt->under : lt;
|
||||||
@@ -1927,7 +1927,7 @@ cgexpr(Cg *c, Node *n, Local *locals)
|
|||||||
* size — `b.data[i]` on a *u8 must read 1 byte, not 8.
|
* size — `b.data[i]` on a *u8 must read 1 byte, not 8.
|
||||||
*
|
*
|
||||||
* Scale the index in a register before pushing, because
|
* Scale the index in a register before pushing, because
|
||||||
* IMULQ on a memory operand isn't currently encoded by 6a
|
* IMULQ on a memory operand isn't currently encoded by w6a
|
||||||
* (modrm bits use mod=3 register form). */
|
* (modrm bits use mod=3 register form). */
|
||||||
cgexpr(c, n->rhs, locals);
|
cgexpr(c, n->rhs, locals);
|
||||||
if (esz > 1) {
|
if (esz > 1) {
|
||||||
@@ -2614,7 +2614,7 @@ cgfn(Cg *c, FILE *out, Node *fn)
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* Emit DATA directives for top-level `def` constants whose value is
|
/* Emit DATA directives for top-level `def` constants whose value is
|
||||||
* an integer/rune literal. The 6a side stores the bytes inside .text
|
* an integer/rune literal. The w6a side stores the bytes inside .text
|
||||||
* and accesses are RIP-relative.
|
* and accesses are RIP-relative.
|
||||||
*/
|
*/
|
||||||
static void
|
static void
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* gc.h — 6c-private header: Prog/Adr structs, scratch register set,
|
* gc.h — w6c-private header: Prog/Adr structs, scratch register set,
|
||||||
* stack-frame state. Plan 9 cmd/6c/gc.h shape, trimmed.
|
* stack-frame state. Plan 9 cmd/6c/gc.h shape, trimmed.
|
||||||
*/
|
*/
|
||||||
#ifndef SIX_GC_H
|
#ifndef SIX_GC_H
|
||||||
@@ -1,6 +1,6 @@
|
|||||||
/*
|
/*
|
||||||
* 6c — amd64 compiler driver. Reads a .ww source file, runs the
|
* w6c — amd64 compiler driver. Reads a .ww source file, runs the
|
||||||
* libwwc frontend (lex → parse → check), then walks the typed AST
|
* libwcc frontend (lex → parse → check), then walks the typed AST
|
||||||
* via cgen.c and writes Plan 9-flavoured amd64 asm to stdout (or
|
* via cgen.c and writes Plan 9-flavoured amd64 asm to stdout (or
|
||||||
* the file given by -o).
|
* the file given by -o).
|
||||||
*/
|
*/
|
||||||
@@ -38,24 +38,24 @@ main(int argc, char **argv)
|
|||||||
if (strcmp(a, "-o") == 0 && i + 1 < argc) {
|
if (strcmp(a, "-o") == 0 && i + 1 < argc) {
|
||||||
out = argv[++i];
|
out = argv[++i];
|
||||||
} else if (a[0] == '-') {
|
} else if (a[0] == '-') {
|
||||||
fprintf(stderr, "6c: unknown flag %s\n", a);
|
fprintf(stderr, "w6c: unknown flag %s\n", a);
|
||||||
return 2;
|
return 2;
|
||||||
} else if (src == NULL) {
|
} else if (src == NULL) {
|
||||||
src = a;
|
src = a;
|
||||||
} else {
|
} else {
|
||||||
fprintf(stderr, "6c: only one input supported\n");
|
fprintf(stderr, "w6c: only one input supported\n");
|
||||||
return 2;
|
return 2;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (src == NULL) {
|
if (src == NULL) {
|
||||||
fputs("usage: 6c [-o out.s] file.ww\n", stderr);
|
fputs("usage: w6c [-o out.s] file.ww\n", stderr);
|
||||||
return 2;
|
return 2;
|
||||||
}
|
}
|
||||||
|
|
||||||
char *buf;
|
char *buf;
|
||||||
u64 len;
|
u64 len;
|
||||||
if (slurp(src, &buf, &len) < 0) {
|
if (slurp(src, &buf, &len) < 0) {
|
||||||
fprintf(stderr, "6c: %s: cannot read\n", src);
|
fprintf(stderr, "w6c: %s: cannot read\n", src);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -78,7 +78,7 @@ main(int argc, char **argv)
|
|||||||
if (out) {
|
if (out) {
|
||||||
of = fopen(out, "wb");
|
of = fopen(out, "wb");
|
||||||
if (of == NULL) {
|
if (of == NULL) {
|
||||||
fprintf(stderr, "6c: cannot open %s\n", out);
|
fprintf(stderr, "w6c: cannot open %s\n", out);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
/*
|
/*
|
||||||
* txt.c — print a Prog list as Plan 9-flavoured amd64 asm text.
|
* txt.c — print a Prog list as Plan 9-flavoured amd64 asm text.
|
||||||
*
|
*
|
||||||
* Format we emit (and that 6a expects):
|
* Format we emit (and that w6a expects):
|
||||||
* TEXT name<framesize>
|
* TEXT name<framesize>
|
||||||
* MOVQ $1, AX
|
* MOVQ $1, AX
|
||||||
* MOVQ AX, name(SB) ; extern symbol
|
* MOVQ AX, name(SB) ; extern symbol
|
||||||
@@ -86,11 +86,11 @@ l_load_so(Lnk *l, const char *path)
|
|||||||
u8 *buf;
|
u8 *buf;
|
||||||
u64 len;
|
u64 len;
|
||||||
if (l_read_all(path, &buf, &len) < 0) {
|
if (l_read_all(path, &buf, &len) < 0) {
|
||||||
fprintf(stderr, "6l: %s: cannot read\n", path);
|
fprintf(stderr, "w6l: %s: cannot read\n", path);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
if (len < sizeof(Ehdr)) {
|
if (len < sizeof(Ehdr)) {
|
||||||
fprintf(stderr, "6l: %s: short ELF\n", path);
|
fprintf(stderr, "w6l: %s: short ELF\n", path);
|
||||||
free(buf);
|
free(buf);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
@@ -99,12 +99,12 @@ l_load_so(Lnk *l, const char *path)
|
|||||||
|| eh->e_ident[4] != 2
|
|| eh->e_ident[4] != 2
|
||||||
|| eh->e_machine != 62 /* EM_X86_64 */
|
|| eh->e_machine != 62 /* EM_X86_64 */
|
||||||
|| eh->e_type != ET_DYN) {
|
|| eh->e_type != ET_DYN) {
|
||||||
fprintf(stderr, "6l: %s: not an amd64 ET_DYN\n", path);
|
fprintf(stderr, "w6l: %s: not an amd64 ET_DYN\n", path);
|
||||||
free(buf);
|
free(buf);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
if (eh->e_shoff == 0 || eh->e_shnum == 0) {
|
if (eh->e_shoff == 0 || eh->e_shnum == 0) {
|
||||||
fprintf(stderr, "6l: %s: stripped .so unsupported\n", path);
|
fprintf(stderr, "w6l: %s: stripped .so unsupported\n", path);
|
||||||
free(buf);
|
free(buf);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
@@ -119,7 +119,7 @@ l_load_so(Lnk *l, const char *path)
|
|||||||
if (sh[i].sh_type == SHT_GNU_VERDEF) idx_verdef = i;
|
if (sh[i].sh_type == SHT_GNU_VERDEF) idx_verdef = i;
|
||||||
}
|
}
|
||||||
if (idx_dynsym < 0) {
|
if (idx_dynsym < 0) {
|
||||||
fprintf(stderr, "6l: %s: no .dynsym\n", path);
|
fprintf(stderr, "w6l: %s: no .dynsym\n", path);
|
||||||
free(buf);
|
free(buf);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
@@ -157,7 +157,7 @@ l_emit_dyn_elf(Lnk *l, FILE *f, u64 base, u64 entry)
|
|||||||
}
|
}
|
||||||
for (int i = 0; i < N; i++) {
|
for (int i = 0; i < N; i++) {
|
||||||
if (dynsyms[i] == NULL) {
|
if (dynsyms[i] == NULL) {
|
||||||
fprintf(stderr, "6l: dynout: no sym for plt_idx %d\n", i);
|
fprintf(stderr, "w6l: dynout: no sym for plt_idx %d\n", i);
|
||||||
free(dynsyms);
|
free(dynsyms);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
@@ -288,7 +288,7 @@ l_emit_dyn_elf(Lnk *l, FILE *f, u64 base, u64 entry)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (!matched) {
|
if (!matched) {
|
||||||
fprintf(stderr, "6l: dynout: unmatched version %s for %s\n",
|
fprintf(stderr, "w6l: dynout: unmatched version %s for %s\n",
|
||||||
vname, dynsyms[j]->name);
|
vname, dynsyms[j]->name);
|
||||||
versym_for[j] = VER_NDX_GLOBAL;
|
versym_for[j] = VER_NDX_GLOBAL;
|
||||||
}
|
}
|
||||||
@@ -529,7 +529,7 @@ l_emit_dyn_elf(Lnk *l, FILE *f, u64 base, u64 entry)
|
|||||||
}
|
}
|
||||||
dynamic[k].d_tag = DT_NULL; dynamic[k].d_val = 0; k++;
|
dynamic[k].d_tag = DT_NULL; dynamic[k].d_val = 0; k++;
|
||||||
if ((u64)k != ndyn) {
|
if ((u64)k != ndyn) {
|
||||||
fprintf(stderr, "6l: dynamic entry count mismatch\n");
|
fprintf(stderr, "w6l: dynamic entry count mismatch\n");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -540,7 +540,7 @@ l_emit_dyn_elf(Lnk *l, FILE *f, u64 base, u64 entry)
|
|||||||
for (Lrel *r = l->rels; r; r = r->next) {
|
for (Lrel *r = l->rels; r; r = r->next) {
|
||||||
if (r->sym == NULL || !r->sym->is_dyn) continue;
|
if (r->sym == NULL || !r->sym->is_dyn) continue;
|
||||||
if (r->kind != R_X86_64_PC32 && r->kind != R_X86_64_PLT32) {
|
if (r->kind != R_X86_64_PC32 && r->kind != R_X86_64_PLT32) {
|
||||||
fprintf(stderr, "6l: dynamic reloc kind %d unsupported\n",
|
fprintf(stderr, "w6l: dynamic reloc kind %d unsupported\n",
|
||||||
r->kind);
|
r->kind);
|
||||||
free(dynsyms); free(sos_used); free(soname_str);
|
free(dynsyms); free(sos_used); free(soname_str);
|
||||||
free(symname_str); free(dynstr); free(dynsym);
|
free(symname_str); free(dynstr); free(dynsym);
|
||||||
@@ -1,6 +1,6 @@
|
|||||||
/*
|
/*
|
||||||
* l.h — 6l-private header. Loads relocatable ELF64 .o files (the
|
* l.h — w6l-private header. Loads relocatable ELF64 .o files (the
|
||||||
* format produced by 6a) and links them into a static executable.
|
* format produced by w6a) and links them into a static executable.
|
||||||
*
|
*
|
||||||
* No archives yet (phase 8). No dynamic linking ever.
|
* No archives yet (phase 8). No dynamic linking ever.
|
||||||
*/
|
*/
|
||||||
@@ -1,10 +1,10 @@
|
|||||||
/*
|
/*
|
||||||
* 6l — amd64 linker. Reads relocatable ELF .o files (from 6a) plus
|
* w6l — amd64 linker. Reads relocatable ELF .o files (from w6a) plus
|
||||||
* .a archives, resolves, relocates, writes a static ELF executable.
|
* .a archives, resolves, relocates, writes a static ELF executable.
|
||||||
* Dynamic linking against .so files is the next increment; the -L/-l
|
* Dynamic linking against .so files is the next increment; the -L/-l
|
||||||
* flag plumbing here is its first step.
|
* flag plumbing here is its first step.
|
||||||
*
|
*
|
||||||
* 6l -o out [-L<dir>...] [-l<name>...] file1.o file2.o ...
|
* w6l -o out [-L<dir>...] [-l<name>...] file1.o file2.o ...
|
||||||
*
|
*
|
||||||
* The first symbol named "_start" defined among the inputs becomes
|
* The first symbol named "_start" defined among the inputs becomes
|
||||||
* the entry point. If none is found, fall back to "main".
|
* the entry point. If none is found, fall back to "main".
|
||||||
@@ -80,14 +80,14 @@ main(int argc, char **argv)
|
|||||||
} else if (strcmp(argv[i], "-l") == 0 && i + 1 < argc) {
|
} else if (strcmp(argv[i], "-l") == 0 && i + 1 < argc) {
|
||||||
lflags[n_lflags++] = argv[++i];
|
lflags[n_lflags++] = argv[++i];
|
||||||
} else if (argv[i][0] == '-') {
|
} else if (argv[i][0] == '-') {
|
||||||
fprintf(stderr, "6l: unknown flag %s\n", argv[i]);
|
fprintf(stderr, "w6l: unknown flag %s\n", argv[i]);
|
||||||
return 2;
|
return 2;
|
||||||
} else {
|
} else {
|
||||||
inputs[ninputs++] = argv[i];
|
inputs[ninputs++] = argv[i];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (out == NULL || ninputs == 0) {
|
if (out == NULL || ninputs == 0) {
|
||||||
fputs("usage: 6l -o exe [-L<dir>...] [-l<name>...] "
|
fputs("usage: w6l -o exe [-L<dir>...] [-l<name>...] "
|
||||||
"file1.o [file2.o...]\n", stderr);
|
"file1.o [file2.o...]\n", stderr);
|
||||||
return 2;
|
return 2;
|
||||||
}
|
}
|
||||||
@@ -98,7 +98,7 @@ main(int argc, char **argv)
|
|||||||
for (int i = 0; i < n_lflags; i++) {
|
for (int i = 0; i < n_lflags; i++) {
|
||||||
const char *p = resolve_lib(lflags[i], libdirs, n_libdirs);
|
const char *p = resolve_lib(lflags[i], libdirs, n_libdirs);
|
||||||
if (p == NULL) {
|
if (p == NULL) {
|
||||||
fprintf(stderr, "6l: cannot find -l%s\n", lflags[i]);
|
fprintf(stderr, "w6l: cannot find -l%s\n", lflags[i]);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
inputs[ninputs++] = p;
|
inputs[ninputs++] = p;
|
||||||
@@ -120,13 +120,13 @@ main(int argc, char **argv)
|
|||||||
Lsym *entry = l_lookup(&l, "_start");
|
Lsym *entry = l_lookup(&l, "_start");
|
||||||
if (entry == NULL || !entry->defined) entry = l_lookup(&l, "main");
|
if (entry == NULL || !entry->defined) entry = l_lookup(&l, "main");
|
||||||
if (entry == NULL || !entry->defined) {
|
if (entry == NULL || !entry->defined) {
|
||||||
fprintf(stderr, "6l: no _start or main symbol defined\n");
|
fprintf(stderr, "w6l: no _start or main symbol defined\n");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
FILE *f = fopen(out, "wb");
|
FILE *f = fopen(out, "wb");
|
||||||
if (f == NULL) {
|
if (f == NULL) {
|
||||||
fprintf(stderr, "6l: cannot open %s\n", out);
|
fprintf(stderr, "w6l: cannot open %s\n", out);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
int rc = l_emit_elf(&l, f, base, base + 0x1000 + entry->val);
|
int rc = l_emit_elf(&l, f, base, base + 0x1000 + entry->val);
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* obj.c — load an ELF64 relocatable object emitted by 6a, append its
|
* obj.c — load an ELF64 relocatable object emitted by w6a, append its
|
||||||
* .text bytes to the combined image, and pull its symbols and
|
* .text bytes to the combined image, and pull its symbols and
|
||||||
* relocations into the global tables (with offsets adjusted to the
|
* relocations into the global tables (with offsets adjusted to the
|
||||||
* combined section).
|
* combined section).
|
||||||
@@ -251,7 +251,7 @@ load_image(Lnk *l, const char *path, u8 *buf, u64 len)
|
|||||||
Ehdr *eh = (Ehdr *)buf;
|
Ehdr *eh = (Ehdr *)buf;
|
||||||
if (memcmp(eh->e_ident, "\x7f""ELF", 4) != 0 || eh->e_ident[4] != 2
|
if (memcmp(eh->e_ident, "\x7f""ELF", 4) != 0 || eh->e_ident[4] != 2
|
||||||
|| eh->e_machine != EM_X86_64 || eh->e_type != ET_REL) {
|
|| eh->e_machine != EM_X86_64 || eh->e_type != ET_REL) {
|
||||||
fprintf(stderr, "6l: %s: not an amd64 ELF64 relocatable\n", path);
|
fprintf(stderr, "w6l: %s: not an amd64 ELF64 relocatable\n", path);
|
||||||
free(buf);
|
free(buf);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
@@ -271,7 +271,7 @@ load_image(Lnk *l, const char *path, u8 *buf, u64 len)
|
|||||||
idx_rela = i;
|
idx_rela = i;
|
||||||
}
|
}
|
||||||
if (idx_text < 0 || idx_symtab < 0) {
|
if (idx_text < 0 || idx_symtab < 0) {
|
||||||
fprintf(stderr, "6l: %s: missing .text or .symtab\n", path);
|
fprintf(stderr, "w6l: %s: missing .text or .symtab\n", path);
|
||||||
free(buf);
|
free(buf);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
@@ -303,7 +303,7 @@ load_image(Lnk *l, const char *path, u8 *buf, u64 len)
|
|||||||
if (symtab[i].st_shndx != 0 /* SHN_UNDEF */
|
if (symtab[i].st_shndx != 0 /* SHN_UNDEF */
|
||||||
&& symtab[i].st_shndx == idx_text) {
|
&& symtab[i].st_shndx == idx_text) {
|
||||||
if (gs->defined) {
|
if (gs->defined) {
|
||||||
fprintf(stderr, "6l: %s: duplicate symbol %s\n",
|
fprintf(stderr, "w6l: %s: duplicate symbol %s\n",
|
||||||
path, nm);
|
path, nm);
|
||||||
l->errs++;
|
l->errs++;
|
||||||
} else {
|
} else {
|
||||||
@@ -50,7 +50,7 @@ l_resolve(Lnk *l)
|
|||||||
for (Lrel *r = l->rels; r; r = r->next) {
|
for (Lrel *r = l->rels; r; r = r->next) {
|
||||||
if (r->sym == NULL) continue;
|
if (r->sym == NULL) continue;
|
||||||
if (!r->sym->defined && !r->sym->is_dyn) {
|
if (!r->sym->defined && !r->sym->is_dyn) {
|
||||||
fprintf(stderr, "6l: undefined reference to '%s'\n",
|
fprintf(stderr, "w6l: undefined reference to '%s'\n",
|
||||||
r->sym->name);
|
r->sym->name);
|
||||||
l->errs++;
|
l->errs++;
|
||||||
}
|
}
|
||||||
@@ -86,7 +86,7 @@ l_relocate(Lnk *l, u64 base)
|
|||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
default:
|
default:
|
||||||
fprintf(stderr, "6l: unsupported reloc kind %d\n",
|
fprintf(stderr, "w6l: unsupported reloc kind %d\n",
|
||||||
r->kind);
|
r->kind);
|
||||||
l->errs++;
|
l->errs++;
|
||||||
}
|
}
|
||||||
@@ -460,7 +460,7 @@ cexpr(Checker *c, Node *n)
|
|||||||
if (ft == ty_err) {
|
if (ft == ty_err) {
|
||||||
/* Walk args anyway so cgen sees real types. The
|
/* Walk args anyway so cgen sees real types. The
|
||||||
* common case is a module-qualified call whose leaf
|
* common case is a module-qualified call whose leaf
|
||||||
* isn't in this scope (raw 6c on a single file with
|
* isn't in this scope (raw w6c on a single file with
|
||||||
* `use mod;` but no driver concatenation). */
|
* `use mod;` but no driver concatenation). */
|
||||||
for (Node *a = n->list; a; a = a->next)
|
for (Node *a = n->list; a; a = a->next)
|
||||||
(void)cexpr(c, a);
|
(void)cexpr(c, a);
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* ww.h — central header for libwwc.a (the ww frontend library).
|
* ww.h — central header for libwcc.a (the ww frontend library).
|
||||||
*
|
*
|
||||||
* Plan 9 in spirit. This file mirrors cc/cc.h's role: one shared
|
* Plan 9 in spirit. This file mirrors cc/cc.h's role: one shared
|
||||||
* header that declares everything every translation unit in the
|
* header that declares everything every translation unit in the
|
||||||
344
cmd/ww/main.c
344
cmd/ww/main.c
@@ -2,28 +2,36 @@
|
|||||||
* ww — the user-facing driver. Plan 9 cc(1) / Hare hare(1) analogue.
|
* ww — the user-facing driver. Plan 9 cc(1) / Hare hare(1) analogue.
|
||||||
*
|
*
|
||||||
* Pipeline:
|
* Pipeline:
|
||||||
* ww build foo.ww → 6c foo.ww > foo.s ; 6a foo.s > foo.o ;
|
* ww build foo.ww → w6c foo.ww > foo.s ; w6a foo.s > foo.o ;
|
||||||
* 6l -o foo foo.o <runtime.o>
|
* w6l -o foo foo.o <runtime.o>
|
||||||
* ww run foo.ww → build then exec ./foo
|
* ww run foo.ww → build then exec ./foo
|
||||||
*
|
*
|
||||||
* Tool paths default to siblings of $0 (so a fresh build runs out of
|
* Tool paths default to siblings of $0 (so a fresh build runs out of
|
||||||
* out/bin/), and can be overridden with WW_6C / WW_6A / WW_6L.
|
* out/bin/), and can be overridden with WW_W6C / WW_W6A / WW_W6L.
|
||||||
*/
|
*/
|
||||||
#include "ww.h"
|
#include "ww.h"
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <unistd.h>
|
#include <unistd.h>
|
||||||
#include <sys/wait.h>
|
#include <sys/wait.h>
|
||||||
|
#include <sys/stat.h>
|
||||||
|
#include <dirent.h>
|
||||||
#include <libgen.h>
|
#include <libgen.h>
|
||||||
|
|
||||||
static const char *usage =
|
static const char *usage =
|
||||||
"usage: ww [-V] <subcommand> [args...]\n"
|
"usage: ww [-V] <subcommand> [args...]\n"
|
||||||
" -V print version and exit\n"
|
" -V print version and exit\n"
|
||||||
" build <path> compile module to a static binary\n"
|
" build [path] compile module to a static binary (path defaults to cwd)\n"
|
||||||
" run <path> build then exec\n"
|
" run [path] ... build then exec, passing extra args to the program\n"
|
||||||
" test <path> build and run module tests\n"
|
" test [path] build and run *_test.ww in the module (path defaults to cwd)\n"
|
||||||
" fmt <path> reformat ww source\n"
|
" fmt <path> reformat ww source\n"
|
||||||
" version print version and exit\n";
|
" version print version and exit\n"
|
||||||
|
"\n"
|
||||||
|
" path forms:\n"
|
||||||
|
" foo.ww literal file\n"
|
||||||
|
" foo search cwd, -I dirs, then $WW_LIB for foo.ww or foo/foo.ww\n"
|
||||||
|
" lib/foo directory: build lib/foo/foo.ww\n"
|
||||||
|
" . build the cwd's <basename>.ww\n";
|
||||||
|
|
||||||
static char *self_dir; /* directory containing this binary */
|
static char *self_dir; /* directory containing this binary */
|
||||||
|
|
||||||
@@ -159,9 +167,9 @@ static int
|
|||||||
build_one(const char *src, const char *out, const char *extra_includes,
|
build_one(const char *src, const char *out, const char *extra_includes,
|
||||||
const char *extra_libs, const char *extra_libdirs)
|
const char *extra_libs, const char *extra_libdirs)
|
||||||
{
|
{
|
||||||
const char *c6 = toolpath("WW_6C", "6c");
|
const char *c6 = toolpath("WW_W6C", "w6c");
|
||||||
const char *a6 = toolpath("WW_6A", "6a");
|
const char *a6 = toolpath("WW_W6A", "w6a");
|
||||||
const char *l6 = toolpath("WW_6L", "6l");
|
const char *l6 = toolpath("WW_W6L", "w6l");
|
||||||
const char *libdir = getenv("WW_LIB");
|
const char *libdir = getenv("WW_LIB");
|
||||||
if (libdir == NULL || libdir[0] == 0) {
|
if (libdir == NULL || libdir[0] == 0) {
|
||||||
static char libbuf[1024];
|
static char libbuf[1024];
|
||||||
@@ -216,12 +224,12 @@ build_one(const char *src, const char *out, const char *extra_includes,
|
|||||||
char cmd[4096];
|
char cmd[4096];
|
||||||
snprintf(cmd, sizeof cmd, "%s -o %s %s", c6, asmf, combined);
|
snprintf(cmd, sizeof cmd, "%s -o %s %s", c6, asmf, combined);
|
||||||
if (run(cmd) != 0) {
|
if (run(cmd) != 0) {
|
||||||
fprintf(stderr, "ww: 6c failed\n");
|
fprintf(stderr, "ww: w6c failed\n");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
snprintf(cmd, sizeof cmd, "%s -o %s %s", a6, obj, asmf);
|
snprintf(cmd, sizeof cmd, "%s -o %s %s", a6, obj, asmf);
|
||||||
if (run(cmd) != 0) {
|
if (run(cmd) != 0) {
|
||||||
fprintf(stderr, "ww: 6a failed\n");
|
fprintf(stderr, "ww: w6a failed\n");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
/* Link runtime: prefer libwwrt.a (selective archive pull) but
|
/* Link runtime: prefer libwwrt.a (selective archive pull) but
|
||||||
@@ -238,7 +246,7 @@ build_one(const char *src, const char *out, const char *extra_includes,
|
|||||||
snprintf(a2, sizeof a2, "%s/../obj/rt/syscall.o", self_dir);
|
snprintf(a2, sizeof a2, "%s/../obj/rt/syscall.o", self_dir);
|
||||||
snprintf(rtargs, sizeof rtargs, "%s %s", a1, a2);
|
snprintf(rtargs, sizeof rtargs, "%s %s", a1, a2);
|
||||||
}
|
}
|
||||||
/* -L<dir> goes before -l<name> so 6l can resolve the latter. */
|
/* -L<dir> goes before -l<name> so w6l can resolve the latter. */
|
||||||
const char *libargs = (extra_libs && extra_libs[0]) ? extra_libs : "";
|
const char *libargs = (extra_libs && extra_libs[0]) ? extra_libs : "";
|
||||||
const char *libdirset = (extra_libdirs && extra_libdirs[0]) ? extra_libdirs : "";
|
const char *libdirset = (extra_libdirs && extra_libdirs[0]) ? extra_libdirs : "";
|
||||||
snprintf(cmd, sizeof cmd, "%s -o %s %s %s%s%s%s%s",
|
snprintf(cmd, sizeof cmd, "%s -o %s %s %s%s%s%s%s",
|
||||||
@@ -246,7 +254,7 @@ build_one(const char *src, const char *out, const char *extra_includes,
|
|||||||
libdirset[0] ? " " : "", libdirset,
|
libdirset[0] ? " " : "", libdirset,
|
||||||
libargs[0] ? " " : "", libargs);
|
libargs[0] ? " " : "", libargs);
|
||||||
if (run(cmd) != 0) {
|
if (run(cmd) != 0) {
|
||||||
fprintf(stderr, "ww: 6l failed\n");
|
fprintf(stderr, "ww: w6l failed\n");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
return 0;
|
return 0;
|
||||||
@@ -259,71 +267,293 @@ do_version(void)
|
|||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Compose the standard module search path: cwd : <extra-includes> : $WW_LIB
|
||||||
|
* source dir. The `extra` string is colon-separated -I dirs from argv. */
|
||||||
|
static const char *
|
||||||
|
search_path(const char *extra, char *buf, size_t bufsz)
|
||||||
|
{
|
||||||
|
const char *libdir = getenv("WW_SRCLIB");
|
||||||
|
static char libbuf[1024];
|
||||||
|
if (libdir == NULL || libdir[0] == 0) {
|
||||||
|
libdir = getenv("WW_LIB");
|
||||||
|
}
|
||||||
|
if (libdir == NULL || libdir[0] == 0) {
|
||||||
|
snprintf(libbuf, sizeof libbuf, "%s/../../lib", self_dir);
|
||||||
|
if (access(libbuf, 0) == 0) libdir = libbuf;
|
||||||
|
else if (access("lib", 0) == 0) libdir = "lib";
|
||||||
|
else {
|
||||||
|
snprintf(libbuf, sizeof libbuf, "%s/../lib", self_dir);
|
||||||
|
libdir = libbuf;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (extra && extra[0])
|
||||||
|
snprintf(buf, bufsz, ".:%s:%s", extra, libdir);
|
||||||
|
else
|
||||||
|
snprintf(buf, bufsz, ".:%s", libdir);
|
||||||
|
return buf;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* basename_no_ext: last path segment with any trailing ".ww" stripped. */
|
||||||
|
static void
|
||||||
|
basename_no_ext(const char *path, char *out, size_t outsz)
|
||||||
|
{
|
||||||
|
const char *base = strrchr(path, '/');
|
||||||
|
base = base ? base + 1 : path;
|
||||||
|
snprintf(out, outsz, "%s", base);
|
||||||
|
char *dot = strrchr(out, '.');
|
||||||
|
if (dot && strcmp(dot, ".ww") == 0) *dot = '\0';
|
||||||
|
}
|
||||||
|
|
||||||
|
/* resolve_module: turn a name into a concrete .ww file path.
|
||||||
|
* foo.ww → use as-is if it exists
|
||||||
|
* <existing dir> → <dir>/<basename>.ww (Hare module convention)
|
||||||
|
* . → <cwd-basename>.ww in the cwd
|
||||||
|
* foo (bare) → walk cwd:incs:WW_LIB for foo.ww or foo/foo.ww
|
||||||
|
* Returns 1 on success and writes the path to `out`, 0 on failure. */
|
||||||
|
static int
|
||||||
|
resolve_module(const char *name, const char *incs, char *out, size_t outsz)
|
||||||
|
{
|
||||||
|
struct stat st;
|
||||||
|
if (stat(name, &st) == 0) {
|
||||||
|
if (S_ISREG(st.st_mode)) {
|
||||||
|
snprintf(out, outsz, "%s", name);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
if (S_ISDIR(st.st_mode)) {
|
||||||
|
char buf[1024];
|
||||||
|
const char *base;
|
||||||
|
if (strcmp(name, ".") == 0) {
|
||||||
|
if (getcwd(buf, sizeof buf) == NULL) return 0;
|
||||||
|
} else {
|
||||||
|
snprintf(buf, sizeof buf, "%s", name);
|
||||||
|
size_t bl = strlen(buf);
|
||||||
|
while (bl > 1 && buf[bl-1] == '/') buf[--bl] = '\0';
|
||||||
|
}
|
||||||
|
const char *b = strrchr(buf, '/');
|
||||||
|
base = b ? b + 1 : buf;
|
||||||
|
snprintf(out, outsz, "%s/%s.ww", name, base);
|
||||||
|
if (access(out, 0) == 0) return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
char sp[4096];
|
||||||
|
search_path(incs, sp, sizeof sp);
|
||||||
|
if (locate_import(sp, name, out, outsz)) return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Append `path` to a heap string-array. Caller frees each entry + the array. */
|
||||||
|
static void
|
||||||
|
strarr_push(char ***arr, int *n, int *cap, const char *path)
|
||||||
|
{
|
||||||
|
if (*n + 1 > *cap) {
|
||||||
|
*cap = *cap ? *cap * 2 : 8;
|
||||||
|
*arr = realloc(*arr, *cap * sizeof **arr);
|
||||||
|
}
|
||||||
|
(*arr)[(*n)++] = strdup(path);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* collect_tests: enumerate _test.ww files in <dir> (no recursion).
|
||||||
|
* Returns 0 on success and writes the file list + count, -1 on failure. */
|
||||||
|
static int
|
||||||
|
collect_tests(const char *dir, char ***files, int *n)
|
||||||
|
{
|
||||||
|
DIR *d = opendir(dir);
|
||||||
|
if (!d) return -1;
|
||||||
|
*files = NULL;
|
||||||
|
*n = 0;
|
||||||
|
int cap = 0;
|
||||||
|
struct dirent *ent;
|
||||||
|
while ((ent = readdir(d)) != NULL) {
|
||||||
|
const char *nm = ent->d_name;
|
||||||
|
size_t nl = strlen(nm);
|
||||||
|
const char *suf = "_test.ww";
|
||||||
|
size_t sl = strlen(suf);
|
||||||
|
if (nl <= sl) continue;
|
||||||
|
if (strcmp(nm + nl - sl, suf) != 0) continue;
|
||||||
|
char path[1024];
|
||||||
|
snprintf(path, sizeof path, "%s/%s", dir, nm);
|
||||||
|
strarr_push(files, n, &cap, path);
|
||||||
|
}
|
||||||
|
closedir(d);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Parse the standard -I/-L/-l flags into incs/libdirs/libs. The first
|
||||||
|
* non-flag positional becomes *src_out. Returns the index past the last
|
||||||
|
* arg consumed for positionals (so callers can pick up trailing args). */
|
||||||
|
static int
|
||||||
|
parse_build_flags(int argc, char **argv,
|
||||||
|
char *incs, size_t incsz,
|
||||||
|
char *libdirs, size_t libdirsz,
|
||||||
|
char *libs, size_t libsz,
|
||||||
|
const char **src_out)
|
||||||
|
{
|
||||||
|
*src_out = NULL;
|
||||||
|
int i = 0;
|
||||||
|
for (; i < argc; i++) {
|
||||||
|
if (strncmp(argv[i], "-l", 2) == 0 && argv[i][2]) {
|
||||||
|
size_t n = strlen(libs);
|
||||||
|
snprintf(libs + n, libsz - n,
|
||||||
|
"%s%s", n ? " " : "", argv[i]);
|
||||||
|
} else if (strcmp(argv[i], "-l") == 0 && i + 1 < argc) {
|
||||||
|
size_t n = strlen(libs);
|
||||||
|
snprintf(libs + n, libsz - n,
|
||||||
|
"%s-l%s", n ? " " : "", argv[++i]);
|
||||||
|
} else if (strcmp(argv[i], "-L") == 0 && i + 1 < argc) {
|
||||||
|
size_t n = strlen(libdirs);
|
||||||
|
snprintf(libdirs + n, libdirsz - n,
|
||||||
|
"%s-L%s", n ? " " : "", argv[++i]);
|
||||||
|
} else if (strncmp(argv[i], "-L", 2) == 0 && argv[i][2]) {
|
||||||
|
size_t n = strlen(libdirs);
|
||||||
|
snprintf(libdirs + n, libdirsz - n,
|
||||||
|
"%s%s", n ? " " : "", argv[i]);
|
||||||
|
} else if (strcmp(argv[i], "-I") == 0 && i + 1 < argc) {
|
||||||
|
size_t n = strlen(incs);
|
||||||
|
snprintf(incs + n, incsz - n,
|
||||||
|
"%s%s", n ? ":" : "", argv[++i]);
|
||||||
|
} else if (strncmp(argv[i], "-I", 2) == 0 && argv[i][2]) {
|
||||||
|
size_t n = strlen(incs);
|
||||||
|
snprintf(incs + n, incsz - n,
|
||||||
|
"%s%s", n ? ":" : "", argv[i] + 2);
|
||||||
|
} else if (*src_out == NULL) {
|
||||||
|
*src_out = argv[i];
|
||||||
|
} else {
|
||||||
|
break; /* leave remaining argv to caller (run-args) */
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return i;
|
||||||
|
}
|
||||||
|
|
||||||
static int
|
static int
|
||||||
do_build(int argc, char **argv)
|
do_build(int argc, char **argv)
|
||||||
{
|
{
|
||||||
const char *src = NULL;
|
const char *src = NULL;
|
||||||
char libs[2048] = {0}; /* -l<name> entries, space-separated */
|
char libs[2048] = {0};
|
||||||
char libdirs[2048] = {0}; /* -L<dir> entries, space-separated */
|
char libdirs[2048] = {0};
|
||||||
char incs[2048] = {0};
|
char incs[2048] = {0};
|
||||||
for (int i = 0; i < argc; i++) {
|
parse_build_flags(argc, argv, incs, sizeof incs,
|
||||||
if (strncmp(argv[i], "-l", 2) == 0 && argv[i][2]) {
|
libdirs, sizeof libdirs, libs, sizeof libs, &src);
|
||||||
size_t n = strlen(libs);
|
if (src == NULL) src = "."; /* default: build cwd */
|
||||||
snprintf(libs + n, sizeof libs - n,
|
char resolved[1024];
|
||||||
"%s%s", n ? " " : "", argv[i]);
|
if (!resolve_module(src, incs, resolved, sizeof resolved)) {
|
||||||
} else if (strcmp(argv[i], "-l") == 0 && i + 1 < argc) {
|
fprintf(stderr, "ww build: cannot find module %s\n", src);
|
||||||
size_t n = strlen(libs);
|
return 1;
|
||||||
snprintf(libs + n, sizeof libs - n,
|
|
||||||
"%s-l%s", n ? " " : "", argv[++i]);
|
|
||||||
} else if (strcmp(argv[i], "-L") == 0 && i + 1 < argc) {
|
|
||||||
size_t n = strlen(libdirs);
|
|
||||||
snprintf(libdirs + n, sizeof libdirs - n,
|
|
||||||
"%s-L%s", n ? " " : "", argv[++i]);
|
|
||||||
} else if (strncmp(argv[i], "-L", 2) == 0 && argv[i][2]) {
|
|
||||||
size_t n = strlen(libdirs);
|
|
||||||
snprintf(libdirs + n, sizeof libdirs - n,
|
|
||||||
"%s%s", n ? " " : "", argv[i]);
|
|
||||||
} else if (strcmp(argv[i], "-I") == 0 && i + 1 < argc) {
|
|
||||||
size_t n = strlen(incs);
|
|
||||||
snprintf(incs + n, sizeof incs - n,
|
|
||||||
"%s%s", n ? ":" : "", argv[++i]);
|
|
||||||
} else if (strncmp(argv[i], "-I", 2) == 0 && argv[i][2]) {
|
|
||||||
size_t n = strlen(incs);
|
|
||||||
snprintf(incs + n, sizeof incs - n,
|
|
||||||
"%s%s", n ? ":" : "", argv[i] + 2);
|
|
||||||
} else if (src == NULL) {
|
|
||||||
src = argv[i];
|
|
||||||
}
|
}
|
||||||
}
|
|
||||||
if (src == NULL) { fputs("ww build: missing source\n", stderr); return 2; }
|
|
||||||
char out[1024];
|
char out[1024];
|
||||||
const char *base = strrchr(src, '/');
|
basename_no_ext(resolved, out, sizeof out);
|
||||||
base = base ? base + 1 : src;
|
return build_one(resolved, out, incs, libs, libdirs);
|
||||||
snprintf(out, sizeof out, "%s", base);
|
|
||||||
char *dot = strrchr(out, '.');
|
|
||||||
if (dot && strcmp(dot, ".ww") == 0) *dot = '\0';
|
|
||||||
return build_one(src, out, incs, libs, libdirs);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
static int
|
static int
|
||||||
do_run(int argc, char **argv)
|
do_run(int argc, char **argv)
|
||||||
{
|
{
|
||||||
if (argc < 1) { fputs("ww run: missing source\n", stderr); return 2; }
|
const char *src = NULL;
|
||||||
|
char libs[2048] = {0};
|
||||||
|
char libdirs[2048] = {0};
|
||||||
|
char incs[2048] = {0};
|
||||||
|
int next = parse_build_flags(argc, argv, incs, sizeof incs,
|
||||||
|
libdirs, sizeof libdirs, libs, sizeof libs, &src);
|
||||||
|
if (src == NULL) src = ".";
|
||||||
|
char resolved[1024];
|
||||||
|
if (!resolve_module(src, incs, resolved, sizeof resolved)) {
|
||||||
|
fprintf(stderr, "ww run: cannot find module %s\n", src);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
char tmp[1024];
|
char tmp[1024];
|
||||||
snprintf(tmp, sizeof tmp, "/tmp/ww_run_%d", getpid());
|
snprintf(tmp, sizeof tmp, "/tmp/ww_run_%d", getpid());
|
||||||
if (build_one(argv[0], tmp, "", "", "") != 0) return 1;
|
if (build_one(resolved, tmp, incs, libs, libdirs) != 0) return 1;
|
||||||
int rc = run(tmp);
|
/* exec the built binary with any trailing argv as its argv. */
|
||||||
|
pid_t pid = fork();
|
||||||
|
if (pid < 0) { perror("ww: fork"); unlink(tmp); return 1; }
|
||||||
|
if (pid == 0) {
|
||||||
|
int n_extra = argc - next;
|
||||||
|
char **xargv = calloc((size_t)n_extra + 2, sizeof *xargv);
|
||||||
|
xargv[0] = tmp;
|
||||||
|
for (int i = 0; i < n_extra; i++) xargv[i+1] = argv[next + i];
|
||||||
|
xargv[n_extra+1] = NULL;
|
||||||
|
execv(tmp, xargv);
|
||||||
|
perror("ww: exec");
|
||||||
|
_exit(127);
|
||||||
|
}
|
||||||
|
int status = 0;
|
||||||
|
waitpid(pid, &status, 0);
|
||||||
unlink(tmp);
|
unlink(tmp);
|
||||||
return rc;
|
if (WIFEXITED(status)) return WEXITSTATUS(status);
|
||||||
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
static int
|
static int
|
||||||
do_test(int argc, char **argv)
|
do_test(int argc, char **argv)
|
||||||
{
|
{
|
||||||
(void)argc; (void)argv;
|
const char *target = (argc > 0) ? argv[0] : ".";
|
||||||
fputs("ww: test: not implemented in this phase\n", stderr);
|
struct stat st;
|
||||||
|
if (stat(target, &st) != 0) {
|
||||||
|
/* not a literal path — try module resolution and run as
|
||||||
|
* a single test program. */
|
||||||
|
char resolved[1024];
|
||||||
|
if (!resolve_module(target, "", resolved, sizeof resolved)) {
|
||||||
|
fprintf(stderr, "ww test: cannot find %s\n", target);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
char tmp[1024];
|
||||||
|
snprintf(tmp, sizeof tmp, "/tmp/ww_test_%d", getpid());
|
||||||
|
if (build_one(resolved, tmp, "", "", "") != 0) return 1;
|
||||||
|
int rc = run(tmp);
|
||||||
|
unlink(tmp);
|
||||||
|
return rc;
|
||||||
|
}
|
||||||
|
if (S_ISREG(st.st_mode)) {
|
||||||
|
/* single .ww file — build+run it. */
|
||||||
|
char tmp[1024];
|
||||||
|
snprintf(tmp, sizeof tmp, "/tmp/ww_test_%d", getpid());
|
||||||
|
if (build_one(target, tmp, "", "", "") != 0) return 1;
|
||||||
|
int rc = run(tmp);
|
||||||
|
unlink(tmp);
|
||||||
|
return rc;
|
||||||
|
}
|
||||||
|
if (!S_ISDIR(st.st_mode)) {
|
||||||
|
fprintf(stderr, "ww test: %s is neither file nor directory\n", target);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
/* directory — run every *_test.ww inside. */
|
||||||
|
char **files = NULL;
|
||||||
|
int n = 0;
|
||||||
|
if (collect_tests(target, &files, &n) < 0) {
|
||||||
|
fprintf(stderr, "ww test: cannot read directory %s\n", target);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
if (n == 0) {
|
||||||
|
fprintf(stderr, "ww test: no *_test.ww files in %s\n", target);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
int pass = 0, fail = 0;
|
||||||
|
for (int i = 0; i < n; i++) {
|
||||||
|
char tmp[1024];
|
||||||
|
snprintf(tmp, sizeof tmp, "/tmp/ww_test_%d_%d", getpid(), i);
|
||||||
|
const char *label = strrchr(files[i], '/');
|
||||||
|
label = label ? label + 1 : files[i];
|
||||||
|
int rc = build_one(files[i], tmp, target, "", "");
|
||||||
|
if (rc != 0) {
|
||||||
|
fprintf(stderr, "FAIL %s (build)\n", label);
|
||||||
|
fail++;
|
||||||
|
} else {
|
||||||
|
int xrc = run(tmp);
|
||||||
|
if (xrc == 0) {
|
||||||
|
printf("ok %s\n", label);
|
||||||
|
pass++;
|
||||||
|
} else {
|
||||||
|
printf("FAIL %s (rc=%d)\n", label, xrc);
|
||||||
|
fail++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
unlink(tmp);
|
||||||
|
free(files[i]);
|
||||||
|
}
|
||||||
|
free(files);
|
||||||
|
printf("ww test: %d pass, %d fail\n", pass, fail);
|
||||||
|
return fail == 0 ? 0 : 1;
|
||||||
|
}
|
||||||
|
|
||||||
static int
|
static int
|
||||||
do_fmt(int argc, char **argv)
|
do_fmt(int argc, char **argv)
|
||||||
|
|||||||
@@ -3,7 +3,7 @@
|
|||||||
*
|
*
|
||||||
* Reads a .ww file and writes either a token stream or an AST
|
* Reads a .ww file and writes either a token stream or an AST
|
||||||
* s-expression to stdout, byte-for-byte stable across runs. It is the
|
* s-expression to stdout, byte-for-byte stable across runs. It is the
|
||||||
* diff anchor for self-host: the C-side libwwc and the future ww-side
|
* diff anchor for self-host: the C-side libwcc and the future ww-side
|
||||||
* frontend must produce the same dump for the same input.
|
* frontend must produce the same dump for the same input.
|
||||||
*
|
*
|
||||||
* wwdump -t file.ww tokens, one per line: "<file>:<l>:<c> <kind> [val]"
|
* wwdump -t file.ww tokens, one per line: "<file>:<l>:<c> <kind> [val]"
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
# examples/snake — built with the ww toolchain only (6c → 6a → 6l).
|
# examples/snake — built with the ww toolchain only (w6c → w6a → w6l).
|
||||||
#
|
#
|
||||||
# `ww build` does the whole pipeline. -l ncurses -l c routes through
|
# `ww build` does the whole pipeline. -l ncurses -l c routes through
|
||||||
# 6l's dynamic linker (PT_INTERP + PT_DYNAMIC + PLT/GOT), so the
|
# w6l's dynamic linker (PT_INTERP + PT_DYNAMIC + PLT/GOT), so the
|
||||||
# resulting binary maps libncurses.so.6 + libc.so.6 at runtime via
|
# resulting binary maps libncurses.so.6 + libc.so.6 at runtime via
|
||||||
# the system loader. No cc.
|
# the system loader. No cc.
|
||||||
|
|
||||||
|
|||||||
@@ -3,11 +3,11 @@
|
|||||||
// What this proves:
|
// What this proves:
|
||||||
// 1. ww the language can express an interactive program.
|
// 1. ww the language can express an interactive program.
|
||||||
// 2. The @symbol FFI mechanism binds to libncurses and libc.
|
// 2. The @symbol FFI mechanism binds to libncurses and libc.
|
||||||
// 3. 6l's new dynamic linker (PT_INTERP + PT_DYNAMIC + PLT/GOT)
|
// 3. w6l's new dynamic linker (PT_INTERP + PT_DYNAMIC + PLT/GOT)
|
||||||
// reaches a real .so at runtime — `ldd snake` shows
|
// reaches a real .so at runtime — `ldd snake` shows
|
||||||
// libncurses.so.6 and libc.so.6 as NEEDED entries.
|
// libncurses.so.6 and libc.so.6 as NEEDED entries.
|
||||||
//
|
//
|
||||||
// Build: see ./Makefile. Pipeline is the ww toolchain (6c → 6a → 6l)
|
// Build: see ./Makefile. Pipeline is the ww toolchain (w6c → w6a → w6l)
|
||||||
// with -l ncurses -l c. No cc.
|
// with -l ncurses -l c. No cc.
|
||||||
//
|
//
|
||||||
// Controls: w/a/s/d to steer, q to quit.
|
// Controls: w/a/s/d to steer, q to quit.
|
||||||
|
|||||||
30
lib/os/os.ww
30
lib/os/os.ww
@@ -31,6 +31,8 @@ def SYS_EXECVE: i64 = 59;
|
|||||||
def SYS_EXIT: i64 = 60;
|
def SYS_EXIT: i64 = 60;
|
||||||
def SYS_WAIT4: i64 = 61;
|
def SYS_WAIT4: i64 = 61;
|
||||||
def SYS_UNLINK: i64 = 87;
|
def SYS_UNLINK: i64 = 87;
|
||||||
|
def SYS_GETCWD: i64 = 79;
|
||||||
|
def SYS_GETDENTS64: i64 = 217;
|
||||||
|
|
||||||
// open(2) flags. Linux values, matching <fcntl.h>.
|
// open(2) flags. Linux values, matching <fcntl.h>.
|
||||||
def O_RDONLY: i32 = 0;
|
def O_RDONLY: i32 = 0;
|
||||||
@@ -65,7 +67,7 @@ export fn close(fd: i32) i32 = {
|
|||||||
|
|
||||||
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
||||||
// closing `newfd` first if open. Returns `newfd` on success or a
|
// closing `newfd` first if open. Returns `newfd` on success or a
|
||||||
// negative errno. Used by 6c_ww to redirect stdout into an output
|
// negative errno. Used by w6c_ww to redirect stdout into an output
|
||||||
// file without changing the cgen emit path.
|
// file without changing the cgen emit path.
|
||||||
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
||||||
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
||||||
@@ -178,3 +180,29 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
return syscall4(SYS_WAIT4, pid: i64, status_out: i64,
|
return syscall4(SYS_WAIT4, pid: i64, status_out: i64,
|
||||||
options: i64, rusage: i64): i32;
|
options: i64, rusage: i64): i32;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
// getcwd(2) — Linux flavour. Writes the NUL-terminated cwd into `buf`
|
||||||
|
// and returns the number of bytes written (including the NUL), or a
|
||||||
|
// negative errno. The driver uses it to expand `.` to the cwd's
|
||||||
|
// basename for `ww build` / `ww test`.
|
||||||
|
export fn getcwd(buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall2(SYS_GETCWD, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// getdents64(2) — Linux directory enumeration. The fd must be opened
|
||||||
|
// with O_RDONLY on a directory. `buf` receives a packed sequence of
|
||||||
|
// linux_dirent64 records:
|
||||||
|
//
|
||||||
|
// struct linux_dirent64 {
|
||||||
|
// u64 d_ino; // 0..7
|
||||||
|
// i64 d_off; // 8..15
|
||||||
|
// u16 d_reclen; // 16..17 — total bytes for this record
|
||||||
|
// u8 d_type; // 18 — DT_REG/DT_DIR/...
|
||||||
|
// u8 d_name[]; // 19.. — NUL-terminated name + padding
|
||||||
|
// };
|
||||||
|
//
|
||||||
|
// Returns bytes written into `buf` (advance by d_reclen to walk),
|
||||||
|
// 0 at end-of-directory, or a negative errno.
|
||||||
|
export fn getdents64(fd: i32, buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall3(SYS_GETDENTS64, fd: i64, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|||||||
@@ -1,10 +1,10 @@
|
|||||||
// selfhost/cmd/6a/asm.ww — port of cmd/6a/asm.c.
|
// selfhost/cmd/w6a/asm.ww — port of cmd/w6a/asm.c.
|
||||||
//
|
//
|
||||||
// Encode the parsed aprog list into amd64 machine bytes, appending to
|
// Encode the parsed aprog list into amd64 machine bytes, appending to
|
||||||
// asm_.text. Relocations for CALL/branch targets that resolve to
|
// asm_.text. Relocations for CALL/branch targets that resolve to
|
||||||
// externals are queued in asm_.relocs.
|
// externals are queued in asm_.relocs.
|
||||||
//
|
//
|
||||||
// Encoding subset matches what 6c emits — see cmd/6a/asm.c for the
|
// Encoding subset matches what w6c emits — see cmd/w6a/asm.c for the
|
||||||
// authoritative list. Helpers (rcode/rhi/modrm/emit_rex etc.) are
|
// authoritative list. Helpers (rcode/rhi/modrm/emit_rex etc.) are
|
||||||
// fully ported; a_encode itself is still a stub pending the full
|
// fully ported; a_encode itself is still a stub pending the full
|
||||||
// switch over A_*.
|
// switch over A_*.
|
||||||
@@ -354,7 +354,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
a_addreloc(a, reloff, 2, s, -4i64);
|
a_addreloc(a, reloff, 2, s, -4i64);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVQ shape\n".ptr, 27u64);
|
os.write(2, "w6a: unsupported MOVQ shape\n".ptr, 27u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -374,7 +374,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVB shape\n".ptr, 27u64);
|
os.write(2, "w6a: unsupported MOVB shape\n".ptr, 27u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -389,7 +389,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVZBQ shape\n".ptr, 29u64);
|
os.write(2, "w6a: unsupported MOVZBQ shape\n".ptr, 29u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -415,7 +415,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
a_emit_byte(a, modrm_byte(3, rcode(ft), rcode(tt)));
|
a_emit_byte(a, modrm_byte(3, rcode(ft), rcode(tt)));
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVL shape\n".ptr, 27u64);
|
os.write(2, "w6a: unsupported MOVL shape\n".ptr, 27u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -429,7 +429,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVSXD shape\n".ptr, 29u64);
|
os.write(2, "w6a: unsupported MOVSXD shape\n".ptr, 29u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -449,7 +449,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
sse_mr_load(a, 242u8, 17u8, ft, p.to.reg, p.to.offset);
|
sse_mr_load(a, 242u8, 17u8, ft, p.to.reg, p.to.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVSD shape\n".ptr, 28u64);
|
os.write(2, "w6a: unsupported MOVSD shape\n".ptr, 28u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -476,7 +476,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
sse_mr_load(a, 243u8, 17u8, ft, p.to.reg, p.to.offset);
|
sse_mr_load(a, 243u8, 17u8, ft, p.to.reg, p.to.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVSS shape\n".ptr, 28u64);
|
os.write(2, "w6a: unsupported MOVSS shape\n".ptr, 28u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -651,7 +651,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
|
|
||||||
os.write(2, "6a: unsupported opcode\n".ptr, 23u64);
|
os.write(2, "w6a: unsupported opcode\n".ptr, 23u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link;
|
p = p.link;
|
||||||
};
|
};
|
||||||
@@ -660,7 +660,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
let f: *afixup = a.fixups;
|
let f: *afixup = a.fixups;
|
||||||
for (f != nil) {
|
for (f != nil) {
|
||||||
if (!label_defined(a, f.label)) {
|
if (!label_defined(a, f.label)) {
|
||||||
os.write(2, "6a: undefined label '".ptr, 21u64);
|
os.write(2, "w6a: undefined label '".ptr, 21u64);
|
||||||
let lbl: str = f.label;
|
let lbl: str = f.label;
|
||||||
os.write(2, lbl.ptr, lbl.len: u64);
|
os.write(2, lbl.ptr, lbl.len: u64);
|
||||||
os.write(2, "'\n".ptr, 2u64);
|
os.write(2, "'\n".ptr, 2u64);
|
||||||
@@ -1,6 +1,6 @@
|
|||||||
// selfhost/cmd/6a/lex.ww — port of cmd/6a/lex.c.
|
// selfhost/cmd/w6a/lex.ww — port of cmd/w6a/lex.c.
|
||||||
//
|
//
|
||||||
// Character-level helpers for 6a's line-oriented parser. The parser
|
// Character-level helpers for w6a's line-oriented parser. The parser
|
||||||
// itself is in parse.ww; here we keep tokenisers for identifiers and
|
// itself is in parse.ww; here we keep tokenisers for identifiers and
|
||||||
// numbers so parse.ww stays focused on syntax.
|
// numbers so parse.ww stays focused on syntax.
|
||||||
|
|
||||||
@@ -31,6 +31,8 @@ def SYS_EXECVE: i64 = 59;
|
|||||||
def SYS_EXIT: i64 = 60;
|
def SYS_EXIT: i64 = 60;
|
||||||
def SYS_WAIT4: i64 = 61;
|
def SYS_WAIT4: i64 = 61;
|
||||||
def SYS_UNLINK: i64 = 87;
|
def SYS_UNLINK: i64 = 87;
|
||||||
|
def SYS_GETCWD: i64 = 79;
|
||||||
|
def SYS_GETDENTS64: i64 = 217;
|
||||||
|
|
||||||
// open(2) flags. Linux values, matching <fcntl.h>.
|
// open(2) flags. Linux values, matching <fcntl.h>.
|
||||||
def O_RDONLY: i32 = 0;
|
def O_RDONLY: i32 = 0;
|
||||||
@@ -65,7 +67,7 @@ export fn close(fd: i32) i32 = {
|
|||||||
|
|
||||||
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
||||||
// closing `newfd` first if open. Returns `newfd` on success or a
|
// closing `newfd` first if open. Returns `newfd` on success or a
|
||||||
// negative errno. Used by 6c_ww to redirect stdout into an output
|
// negative errno. Used by w6c_ww to redirect stdout into an output
|
||||||
// file without changing the cgen emit path.
|
// file without changing the cgen emit path.
|
||||||
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
||||||
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
||||||
@@ -179,7 +181,33 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
options: i64, rusage: i64): i32;
|
options: i64, rusage: i64): i32;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/mem.ww — port of cmd/wwc/mem.c.
|
// getcwd(2) — Linux flavour. Writes the NUL-terminated cwd into `buf`
|
||||||
|
// and returns the number of bytes written (including the NUL), or a
|
||||||
|
// negative errno. The driver uses it to expand `.` to the cwd's
|
||||||
|
// basename for `ww build` / `ww test`.
|
||||||
|
export fn getcwd(buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall2(SYS_GETCWD, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// getdents64(2) — Linux directory enumeration. The fd must be opened
|
||||||
|
// with O_RDONLY on a directory. `buf` receives a packed sequence of
|
||||||
|
// linux_dirent64 records:
|
||||||
|
//
|
||||||
|
// struct linux_dirent64 {
|
||||||
|
// u64 d_ino; // 0..7
|
||||||
|
// i64 d_off; // 8..15
|
||||||
|
// u16 d_reclen; // 16..17 — total bytes for this record
|
||||||
|
// u8 d_type; // 18 — DT_REG/DT_DIR/...
|
||||||
|
// u8 d_name[]; // 19.. — NUL-terminated name + padding
|
||||||
|
// };
|
||||||
|
//
|
||||||
|
// Returns bytes written into `buf` (advance by d_reclen to walk),
|
||||||
|
// 0 at end-of-directory, or a negative errno.
|
||||||
|
export fn getdents64(fd: i32, buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall3(SYS_GETDENTS64, fd: i64, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// selfhost/cmd/wcc/mem.ww — port of cmd/wcc/mem.c.
|
||||||
//
|
//
|
||||||
// Bump arena allocator. Backed by the runtime page allocator
|
// Bump arena allocator. Backed by the runtime page allocator
|
||||||
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
||||||
@@ -187,7 +215,7 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
// unmaps the chain.
|
// unmaps the chain.
|
||||||
//
|
//
|
||||||
// Memory handed out is 16-byte aligned. The C version under
|
// Memory handed out is 16-byte aligned. The C version under
|
||||||
// cmd/wwc/ is retained until the three-stage bootstrap diffs clean.
|
// cmd/wcc/ is retained until the three-stage bootstrap diffs clean.
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
|
|
||||||
@@ -286,15 +314,15 @@ export fn freearena(a: *arena) void = {
|
|||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6a/types.ww — types + constants shared across the
|
// selfhost/cmd/w6a/types.ww — types + constants shared across the
|
||||||
// 6a port. Mirrors cmd/6a/a.h and cmd/6c/6.out.h.
|
// w6a port. Mirrors cmd/w6a/a.h and cmd/w6c/6.out.h.
|
||||||
|
|
||||||
use mem;
|
use mem;
|
||||||
|
|
||||||
// ---- registers + operand kinds (from 6.out.h) -------------------------
|
// ---- registers + operand kinds (from 6.out.h) -------------------------
|
||||||
// These must stay numerically aligned with the C enum so that ww-cgen
|
// These must stay numerically aligned with the C enum so that ww-cgen
|
||||||
// output (which reads them via `D_AX(SB)` etc.) lands on the same
|
// output (which reads them via `D_AX(SB)` etc.) lands on the same
|
||||||
// integers when read by ww-6a.
|
// integers when read by ww-w6a.
|
||||||
def D_NONE: i32 = 0;
|
def D_NONE: i32 = 0;
|
||||||
|
|
||||||
def D_AX: i32 = 1;
|
def D_AX: i32 = 1;
|
||||||
@@ -409,7 +437,7 @@ def A_JNZ: i32 = 58;
|
|||||||
|
|
||||||
def A_SYSCALL: i32 = 59;
|
def A_SYSCALL: i32 = 59;
|
||||||
|
|
||||||
// ---- structs (mirror cmd/6a/a.h) --------------------------------------
|
// ---- structs (mirror cmd/w6a/a.h) --------------------------------------
|
||||||
|
|
||||||
type aoperand = struct {
|
type aoperand = struct {
|
||||||
atype: i32, // D_NONE / D_AX..D_R15 / D_CONST / D_INDIR / D_EXTERN / D_BRANCH
|
atype: i32, // D_NONE / D_AX..D_R15 / D_CONST / D_INDIR / D_EXTERN / D_BRANCH
|
||||||
@@ -480,9 +508,9 @@ type asm_ = struct {
|
|||||||
errs: i32,
|
errs: i32,
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6a/lex.ww — port of cmd/6a/lex.c.
|
// selfhost/cmd/w6a/lex.ww — port of cmd/w6a/lex.c.
|
||||||
//
|
//
|
||||||
// Character-level helpers for 6a's line-oriented parser. The parser
|
// Character-level helpers for w6a's line-oriented parser. The parser
|
||||||
// itself is in parse.ww; here we keep tokenisers for identifiers and
|
// itself is in parse.ww; here we keep tokenisers for identifiers and
|
||||||
// numbers so parse.ww stays focused on syntax.
|
// numbers so parse.ww stays focused on syntax.
|
||||||
|
|
||||||
@@ -547,9 +575,9 @@ export fn a_parsenum(p: *u8, n: u64) (i64, u64) = {
|
|||||||
return v, i;
|
return v, i;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6a/parse.ww — port of cmd/6a/parse.c.
|
// selfhost/cmd/w6a/parse.ww — port of cmd/w6a/parse.c.
|
||||||
//
|
//
|
||||||
// Line-oriented parser for the asm subset emitted by 6c.
|
// Line-oriented parser for the asm subset emitted by w6c.
|
||||||
// Grammar:
|
// Grammar:
|
||||||
// line := blank | comment | label | text | instr
|
// line := blank | comment | label | text | instr
|
||||||
// blank := /^\s*$/
|
// blank := /^\s*$/
|
||||||
@@ -719,7 +747,7 @@ export fn a_intern(a: *asm_, name: str) *asym = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
fn perr(a: *asm_, msg: str) void = {
|
fn perr(a: *asm_, msg: str) void = {
|
||||||
os.write(2, "6a: ".ptr, 4u64);
|
os.write(2, "w6a: ".ptr, 4u64);
|
||||||
let f: str = a.file;
|
let f: str = a.file;
|
||||||
os.write(2, f.ptr, f.len: u64);
|
os.write(2, f.ptr, f.len: u64);
|
||||||
os.write(2, ": ".ptr, 2u64);
|
os.write(2, ": ".ptr, 2u64);
|
||||||
@@ -1131,13 +1159,13 @@ export fn a_parse(a: *asm_) i32 = {
|
|||||||
return a.errs;
|
return a.errs;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6a/asm.ww — port of cmd/6a/asm.c.
|
// selfhost/cmd/w6a/asm.ww — port of cmd/w6a/asm.c.
|
||||||
//
|
//
|
||||||
// Encode the parsed aprog list into amd64 machine bytes, appending to
|
// Encode the parsed aprog list into amd64 machine bytes, appending to
|
||||||
// asm_.text. Relocations for CALL/branch targets that resolve to
|
// asm_.text. Relocations for CALL/branch targets that resolve to
|
||||||
// externals are queued in asm_.relocs.
|
// externals are queued in asm_.relocs.
|
||||||
//
|
//
|
||||||
// Encoding subset matches what 6c emits — see cmd/6a/asm.c for the
|
// Encoding subset matches what w6c emits — see cmd/w6a/asm.c for the
|
||||||
// authoritative list. Helpers (rcode/rhi/modrm/emit_rex etc.) are
|
// authoritative list. Helpers (rcode/rhi/modrm/emit_rex etc.) are
|
||||||
// fully ported; a_encode itself is still a stub pending the full
|
// fully ported; a_encode itself is still a stub pending the full
|
||||||
// switch over A_*.
|
// switch over A_*.
|
||||||
@@ -1487,7 +1515,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
a_addreloc(a, reloff, 2, s, -4i64);
|
a_addreloc(a, reloff, 2, s, -4i64);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVQ shape\n".ptr, 27u64);
|
os.write(2, "w6a: unsupported MOVQ shape\n".ptr, 27u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -1507,7 +1535,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVB shape\n".ptr, 27u64);
|
os.write(2, "w6a: unsupported MOVB shape\n".ptr, 27u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -1522,7 +1550,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVZBQ shape\n".ptr, 29u64);
|
os.write(2, "w6a: unsupported MOVZBQ shape\n".ptr, 29u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -1548,7 +1576,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
a_emit_byte(a, modrm_byte(3, rcode(ft), rcode(tt)));
|
a_emit_byte(a, modrm_byte(3, rcode(ft), rcode(tt)));
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVL shape\n".ptr, 27u64);
|
os.write(2, "w6a: unsupported MOVL shape\n".ptr, 27u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -1562,7 +1590,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
emit_modrm_mem(a, rcode(tt), p.from.reg, p.from.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVSXD shape\n".ptr, 29u64);
|
os.write(2, "w6a: unsupported MOVSXD shape\n".ptr, 29u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -1582,7 +1610,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
sse_mr_load(a, 242u8, 17u8, ft, p.to.reg, p.to.offset);
|
sse_mr_load(a, 242u8, 17u8, ft, p.to.reg, p.to.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVSD shape\n".ptr, 28u64);
|
os.write(2, "w6a: unsupported MOVSD shape\n".ptr, 28u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -1609,7 +1637,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
sse_mr_load(a, 243u8, 17u8, ft, p.to.reg, p.to.offset);
|
sse_mr_load(a, 243u8, 17u8, ft, p.to.reg, p.to.offset);
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};};
|
};};
|
||||||
os.write(2, "6a: unsupported MOVSS shape\n".ptr, 28u64);
|
os.write(2, "w6a: unsupported MOVSS shape\n".ptr, 28u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
@@ -1784,7 +1812,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
p = p.link; continue;
|
p = p.link; continue;
|
||||||
};
|
};
|
||||||
|
|
||||||
os.write(2, "6a: unsupported opcode\n".ptr, 23u64);
|
os.write(2, "w6a: unsupported opcode\n".ptr, 23u64);
|
||||||
a.errs += 1;
|
a.errs += 1;
|
||||||
p = p.link;
|
p = p.link;
|
||||||
};
|
};
|
||||||
@@ -1793,7 +1821,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
let f: *afixup = a.fixups;
|
let f: *afixup = a.fixups;
|
||||||
for (f != nil) {
|
for (f != nil) {
|
||||||
if (!label_defined(a, f.label)) {
|
if (!label_defined(a, f.label)) {
|
||||||
os.write(2, "6a: undefined label '".ptr, 21u64);
|
os.write(2, "w6a: undefined label '".ptr, 21u64);
|
||||||
let lbl: str = f.label;
|
let lbl: str = f.label;
|
||||||
os.write(2, lbl.ptr, lbl.len: u64);
|
os.write(2, lbl.ptr, lbl.len: u64);
|
||||||
os.write(2, "'\n".ptr, 2u64);
|
os.write(2, "'\n".ptr, 2u64);
|
||||||
@@ -1813,7 +1841,7 @@ export fn a_encode(a: *asm_) i32 = {
|
|||||||
return a.errs;
|
return a.errs;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6a/obj.ww — port of cmd/6a/obj.c.
|
// selfhost/cmd/w6a/obj.ww — port of cmd/w6a/obj.c.
|
||||||
//
|
//
|
||||||
// Emit a tiny ELF64 relocatable object. Layout (in file order):
|
// Emit a tiny ELF64 relocatable object. Layout (in file order):
|
||||||
// [0] ELF header
|
// [0] ELF header
|
||||||
@@ -2107,11 +2135,11 @@ export fn a_emit_elf(a: *asm_, fd: i32) i32 = {
|
|||||||
return 0;
|
return 0;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6a/main.ww — port of cmd/6a/main.c.
|
// selfhost/cmd/w6a/main.ww — port of cmd/w6a/main.c.
|
||||||
//
|
//
|
||||||
// 6a = amd64 assembler. Read .s, parse, encode, emit ELF .o.
|
// w6a = amd64 assembler. Read .s, parse, encode, emit ELF .o.
|
||||||
//
|
//
|
||||||
// 6a_ww -o file.o file.s
|
// w6a_ww -o file.o file.s
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
use mem;
|
use mem;
|
||||||
@@ -2164,16 +2192,16 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (streq_cs(a, "-o")) {
|
if (streq_cs(a, "-o")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6a: -o requires arg\n".ptr, 20u64);
|
os.write(2, "w6a: -o requires arg\n".ptr, 20u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
out_cs = argv[i];
|
out_cs = argv[i];
|
||||||
} else { if (a[0u64] == 45u8) {
|
} else { if (a[0u64] == 45u8) {
|
||||||
os.write(2, "6a: unknown flag\n".ptr, 17u64);
|
os.write(2, "w6a: unknown flag\n".ptr, 17u64);
|
||||||
return 2;
|
return 2;
|
||||||
} else {
|
} else {
|
||||||
if (src_cs != nil) {
|
if (src_cs != nil) {
|
||||||
os.write(2, "6a: only one input\n".ptr, 19u64);
|
os.write(2, "w6a: only one input\n".ptr, 19u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
src_cs = a;
|
src_cs = a;
|
||||||
@@ -2182,11 +2210,11 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
if (src_cs == nil) {
|
if (src_cs == nil) {
|
||||||
os.write(2, "usage: 6a_ww -o file.o file.s\n".ptr, 30u64);
|
os.write(2, "usage: w6a_ww -o file.o file.s\n".ptr, 30u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
if (out_cs == nil) {
|
if (out_cs == nil) {
|
||||||
os.write(2, "6a: missing -o\n".ptr, 15u64);
|
os.write(2, "w6a: missing -o\n".ptr, 15u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -2194,7 +2222,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
let blen: u64;
|
let blen: u64;
|
||||||
buf, blen = slurp(src_cs);
|
buf, blen = slurp(src_cs);
|
||||||
if (buf == nil) {
|
if (buf == nil) {
|
||||||
os.write(2, "6a: cannot read input\n".ptr, 22u64);
|
os.write(2, "w6a: cannot read input\n".ptr, 22u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -2210,7 +2238,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
// Open output for write.
|
// Open output for write.
|
||||||
let fd: i32 = os.open(out_cs, os.O_WRONLY | os.O_CREAT | os.O_TRUNC, 420i32); // 0o644
|
let fd: i32 = os.open(out_cs, os.O_WRONLY | os.O_CREAT | os.O_TRUNC, 420i32); // 0o644
|
||||||
if (fd < 0) {
|
if (fd < 0) {
|
||||||
os.write(2, "6a: cannot open output\n".ptr, 23u64);
|
os.write(2, "w6a: cannot open output\n".ptr, 23u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
let rc: i32 = a_emit_elf(&asm, fd);
|
let rc: i32 = a_emit_elf(&asm, fd);
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
// selfhost/cmd/6a/main.ww — port of cmd/6a/main.c.
|
// selfhost/cmd/w6a/main.ww — port of cmd/w6a/main.c.
|
||||||
//
|
//
|
||||||
// 6a = amd64 assembler. Read .s, parse, encode, emit ELF .o.
|
// w6a = amd64 assembler. Read .s, parse, encode, emit ELF .o.
|
||||||
//
|
//
|
||||||
// 6a_ww -o file.o file.s
|
// w6a_ww -o file.o file.s
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
use mem;
|
use mem;
|
||||||
@@ -55,16 +55,16 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (streq_cs(a, "-o")) {
|
if (streq_cs(a, "-o")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6a: -o requires arg\n".ptr, 20u64);
|
os.write(2, "w6a: -o requires arg\n".ptr, 20u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
out_cs = argv[i];
|
out_cs = argv[i];
|
||||||
} else { if (a[0u64] == 45u8) {
|
} else { if (a[0u64] == 45u8) {
|
||||||
os.write(2, "6a: unknown flag\n".ptr, 17u64);
|
os.write(2, "w6a: unknown flag\n".ptr, 17u64);
|
||||||
return 2;
|
return 2;
|
||||||
} else {
|
} else {
|
||||||
if (src_cs != nil) {
|
if (src_cs != nil) {
|
||||||
os.write(2, "6a: only one input\n".ptr, 19u64);
|
os.write(2, "w6a: only one input\n".ptr, 19u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
src_cs = a;
|
src_cs = a;
|
||||||
@@ -73,11 +73,11 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
if (src_cs == nil) {
|
if (src_cs == nil) {
|
||||||
os.write(2, "usage: 6a_ww -o file.o file.s\n".ptr, 30u64);
|
os.write(2, "usage: w6a_ww -o file.o file.s\n".ptr, 30u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
if (out_cs == nil) {
|
if (out_cs == nil) {
|
||||||
os.write(2, "6a: missing -o\n".ptr, 15u64);
|
os.write(2, "w6a: missing -o\n".ptr, 15u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -85,7 +85,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
let blen: u64;
|
let blen: u64;
|
||||||
buf, blen = slurp(src_cs);
|
buf, blen = slurp(src_cs);
|
||||||
if (buf == nil) {
|
if (buf == nil) {
|
||||||
os.write(2, "6a: cannot read input\n".ptr, 22u64);
|
os.write(2, "w6a: cannot read input\n".ptr, 22u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -101,7 +101,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
// Open output for write.
|
// Open output for write.
|
||||||
let fd: i32 = os.open(out_cs, os.O_WRONLY | os.O_CREAT | os.O_TRUNC, 420i32); // 0o644
|
let fd: i32 = os.open(out_cs, os.O_WRONLY | os.O_CREAT | os.O_TRUNC, 420i32); // 0o644
|
||||||
if (fd < 0) {
|
if (fd < 0) {
|
||||||
os.write(2, "6a: cannot open output\n".ptr, 23u64);
|
os.write(2, "w6a: cannot open output\n".ptr, 23u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
let rc: i32 = a_emit_elf(&asm, fd);
|
let rc: i32 = a_emit_elf(&asm, fd);
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/6a/obj.ww — port of cmd/6a/obj.c.
|
// selfhost/cmd/w6a/obj.ww — port of cmd/w6a/obj.c.
|
||||||
//
|
//
|
||||||
// Emit a tiny ELF64 relocatable object. Layout (in file order):
|
// Emit a tiny ELF64 relocatable object. Layout (in file order):
|
||||||
// [0] ELF header
|
// [0] ELF header
|
||||||
@@ -1,6 +1,6 @@
|
|||||||
// selfhost/cmd/6a/parse.ww — port of cmd/6a/parse.c.
|
// selfhost/cmd/w6a/parse.ww — port of cmd/w6a/parse.c.
|
||||||
//
|
//
|
||||||
// Line-oriented parser for the asm subset emitted by 6c.
|
// Line-oriented parser for the asm subset emitted by w6c.
|
||||||
// Grammar:
|
// Grammar:
|
||||||
// line := blank | comment | label | text | instr
|
// line := blank | comment | label | text | instr
|
||||||
// blank := /^\s*$/
|
// blank := /^\s*$/
|
||||||
@@ -170,7 +170,7 @@ export fn a_intern(a: *asm_, name: str) *asym = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
fn perr(a: *asm_, msg: str) void = {
|
fn perr(a: *asm_, msg: str) void = {
|
||||||
os.write(2, "6a: ".ptr, 4u64);
|
os.write(2, "w6a: ".ptr, 4u64);
|
||||||
let f: str = a.file;
|
let f: str = a.file;
|
||||||
os.write(2, f.ptr, f.len: u64);
|
os.write(2, f.ptr, f.len: u64);
|
||||||
os.write(2, ": ".ptr, 2u64);
|
os.write(2, ": ".ptr, 2u64);
|
||||||
@@ -1,12 +1,12 @@
|
|||||||
// selfhost/cmd/6a/types.ww — types + constants shared across the
|
// selfhost/cmd/w6a/types.ww — types + constants shared across the
|
||||||
// 6a port. Mirrors cmd/6a/a.h and cmd/6c/6.out.h.
|
// w6a port. Mirrors cmd/w6a/a.h and cmd/w6c/6.out.h.
|
||||||
|
|
||||||
use mem;
|
use mem;
|
||||||
|
|
||||||
// ---- registers + operand kinds (from 6.out.h) -------------------------
|
// ---- registers + operand kinds (from 6.out.h) -------------------------
|
||||||
// These must stay numerically aligned with the C enum so that ww-cgen
|
// These must stay numerically aligned with the C enum so that ww-cgen
|
||||||
// output (which reads them via `D_AX(SB)` etc.) lands on the same
|
// output (which reads them via `D_AX(SB)` etc.) lands on the same
|
||||||
// integers when read by ww-6a.
|
// integers when read by ww-w6a.
|
||||||
def D_NONE: i32 = 0;
|
def D_NONE: i32 = 0;
|
||||||
|
|
||||||
def D_AX: i32 = 1;
|
def D_AX: i32 = 1;
|
||||||
@@ -121,7 +121,7 @@ def A_JNZ: i32 = 58;
|
|||||||
|
|
||||||
def A_SYSCALL: i32 = 59;
|
def A_SYSCALL: i32 = 59;
|
||||||
|
|
||||||
// ---- structs (mirror cmd/6a/a.h) --------------------------------------
|
// ---- structs (mirror cmd/w6a/a.h) --------------------------------------
|
||||||
|
|
||||||
type aoperand = struct {
|
type aoperand = struct {
|
||||||
atype: i32, // D_NONE / D_AX..D_R15 / D_CONST / D_INDIR / D_EXTERN / D_BRANCH
|
atype: i32, // D_NONE / D_AX..D_R15 / D_CONST / D_INDIR / D_EXTERN / D_BRANCH
|
||||||
@@ -31,6 +31,8 @@ def SYS_EXECVE: i64 = 59;
|
|||||||
def SYS_EXIT: i64 = 60;
|
def SYS_EXIT: i64 = 60;
|
||||||
def SYS_WAIT4: i64 = 61;
|
def SYS_WAIT4: i64 = 61;
|
||||||
def SYS_UNLINK: i64 = 87;
|
def SYS_UNLINK: i64 = 87;
|
||||||
|
def SYS_GETCWD: i64 = 79;
|
||||||
|
def SYS_GETDENTS64: i64 = 217;
|
||||||
|
|
||||||
// open(2) flags. Linux values, matching <fcntl.h>.
|
// open(2) flags. Linux values, matching <fcntl.h>.
|
||||||
def O_RDONLY: i32 = 0;
|
def O_RDONLY: i32 = 0;
|
||||||
@@ -65,7 +67,7 @@ export fn close(fd: i32) i32 = {
|
|||||||
|
|
||||||
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
||||||
// closing `newfd` first if open. Returns `newfd` on success or a
|
// closing `newfd` first if open. Returns `newfd` on success or a
|
||||||
// negative errno. Used by 6c_ww to redirect stdout into an output
|
// negative errno. Used by w6c_ww to redirect stdout into an output
|
||||||
// file without changing the cgen emit path.
|
// file without changing the cgen emit path.
|
||||||
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
||||||
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
||||||
@@ -179,7 +181,33 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
options: i64, rusage: i64): i32;
|
options: i64, rusage: i64): i32;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/mem.ww — port of cmd/wwc/mem.c.
|
// getcwd(2) — Linux flavour. Writes the NUL-terminated cwd into `buf`
|
||||||
|
// and returns the number of bytes written (including the NUL), or a
|
||||||
|
// negative errno. The driver uses it to expand `.` to the cwd's
|
||||||
|
// basename for `ww build` / `ww test`.
|
||||||
|
export fn getcwd(buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall2(SYS_GETCWD, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// getdents64(2) — Linux directory enumeration. The fd must be opened
|
||||||
|
// with O_RDONLY on a directory. `buf` receives a packed sequence of
|
||||||
|
// linux_dirent64 records:
|
||||||
|
//
|
||||||
|
// struct linux_dirent64 {
|
||||||
|
// u64 d_ino; // 0..7
|
||||||
|
// i64 d_off; // 8..15
|
||||||
|
// u16 d_reclen; // 16..17 — total bytes for this record
|
||||||
|
// u8 d_type; // 18 — DT_REG/DT_DIR/...
|
||||||
|
// u8 d_name[]; // 19.. — NUL-terminated name + padding
|
||||||
|
// };
|
||||||
|
//
|
||||||
|
// Returns bytes written into `buf` (advance by d_reclen to walk),
|
||||||
|
// 0 at end-of-directory, or a negative errno.
|
||||||
|
export fn getdents64(fd: i32, buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall3(SYS_GETDENTS64, fd: i64, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// selfhost/cmd/wcc/mem.ww — port of cmd/wcc/mem.c.
|
||||||
//
|
//
|
||||||
// Bump arena allocator. Backed by the runtime page allocator
|
// Bump arena allocator. Backed by the runtime page allocator
|
||||||
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
||||||
@@ -187,7 +215,7 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
// unmaps the chain.
|
// unmaps the chain.
|
||||||
//
|
//
|
||||||
// Memory handed out is 16-byte aligned. The C version under
|
// Memory handed out is 16-byte aligned. The C version under
|
||||||
// cmd/wwc/ is retained until the three-stage bootstrap diffs clean.
|
// cmd/wcc/ is retained until the three-stage bootstrap diffs clean.
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
|
|
||||||
@@ -406,8 +434,8 @@ export fn parseu64(s: str) (u64 | str) = {
|
|||||||
return v;
|
return v;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/tok.ww — port of cmd/wwc/tok.c plus the Tkind /
|
// selfhost/cmd/wcc/tok.ww — port of cmd/wcc/tok.c plus the Tkind /
|
||||||
// Tok / Pos shapes from cmd/wwc/ww.h.
|
// Tok / Pos shapes from cmd/wcc/ww.h.
|
||||||
//
|
//
|
||||||
// Token kind values must stay numerically equal to the C side: the
|
// Token kind values must stay numerically equal to the C side: the
|
||||||
// 990_selfhost test diffs ww-side wwdump output against C-side
|
// 990_selfhost test diffs ww-side wwdump output against C-side
|
||||||
@@ -415,13 +443,13 @@ export fn parseu64(s: str) (u64 | str) = {
|
|||||||
// integers and breaks the diff.
|
// integers and breaks the diff.
|
||||||
//
|
//
|
||||||
// Bottom of file: tokprint, which emits one token per line in a
|
// Bottom of file: tokprint, which emits one token per line in a
|
||||||
// format identical to cmd/wwc/tok.c:tokprint().
|
// format identical to cmd/wcc/tok.c:tokprint().
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
use strconv;
|
use strconv;
|
||||||
|
|
||||||
// ---- Tkind ------------------------------------------------------------
|
// ---- Tkind ------------------------------------------------------------
|
||||||
// Mirror of the C enum in cmd/wwc/ww.h. Don't reorder.
|
// Mirror of the C enum in cmd/wcc/ww.h. Don't reorder.
|
||||||
|
|
||||||
def TK_NONE: i32 = 0;
|
def TK_NONE: i32 = 0;
|
||||||
def TK_EOF: i32 = 1;
|
def TK_EOF: i32 = 1;
|
||||||
@@ -516,7 +544,7 @@ def TK_LAST: i32 = 80;
|
|||||||
// ---- Pos / Tok --------------------------------------------------------
|
// ---- Pos / Tok --------------------------------------------------------
|
||||||
//
|
//
|
||||||
// `pos` is used at error-reporting boundaries; we always pass it via
|
// `pos` is used at error-reporting boundaries; we always pass it via
|
||||||
// *pos so the value never gets struct-copied (6c can't yet copy a
|
// *pos so the value never gets struct-copied (w6c can't yet copy a
|
||||||
// 24-byte struct).
|
// 24-byte struct).
|
||||||
//
|
//
|
||||||
// `tok` is flat — file/line/col live directly on the token rather than
|
// `tok` is flat — file/line/col live directly on the token rather than
|
||||||
@@ -554,7 +582,7 @@ fn streq_n(a: *u8, b: str, n: i32) bool = {
|
|||||||
|
|
||||||
// kwlookup — returns the matching TK_* keyword kind for a byte run,
|
// kwlookup — returns the matching TK_* keyword kind for a byte run,
|
||||||
// or TK_NONE if it's an ordinary identifier. Linear search over a
|
// or TK_NONE if it's an ordinary identifier. Linear search over a
|
||||||
// small alphabetised list, matching cmd/wwc/tok.c.
|
// small alphabetised list, matching cmd/wcc/tok.c.
|
||||||
export fn kwlookup(p: *u8, n: i32) i32 = {
|
export fn kwlookup(p: *u8, n: i32) i32 = {
|
||||||
if (streq_n(p, "as", n)) { return TK_AS; };
|
if (streq_n(p, "as", n)) { return TK_AS; };
|
||||||
if (streq_n(p, "break", n)) { return TK_BREAK; };
|
if (streq_n(p, "break", n)) { return TK_BREAK; };
|
||||||
@@ -683,7 +711,7 @@ export fn tokname(k: i32) str = {
|
|||||||
|
|
||||||
// ---- writer for tokprint ----------------------------------------------
|
// ---- writer for tokprint ----------------------------------------------
|
||||||
//
|
//
|
||||||
// fputq mirrors cmd/wwc/tok.c:fputq — quote the string with C-style
|
// fputq mirrors cmd/wcc/tok.c:fputq — quote the string with C-style
|
||||||
// escapes for \, ", \n, \t, \r and \xNN for other non-printables.
|
// escapes for \, ", \n, \t, \r and \xNN for other non-printables.
|
||||||
|
|
||||||
fn fputc_byte(fd: i32, b: u8) void = {
|
fn fputc_byte(fd: i32, b: u8) void = {
|
||||||
@@ -750,14 +778,14 @@ fn fputq(fd: i32, p: *u8, n: i32) void = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
// tokprint — write one token line to fd. Format must match
|
// tokprint — write one token line to fd. Format must match
|
||||||
// cmd/wwc/tok.c:tokprint() byte-for-byte: that's the diff anchor.
|
// cmd/wcc/tok.c:tokprint() byte-for-byte: that's the diff anchor.
|
||||||
// "<file>:<line>:<col> <kindname>[ <value>]\n"
|
// "<file>:<line>:<col> <kindname>[ <value>]\n"
|
||||||
//
|
//
|
||||||
// Takes `t` by pointer because 6c can't yet pass a >16-byte struct
|
// Takes `t` by pointer because w6c can't yet pass a >16-byte struct
|
||||||
// by value; the C version takes Tok by value.
|
// by value; the C version takes Tok by value.
|
||||||
export fn tokprint(fd: i32, t: *tok) void = {
|
export fn tokprint(fd: i32, t: *tok) void = {
|
||||||
// Chained-dot field reads (`t.x.y`) on str sub-fields aren't yet
|
// Chained-dot field reads (`t.x.y`) on str sub-fields aren't yet
|
||||||
// reduced by 6c — `t.x.y` returns the whole str. Lift the str
|
// reduced by w6c — `t.x.y` returns the whole str. Lift the str
|
||||||
// fields into locals so we can use the str pseudo-field path.
|
// fields into locals so we can use the str pseudo-field path.
|
||||||
let tfile: str = t.file;
|
let tfile: str = t.file;
|
||||||
let ttext: str = t.text;
|
let ttext: str = t.text;
|
||||||
@@ -894,14 +922,14 @@ export fn toupper(c: u8) u8 = {
|
|||||||
return c;
|
return c;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/lex.ww — port of cmd/wwc/lex.c.
|
// selfhost/cmd/wcc/lex.ww — port of cmd/wcc/lex.c.
|
||||||
//
|
//
|
||||||
// The DFA, the helpers, and the order of decisions all mirror the C
|
// The DFA, the helpers, and the order of decisions all mirror the C
|
||||||
// version exactly. The 990_selfhost test diffs the resulting token
|
// version exactly. The 990_selfhost test diffs the resulting token
|
||||||
// stream against the C-side wwdump byte-for-byte; any divergence is
|
// stream against the C-side wwdump byte-for-byte; any divergence is
|
||||||
// a port bug.
|
// a port bug.
|
||||||
//
|
//
|
||||||
// Calling-convention note: 6c can't yet pass or return structs >16
|
// Calling-convention note: w6c can't yet pass or return structs >16
|
||||||
// bytes by value, so `tok` and `pos` are passed by pointer (out
|
// bytes by value, so `tok` and `pos` are passed by pointer (out
|
||||||
// params). The C version passes `Tok` by value; we differ here only
|
// params). The C version passes `Tok` by value; we differ here only
|
||||||
// in shape, not in observable behaviour. Token kind values stay
|
// in shape, not in observable behaviour. Token kind values stay
|
||||||
@@ -1551,7 +1579,7 @@ export fn lexnext(l: *lex, out: *tok) void = {
|
|||||||
out.text = astrndup(l.a, one.ptr, 1u64);
|
out.text = astrndup(l.a, one.ptr, 1u64);
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/ast.ww — port of cmd/wwc/ast.c (Node defs + printer).
|
// selfhost/cmd/wcc/ast.ww — port of cmd/wcc/ast.c (Node defs + printer).
|
||||||
//
|
//
|
||||||
// Status: AST printer is fully ported. Constructor `newnode` is here.
|
// Status: AST printer is fully ported. Constructor `newnode` is here.
|
||||||
// The parser (parse.ww) is currently minimal — see its file header.
|
// The parser (parse.ww) is currently minimal — see its file header.
|
||||||
@@ -1567,7 +1595,7 @@ use tok;
|
|||||||
|
|
||||||
// ---- Nkind ------------------------------------------------------------
|
// ---- Nkind ------------------------------------------------------------
|
||||||
//
|
//
|
||||||
// Mirror of cmd/wwc/ww.h Nkind. Values must stay numerically equal so
|
// Mirror of cmd/wcc/ww.h Nkind. Values must stay numerically equal so
|
||||||
// the AST diff probe in 990_selfhost works.
|
// the AST diff probe in 990_selfhost works.
|
||||||
|
|
||||||
def N_NONE: i32 = 0;
|
def N_NONE: i32 = 0;
|
||||||
@@ -1887,7 +1915,7 @@ export fn astprint(fd: i32, n: *node) void = {
|
|||||||
pr(fd, n, 0);
|
pr(fd, n, 0);
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/parse.ww — port of cmd/wwc/parse.c.
|
// selfhost/cmd/wcc/parse.ww — port of cmd/wcc/parse.c.
|
||||||
//
|
//
|
||||||
// Status: GROWING stub. Currently handles top-level `use IDENT;`,
|
// Status: GROWING stub. Currently handles top-level `use IDENT;`,
|
||||||
// `def NAME: TYPE = LIT;`, `type NAME = TYPE;`, and `fn NAME(params)
|
// `def NAME: TYPE = LIT;`, `type NAME = TYPE;`, and `fn NAME(params)
|
||||||
@@ -1900,7 +1928,7 @@ export fn astprint(fd: i32, n: *node) void = {
|
|||||||
// surface form lands here gradually so the AST diff in 990_selfhost
|
// surface form lands here gradually so the AST diff in 990_selfhost
|
||||||
// grows toward whole-language coverage one increment at a time.
|
// grows toward whole-language coverage one increment at a time.
|
||||||
//
|
//
|
||||||
// Calling-convention shim: 6c can't yet pass a sub-struct field
|
// Calling-convention shim: w6c can't yet pass a sub-struct field
|
||||||
// (e.g. p.cur.line where p.cur is a `tok` of size 76). The parser
|
// (e.g. p.cur.line where p.cur is a `tok` of size 76). The parser
|
||||||
// stores the current token as flat primitive fields rather than a
|
// stores the current token as flat primitive fields rather than a
|
||||||
// nested `tok` struct; `refill` copies a freshly lexed token in.
|
// nested `tok` struct; `refill` copies a freshly lexed token in.
|
||||||
@@ -2635,7 +2663,7 @@ fn parsestmt(p: *parser) *node = {
|
|||||||
};
|
};
|
||||||
// expression statement, or tuple-destructure multi-assign:
|
// expression statement, or tuple-destructure multi-assign:
|
||||||
// a, b = expr;
|
// a, b = expr;
|
||||||
// Mirrors cmd/wwc/parse.c:1015-1031. We parse the first lvalue
|
// Mirrors cmd/wcc/parse.c:1015-1031. We parse the first lvalue
|
||||||
// with parseexpr (matches the C side); subsequent lvalues go
|
// with parseexpr (matches the C side); subsequent lvalues go
|
||||||
// through parsebin(parseunary, 1) so the `=` stays for us to
|
// through parsebin(parseunary, 1) so the `=` stays for us to
|
||||||
// consume — parseexpr would absorb it.
|
// consume — parseexpr would absorb it.
|
||||||
@@ -2870,7 +2898,7 @@ export fn parsefile(p: *parser) *node = {
|
|||||||
return f;
|
return f;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/type.ww — port of cmd/wwc/type.c.
|
// selfhost/cmd/wcc/type.ww — port of cmd/wcc/type.c.
|
||||||
//
|
//
|
||||||
// Status: full structural port. The C version uses module-globals for
|
// Status: full structural port. The C version uses module-globals for
|
||||||
// the primitive types (ty_void, ty_i32, …); ww doesn't have writable
|
// the primitive types (ty_void, ty_i32, …); ww doesn't have writable
|
||||||
@@ -2882,7 +2910,7 @@ use os;
|
|||||||
use mem;
|
use mem;
|
||||||
|
|
||||||
// ---- TypeKind ---------------------------------------------------------
|
// ---- TypeKind ---------------------------------------------------------
|
||||||
// Numeric values must stay aligned with cmd/wwc/ww.h TypeKind so the
|
// Numeric values must stay aligned with cmd/wcc/ww.h TypeKind so the
|
||||||
// next diff signal (typed-AST printer / cgen) can compare across the
|
// next diff signal (typed-AST printer / cgen) can compare across the
|
||||||
// two implementations.
|
// two implementations.
|
||||||
|
|
||||||
@@ -3200,7 +3228,7 @@ export fn type_eq(a: *tinfo, b: *tinfo) bool = {
|
|||||||
return true; // primitives match by kind alone
|
return true; // primitives match by kind alone
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/sym.ww — port of cmd/wwc/sym.c.
|
// selfhost/cmd/wcc/sym.ww — port of cmd/wcc/sym.c.
|
||||||
//
|
//
|
||||||
// Per-scope hashtable, chained to the parent. Lookup walks up.
|
// Per-scope hashtable, chained to the parent. Lookup walks up.
|
||||||
// Plan 9 / Hare flavoured. Duplicate definitions in the same scope
|
// Plan 9 / Hare flavoured. Duplicate definitions in the same scope
|
||||||
@@ -3210,7 +3238,7 @@ use mem;
|
|||||||
use typ;
|
use typ;
|
||||||
use ast;
|
use ast;
|
||||||
|
|
||||||
// Symbol kinds — must stay numerically aligned with cmd/wwc/ww.h Skind.
|
// Symbol kinds — must stay numerically aligned with cmd/wcc/ww.h Skind.
|
||||||
def SK_NONE: i32 = 0;
|
def SK_NONE: i32 = 0;
|
||||||
def SK_VAR: i32 = 1;
|
def SK_VAR: i32 = 1;
|
||||||
def SK_PARAM: i32 = 2;
|
def SK_PARAM: i32 = 2;
|
||||||
@@ -3314,11 +3342,11 @@ export fn scope_define(s: *scope, name: str, k: i32, t: *tinfo, decl: *node) *sy
|
|||||||
return sy;
|
return sy;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/check.ww — minimal port of cmd/wwc/check.c.
|
// selfhost/cmd/wcc/check.ww — minimal port of cmd/wcc/check.c.
|
||||||
//
|
//
|
||||||
// Status: name-resolution + primitive-type seeding only. Full type
|
// Status: name-resolution + primitive-type seeding only. Full type
|
||||||
// inference, conversion rules, tagged-union dispatch typing, return-
|
// inference, conversion rules, tagged-union dispatch typing, return-
|
||||||
// type checking, etc. all live in cmd/wwc/check.c (937 lines) and
|
// type checking, etc. all live in cmd/wcc/check.c (937 lines) and
|
||||||
// will land here in subsequent commits.
|
// will land here in subsequent commits.
|
||||||
//
|
//
|
||||||
// What this version does:
|
// What this version does:
|
||||||
@@ -3562,10 +3590,10 @@ export fn check_file(c: *checker, file: *node) void = {
|
|||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/cgen.ww — port of cmd/6c/cgen.c.
|
// selfhost/cmd/wcc/cgen.ww — port of cmd/w6c/cgen.c.
|
||||||
//
|
//
|
||||||
// Status: GROWING. Each subsystem we add is verified by `wwdump_ww -c`
|
// Status: GROWING. Each subsystem we add is verified by `wwdump_ww -c`
|
||||||
// producing byte-identical output to C-side `6c` for the same source,
|
// producing byte-identical output to C-side `w6c` for the same source,
|
||||||
// then by assembling + linking + running the result.
|
// then by assembling + linking + running the result.
|
||||||
//
|
//
|
||||||
// Current coverage:
|
// Current coverage:
|
||||||
@@ -3760,7 +3788,7 @@ fn local_alloc(c: *cgen, name: str, sz: i32, tnode: *node) i32 = {
|
|||||||
fn local_add(c: *cgen, name: str, sz: i32, tnode: *node) i32 = {
|
fn local_add(c: *cgen, name: str, sz: i32, tnode: *node) i32 = {
|
||||||
// Name-based slot reuse for N_LETs and params: if `name` is
|
// Name-based slot reuse for N_LETs and params: if `name` is
|
||||||
// already declared in this function, return its existing
|
// already declared in this function, return its existing
|
||||||
// offset. Mirrors C cgen (cmd/6c/cgen.c:localoff). Two
|
// offset. Mirrors C cgen (cmd/w6c/cgen.c:localoff). Two
|
||||||
// disjoint scopes that declare the same name share one slot —
|
// disjoint scopes that declare the same name share one slot —
|
||||||
// so `escape` in wwdump (three `let cp: pos;` across separate
|
// so `escape` in wwdump (three `let cp: pos;` across separate
|
||||||
// branches) reserves one slot, not three. scan_locals does
|
// branches) reserves one slot, not three. scan_locals does
|
||||||
@@ -4097,7 +4125,7 @@ fn fnret_lookup(c: *cgen, name: str) *node = {
|
|||||||
|
|
||||||
// ---- def-constant registry ------------------------------------------
|
// ---- def-constant registry ------------------------------------------
|
||||||
//
|
//
|
||||||
// `def NAME: T = LIT;` becomes a DATA symbol the C-side 6c emits; an
|
// `def NAME: T = LIT;` becomes a DATA symbol the C-side w6c emits; an
|
||||||
// ident reference loads it via `MOVQ NAME(SB), AX`. We collect them at
|
// ident reference loads it via `MOVQ NAME(SB), AX`. We collect them at
|
||||||
// file load and consult on N_IDENT lookup.
|
// file load and consult on N_IDENT lookup.
|
||||||
|
|
||||||
@@ -4725,7 +4753,7 @@ fn node_isunsigned(c: *cgen, n: *node) bool = {
|
|||||||
// Walks the base local's declared type and pulls the element
|
// Walks the base local's declared type and pulls the element
|
||||||
// out — *u8 → u8, [N]u32 → u32, []u64 → u64. Without this the
|
// out — *u8 → u8, [N]u32 → u32, []u64 → u64. Without this the
|
||||||
// compare-codegen for `p[i] >= 48u8` falls back to signed JGE
|
// compare-codegen for `p[i] >= 48u8` falls back to signed JGE
|
||||||
// instead of JAE, diverging from C 6c on byte indexing.
|
// instead of JAE, diverging from C w6c on byte indexing.
|
||||||
if (k == N_INDEX) {
|
if (k == N_INDEX) {
|
||||||
let base: *node = n.lhs;
|
let base: *node = n.lhs;
|
||||||
if (base != nil) {
|
if (base != nil) {
|
||||||
@@ -5198,7 +5226,7 @@ fn cgexpr(c: *cgen, n: *node) void = {
|
|||||||
// path the cgen falls through and AX retains whatever the
|
// path the cgen falls through and AX retains whatever the
|
||||||
// inner expression left there — typically the *struct pointer
|
// inner expression left there — typically the *struct pointer
|
||||||
// itself, so reads silently get the pointer value instead of
|
// itself, so reads silently get the pointer value instead of
|
||||||
// the field. (Showed up porting 6l/pass.ww.)
|
// the field. (Showed up porting w6l/pass.ww.)
|
||||||
if (lhs != nil) {
|
if (lhs != nil) {
|
||||||
if (lhs.kind == N_DOT) {
|
if (lhs.kind == N_DOT) {
|
||||||
let inner_t: *node = dot_inner_struct_ptr(c, lhs);
|
let inner_t: *node = dot_inner_struct_ptr(c, lhs);
|
||||||
@@ -5487,7 +5515,7 @@ fn cgexpr(c: *cgen, n: *node) void = {
|
|||||||
};
|
};
|
||||||
cgexpr(c, n.rhs);
|
cgexpr(c, n.rhs);
|
||||||
// Push order matches C cgen
|
// Push order matches C cgen
|
||||||
// (cmd/6c/cgen.c:1033-1041): PUSHQ AX
|
// (cmd/w6c/cgen.c:1033-1041): PUSHQ AX
|
||||||
// (ptr) first, then PUSHQ BX (len) if
|
// (ptr) first, then PUSHQ BX (len) if
|
||||||
// str, so the pop sequence is POP CX
|
// str, so the pop sequence is POP CX
|
||||||
// (len) → POP AX (ptr) → MOVQ AX,
|
// (len) → POP AX (ptr) → MOVQ AX,
|
||||||
@@ -6259,7 +6287,7 @@ fn cgstmt(c: *cgen, n: *node) void = {
|
|||||||
};
|
};
|
||||||
} else {
|
} else {
|
||||||
// Bare `let x: T;` with no initializer. C cgen
|
// Bare `let x: T;` with no initializer. C cgen
|
||||||
// (cmd/6c/cgen.c:2181-2183) zero-inits only when
|
// (cmd/w6c/cgen.c:2181-2183) zero-inits only when
|
||||||
// the underlying type's natural size is 8 — pointers,
|
// the underlying type's natural size is 8 — pointers,
|
||||||
// i64/u64, function pointers, ints. Structs/arrays/
|
// i64/u64, function pointers, ints. Structs/arrays/
|
||||||
// slices/strings/tagged/tuples are left for per-field
|
// slices/strings/tagged/tuples are left for per-field
|
||||||
@@ -6330,7 +6358,7 @@ fn cgstmt(c: *cgen, n: *node) void = {
|
|||||||
// Tuple-destructure assign: `a, b = call();`. The call's tuple
|
// Tuple-destructure assign: `a, b = call();`. The call's tuple
|
||||||
// return lands in (AX, DX); push DX to free it, store AX into
|
// return lands in (AX, DX); push DX to free it, store AX into
|
||||||
// the first lvalue, then pop DX into the second. Mirrors
|
// the first lvalue, then pop DX into the second. Mirrors
|
||||||
// cmd/6c/cgen.c:2424-2440. Lvalues beyond two are dropped (same
|
// cmd/w6c/cgen.c:2424-2440. Lvalues beyond two are dropped (same
|
||||||
// as C — no fixture uses >2 today).
|
// as C — no fixture uses >2 today).
|
||||||
if (k == N_MASSIGN) {
|
if (k == N_MASSIGN) {
|
||||||
if (n.rhs != nil) { cgexpr(c, n.rhs); };
|
if (n.rhs != nil) { cgexpr(c, n.rhs); };
|
||||||
@@ -6645,14 +6673,14 @@ export fn cg_file(c: *cgen, file: *node) void = {
|
|||||||
emit_def_constants(c, file);
|
emit_def_constants(c, file);
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6c/main.ww — port of cmd/6c/main.c.
|
// selfhost/cmd/w6c/main.ww — port of cmd/w6c/main.c.
|
||||||
//
|
//
|
||||||
// 6c = amd64 compiler. Read .ww, parse, codegen, emit Plan 9 amd64
|
// w6c = amd64 compiler. Read .ww, parse, codegen, emit Plan 9 amd64
|
||||||
// asm to stdout (or the file given by -o).
|
// asm to stdout (or the file given by -o).
|
||||||
//
|
//
|
||||||
// 6c_ww -o file.s file.ww
|
// w6c_ww -o file.s file.ww
|
||||||
//
|
//
|
||||||
// The cgen routines in selfhost/cmd/wwc/cgen.ww write directly to
|
// The cgen routines in selfhost/cmd/wcc/cgen.ww write directly to
|
||||||
// fd 1 via os.write(1, ...). For -o, we open the output file and
|
// fd 1 via os.write(1, ...). For -o, we open the output file and
|
||||||
// dup2 it onto fd 1 before invoking cg_file. This is the same trick
|
// dup2 it onto fd 1 before invoking cg_file. This is the same trick
|
||||||
// the bootstrap uses with shell redirection, just in-process.
|
// the bootstrap uses with shell redirection, just in-process.
|
||||||
@@ -6710,16 +6738,16 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (streq_cs(a, "-o")) {
|
if (streq_cs(a, "-o")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6c: -o requires arg\n".ptr, 20u64);
|
os.write(2, "w6c: -o requires arg\n".ptr, 20u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
out_cs = argv[i];
|
out_cs = argv[i];
|
||||||
} else { if (a[0u64] == 45u8) {
|
} else { if (a[0u64] == 45u8) {
|
||||||
os.write(2, "6c: unknown flag\n".ptr, 17u64);
|
os.write(2, "w6c: unknown flag\n".ptr, 17u64);
|
||||||
return 2;
|
return 2;
|
||||||
} else {
|
} else {
|
||||||
if (src_cs != nil) {
|
if (src_cs != nil) {
|
||||||
os.write(2, "6c: only one input\n".ptr, 19u64);
|
os.write(2, "w6c: only one input\n".ptr, 19u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
src_cs = a;
|
src_cs = a;
|
||||||
@@ -6728,7 +6756,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
if (src_cs == nil) {
|
if (src_cs == nil) {
|
||||||
os.write(2, "usage: 6c_ww [-o out.s] file.ww\n".ptr, 32u64);
|
os.write(2, "usage: w6c_ww [-o out.s] file.ww\n".ptr, 32u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -6736,7 +6764,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
let blen: u64;
|
let blen: u64;
|
||||||
buf, blen = slurp(src_cs);
|
buf, blen = slurp(src_cs);
|
||||||
if (buf == nil) {
|
if (buf == nil) {
|
||||||
os.write(2, "6c: cannot read input\n".ptr, 22u64);
|
os.write(2, "w6c: cannot read input\n".ptr, 22u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -6747,11 +6775,11 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
let ofd: i32 = os.open(out_cs,
|
let ofd: i32 = os.open(out_cs,
|
||||||
os.O_WRONLY | os.O_CREAT | os.O_TRUNC, 420i32); // 0o644
|
os.O_WRONLY | os.O_CREAT | os.O_TRUNC, 420i32); // 0o644
|
||||||
if (ofd < 0) {
|
if (ofd < 0) {
|
||||||
os.write(2, "6c: cannot open output\n".ptr, 23u64);
|
os.write(2, "w6c: cannot open output\n".ptr, 23u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
if (os.dup2(ofd, 1i32) < 0) {
|
if (os.dup2(ofd, 1i32) < 0) {
|
||||||
os.write(2, "6c: dup2 failed\n".ptr, 16u64);
|
os.write(2, "w6c: dup2 failed\n".ptr, 16u64);
|
||||||
os.close(ofd);
|
os.close(ofd);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
@@ -1,11 +1,11 @@
|
|||||||
// selfhost/cmd/6c/main.ww — port of cmd/6c/main.c.
|
// selfhost/cmd/w6c/main.ww — port of cmd/w6c/main.c.
|
||||||
//
|
//
|
||||||
// 6c = amd64 compiler. Read .ww, parse, codegen, emit Plan 9 amd64
|
// w6c = amd64 compiler. Read .ww, parse, codegen, emit Plan 9 amd64
|
||||||
// asm to stdout (or the file given by -o).
|
// asm to stdout (or the file given by -o).
|
||||||
//
|
//
|
||||||
// 6c_ww -o file.s file.ww
|
// w6c_ww -o file.s file.ww
|
||||||
//
|
//
|
||||||
// The cgen routines in selfhost/cmd/wwc/cgen.ww write directly to
|
// The cgen routines in selfhost/cmd/wcc/cgen.ww write directly to
|
||||||
// fd 1 via os.write(1, ...). For -o, we open the output file and
|
// fd 1 via os.write(1, ...). For -o, we open the output file and
|
||||||
// dup2 it onto fd 1 before invoking cg_file. This is the same trick
|
// dup2 it onto fd 1 before invoking cg_file. This is the same trick
|
||||||
// the bootstrap uses with shell redirection, just in-process.
|
// the bootstrap uses with shell redirection, just in-process.
|
||||||
@@ -63,16 +63,16 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (streq_cs(a, "-o")) {
|
if (streq_cs(a, "-o")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6c: -o requires arg\n".ptr, 20u64);
|
os.write(2, "w6c: -o requires arg\n".ptr, 20u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
out_cs = argv[i];
|
out_cs = argv[i];
|
||||||
} else { if (a[0u64] == 45u8) {
|
} else { if (a[0u64] == 45u8) {
|
||||||
os.write(2, "6c: unknown flag\n".ptr, 17u64);
|
os.write(2, "w6c: unknown flag\n".ptr, 17u64);
|
||||||
return 2;
|
return 2;
|
||||||
} else {
|
} else {
|
||||||
if (src_cs != nil) {
|
if (src_cs != nil) {
|
||||||
os.write(2, "6c: only one input\n".ptr, 19u64);
|
os.write(2, "w6c: only one input\n".ptr, 19u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
src_cs = a;
|
src_cs = a;
|
||||||
@@ -81,7 +81,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
if (src_cs == nil) {
|
if (src_cs == nil) {
|
||||||
os.write(2, "usage: 6c_ww [-o out.s] file.ww\n".ptr, 32u64);
|
os.write(2, "usage: w6c_ww [-o out.s] file.ww\n".ptr, 32u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -89,7 +89,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
let blen: u64;
|
let blen: u64;
|
||||||
buf, blen = slurp(src_cs);
|
buf, blen = slurp(src_cs);
|
||||||
if (buf == nil) {
|
if (buf == nil) {
|
||||||
os.write(2, "6c: cannot read input\n".ptr, 22u64);
|
os.write(2, "w6c: cannot read input\n".ptr, 22u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -100,11 +100,11 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
let ofd: i32 = os.open(out_cs,
|
let ofd: i32 = os.open(out_cs,
|
||||||
os.O_WRONLY | os.O_CREAT | os.O_TRUNC, 420i32); // 0o644
|
os.O_WRONLY | os.O_CREAT | os.O_TRUNC, 420i32); // 0o644
|
||||||
if (ofd < 0) {
|
if (ofd < 0) {
|
||||||
os.write(2, "6c: cannot open output\n".ptr, 23u64);
|
os.write(2, "w6c: cannot open output\n".ptr, 23u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
if (os.dup2(ofd, 1i32) < 0) {
|
if (os.dup2(ofd, 1i32) < 0) {
|
||||||
os.write(2, "6c: dup2 failed\n".ptr, 16u64);
|
os.write(2, "w6c: dup2 failed\n".ptr, 16u64);
|
||||||
os.close(ofd);
|
os.close(ofd);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/6l/dyn.ww — port of cmd/6l/dyn.c.
|
// selfhost/cmd/w6l/dyn.ww — port of cmd/w6l/dyn.c.
|
||||||
//
|
//
|
||||||
// Load a shared object (ET_DYN) so the linker knows which symbols it
|
// Load a shared object (ET_DYN) so the linker knows which symbols it
|
||||||
// exports and which DT_NEEDED entry to record. We do not pull bytes
|
// exports and which DT_NEEDED entry to record. We do not pull bytes
|
||||||
@@ -167,11 +167,11 @@ export fn l_load_so(l: *lnk, path_cs: *u8) i32 = {
|
|||||||
let blen: u64;
|
let blen: u64;
|
||||||
buf, blen = read_all_so(path_cs);
|
buf, blen = read_all_so(path_cs);
|
||||||
if (buf == nil) {
|
if (buf == nil) {
|
||||||
os.write(2, "6l: cannot read .so\n".ptr, 20u64);
|
os.write(2, "w6l: cannot read .so\n".ptr, 20u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
if (blen < 64u64) {
|
if (blen < 64u64) {
|
||||||
os.write(2, "6l: short ELF\n".ptr, 14u64);
|
os.write(2, "w6l: short ELF\n".ptr, 14u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
if (buf[0u64] != 127u8) { return so_err("not ELF"); };
|
if (buf[0u64] != 127u8) { return so_err("not ELF"); };
|
||||||
@@ -359,7 +359,7 @@ export fn l_load_so(l: *lnk, path_cs: *u8) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
fn so_err(msg: str) i32 = {
|
fn so_err(msg: str) i32 = {
|
||||||
os.write(2, "6l: ".ptr, 4u64);
|
os.write(2, "w6l: ".ptr, 4u64);
|
||||||
os.write(2, msg.ptr, msg.len: u64);
|
os.write(2, msg.ptr, msg.len: u64);
|
||||||
os.write(2, "\n".ptr, 1u64);
|
os.write(2, "\n".ptr, 1u64);
|
||||||
return -1;
|
return -1;
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/6l/dynout.ww — port of cmd/6l/dynout.c.
|
// selfhost/cmd/w6l/dynout.ww — port of cmd/w6l/dynout.c.
|
||||||
//
|
//
|
||||||
// Emit a dynamic-linked ELF executable. The shape is the simplest
|
// Emit a dynamic-linked ELF executable. The shape is the simplest
|
||||||
// valid one: PT_INTERP + PT_DYNAMIC + DT_BIND_NOW so the loader
|
// valid one: PT_INTERP + PT_DYNAMIC + DT_BIND_NOW so the loader
|
||||||
@@ -196,7 +196,7 @@ export fn l_emit_dyn_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
let i: i32 = 0;
|
let i: i32 = 0;
|
||||||
for (i < n) {
|
for (i < n) {
|
||||||
if (dynsyms[i] == nil) {
|
if (dynsyms[i] == nil) {
|
||||||
os.write(2, "6l: dynout: no sym for plt_idx\n".ptr, 31u64);
|
os.write(2, "w6l: dynout: no sym for plt_idx\n".ptr, 31u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
i += 1;
|
i += 1;
|
||||||
@@ -621,7 +621,7 @@ export fn l_emit_dyn_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
};
|
};
|
||||||
d_wri64(dynamic_buf, dk * 16u64, DT_NULL); d_wr64(dynamic_buf, dk * 16u64 + 8u64, 0u64); dk += 1u64;
|
d_wri64(dynamic_buf, dk * 16u64, DT_NULL); d_wr64(dynamic_buf, dk * 16u64 + 8u64, 0u64); dk += 1u64;
|
||||||
if (dk != ndyn) {
|
if (dk != ndyn) {
|
||||||
os.write(2, "6l: dynamic entry count mismatch\n".ptr, 33u64);
|
os.write(2, "w6l: dynamic entry count mismatch\n".ptr, 33u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -633,7 +633,7 @@ export fn l_emit_dyn_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
if (rsym.is_dyn != 0) {
|
if (rsym.is_dyn != 0) {
|
||||||
if (r.kind != R_X86_64_PC32_D) {
|
if (r.kind != R_X86_64_PC32_D) {
|
||||||
if (r.kind != R_X86_64_PLT32_D) {
|
if (r.kind != R_X86_64_PLT32_D) {
|
||||||
os.write(2, "6l: dynamic reloc kind unsupported\n".ptr, 35u64);
|
os.write(2, "w6l: dynamic reloc kind unsupported\n".ptr, 35u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
@@ -649,7 +649,7 @@ export fn l_emit_dyn_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
// ---- assemble file buffer ----
|
// ---- assemble file buffer ----
|
||||||
let file_buf: *u8 = os.alloc(file_end): *u8;
|
let file_buf: *u8 = os.alloc(file_end): *u8;
|
||||||
if (file_buf == nil) {
|
if (file_buf == nil) {
|
||||||
os.write(2, "6l: out of memory\n".ptr, 18u64);
|
os.write(2, "w6l: out of memory\n".ptr, 18u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -31,6 +31,8 @@ def SYS_EXECVE: i64 = 59;
|
|||||||
def SYS_EXIT: i64 = 60;
|
def SYS_EXIT: i64 = 60;
|
||||||
def SYS_WAIT4: i64 = 61;
|
def SYS_WAIT4: i64 = 61;
|
||||||
def SYS_UNLINK: i64 = 87;
|
def SYS_UNLINK: i64 = 87;
|
||||||
|
def SYS_GETCWD: i64 = 79;
|
||||||
|
def SYS_GETDENTS64: i64 = 217;
|
||||||
|
|
||||||
// open(2) flags. Linux values, matching <fcntl.h>.
|
// open(2) flags. Linux values, matching <fcntl.h>.
|
||||||
def O_RDONLY: i32 = 0;
|
def O_RDONLY: i32 = 0;
|
||||||
@@ -65,7 +67,7 @@ export fn close(fd: i32) i32 = {
|
|||||||
|
|
||||||
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
||||||
// closing `newfd` first if open. Returns `newfd` on success or a
|
// closing `newfd` first if open. Returns `newfd` on success or a
|
||||||
// negative errno. Used by 6c_ww to redirect stdout into an output
|
// negative errno. Used by w6c_ww to redirect stdout into an output
|
||||||
// file without changing the cgen emit path.
|
// file without changing the cgen emit path.
|
||||||
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
||||||
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
||||||
@@ -179,7 +181,33 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
options: i64, rusage: i64): i32;
|
options: i64, rusage: i64): i32;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/mem.ww — port of cmd/wwc/mem.c.
|
// getcwd(2) — Linux flavour. Writes the NUL-terminated cwd into `buf`
|
||||||
|
// and returns the number of bytes written (including the NUL), or a
|
||||||
|
// negative errno. The driver uses it to expand `.` to the cwd's
|
||||||
|
// basename for `ww build` / `ww test`.
|
||||||
|
export fn getcwd(buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall2(SYS_GETCWD, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// getdents64(2) — Linux directory enumeration. The fd must be opened
|
||||||
|
// with O_RDONLY on a directory. `buf` receives a packed sequence of
|
||||||
|
// linux_dirent64 records:
|
||||||
|
//
|
||||||
|
// struct linux_dirent64 {
|
||||||
|
// u64 d_ino; // 0..7
|
||||||
|
// i64 d_off; // 8..15
|
||||||
|
// u16 d_reclen; // 16..17 — total bytes for this record
|
||||||
|
// u8 d_type; // 18 — DT_REG/DT_DIR/...
|
||||||
|
// u8 d_name[]; // 19.. — NUL-terminated name + padding
|
||||||
|
// };
|
||||||
|
//
|
||||||
|
// Returns bytes written into `buf` (advance by d_reclen to walk),
|
||||||
|
// 0 at end-of-directory, or a negative errno.
|
||||||
|
export fn getdents64(fd: i32, buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall3(SYS_GETDENTS64, fd: i64, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// selfhost/cmd/wcc/mem.ww — port of cmd/wcc/mem.c.
|
||||||
//
|
//
|
||||||
// Bump arena allocator. Backed by the runtime page allocator
|
// Bump arena allocator. Backed by the runtime page allocator
|
||||||
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
||||||
@@ -187,7 +215,7 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
// unmaps the chain.
|
// unmaps the chain.
|
||||||
//
|
//
|
||||||
// Memory handed out is 16-byte aligned. The C version under
|
// Memory handed out is 16-byte aligned. The C version under
|
||||||
// cmd/wwc/ is retained until the three-stage bootstrap diffs clean.
|
// cmd/wcc/ is retained until the three-stage bootstrap diffs clean.
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
|
|
||||||
@@ -286,7 +314,7 @@ export fn freearena(a: *arena) void = {
|
|||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6l/sym.ww — port of cmd/6l/sym.c.
|
// selfhost/cmd/w6l/sym.ww — port of cmd/w6l/sym.c.
|
||||||
//
|
//
|
||||||
// Linker symbol table. Singly-linked list, usually a few hundred
|
// Linker symbol table. Singly-linked list, usually a few hundred
|
||||||
// entries; hashing isn't worth it yet.
|
// entries; hashing isn't worth it yet.
|
||||||
@@ -388,9 +416,9 @@ export fn l_lookup(l: *lnk, name: str) *lsym = {
|
|||||||
return nil;
|
return nil;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6l/obj.ww — port of cmd/6l/obj.c.
|
// selfhost/cmd/w6l/obj.ww — port of cmd/w6l/obj.c.
|
||||||
//
|
//
|
||||||
// Loads relocatable ELF64 .o files emitted by 6a, appends .text to
|
// Loads relocatable ELF64 .o files emitted by w6a, appends .text to
|
||||||
// the combined image, and pulls in symbols + relocations with
|
// the combined image, and pulls in symbols + relocations with
|
||||||
// offsets adjusted to the combined section.
|
// offsets adjusted to the combined section.
|
||||||
//
|
//
|
||||||
@@ -410,7 +438,7 @@ def SHT_STRTAB: i32 = 3;
|
|||||||
def SHT_RELA: i32 = 4;
|
def SHT_RELA: i32 = 4;
|
||||||
|
|
||||||
// ---- little-endian byte readers ----------------------------------------
|
// ---- little-endian byte readers ----------------------------------------
|
||||||
// 6a/6l use straight LE on amd64. Reading via byte offsets keeps us off
|
// w6a/w6l use straight LE on amd64. Reading via byte offsets keeps us off
|
||||||
// the cgen's u16 field-load story for now (MOVZBQ exists; MOVZWQ doesn't).
|
// the cgen's u16 field-load story for now (MOVZBQ exists; MOVZWQ doesn't).
|
||||||
|
|
||||||
fn rd_u16(p: *u8, off: u64) u16 = {
|
fn rd_u16(p: *u8, off: u64) u16 = {
|
||||||
@@ -663,7 +691,7 @@ fn member_defines_undef(l: *lnk, m: *armember) bool = {
|
|||||||
return false;
|
return false;
|
||||||
};
|
};
|
||||||
|
|
||||||
// load_archive — port of cmd/6l/obj.c:load_archive.
|
// load_archive — port of cmd/w6l/obj.c:load_archive.
|
||||||
//
|
//
|
||||||
// Pass 1 indexes every regular member. Pass 2 iteratively pulls in any
|
// Pass 1 indexes every regular member. Pass 2 iteratively pulls in any
|
||||||
// member that supplies a currently-undefined symbol; each pull may
|
// member that supplies a currently-undefined symbol; each pull may
|
||||||
@@ -726,7 +754,7 @@ export fn l_load(l: *lnk, path_cs: *u8) i32 = {
|
|||||||
let buflen: u64;
|
let buflen: u64;
|
||||||
bufp, buflen = read_all(path_cs);
|
bufp, buflen = read_all(path_cs);
|
||||||
if (bufp == nil) {
|
if (bufp == nil) {
|
||||||
os.write(2, "6l: cannot read object\n".ptr, 23u64);
|
os.write(2, "w6l: cannot read object\n".ptr, 23u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
if (is_archive(bufp, buflen)) {
|
if (is_archive(bufp, buflen)) {
|
||||||
@@ -773,11 +801,11 @@ fn load_image(l: *lnk, path_cs: *u8, buf: *u8, len: u64) i32 = {
|
|||||||
i += 1u32;
|
i += 1u32;
|
||||||
};
|
};
|
||||||
if (idx_text < 0) {
|
if (idx_text < 0) {
|
||||||
os.write(2, "6l: missing .text\n".ptr, 18u64);
|
os.write(2, "w6l: missing .text\n".ptr, 18u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
if (idx_symtab < 0) {
|
if (idx_symtab < 0) {
|
||||||
os.write(2, "6l: missing .symtab\n".ptr, 20u64);
|
os.write(2, "w6l: missing .symtab\n".ptr, 20u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -824,7 +852,7 @@ fn load_image(l: *lnk, path_cs: *u8, buf: *u8, len: u64) i32 = {
|
|||||||
if (st_shndx != 0u16) {
|
if (st_shndx != 0u16) {
|
||||||
if ((st_shndx: i32) == idx_text) {
|
if ((st_shndx: i32) == idx_text) {
|
||||||
if (gs.defined != 0) {
|
if (gs.defined != 0) {
|
||||||
os.write(2, "6l: duplicate symbol\n".ptr, 21u64);
|
os.write(2, "w6l: duplicate symbol\n".ptr, 21u64);
|
||||||
l.errs += 1;
|
l.errs += 1;
|
||||||
} else {
|
} else {
|
||||||
gs.defined = 1;
|
gs.defined = 1;
|
||||||
@@ -875,7 +903,7 @@ fn load_image(l: *lnk, path_cs: *u8, buf: *u8, len: u64) i32 = {
|
|||||||
return 0;
|
return 0;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6l/dyn.ww — port of cmd/6l/dyn.c.
|
// selfhost/cmd/w6l/dyn.ww — port of cmd/w6l/dyn.c.
|
||||||
//
|
//
|
||||||
// Load a shared object (ET_DYN) so the linker knows which symbols it
|
// Load a shared object (ET_DYN) so the linker knows which symbols it
|
||||||
// exports and which DT_NEEDED entry to record. We do not pull bytes
|
// exports and which DT_NEEDED entry to record. We do not pull bytes
|
||||||
@@ -1044,11 +1072,11 @@ export fn l_load_so(l: *lnk, path_cs: *u8) i32 = {
|
|||||||
let blen: u64;
|
let blen: u64;
|
||||||
buf, blen = read_all_so(path_cs);
|
buf, blen = read_all_so(path_cs);
|
||||||
if (buf == nil) {
|
if (buf == nil) {
|
||||||
os.write(2, "6l: cannot read .so\n".ptr, 20u64);
|
os.write(2, "w6l: cannot read .so\n".ptr, 20u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
if (blen < 64u64) {
|
if (blen < 64u64) {
|
||||||
os.write(2, "6l: short ELF\n".ptr, 14u64);
|
os.write(2, "w6l: short ELF\n".ptr, 14u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
if (buf[0u64] != 127u8) { return so_err("not ELF"); };
|
if (buf[0u64] != 127u8) { return so_err("not ELF"); };
|
||||||
@@ -1236,7 +1264,7 @@ export fn l_load_so(l: *lnk, path_cs: *u8) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
fn so_err(msg: str) i32 = {
|
fn so_err(msg: str) i32 = {
|
||||||
os.write(2, "6l: ".ptr, 4u64);
|
os.write(2, "w6l: ".ptr, 4u64);
|
||||||
os.write(2, msg.ptr, msg.len: u64);
|
os.write(2, msg.ptr, msg.len: u64);
|
||||||
os.write(2, "\n".ptr, 1u64);
|
os.write(2, "\n".ptr, 1u64);
|
||||||
return -1;
|
return -1;
|
||||||
@@ -1282,7 +1310,7 @@ fn s_eq(a: str, b: str) bool = {
|
|||||||
return true;
|
return true;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6l/pass.ww — port of cmd/6l/pass.c.
|
// selfhost/cmd/w6l/pass.ww — port of cmd/w6l/pass.c.
|
||||||
//
|
//
|
||||||
// Resolution + relocation. l_resolve flags every undefined symbol
|
// Resolution + relocation. l_resolve flags every undefined symbol
|
||||||
// referenced by a relocation, and promotes those provided by some
|
// referenced by a relocation, and promotes those provided by some
|
||||||
@@ -1345,7 +1373,7 @@ export fn l_resolve(l: *lnk) i32 = {
|
|||||||
if (r2.sym != nil) {
|
if (r2.sym != nil) {
|
||||||
if (r2.sym.defined == 0) {
|
if (r2.sym.defined == 0) {
|
||||||
if (r2.sym.is_dyn == 0) {
|
if (r2.sym.is_dyn == 0) {
|
||||||
os.write(2, "6l: undefined reference to '".ptr, 28u64);
|
os.write(2, "w6l: undefined reference to '".ptr, 28u64);
|
||||||
let nm: str = r2.sym.name;
|
let nm: str = r2.sym.name;
|
||||||
os.write(2, nm.ptr, nm.len: u64);
|
os.write(2, nm.ptr, nm.len: u64);
|
||||||
os.write(2, "'\n".ptr, 2u64);
|
os.write(2, "'\n".ptr, 2u64);
|
||||||
@@ -1388,7 +1416,7 @@ export fn l_relocate(l: *lnk, base: u64) i32 = {
|
|||||||
let rel: i64 = (target - site: i64) + r.addend;
|
let rel: i64 = (target - site: i64) + r.addend;
|
||||||
patch_u32(l.text + r.off, rel: u32);
|
patch_u32(l.text + r.off, rel: u32);
|
||||||
} else {
|
} else {
|
||||||
os.write(2, "6l: unsupported reloc kind\n".ptr, 27u64);
|
os.write(2, "w6l: unsupported reloc kind\n".ptr, 27u64);
|
||||||
l.errs += 1;
|
l.errs += 1;
|
||||||
};};
|
};};
|
||||||
};
|
};
|
||||||
@@ -1398,7 +1426,7 @@ export fn l_relocate(l: *lnk, base: u64) i32 = {
|
|||||||
return l.errs;
|
return l.errs;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6l/dynout.ww — port of cmd/6l/dynout.c.
|
// selfhost/cmd/w6l/dynout.ww — port of cmd/w6l/dynout.c.
|
||||||
//
|
//
|
||||||
// Emit a dynamic-linked ELF executable. The shape is the simplest
|
// Emit a dynamic-linked ELF executable. The shape is the simplest
|
||||||
// valid one: PT_INTERP + PT_DYNAMIC + DT_BIND_NOW so the loader
|
// valid one: PT_INTERP + PT_DYNAMIC + DT_BIND_NOW so the loader
|
||||||
@@ -1596,7 +1624,7 @@ export fn l_emit_dyn_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
let i: i32 = 0;
|
let i: i32 = 0;
|
||||||
for (i < n) {
|
for (i < n) {
|
||||||
if (dynsyms[i] == nil) {
|
if (dynsyms[i] == nil) {
|
||||||
os.write(2, "6l: dynout: no sym for plt_idx\n".ptr, 31u64);
|
os.write(2, "w6l: dynout: no sym for plt_idx\n".ptr, 31u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
i += 1;
|
i += 1;
|
||||||
@@ -2021,7 +2049,7 @@ export fn l_emit_dyn_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
};
|
};
|
||||||
d_wri64(dynamic_buf, dk * 16u64, DT_NULL); d_wr64(dynamic_buf, dk * 16u64 + 8u64, 0u64); dk += 1u64;
|
d_wri64(dynamic_buf, dk * 16u64, DT_NULL); d_wr64(dynamic_buf, dk * 16u64 + 8u64, 0u64); dk += 1u64;
|
||||||
if (dk != ndyn) {
|
if (dk != ndyn) {
|
||||||
os.write(2, "6l: dynamic entry count mismatch\n".ptr, 33u64);
|
os.write(2, "w6l: dynamic entry count mismatch\n".ptr, 33u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -2033,7 +2061,7 @@ export fn l_emit_dyn_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
if (rsym.is_dyn != 0) {
|
if (rsym.is_dyn != 0) {
|
||||||
if (r.kind != R_X86_64_PC32_D) {
|
if (r.kind != R_X86_64_PC32_D) {
|
||||||
if (r.kind != R_X86_64_PLT32_D) {
|
if (r.kind != R_X86_64_PLT32_D) {
|
||||||
os.write(2, "6l: dynamic reloc kind unsupported\n".ptr, 35u64);
|
os.write(2, "w6l: dynamic reloc kind unsupported\n".ptr, 35u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
@@ -2049,7 +2077,7 @@ export fn l_emit_dyn_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
// ---- assemble file buffer ----
|
// ---- assemble file buffer ----
|
||||||
let file_buf: *u8 = os.alloc(file_end): *u8;
|
let file_buf: *u8 = os.alloc(file_end): *u8;
|
||||||
if (file_buf == nil) {
|
if (file_buf == nil) {
|
||||||
os.write(2, "6l: out of memory\n".ptr, 18u64);
|
os.write(2, "w6l: out of memory\n".ptr, 18u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -2142,7 +2170,7 @@ export fn l_emit_dyn_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
return 0;
|
return 0;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6l/out.ww — port of cmd/6l/out.c.
|
// selfhost/cmd/w6l/out.ww — port of cmd/w6l/out.c.
|
||||||
//
|
//
|
||||||
// Emit a static ELF64 executable. File layout (per the C original):
|
// Emit a static ELF64 executable. File layout (per the C original):
|
||||||
// [0..64) Ehdr
|
// [0..64) Ehdr
|
||||||
@@ -2243,13 +2271,13 @@ export fn l_emit_elf(l: *lnk, fd: i32, base: u64, entry: u64) i32 = {
|
|||||||
return 0;
|
return 0;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/6l/main.ww — port of cmd/6l/main.c.
|
// selfhost/cmd/w6l/main.ww — port of cmd/w6l/main.c.
|
||||||
//
|
//
|
||||||
// 6l = amd64 linker. Reads relocatable ELF .o files, SysV `ar`
|
// w6l = amd64 linker. Reads relocatable ELF .o files, SysV `ar`
|
||||||
// archives, and shared objects (ET_DYN). Resolves symbols, applies
|
// archives, and shared objects (ET_DYN). Resolves symbols, applies
|
||||||
// relocations, writes a static or dynamic-linked ELF executable.
|
// relocations, writes a static or dynamic-linked ELF executable.
|
||||||
//
|
//
|
||||||
// 6l_ww -o out [-L<dir>...] [-l<name>...] file1.o file2.o ...
|
// w6l_ww -o out [-L<dir>...] [-l<name>...] file1.o file2.o ...
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
use mem;
|
use mem;
|
||||||
@@ -2471,14 +2499,14 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (streq_cs(a, "-o")) {
|
if (streq_cs(a, "-o")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6l: -o requires argument\n".ptr, 25u64);
|
os.write(2, "w6l: -o requires argument\n".ptr, 25u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
out_path = argv[i];
|
out_path = argv[i];
|
||||||
} else { if (streq_cs(a, "-L")) {
|
} else { if (streq_cs(a, "-L")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6l: -L requires argument\n".ptr, 25u64);
|
os.write(2, "w6l: -L requires argument\n".ptr, 25u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
libdirs[n_libdirs] = argv[i];
|
libdirs[n_libdirs] = argv[i];
|
||||||
@@ -2486,7 +2514,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
} else { if (streq_cs(a, "-l")) {
|
} else { if (streq_cs(a, "-l")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6l: -l requires argument\n".ptr, 25u64);
|
os.write(2, "w6l: -l requires argument\n".ptr, 25u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
lflags[n_lflags] = argv[i];
|
lflags[n_lflags] = argv[i];
|
||||||
@@ -2498,7 +2526,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
libdirs[n_libdirs] = a + 2u64;
|
libdirs[n_libdirs] = a + 2u64;
|
||||||
n_libdirs += 1;
|
n_libdirs += 1;
|
||||||
} else {
|
} else {
|
||||||
os.write(2, "6l: bare -L\n".ptr, 12u64);
|
os.write(2, "w6l: bare -L\n".ptr, 12u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
} else { if (a[1u64] == 108u8) {
|
} else { if (a[1u64] == 108u8) {
|
||||||
@@ -2506,16 +2534,16 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
lflags[n_lflags] = a + 2u64;
|
lflags[n_lflags] = a + 2u64;
|
||||||
n_lflags += 1;
|
n_lflags += 1;
|
||||||
} else {
|
} else {
|
||||||
os.write(2, "6l: bare -l\n".ptr, 12u64);
|
os.write(2, "w6l: bare -l\n".ptr, 12u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
} else {
|
} else {
|
||||||
os.write(2, "6l: unknown flag\n".ptr, 17u64);
|
os.write(2, "w6l: unknown flag\n".ptr, 17u64);
|
||||||
return 2;
|
return 2;
|
||||||
};};
|
};};
|
||||||
} else {
|
} else {
|
||||||
if (ninputs >= max_inputs) {
|
if (ninputs >= max_inputs) {
|
||||||
os.write(2, "6l: too many inputs\n".ptr, 20u64);
|
os.write(2, "w6l: too many inputs\n".ptr, 20u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
inputs[ninputs] = a;
|
inputs[ninputs] = a;
|
||||||
@@ -2525,11 +2553,11 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
if (out_path == nil) {
|
if (out_path == nil) {
|
||||||
os.write(2, "usage: 6l_ww -o exe [-L<dir>...] [-l<name>...] file1.o [file2.o...]\n".ptr, 68u64);
|
os.write(2, "usage: w6l_ww -o exe [-L<dir>...] [-l<name>...] file1.o [file2.o...]\n".ptr, 68u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
if (ninputs == 0) {
|
if (ninputs == 0) {
|
||||||
os.write(2, "6l: no inputs\n".ptr, 14u64);
|
os.write(2, "w6l: no inputs\n".ptr, 14u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -2554,7 +2582,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
for (lf < n_lflags) {
|
for (lf < n_lflags) {
|
||||||
let p: *u8 = resolve_lib(a, lflags[lf], libdirs, n_libdirs);
|
let p: *u8 = resolve_lib(a, lflags[lf], libdirs, n_libdirs);
|
||||||
if (p == nil) {
|
if (p == nil) {
|
||||||
os.write(2, "6l: cannot find -l".ptr, 18u64);
|
os.write(2, "w6l: cannot find -l".ptr, 18u64);
|
||||||
let nm: *u8 = lflags[lf];
|
let nm: *u8 = lflags[lf];
|
||||||
os.write(2, nm, cstrlen_l(nm));
|
os.write(2, nm, cstrlen_l(nm));
|
||||||
os.write(2, "\n".ptr, 1u64);
|
os.write(2, "\n".ptr, 1u64);
|
||||||
@@ -2575,18 +2603,18 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (entry_sym == nil) { entry_sym = l_lookup(l, "main"); }
|
if (entry_sym == nil) { entry_sym = l_lookup(l, "main"); }
|
||||||
else { if (entry_sym.defined == 0) { entry_sym = l_lookup(l, "main"); }; };
|
else { if (entry_sym.defined == 0) { entry_sym = l_lookup(l, "main"); }; };
|
||||||
if (entry_sym == nil) {
|
if (entry_sym == nil) {
|
||||||
os.write(2, "6l: no _start or main symbol\n".ptr, 29u64);
|
os.write(2, "w6l: no _start or main symbol\n".ptr, 29u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
if (entry_sym.defined == 0) {
|
if (entry_sym.defined == 0) {
|
||||||
os.write(2, "6l: no _start or main symbol\n".ptr, 29u64);
|
os.write(2, "w6l: no _start or main symbol\n".ptr, 29u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
let flags: i32 = os.O_WRONLY | os.O_CREAT | os.O_TRUNC;
|
let flags: i32 = os.O_WRONLY | os.O_CREAT | os.O_TRUNC;
|
||||||
let fd: i32 = os.open(out_path, flags, 493i32); // 0o755
|
let fd: i32 = os.open(out_path, flags, 493i32); // 0o755
|
||||||
if (fd < 0) {
|
if (fd < 0) {
|
||||||
os.write(2, "6l: cannot open output\n".ptr, 23u64);
|
os.write(2, "w6l: cannot open output\n".ptr, 23u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -1,10 +1,10 @@
|
|||||||
// selfhost/cmd/6l/main.ww — port of cmd/6l/main.c.
|
// selfhost/cmd/w6l/main.ww — port of cmd/w6l/main.c.
|
||||||
//
|
//
|
||||||
// 6l = amd64 linker. Reads relocatable ELF .o files, SysV `ar`
|
// w6l = amd64 linker. Reads relocatable ELF .o files, SysV `ar`
|
||||||
// archives, and shared objects (ET_DYN). Resolves symbols, applies
|
// archives, and shared objects (ET_DYN). Resolves symbols, applies
|
||||||
// relocations, writes a static or dynamic-linked ELF executable.
|
// relocations, writes a static or dynamic-linked ELF executable.
|
||||||
//
|
//
|
||||||
// 6l_ww -o out [-L<dir>...] [-l<name>...] file1.o file2.o ...
|
// w6l_ww -o out [-L<dir>...] [-l<name>...] file1.o file2.o ...
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
use mem;
|
use mem;
|
||||||
@@ -226,14 +226,14 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (streq_cs(a, "-o")) {
|
if (streq_cs(a, "-o")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6l: -o requires argument\n".ptr, 25u64);
|
os.write(2, "w6l: -o requires argument\n".ptr, 25u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
out_path = argv[i];
|
out_path = argv[i];
|
||||||
} else { if (streq_cs(a, "-L")) {
|
} else { if (streq_cs(a, "-L")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6l: -L requires argument\n".ptr, 25u64);
|
os.write(2, "w6l: -L requires argument\n".ptr, 25u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
libdirs[n_libdirs] = argv[i];
|
libdirs[n_libdirs] = argv[i];
|
||||||
@@ -241,7 +241,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
} else { if (streq_cs(a, "-l")) {
|
} else { if (streq_cs(a, "-l")) {
|
||||||
i += 1;
|
i += 1;
|
||||||
if (i >= argc) {
|
if (i >= argc) {
|
||||||
os.write(2, "6l: -l requires argument\n".ptr, 25u64);
|
os.write(2, "w6l: -l requires argument\n".ptr, 25u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
lflags[n_lflags] = argv[i];
|
lflags[n_lflags] = argv[i];
|
||||||
@@ -253,7 +253,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
libdirs[n_libdirs] = a + 2u64;
|
libdirs[n_libdirs] = a + 2u64;
|
||||||
n_libdirs += 1;
|
n_libdirs += 1;
|
||||||
} else {
|
} else {
|
||||||
os.write(2, "6l: bare -L\n".ptr, 12u64);
|
os.write(2, "w6l: bare -L\n".ptr, 12u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
} else { if (a[1u64] == 108u8) {
|
} else { if (a[1u64] == 108u8) {
|
||||||
@@ -261,16 +261,16 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
lflags[n_lflags] = a + 2u64;
|
lflags[n_lflags] = a + 2u64;
|
||||||
n_lflags += 1;
|
n_lflags += 1;
|
||||||
} else {
|
} else {
|
||||||
os.write(2, "6l: bare -l\n".ptr, 12u64);
|
os.write(2, "w6l: bare -l\n".ptr, 12u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
} else {
|
} else {
|
||||||
os.write(2, "6l: unknown flag\n".ptr, 17u64);
|
os.write(2, "w6l: unknown flag\n".ptr, 17u64);
|
||||||
return 2;
|
return 2;
|
||||||
};};
|
};};
|
||||||
} else {
|
} else {
|
||||||
if (ninputs >= max_inputs) {
|
if (ninputs >= max_inputs) {
|
||||||
os.write(2, "6l: too many inputs\n".ptr, 20u64);
|
os.write(2, "w6l: too many inputs\n".ptr, 20u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
inputs[ninputs] = a;
|
inputs[ninputs] = a;
|
||||||
@@ -280,11 +280,11 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
if (out_path == nil) {
|
if (out_path == nil) {
|
||||||
os.write(2, "usage: 6l_ww -o exe [-L<dir>...] [-l<name>...] file1.o [file2.o...]\n".ptr, 68u64);
|
os.write(2, "usage: w6l_ww -o exe [-L<dir>...] [-l<name>...] file1.o [file2.o...]\n".ptr, 68u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
if (ninputs == 0) {
|
if (ninputs == 0) {
|
||||||
os.write(2, "6l: no inputs\n".ptr, 14u64);
|
os.write(2, "w6l: no inputs\n".ptr, 14u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -309,7 +309,7 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
for (lf < n_lflags) {
|
for (lf < n_lflags) {
|
||||||
let p: *u8 = resolve_lib(a, lflags[lf], libdirs, n_libdirs);
|
let p: *u8 = resolve_lib(a, lflags[lf], libdirs, n_libdirs);
|
||||||
if (p == nil) {
|
if (p == nil) {
|
||||||
os.write(2, "6l: cannot find -l".ptr, 18u64);
|
os.write(2, "w6l: cannot find -l".ptr, 18u64);
|
||||||
let nm: *u8 = lflags[lf];
|
let nm: *u8 = lflags[lf];
|
||||||
os.write(2, nm, cstrlen_l(nm));
|
os.write(2, nm, cstrlen_l(nm));
|
||||||
os.write(2, "\n".ptr, 1u64);
|
os.write(2, "\n".ptr, 1u64);
|
||||||
@@ -330,18 +330,18 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (entry_sym == nil) { entry_sym = l_lookup(l, "main"); }
|
if (entry_sym == nil) { entry_sym = l_lookup(l, "main"); }
|
||||||
else { if (entry_sym.defined == 0) { entry_sym = l_lookup(l, "main"); }; };
|
else { if (entry_sym.defined == 0) { entry_sym = l_lookup(l, "main"); }; };
|
||||||
if (entry_sym == nil) {
|
if (entry_sym == nil) {
|
||||||
os.write(2, "6l: no _start or main symbol\n".ptr, 29u64);
|
os.write(2, "w6l: no _start or main symbol\n".ptr, 29u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
if (entry_sym.defined == 0) {
|
if (entry_sym.defined == 0) {
|
||||||
os.write(2, "6l: no _start or main symbol\n".ptr, 29u64);
|
os.write(2, "w6l: no _start or main symbol\n".ptr, 29u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
let flags: i32 = os.O_WRONLY | os.O_CREAT | os.O_TRUNC;
|
let flags: i32 = os.O_WRONLY | os.O_CREAT | os.O_TRUNC;
|
||||||
let fd: i32 = os.open(out_path, flags, 493i32); // 0o755
|
let fd: i32 = os.open(out_path, flags, 493i32); // 0o755
|
||||||
if (fd < 0) {
|
if (fd < 0) {
|
||||||
os.write(2, "6l: cannot open output\n".ptr, 23u64);
|
os.write(2, "w6l: cannot open output\n".ptr, 23u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -1,6 +1,6 @@
|
|||||||
// selfhost/cmd/6l/obj.ww — port of cmd/6l/obj.c.
|
// selfhost/cmd/w6l/obj.ww — port of cmd/w6l/obj.c.
|
||||||
//
|
//
|
||||||
// Loads relocatable ELF64 .o files emitted by 6a, appends .text to
|
// Loads relocatable ELF64 .o files emitted by w6a, appends .text to
|
||||||
// the combined image, and pulls in symbols + relocations with
|
// the combined image, and pulls in symbols + relocations with
|
||||||
// offsets adjusted to the combined section.
|
// offsets adjusted to the combined section.
|
||||||
//
|
//
|
||||||
@@ -20,7 +20,7 @@ def SHT_STRTAB: i32 = 3;
|
|||||||
def SHT_RELA: i32 = 4;
|
def SHT_RELA: i32 = 4;
|
||||||
|
|
||||||
// ---- little-endian byte readers ----------------------------------------
|
// ---- little-endian byte readers ----------------------------------------
|
||||||
// 6a/6l use straight LE on amd64. Reading via byte offsets keeps us off
|
// w6a/w6l use straight LE on amd64. Reading via byte offsets keeps us off
|
||||||
// the cgen's u16 field-load story for now (MOVZBQ exists; MOVZWQ doesn't).
|
// the cgen's u16 field-load story for now (MOVZBQ exists; MOVZWQ doesn't).
|
||||||
|
|
||||||
fn rd_u16(p: *u8, off: u64) u16 = {
|
fn rd_u16(p: *u8, off: u64) u16 = {
|
||||||
@@ -273,7 +273,7 @@ fn member_defines_undef(l: *lnk, m: *armember) bool = {
|
|||||||
return false;
|
return false;
|
||||||
};
|
};
|
||||||
|
|
||||||
// load_archive — port of cmd/6l/obj.c:load_archive.
|
// load_archive — port of cmd/w6l/obj.c:load_archive.
|
||||||
//
|
//
|
||||||
// Pass 1 indexes every regular member. Pass 2 iteratively pulls in any
|
// Pass 1 indexes every regular member. Pass 2 iteratively pulls in any
|
||||||
// member that supplies a currently-undefined symbol; each pull may
|
// member that supplies a currently-undefined symbol; each pull may
|
||||||
@@ -336,7 +336,7 @@ export fn l_load(l: *lnk, path_cs: *u8) i32 = {
|
|||||||
let buflen: u64;
|
let buflen: u64;
|
||||||
bufp, buflen = read_all(path_cs);
|
bufp, buflen = read_all(path_cs);
|
||||||
if (bufp == nil) {
|
if (bufp == nil) {
|
||||||
os.write(2, "6l: cannot read object\n".ptr, 23u64);
|
os.write(2, "w6l: cannot read object\n".ptr, 23u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
if (is_archive(bufp, buflen)) {
|
if (is_archive(bufp, buflen)) {
|
||||||
@@ -383,11 +383,11 @@ fn load_image(l: *lnk, path_cs: *u8, buf: *u8, len: u64) i32 = {
|
|||||||
i += 1u32;
|
i += 1u32;
|
||||||
};
|
};
|
||||||
if (idx_text < 0) {
|
if (idx_text < 0) {
|
||||||
os.write(2, "6l: missing .text\n".ptr, 18u64);
|
os.write(2, "w6l: missing .text\n".ptr, 18u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
if (idx_symtab < 0) {
|
if (idx_symtab < 0) {
|
||||||
os.write(2, "6l: missing .symtab\n".ptr, 20u64);
|
os.write(2, "w6l: missing .symtab\n".ptr, 20u64);
|
||||||
return -1;
|
return -1;
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -434,7 +434,7 @@ fn load_image(l: *lnk, path_cs: *u8, buf: *u8, len: u64) i32 = {
|
|||||||
if (st_shndx != 0u16) {
|
if (st_shndx != 0u16) {
|
||||||
if ((st_shndx: i32) == idx_text) {
|
if ((st_shndx: i32) == idx_text) {
|
||||||
if (gs.defined != 0) {
|
if (gs.defined != 0) {
|
||||||
os.write(2, "6l: duplicate symbol\n".ptr, 21u64);
|
os.write(2, "w6l: duplicate symbol\n".ptr, 21u64);
|
||||||
l.errs += 1;
|
l.errs += 1;
|
||||||
} else {
|
} else {
|
||||||
gs.defined = 1;
|
gs.defined = 1;
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/6l/out.ww — port of cmd/6l/out.c.
|
// selfhost/cmd/w6l/out.ww — port of cmd/w6l/out.c.
|
||||||
//
|
//
|
||||||
// Emit a static ELF64 executable. File layout (per the C original):
|
// Emit a static ELF64 executable. File layout (per the C original):
|
||||||
// [0..64) Ehdr
|
// [0..64) Ehdr
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/6l/pass.ww — port of cmd/6l/pass.c.
|
// selfhost/cmd/w6l/pass.ww — port of cmd/w6l/pass.c.
|
||||||
//
|
//
|
||||||
// Resolution + relocation. l_resolve flags every undefined symbol
|
// Resolution + relocation. l_resolve flags every undefined symbol
|
||||||
// referenced by a relocation, and promotes those provided by some
|
// referenced by a relocation, and promotes those provided by some
|
||||||
@@ -61,7 +61,7 @@ export fn l_resolve(l: *lnk) i32 = {
|
|||||||
if (r2.sym != nil) {
|
if (r2.sym != nil) {
|
||||||
if (r2.sym.defined == 0) {
|
if (r2.sym.defined == 0) {
|
||||||
if (r2.sym.is_dyn == 0) {
|
if (r2.sym.is_dyn == 0) {
|
||||||
os.write(2, "6l: undefined reference to '".ptr, 28u64);
|
os.write(2, "w6l: undefined reference to '".ptr, 28u64);
|
||||||
let nm: str = r2.sym.name;
|
let nm: str = r2.sym.name;
|
||||||
os.write(2, nm.ptr, nm.len: u64);
|
os.write(2, nm.ptr, nm.len: u64);
|
||||||
os.write(2, "'\n".ptr, 2u64);
|
os.write(2, "'\n".ptr, 2u64);
|
||||||
@@ -104,7 +104,7 @@ export fn l_relocate(l: *lnk, base: u64) i32 = {
|
|||||||
let rel: i64 = (target - site: i64) + r.addend;
|
let rel: i64 = (target - site: i64) + r.addend;
|
||||||
patch_u32(l.text + r.off, rel: u32);
|
patch_u32(l.text + r.off, rel: u32);
|
||||||
} else {
|
} else {
|
||||||
os.write(2, "6l: unsupported reloc kind\n".ptr, 27u64);
|
os.write(2, "w6l: unsupported reloc kind\n".ptr, 27u64);
|
||||||
l.errs += 1;
|
l.errs += 1;
|
||||||
};};
|
};};
|
||||||
};
|
};
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/6l/sym.ww — port of cmd/6l/sym.c.
|
// selfhost/cmd/w6l/sym.ww — port of cmd/w6l/sym.c.
|
||||||
//
|
//
|
||||||
// Linker symbol table. Singly-linked list, usually a few hundred
|
// Linker symbol table. Singly-linked list, usually a few hundred
|
||||||
// entries; hashing isn't worth it yet.
|
// entries; hashing isn't worth it yet.
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/wwc/ast.ww — port of cmd/wwc/ast.c (Node defs + printer).
|
// selfhost/cmd/wcc/ast.ww — port of cmd/wcc/ast.c (Node defs + printer).
|
||||||
//
|
//
|
||||||
// Status: AST printer is fully ported. Constructor `newnode` is here.
|
// Status: AST printer is fully ported. Constructor `newnode` is here.
|
||||||
// The parser (parse.ww) is currently minimal — see its file header.
|
// The parser (parse.ww) is currently minimal — see its file header.
|
||||||
@@ -14,7 +14,7 @@ use tok;
|
|||||||
|
|
||||||
// ---- Nkind ------------------------------------------------------------
|
// ---- Nkind ------------------------------------------------------------
|
||||||
//
|
//
|
||||||
// Mirror of cmd/wwc/ww.h Nkind. Values must stay numerically equal so
|
// Mirror of cmd/wcc/ww.h Nkind. Values must stay numerically equal so
|
||||||
// the AST diff probe in 990_selfhost works.
|
// the AST diff probe in 990_selfhost works.
|
||||||
|
|
||||||
def N_NONE: i32 = 0;
|
def N_NONE: i32 = 0;
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
// selfhost/cmd/wwc/cgen.ww — port of cmd/6c/cgen.c.
|
// selfhost/cmd/wcc/cgen.ww — port of cmd/w6c/cgen.c.
|
||||||
//
|
//
|
||||||
// Status: GROWING. Each subsystem we add is verified by `wwdump_ww -c`
|
// Status: GROWING. Each subsystem we add is verified by `wwdump_ww -c`
|
||||||
// producing byte-identical output to C-side `6c` for the same source,
|
// producing byte-identical output to C-side `w6c` for the same source,
|
||||||
// then by assembling + linking + running the result.
|
// then by assembling + linking + running the result.
|
||||||
//
|
//
|
||||||
// Current coverage:
|
// Current coverage:
|
||||||
@@ -196,7 +196,7 @@ fn local_alloc(c: *cgen, name: str, sz: i32, tnode: *node) i32 = {
|
|||||||
fn local_add(c: *cgen, name: str, sz: i32, tnode: *node) i32 = {
|
fn local_add(c: *cgen, name: str, sz: i32, tnode: *node) i32 = {
|
||||||
// Name-based slot reuse for N_LETs and params: if `name` is
|
// Name-based slot reuse for N_LETs and params: if `name` is
|
||||||
// already declared in this function, return its existing
|
// already declared in this function, return its existing
|
||||||
// offset. Mirrors C cgen (cmd/6c/cgen.c:localoff). Two
|
// offset. Mirrors C cgen (cmd/w6c/cgen.c:localoff). Two
|
||||||
// disjoint scopes that declare the same name share one slot —
|
// disjoint scopes that declare the same name share one slot —
|
||||||
// so `escape` in wwdump (three `let cp: pos;` across separate
|
// so `escape` in wwdump (three `let cp: pos;` across separate
|
||||||
// branches) reserves one slot, not three. scan_locals does
|
// branches) reserves one slot, not three. scan_locals does
|
||||||
@@ -533,7 +533,7 @@ fn fnret_lookup(c: *cgen, name: str) *node = {
|
|||||||
|
|
||||||
// ---- def-constant registry ------------------------------------------
|
// ---- def-constant registry ------------------------------------------
|
||||||
//
|
//
|
||||||
// `def NAME: T = LIT;` becomes a DATA symbol the C-side 6c emits; an
|
// `def NAME: T = LIT;` becomes a DATA symbol the C-side w6c emits; an
|
||||||
// ident reference loads it via `MOVQ NAME(SB), AX`. We collect them at
|
// ident reference loads it via `MOVQ NAME(SB), AX`. We collect them at
|
||||||
// file load and consult on N_IDENT lookup.
|
// file load and consult on N_IDENT lookup.
|
||||||
|
|
||||||
@@ -1161,7 +1161,7 @@ fn node_isunsigned(c: *cgen, n: *node) bool = {
|
|||||||
// Walks the base local's declared type and pulls the element
|
// Walks the base local's declared type and pulls the element
|
||||||
// out — *u8 → u8, [N]u32 → u32, []u64 → u64. Without this the
|
// out — *u8 → u8, [N]u32 → u32, []u64 → u64. Without this the
|
||||||
// compare-codegen for `p[i] >= 48u8` falls back to signed JGE
|
// compare-codegen for `p[i] >= 48u8` falls back to signed JGE
|
||||||
// instead of JAE, diverging from C 6c on byte indexing.
|
// instead of JAE, diverging from C w6c on byte indexing.
|
||||||
if (k == N_INDEX) {
|
if (k == N_INDEX) {
|
||||||
let base: *node = n.lhs;
|
let base: *node = n.lhs;
|
||||||
if (base != nil) {
|
if (base != nil) {
|
||||||
@@ -1634,7 +1634,7 @@ fn cgexpr(c: *cgen, n: *node) void = {
|
|||||||
// path the cgen falls through and AX retains whatever the
|
// path the cgen falls through and AX retains whatever the
|
||||||
// inner expression left there — typically the *struct pointer
|
// inner expression left there — typically the *struct pointer
|
||||||
// itself, so reads silently get the pointer value instead of
|
// itself, so reads silently get the pointer value instead of
|
||||||
// the field. (Showed up porting 6l/pass.ww.)
|
// the field. (Showed up porting w6l/pass.ww.)
|
||||||
if (lhs != nil) {
|
if (lhs != nil) {
|
||||||
if (lhs.kind == N_DOT) {
|
if (lhs.kind == N_DOT) {
|
||||||
let inner_t: *node = dot_inner_struct_ptr(c, lhs);
|
let inner_t: *node = dot_inner_struct_ptr(c, lhs);
|
||||||
@@ -1923,7 +1923,7 @@ fn cgexpr(c: *cgen, n: *node) void = {
|
|||||||
};
|
};
|
||||||
cgexpr(c, n.rhs);
|
cgexpr(c, n.rhs);
|
||||||
// Push order matches C cgen
|
// Push order matches C cgen
|
||||||
// (cmd/6c/cgen.c:1033-1041): PUSHQ AX
|
// (cmd/w6c/cgen.c:1033-1041): PUSHQ AX
|
||||||
// (ptr) first, then PUSHQ BX (len) if
|
// (ptr) first, then PUSHQ BX (len) if
|
||||||
// str, so the pop sequence is POP CX
|
// str, so the pop sequence is POP CX
|
||||||
// (len) → POP AX (ptr) → MOVQ AX,
|
// (len) → POP AX (ptr) → MOVQ AX,
|
||||||
@@ -2695,7 +2695,7 @@ fn cgstmt(c: *cgen, n: *node) void = {
|
|||||||
};
|
};
|
||||||
} else {
|
} else {
|
||||||
// Bare `let x: T;` with no initializer. C cgen
|
// Bare `let x: T;` with no initializer. C cgen
|
||||||
// (cmd/6c/cgen.c:2181-2183) zero-inits only when
|
// (cmd/w6c/cgen.c:2181-2183) zero-inits only when
|
||||||
// the underlying type's natural size is 8 — pointers,
|
// the underlying type's natural size is 8 — pointers,
|
||||||
// i64/u64, function pointers, ints. Structs/arrays/
|
// i64/u64, function pointers, ints. Structs/arrays/
|
||||||
// slices/strings/tagged/tuples are left for per-field
|
// slices/strings/tagged/tuples are left for per-field
|
||||||
@@ -2766,7 +2766,7 @@ fn cgstmt(c: *cgen, n: *node) void = {
|
|||||||
// Tuple-destructure assign: `a, b = call();`. The call's tuple
|
// Tuple-destructure assign: `a, b = call();`. The call's tuple
|
||||||
// return lands in (AX, DX); push DX to free it, store AX into
|
// return lands in (AX, DX); push DX to free it, store AX into
|
||||||
// the first lvalue, then pop DX into the second. Mirrors
|
// the first lvalue, then pop DX into the second. Mirrors
|
||||||
// cmd/6c/cgen.c:2424-2440. Lvalues beyond two are dropped (same
|
// cmd/w6c/cgen.c:2424-2440. Lvalues beyond two are dropped (same
|
||||||
// as C — no fixture uses >2 today).
|
// as C — no fixture uses >2 today).
|
||||||
if (k == N_MASSIGN) {
|
if (k == N_MASSIGN) {
|
||||||
if (n.rhs != nil) { cgexpr(c, n.rhs); };
|
if (n.rhs != nil) { cgexpr(c, n.rhs); };
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
// selfhost/cmd/wwc/check.ww — minimal port of cmd/wwc/check.c.
|
// selfhost/cmd/wcc/check.ww — minimal port of cmd/wcc/check.c.
|
||||||
//
|
//
|
||||||
// Status: name-resolution + primitive-type seeding only. Full type
|
// Status: name-resolution + primitive-type seeding only. Full type
|
||||||
// inference, conversion rules, tagged-union dispatch typing, return-
|
// inference, conversion rules, tagged-union dispatch typing, return-
|
||||||
// type checking, etc. all live in cmd/wwc/check.c (937 lines) and
|
// type checking, etc. all live in cmd/wcc/check.c (937 lines) and
|
||||||
// will land here in subsequent commits.
|
// will land here in subsequent commits.
|
||||||
//
|
//
|
||||||
// What this version does:
|
// What this version does:
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/wwc/err.ww — port of cmd/wwc/err.c.
|
// selfhost/cmd/wcc/err.ww — port of cmd/wcc/err.c.
|
||||||
//
|
//
|
||||||
// Diagnostics. Plan 9 style: short, no levels beyond fatal/error/warn.
|
// Diagnostics. Plan 9 style: short, no levels beyond fatal/error/warn.
|
||||||
// Output goes through os.write so we don't pull in libc stdio.
|
// Output goes through os.write so we don't pull in libc stdio.
|
||||||
@@ -1,11 +1,11 @@
|
|||||||
// selfhost/cmd/wwc/lex.ww — port of cmd/wwc/lex.c.
|
// selfhost/cmd/wcc/lex.ww — port of cmd/wcc/lex.c.
|
||||||
//
|
//
|
||||||
// The DFA, the helpers, and the order of decisions all mirror the C
|
// The DFA, the helpers, and the order of decisions all mirror the C
|
||||||
// version exactly. The 990_selfhost test diffs the resulting token
|
// version exactly. The 990_selfhost test diffs the resulting token
|
||||||
// stream against the C-side wwdump byte-for-byte; any divergence is
|
// stream against the C-side wwdump byte-for-byte; any divergence is
|
||||||
// a port bug.
|
// a port bug.
|
||||||
//
|
//
|
||||||
// Calling-convention note: 6c can't yet pass or return structs >16
|
// Calling-convention note: w6c can't yet pass or return structs >16
|
||||||
// bytes by value, so `tok` and `pos` are passed by pointer (out
|
// bytes by value, so `tok` and `pos` are passed by pointer (out
|
||||||
// params). The C version passes `Tok` by value; we differ here only
|
// params). The C version passes `Tok` by value; we differ here only
|
||||||
// in shape, not in observable behaviour. Token kind values stay
|
// in shape, not in observable behaviour. Token kind values stay
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/wwc/mem.ww — port of cmd/wwc/mem.c.
|
// selfhost/cmd/wcc/mem.ww — port of cmd/wcc/mem.c.
|
||||||
//
|
//
|
||||||
// Bump arena allocator. Backed by the runtime page allocator
|
// Bump arena allocator. Backed by the runtime page allocator
|
||||||
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
||||||
@@ -6,7 +6,7 @@
|
|||||||
// unmaps the chain.
|
// unmaps the chain.
|
||||||
//
|
//
|
||||||
// Memory handed out is 16-byte aligned. The C version under
|
// Memory handed out is 16-byte aligned. The C version under
|
||||||
// cmd/wwc/ is retained until the three-stage bootstrap diffs clean.
|
// cmd/wcc/ is retained until the three-stage bootstrap diffs clean.
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
|
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/wwc/parse.ww — port of cmd/wwc/parse.c.
|
// selfhost/cmd/wcc/parse.ww — port of cmd/wcc/parse.c.
|
||||||
//
|
//
|
||||||
// Status: GROWING stub. Currently handles top-level `use IDENT;`,
|
// Status: GROWING stub. Currently handles top-level `use IDENT;`,
|
||||||
// `def NAME: TYPE = LIT;`, `type NAME = TYPE;`, and `fn NAME(params)
|
// `def NAME: TYPE = LIT;`, `type NAME = TYPE;`, and `fn NAME(params)
|
||||||
@@ -11,7 +11,7 @@
|
|||||||
// surface form lands here gradually so the AST diff in 990_selfhost
|
// surface form lands here gradually so the AST diff in 990_selfhost
|
||||||
// grows toward whole-language coverage one increment at a time.
|
// grows toward whole-language coverage one increment at a time.
|
||||||
//
|
//
|
||||||
// Calling-convention shim: 6c can't yet pass a sub-struct field
|
// Calling-convention shim: w6c can't yet pass a sub-struct field
|
||||||
// (e.g. p.cur.line where p.cur is a `tok` of size 76). The parser
|
// (e.g. p.cur.line where p.cur is a `tok` of size 76). The parser
|
||||||
// stores the current token as flat primitive fields rather than a
|
// stores the current token as flat primitive fields rather than a
|
||||||
// nested `tok` struct; `refill` copies a freshly lexed token in.
|
// nested `tok` struct; `refill` copies a freshly lexed token in.
|
||||||
@@ -746,7 +746,7 @@ fn parsestmt(p: *parser) *node = {
|
|||||||
};
|
};
|
||||||
// expression statement, or tuple-destructure multi-assign:
|
// expression statement, or tuple-destructure multi-assign:
|
||||||
// a, b = expr;
|
// a, b = expr;
|
||||||
// Mirrors cmd/wwc/parse.c:1015-1031. We parse the first lvalue
|
// Mirrors cmd/wcc/parse.c:1015-1031. We parse the first lvalue
|
||||||
// with parseexpr (matches the C side); subsequent lvalues go
|
// with parseexpr (matches the C side); subsequent lvalues go
|
||||||
// through parsebin(parseunary, 1) so the `=` stays for us to
|
// through parsebin(parseunary, 1) so the `=` stays for us to
|
||||||
// consume — parseexpr would absorb it.
|
// consume — parseexpr would absorb it.
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/wwc/sym.ww — port of cmd/wwc/sym.c.
|
// selfhost/cmd/wcc/sym.ww — port of cmd/wcc/sym.c.
|
||||||
//
|
//
|
||||||
// Per-scope hashtable, chained to the parent. Lookup walks up.
|
// Per-scope hashtable, chained to the parent. Lookup walks up.
|
||||||
// Plan 9 / Hare flavoured. Duplicate definitions in the same scope
|
// Plan 9 / Hare flavoured. Duplicate definitions in the same scope
|
||||||
@@ -8,7 +8,7 @@ use mem;
|
|||||||
use typ;
|
use typ;
|
||||||
use ast;
|
use ast;
|
||||||
|
|
||||||
// Symbol kinds — must stay numerically aligned with cmd/wwc/ww.h Skind.
|
// Symbol kinds — must stay numerically aligned with cmd/wcc/ww.h Skind.
|
||||||
def SK_NONE: i32 = 0;
|
def SK_NONE: i32 = 0;
|
||||||
def SK_VAR: i32 = 1;
|
def SK_VAR: i32 = 1;
|
||||||
def SK_PARAM: i32 = 2;
|
def SK_PARAM: i32 = 2;
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
// selfhost/cmd/wwc/tok.ww — port of cmd/wwc/tok.c plus the Tkind /
|
// selfhost/cmd/wcc/tok.ww — port of cmd/wcc/tok.c plus the Tkind /
|
||||||
// Tok / Pos shapes from cmd/wwc/ww.h.
|
// Tok / Pos shapes from cmd/wcc/ww.h.
|
||||||
//
|
//
|
||||||
// Token kind values must stay numerically equal to the C side: the
|
// Token kind values must stay numerically equal to the C side: the
|
||||||
// 990_selfhost test diffs ww-side wwdump output against C-side
|
// 990_selfhost test diffs ww-side wwdump output against C-side
|
||||||
@@ -7,13 +7,13 @@
|
|||||||
// integers and breaks the diff.
|
// integers and breaks the diff.
|
||||||
//
|
//
|
||||||
// Bottom of file: tokprint, which emits one token per line in a
|
// Bottom of file: tokprint, which emits one token per line in a
|
||||||
// format identical to cmd/wwc/tok.c:tokprint().
|
// format identical to cmd/wcc/tok.c:tokprint().
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
use strconv;
|
use strconv;
|
||||||
|
|
||||||
// ---- Tkind ------------------------------------------------------------
|
// ---- Tkind ------------------------------------------------------------
|
||||||
// Mirror of the C enum in cmd/wwc/ww.h. Don't reorder.
|
// Mirror of the C enum in cmd/wcc/ww.h. Don't reorder.
|
||||||
|
|
||||||
def TK_NONE: i32 = 0;
|
def TK_NONE: i32 = 0;
|
||||||
def TK_EOF: i32 = 1;
|
def TK_EOF: i32 = 1;
|
||||||
@@ -108,7 +108,7 @@ def TK_LAST: i32 = 80;
|
|||||||
// ---- Pos / Tok --------------------------------------------------------
|
// ---- Pos / Tok --------------------------------------------------------
|
||||||
//
|
//
|
||||||
// `pos` is used at error-reporting boundaries; we always pass it via
|
// `pos` is used at error-reporting boundaries; we always pass it via
|
||||||
// *pos so the value never gets struct-copied (6c can't yet copy a
|
// *pos so the value never gets struct-copied (w6c can't yet copy a
|
||||||
// 24-byte struct).
|
// 24-byte struct).
|
||||||
//
|
//
|
||||||
// `tok` is flat — file/line/col live directly on the token rather than
|
// `tok` is flat — file/line/col live directly on the token rather than
|
||||||
@@ -146,7 +146,7 @@ fn streq_n(a: *u8, b: str, n: i32) bool = {
|
|||||||
|
|
||||||
// kwlookup — returns the matching TK_* keyword kind for a byte run,
|
// kwlookup — returns the matching TK_* keyword kind for a byte run,
|
||||||
// or TK_NONE if it's an ordinary identifier. Linear search over a
|
// or TK_NONE if it's an ordinary identifier. Linear search over a
|
||||||
// small alphabetised list, matching cmd/wwc/tok.c.
|
// small alphabetised list, matching cmd/wcc/tok.c.
|
||||||
export fn kwlookup(p: *u8, n: i32) i32 = {
|
export fn kwlookup(p: *u8, n: i32) i32 = {
|
||||||
if (streq_n(p, "as", n)) { return TK_AS; };
|
if (streq_n(p, "as", n)) { return TK_AS; };
|
||||||
if (streq_n(p, "break", n)) { return TK_BREAK; };
|
if (streq_n(p, "break", n)) { return TK_BREAK; };
|
||||||
@@ -275,7 +275,7 @@ export fn tokname(k: i32) str = {
|
|||||||
|
|
||||||
// ---- writer for tokprint ----------------------------------------------
|
// ---- writer for tokprint ----------------------------------------------
|
||||||
//
|
//
|
||||||
// fputq mirrors cmd/wwc/tok.c:fputq — quote the string with C-style
|
// fputq mirrors cmd/wcc/tok.c:fputq — quote the string with C-style
|
||||||
// escapes for \, ", \n, \t, \r and \xNN for other non-printables.
|
// escapes for \, ", \n, \t, \r and \xNN for other non-printables.
|
||||||
|
|
||||||
fn fputc_byte(fd: i32, b: u8) void = {
|
fn fputc_byte(fd: i32, b: u8) void = {
|
||||||
@@ -342,14 +342,14 @@ fn fputq(fd: i32, p: *u8, n: i32) void = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
// tokprint — write one token line to fd. Format must match
|
// tokprint — write one token line to fd. Format must match
|
||||||
// cmd/wwc/tok.c:tokprint() byte-for-byte: that's the diff anchor.
|
// cmd/wcc/tok.c:tokprint() byte-for-byte: that's the diff anchor.
|
||||||
// "<file>:<line>:<col> <kindname>[ <value>]\n"
|
// "<file>:<line>:<col> <kindname>[ <value>]\n"
|
||||||
//
|
//
|
||||||
// Takes `t` by pointer because 6c can't yet pass a >16-byte struct
|
// Takes `t` by pointer because w6c can't yet pass a >16-byte struct
|
||||||
// by value; the C version takes Tok by value.
|
// by value; the C version takes Tok by value.
|
||||||
export fn tokprint(fd: i32, t: *tok) void = {
|
export fn tokprint(fd: i32, t: *tok) void = {
|
||||||
// Chained-dot field reads (`t.x.y`) on str sub-fields aren't yet
|
// Chained-dot field reads (`t.x.y`) on str sub-fields aren't yet
|
||||||
// reduced by 6c — `t.x.y` returns the whole str. Lift the str
|
// reduced by w6c — `t.x.y` returns the whole str. Lift the str
|
||||||
// fields into locals so we can use the str pseudo-field path.
|
// fields into locals so we can use the str pseudo-field path.
|
||||||
let tfile: str = t.file;
|
let tfile: str = t.file;
|
||||||
let ttext: str = t.text;
|
let ttext: str = t.text;
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
// selfhost/cmd/wwc/type.ww — port of cmd/wwc/type.c.
|
// selfhost/cmd/wcc/type.ww — port of cmd/wcc/type.c.
|
||||||
//
|
//
|
||||||
// Status: full structural port. The C version uses module-globals for
|
// Status: full structural port. The C version uses module-globals for
|
||||||
// the primitive types (ty_void, ty_i32, …); ww doesn't have writable
|
// the primitive types (ty_void, ty_i32, …); ww doesn't have writable
|
||||||
@@ -10,7 +10,7 @@ use os;
|
|||||||
use mem;
|
use mem;
|
||||||
|
|
||||||
// ---- TypeKind ---------------------------------------------------------
|
// ---- TypeKind ---------------------------------------------------------
|
||||||
// Numeric values must stay aligned with cmd/wwc/ww.h TypeKind so the
|
// Numeric values must stay aligned with cmd/wcc/ww.h TypeKind so the
|
||||||
// next diff signal (typed-AST printer / cgen) can compare across the
|
// next diff signal (typed-AST printer / cgen) can compare across the
|
||||||
// two implementations.
|
// two implementations.
|
||||||
|
|
||||||
@@ -31,6 +31,8 @@ def SYS_EXECVE: i64 = 59;
|
|||||||
def SYS_EXIT: i64 = 60;
|
def SYS_EXIT: i64 = 60;
|
||||||
def SYS_WAIT4: i64 = 61;
|
def SYS_WAIT4: i64 = 61;
|
||||||
def SYS_UNLINK: i64 = 87;
|
def SYS_UNLINK: i64 = 87;
|
||||||
|
def SYS_GETCWD: i64 = 79;
|
||||||
|
def SYS_GETDENTS64: i64 = 217;
|
||||||
|
|
||||||
// open(2) flags. Linux values, matching <fcntl.h>.
|
// open(2) flags. Linux values, matching <fcntl.h>.
|
||||||
def O_RDONLY: i32 = 0;
|
def O_RDONLY: i32 = 0;
|
||||||
@@ -65,7 +67,7 @@ export fn close(fd: i32) i32 = {
|
|||||||
|
|
||||||
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
||||||
// closing `newfd` first if open. Returns `newfd` on success or a
|
// closing `newfd` first if open. Returns `newfd` on success or a
|
||||||
// negative errno. Used by 6c_ww to redirect stdout into an output
|
// negative errno. Used by w6c_ww to redirect stdout into an output
|
||||||
// file without changing the cgen emit path.
|
// file without changing the cgen emit path.
|
||||||
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
||||||
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
||||||
@@ -179,7 +181,33 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
options: i64, rusage: i64): i32;
|
options: i64, rusage: i64): i32;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/mem.ww — port of cmd/wwc/mem.c.
|
// getcwd(2) — Linux flavour. Writes the NUL-terminated cwd into `buf`
|
||||||
|
// and returns the number of bytes written (including the NUL), or a
|
||||||
|
// negative errno. The driver uses it to expand `.` to the cwd's
|
||||||
|
// basename for `ww build` / `ww test`.
|
||||||
|
export fn getcwd(buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall2(SYS_GETCWD, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// getdents64(2) — Linux directory enumeration. The fd must be opened
|
||||||
|
// with O_RDONLY on a directory. `buf` receives a packed sequence of
|
||||||
|
// linux_dirent64 records:
|
||||||
|
//
|
||||||
|
// struct linux_dirent64 {
|
||||||
|
// u64 d_ino; // 0..7
|
||||||
|
// i64 d_off; // 8..15
|
||||||
|
// u16 d_reclen; // 16..17 — total bytes for this record
|
||||||
|
// u8 d_type; // 18 — DT_REG/DT_DIR/...
|
||||||
|
// u8 d_name[]; // 19.. — NUL-terminated name + padding
|
||||||
|
// };
|
||||||
|
//
|
||||||
|
// Returns bytes written into `buf` (advance by d_reclen to walk),
|
||||||
|
// 0 at end-of-directory, or a negative errno.
|
||||||
|
export fn getdents64(fd: i32, buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall3(SYS_GETDENTS64, fd: i64, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// selfhost/cmd/wcc/mem.ww — port of cmd/wcc/mem.c.
|
||||||
//
|
//
|
||||||
// Bump arena allocator. Backed by the runtime page allocator
|
// Bump arena allocator. Backed by the runtime page allocator
|
||||||
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
||||||
@@ -187,7 +215,7 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
// unmaps the chain.
|
// unmaps the chain.
|
||||||
//
|
//
|
||||||
// Memory handed out is 16-byte aligned. The C version under
|
// Memory handed out is 16-byte aligned. The C version under
|
||||||
// cmd/wwc/ is retained until the three-stage bootstrap diffs clean.
|
// cmd/wcc/ is retained until the three-stage bootstrap diffs clean.
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
|
|
||||||
@@ -290,13 +318,13 @@ export fn freearena(a: *arena) void = {
|
|||||||
//
|
//
|
||||||
// The user-facing driver. Plan 9 cc(1) / Hare hare(1) analogue:
|
// The user-facing driver. Plan 9 cc(1) / Hare hare(1) analogue:
|
||||||
//
|
//
|
||||||
// ww build foo.ww → 6c foo.ww > foo.s ; 6a foo.s > foo.o ;
|
// ww build foo.ww → w6c foo.ww > foo.s ; w6a foo.s > foo.o ;
|
||||||
// 6l -o foo foo.o libwwrt.a
|
// w6l -o foo foo.o libwwrt.a
|
||||||
// ww run foo.ww → build then exec
|
// ww run foo.ww → build then exec
|
||||||
// ww version → print version
|
// ww version → print version
|
||||||
//
|
//
|
||||||
// Tool paths default to siblings of $0 so a fresh build runs out of
|
// Tool paths default to siblings of $0 so a fresh build runs out of
|
||||||
// out/bin/. Env-var overrides (WW_6C / WW_6A / WW_6L / WW_LIB) are
|
// out/bin/. Env-var overrides (WW_W6C / WW_W6A / WW_W6L / WW_LIB) are
|
||||||
// not yet supported in this port; the bootstrap doesn't need them.
|
// not yet supported in this port; the bootstrap doesn't need them.
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
@@ -696,7 +724,7 @@ fn append_lit(stem: *u8, suffix: str) *u8 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
// linker flags bundled as a struct so build_one stays at the wwstage
|
// linker flags bundled as a struct so build_one stays at the wwstage
|
||||||
// 6c's 6-argument calling-convention limit.
|
// w6c's 6-argument calling-convention limit.
|
||||||
type lflags = struct {
|
type lflags = struct {
|
||||||
libdirs: **u8,
|
libdirs: **u8,
|
||||||
n_libdirs: i32,
|
n_libdirs: i32,
|
||||||
@@ -706,7 +734,7 @@ type lflags = struct {
|
|||||||
|
|
||||||
// build_one — compile `src` into the executable named `out`.
|
// build_one — compile `src` into the executable named `out`.
|
||||||
// self_dir: NUL-terminated dir containing this driver and the
|
// self_dir: NUL-terminated dir containing this driver and the
|
||||||
// wwstage tools (6c_ww/6a_ww/6l_ww)
|
// wwstage tools (w6c_ww/w6a_ww/w6l_ww)
|
||||||
// src: NUL-terminated path to the .ww file
|
// src: NUL-terminated path to the .ww file
|
||||||
// out: NUL-terminated desired output path
|
// out: NUL-terminated desired output path
|
||||||
// incs: NUL-terminated colon-list of -I dirs (may be empty)
|
// incs: NUL-terminated colon-list of -I dirs (may be empty)
|
||||||
@@ -714,14 +742,14 @@ type lflags = struct {
|
|||||||
//
|
//
|
||||||
// The ww-side driver shells to the ww-side tools so a `ww_ww build`
|
// The ww-side driver shells to the ww-side tools so a `ww_ww build`
|
||||||
// touches no C-built code at runtime. The C `ww` driver in cmd/ww/
|
// touches no C-built code at runtime. The C `ww` driver in cmd/ww/
|
||||||
// still drives the C-built 6c/6a/6l. Test 993 pins the two
|
// still drives the C-built w6c/w6a/w6l. Test 993 pins the two
|
||||||
// pipelines to byte-identical output on a corpus.
|
// pipelines to byte-identical output on a corpus.
|
||||||
fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
||||||
let a: *arena = newarena();
|
let a: *arena = newarena();
|
||||||
|
|
||||||
let c6: *u8 = join_path_lit(self_dir, "6c_ww");
|
let c6: *u8 = join_path_lit(self_dir, "w6c_ww");
|
||||||
let a6: *u8 = join_path_lit(self_dir, "6a_ww");
|
let a6: *u8 = join_path_lit(self_dir, "w6a_ww");
|
||||||
let l6: *u8 = join_path_lit(self_dir, "6l_ww");
|
let l6: *u8 = join_path_lit(self_dir, "w6l_ww");
|
||||||
|
|
||||||
// Default lib search path: <self_dir>/../../lib
|
// Default lib search path: <self_dir>/../../lib
|
||||||
let dotdot_lib: *u8 = os.alloc(PATH_MAX): *u8;
|
let dotdot_lib: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
@@ -774,35 +802,35 @@ fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
|||||||
};
|
};
|
||||||
os.close(cf);
|
os.close(cf);
|
||||||
|
|
||||||
// Step 2: 6c -o <stem>.s <stem>.combined.ww
|
// Step 2: w6c -o <stem>.s <stem>.combined.ww
|
||||||
{
|
{
|
||||||
let argv: **u8 = os.alloc(40u64): **u8;
|
let argv: **u8 = os.alloc(40u64): **u8;
|
||||||
argv[0] = "6c\0".ptr;
|
argv[0] = "w6c\0".ptr;
|
||||||
argv[1] = "-o\0".ptr;
|
argv[1] = "-o\0".ptr;
|
||||||
argv[2] = asmf;
|
argv[2] = asmf;
|
||||||
argv[3] = combined;
|
argv[3] = combined;
|
||||||
argv[4] = nil;
|
argv[4] = nil;
|
||||||
if (proc_run(c6, argv) != 0) {
|
if (proc_run(c6, argv) != 0) {
|
||||||
os.write(2, "ww: 6c failed\n".ptr, 14u64);
|
os.write(2, "ww: w6c failed\n".ptr, 15u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
// Step 3: 6a -o <stem>.o <stem>.s
|
// Step 3: w6a -o <stem>.o <stem>.s
|
||||||
{
|
{
|
||||||
let argv: **u8 = os.alloc(40u64): **u8;
|
let argv: **u8 = os.alloc(40u64): **u8;
|
||||||
argv[0] = "6a\0".ptr;
|
argv[0] = "w6a\0".ptr;
|
||||||
argv[1] = "-o\0".ptr;
|
argv[1] = "-o\0".ptr;
|
||||||
argv[2] = objf;
|
argv[2] = objf;
|
||||||
argv[3] = asmf;
|
argv[3] = asmf;
|
||||||
argv[4] = nil;
|
argv[4] = nil;
|
||||||
if (proc_run(a6, argv) != 0) {
|
if (proc_run(a6, argv) != 0) {
|
||||||
os.write(2, "ww: 6a failed\n".ptr, 14u64);
|
os.write(2, "ww: w6a failed\n".ptr, 15u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
// Step 4: 6l -o <out> <stem>.o libwwrt.a [-L<dir>...] [-l<name>...]
|
// Step 4: w6l -o <out> <stem>.o libwwrt.a [-L<dir>...] [-l<name>...]
|
||||||
{
|
{
|
||||||
let nl_dirs: i32 = 0;
|
let nl_dirs: i32 = 0;
|
||||||
let nl_libs: i32 = 0;
|
let nl_libs: i32 = 0;
|
||||||
@@ -814,13 +842,13 @@ fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
|||||||
l_dirs = lf.libdirs;
|
l_dirs = lf.libdirs;
|
||||||
l_libs = lf.libs;
|
l_libs = lf.libs;
|
||||||
};
|
};
|
||||||
// argv slots: 5 fixed (6l, -o, out, objf, libwwrt)
|
// argv slots: 5 fixed (w6l, -o, out, objf, libwwrt)
|
||||||
// + 2 * n_libdirs (-L, dir)
|
// + 2 * n_libdirs (-L, dir)
|
||||||
// + 2 * n_libs (-l, name)
|
// + 2 * n_libs (-l, name)
|
||||||
// + 1 nil terminator.
|
// + 1 nil terminator.
|
||||||
let total: i32 = 5 + 2 * nl_dirs + 2 * nl_libs + 1;
|
let total: i32 = 5 + 2 * nl_dirs + 2 * nl_libs + 1;
|
||||||
let argv: **u8 = os.alloc((total: u64) * 8u64): **u8;
|
let argv: **u8 = os.alloc((total: u64) * 8u64): **u8;
|
||||||
argv[0] = "6l\0".ptr;
|
argv[0] = "w6l\0".ptr;
|
||||||
argv[1] = "-o\0".ptr;
|
argv[1] = "-o\0".ptr;
|
||||||
argv[2] = out;
|
argv[2] = out;
|
||||||
argv[3] = objf;
|
argv[3] = objf;
|
||||||
@@ -842,17 +870,139 @@ fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
|||||||
};
|
};
|
||||||
argv[pos] = nil;
|
argv[pos] = nil;
|
||||||
if (proc_run(l6, argv) != 0) {
|
if (proc_run(l6, argv) != 0) {
|
||||||
os.write(2, "ww: 6l failed\n".ptr, 14u64);
|
os.write(2, "ww: w6l failed\n".ptr, 15u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
return 0;
|
return 0;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
// ---- Module-by-name resolution ----------------------------------------
|
||||||
|
//
|
||||||
|
// Mirrors cmd/ww/main.c:resolve_module. Maps a name like "foo", "lib/foo",
|
||||||
|
// "foo.ww", or "." to a concrete .ww file path:
|
||||||
|
// 1. literal <name>.ww that exists → use as-is
|
||||||
|
// 2. "." → <cwd>/<basename(cwd)>.ww → that, if it exists
|
||||||
|
// 3. <name>/<basename(name)>.ww → that, if it exists
|
||||||
|
// 4. walk search path (cwd:incs:<self_dir>/../../lib):
|
||||||
|
// <dir>/<name>.ww or <dir>/<name>/<name>.ww
|
||||||
|
|
||||||
|
fn cstr_endswith_lit(p: *u8, lit: str) bool = {
|
||||||
|
let plen: u64 = cstrlen(p);
|
||||||
|
let slen: u64 = lit.len: u64;
|
||||||
|
if (plen < slen) { return false; };
|
||||||
|
let off: u64 = plen - slen;
|
||||||
|
let i: i32 = 0;
|
||||||
|
for (i < lit.len) {
|
||||||
|
let iu: u64 = i: u64;
|
||||||
|
if (p[off + iu] != lit[i]) { return false; };
|
||||||
|
i += 1;
|
||||||
|
};
|
||||||
|
return true;
|
||||||
|
};
|
||||||
|
|
||||||
|
// basename_off — return the offset of the last path segment within `p`
|
||||||
|
// (i.e. one past the final '/'). Returns 0 if there's no slash.
|
||||||
|
fn basename_off(p: *u8, plen: u64) u64 = {
|
||||||
|
let start: u64 = 0u64;
|
||||||
|
let i: u64 = 0u64;
|
||||||
|
for (i < plen) {
|
||||||
|
if (p[i] == 47u8) { start = i + 1u64; }; // '/'
|
||||||
|
i += 1u64;
|
||||||
|
};
|
||||||
|
return start;
|
||||||
|
};
|
||||||
|
|
||||||
|
// arena_dup_cstr — copy `plen` bytes from `src` into a fresh NUL-sealed
|
||||||
|
// arena buffer.
|
||||||
|
fn arena_dup_cstr(a: *arena, src: *u8, plen: u64) *u8 = {
|
||||||
|
let buf: *u8 = amalloc(a, plen + 1u64): *u8;
|
||||||
|
let i: u64 = 0u64;
|
||||||
|
for (i < plen) { buf[i] = src[i]; i += 1u64; };
|
||||||
|
buf[plen] = 0u8;
|
||||||
|
return buf;
|
||||||
|
};
|
||||||
|
|
||||||
|
// build_dir_module_path — alloc <dir>/<base>.ww, NUL-terminated, in `a`.
|
||||||
|
fn build_dir_module_path(a: *arena, dir: *u8, dlen: u64,
|
||||||
|
base: *u8, blen: u64) *u8 = {
|
||||||
|
let need: u64 = dlen + 1u64 + blen + 3u64 + 1u64;
|
||||||
|
let buf: *u8 = amalloc(a, need): *u8;
|
||||||
|
let off: u64 = 0u64;
|
||||||
|
let i: u64 = 0u64;
|
||||||
|
for (i < dlen) { buf[off] = dir[i]; off += 1u64; i += 1u64; };
|
||||||
|
buf[off] = 47u8; off += 1u64; // '/'
|
||||||
|
i = 0u64;
|
||||||
|
for (i < blen) { buf[off] = base[i]; off += 1u64; i += 1u64; };
|
||||||
|
buf[off] = 46u8; off += 1u64; // '.'
|
||||||
|
buf[off] = 119u8; off += 1u64; // 'w'
|
||||||
|
buf[off] = 119u8; off += 1u64; // 'w'
|
||||||
|
buf[off] = 0u8;
|
||||||
|
return buf;
|
||||||
|
};
|
||||||
|
|
||||||
|
// build_search_path — compose the colon-separated lookup path used by
|
||||||
|
// resolve_module's case (4). Order: "." : <incs> : <self_dir>/../../lib
|
||||||
|
fn build_search_path(a: *arena, self_dir: *u8, incs: *u8) *u8 = {
|
||||||
|
let buf: *u8 = amalloc(a, PATH_MAX * 2u64): *u8;
|
||||||
|
let off: u64 = 0u64;
|
||||||
|
buf[off] = 46u8; off += 1u64; // '.'
|
||||||
|
if (incs != nil) {
|
||||||
|
if (incs[0u64] != 0u8) {
|
||||||
|
buf[off] = 58u8; off += 1u64; // ':'
|
||||||
|
off = cstr_into(buf, off, incs);
|
||||||
|
};
|
||||||
|
};
|
||||||
|
buf[off] = 58u8; off += 1u64;
|
||||||
|
off = cstr_into(buf, off, self_dir);
|
||||||
|
off = str_into(buf, off, "/../../lib");
|
||||||
|
cstr_seal(buf, off);
|
||||||
|
return buf;
|
||||||
|
};
|
||||||
|
|
||||||
|
fn resolve_module(a: *arena, self_dir: *u8, name: *u8, incs: *u8) *u8 = {
|
||||||
|
let nlen: u64 = cstrlen(name);
|
||||||
|
|
||||||
|
// (1) literal .ww file that exists
|
||||||
|
if (cstr_endswith_lit(name, ".ww")) {
|
||||||
|
if (os.access(name, 0i32) == 0) {
|
||||||
|
return arena_dup_cstr(a, name, nlen);
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
// (2) "." → cwd's <basename>.ww
|
||||||
|
if (nlen == 1u64) {
|
||||||
|
if (name[0u64] == 46u8) { // '.'
|
||||||
|
let cwd: *u8 = amalloc(a, PATH_MAX): *u8;
|
||||||
|
let r: i64 = os.getcwd(cwd, PATH_MAX);
|
||||||
|
if (r <= 0i64) { return nil; };
|
||||||
|
let cwdlen: u64 = (r: u64) - 1u64; // strip trailing NUL
|
||||||
|
let bo: u64 = basename_off(cwd, cwdlen);
|
||||||
|
let blen: u64 = cwdlen - bo;
|
||||||
|
let dot: *u8 = amalloc(a, 2u64): *u8;
|
||||||
|
dot[0] = 46u8; dot[1] = 0u8;
|
||||||
|
let probe: *u8 = build_dir_module_path(a, dot, 1u64,
|
||||||
|
cwd + bo, blen);
|
||||||
|
if (os.access(probe, 0i32) == 0) { return probe; };
|
||||||
|
return nil;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
// (3) <name>/<basename(name)>.ww — directory-as-module
|
||||||
|
let bo: u64 = basename_off(name, nlen);
|
||||||
|
let probe: *u8 = build_dir_module_path(a, name, nlen,
|
||||||
|
name + bo, nlen - bo);
|
||||||
|
if (os.access(probe, 0i32) == 0) { return probe; };
|
||||||
|
|
||||||
|
// (4) search path lookup
|
||||||
|
let search: *u8 = build_search_path(a, self_dir, incs);
|
||||||
|
return locate_import(a, search, name, nlen);
|
||||||
|
};
|
||||||
|
|
||||||
// ---- Subcommand handlers ----------------------------------------------
|
// ---- Subcommand handlers ----------------------------------------------
|
||||||
|
|
||||||
fn write_usage(fd: i32) void = {
|
fn write_usage(fd: i32) void = {
|
||||||
let s: str = "usage: ww [-V] <subcommand> [args...]\n -V print version and exit\n build <path> compile module to a static binary\n run <path> build then exec\n version print version and exit\n";
|
let s: str = "usage: ww [-V] <subcommand> [args...]\n -V print version and exit\n build [path] compile module to a static binary (path defaults to cwd)\n run [path] ... build then exec, passing extra args to the program\n test [path] build and run *_test.ww in the module (path defaults to cwd)\n version print version and exit\n\n path forms:\n foo.ww literal file\n foo search cwd, -I dirs, then $WW_LIB-equiv for foo.ww or foo/foo.ww\n lib/foo directory: build lib/foo/foo.ww\n . build the cwd's <basename>.ww\n";
|
||||||
os.write(fd, s.ptr, s.len: u64);
|
os.write(fd, s.ptr, s.len: u64);
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -894,6 +1044,7 @@ fn default_out_path(src: *u8) *u8 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
fn do_build(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
fn do_build(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
||||||
|
let a: *arena = newarena();
|
||||||
let src: *u8 = nil;
|
let src: *u8 = nil;
|
||||||
let incs: *u8 = os.alloc(PATH_MAX * 2u64): *u8;
|
let incs: *u8 = os.alloc(PATH_MAX * 2u64): *u8;
|
||||||
let inc_off: u64 = 0u64;
|
let inc_off: u64 = 0u64;
|
||||||
@@ -974,16 +1125,23 @@ fn do_build(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
if (src == nil) {
|
if (src == nil) {
|
||||||
os.write(2, "ww build: missing source\n".ptr, 25u64);
|
// default to cwd module
|
||||||
return 2;
|
let dot: *u8 = amalloc(a, 2u64): *u8;
|
||||||
|
dot[0] = 46u8; dot[1] = 0u8;
|
||||||
|
src = dot;
|
||||||
};
|
};
|
||||||
let out: *u8 = default_out_path(src);
|
let resolved: *u8 = resolve_module(a, self_dir, src, incs);
|
||||||
|
if (resolved == nil) {
|
||||||
|
os.write(2, "ww build: cannot find module\n".ptr, 29u64);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
let out: *u8 = default_out_path(resolved);
|
||||||
let lf: lflags;
|
let lf: lflags;
|
||||||
lf.libdirs = libdirs;
|
lf.libdirs = libdirs;
|
||||||
lf.n_libdirs = n_libdirs;
|
lf.n_libdirs = n_libdirs;
|
||||||
lf.libs = libs;
|
lf.libs = libs;
|
||||||
lf.n_libs = n_libs;
|
lf.n_libs = n_libs;
|
||||||
return build_one(self_dir, src, out, incs, &lf);
|
return build_one(self_dir, resolved, out, incs, &lf);
|
||||||
};
|
};
|
||||||
|
|
||||||
// Format the scratch path /tmp/ww_run_<pid> into buf. Returns NUL-
|
// Format the scratch path /tmp/ww_run_<pid> into buf. Returns NUL-
|
||||||
@@ -1017,13 +1175,149 @@ fn make_run_tmp(buf: *u8) void = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
fn do_run(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
fn do_run(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
||||||
if (start >= argc) {
|
let a: *arena = newarena();
|
||||||
os.write(2, "ww run: missing source\n".ptr, 23u64);
|
let src: *u8 = nil;
|
||||||
|
let pass_start: i32 = -1; // first argv idx to pass through to program
|
||||||
|
let incs: *u8 = os.alloc(PATH_MAX * 2u64): *u8;
|
||||||
|
let inc_off: u64 = 0u64;
|
||||||
|
cstr_seal(incs, 0u64);
|
||||||
|
|
||||||
|
let max_lflags: i32 = 32;
|
||||||
|
let libdirs: **u8 = os.alloc((max_lflags: u64) * 8u64): **u8;
|
||||||
|
let n_libdirs: i32 = 0;
|
||||||
|
let libs: **u8 = os.alloc((max_lflags: u64) * 8u64): **u8;
|
||||||
|
let n_libs: i32 = 0;
|
||||||
|
|
||||||
|
let i: i32 = start;
|
||||||
|
for (i < argc) {
|
||||||
|
if (pass_start >= 0) { i = argc; } // stop, leave rest for exec
|
||||||
|
else {
|
||||||
|
let p: *u8 = argv[i];
|
||||||
|
if (p[0u64] == 45u8) {
|
||||||
|
if (p[1u64] == 73u8) {
|
||||||
|
let dir: *u8 = nil;
|
||||||
|
if (p[2u64] != 0u8) {
|
||||||
|
dir = p + 2u64;
|
||||||
|
} else {
|
||||||
|
if (i + 1 >= argc) {
|
||||||
|
os.write(2, "ww run: -I needs an argument\n".ptr, 29u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
|
i += 1;
|
||||||
|
dir = argv[i];
|
||||||
|
};
|
||||||
|
if (inc_off > 0u64) {
|
||||||
|
incs[inc_off] = 58u8;
|
||||||
|
inc_off += 1u64;
|
||||||
|
};
|
||||||
|
inc_off = cstr_into(incs, inc_off, dir);
|
||||||
|
cstr_seal(incs, inc_off);
|
||||||
|
} else { if (p[1u64] == 76u8) {
|
||||||
|
let dir: *u8 = nil;
|
||||||
|
if (p[2u64] != 0u8) {
|
||||||
|
dir = p + 2u64;
|
||||||
|
} else {
|
||||||
|
if (i + 1 >= argc) {
|
||||||
|
os.write(2, "ww run: -L needs an argument\n".ptr, 29u64);
|
||||||
|
return 2;
|
||||||
|
};
|
||||||
|
i += 1;
|
||||||
|
dir = argv[i];
|
||||||
|
};
|
||||||
|
if (n_libdirs >= max_lflags) {
|
||||||
|
os.write(2, "ww run: too many -L\n".ptr, 20u64);
|
||||||
|
return 2;
|
||||||
|
};
|
||||||
|
libdirs[n_libdirs] = dir;
|
||||||
|
n_libdirs += 1;
|
||||||
|
} else { if (p[1u64] == 108u8) {
|
||||||
|
let nm: *u8 = nil;
|
||||||
|
if (p[2u64] != 0u8) {
|
||||||
|
nm = p + 2u64;
|
||||||
|
} else {
|
||||||
|
if (i + 1 >= argc) {
|
||||||
|
os.write(2, "ww run: -l needs an argument\n".ptr, 29u64);
|
||||||
|
return 2;
|
||||||
|
};
|
||||||
|
i += 1;
|
||||||
|
nm = argv[i];
|
||||||
|
};
|
||||||
|
if (n_libs >= max_lflags) {
|
||||||
|
os.write(2, "ww run: too many -l\n".ptr, 20u64);
|
||||||
|
return 2;
|
||||||
|
};
|
||||||
|
libs[n_libs] = nm;
|
||||||
|
n_libs += 1;
|
||||||
|
} else {
|
||||||
|
os.write(2, "ww run: unknown flag\n".ptr, 21u64);
|
||||||
|
return 2;
|
||||||
|
}; }; };
|
||||||
|
i += 1;
|
||||||
|
} else {
|
||||||
|
if (src == nil) {
|
||||||
|
src = p;
|
||||||
|
i += 1;
|
||||||
|
} else {
|
||||||
|
pass_start = i; // remaining args go to the program
|
||||||
|
};
|
||||||
|
};
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
if (src == nil) {
|
||||||
|
let dot: *u8 = amalloc(a, 2u64): *u8;
|
||||||
|
dot[0] = 46u8; dot[1] = 0u8;
|
||||||
|
src = dot;
|
||||||
|
};
|
||||||
|
let resolved: *u8 = resolve_module(a, self_dir, src, incs);
|
||||||
|
if (resolved == nil) {
|
||||||
|
os.write(2, "ww run: cannot find module\n".ptr, 27u64);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
|
||||||
let tmp: *u8 = os.alloc(PATH_MAX): *u8;
|
let tmp: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
make_run_tmp(tmp);
|
make_run_tmp(tmp);
|
||||||
if (build_one(self_dir, argv[start], tmp, "\0".ptr, nil) != 0) { return 1; };
|
let lf: lflags;
|
||||||
|
lf.libdirs = libdirs;
|
||||||
|
lf.n_libdirs = n_libdirs;
|
||||||
|
lf.libs = libs;
|
||||||
|
lf.n_libs = n_libs;
|
||||||
|
if (build_one(self_dir, resolved, tmp, incs, &lf) != 0) {
|
||||||
|
os.unlink(tmp);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
|
||||||
|
// exec with [tmp, argv[pass_start..argc), nil]
|
||||||
|
let n_extra: i32 = 0;
|
||||||
|
if (pass_start >= 0) { n_extra = argc - pass_start; };
|
||||||
|
let total: i32 = n_extra + 2;
|
||||||
|
let exec_argv: **u8 = os.alloc((total: u64) * 8u64): **u8;
|
||||||
|
exec_argv[0] = tmp;
|
||||||
|
let k: i32 = 0;
|
||||||
|
for (k < n_extra) {
|
||||||
|
exec_argv[k + 1] = argv[pass_start + k];
|
||||||
|
k += 1;
|
||||||
|
};
|
||||||
|
exec_argv[n_extra + 1] = nil;
|
||||||
|
let rc: i32 = proc_run(tmp, exec_argv);
|
||||||
|
os.unlink(tmp);
|
||||||
|
return rc;
|
||||||
|
};
|
||||||
|
|
||||||
|
// ---- ww test ----------------------------------------------------------
|
||||||
|
//
|
||||||
|
// Mirrors cmd/ww/main.c:do_test. Two modes:
|
||||||
|
// single-file: build+run a literal *.ww file, return its exit code
|
||||||
|
// directory: open the dir, getdents64, build+run each *_test.ww,
|
||||||
|
// report ok/FAIL per file, return 0 iff all pass.
|
||||||
|
|
||||||
|
fn run_single_test(self_dir: *u8, src: *u8) i32 = {
|
||||||
|
let tmp: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
|
make_run_tmp(tmp);
|
||||||
|
if (build_one(self_dir, src, tmp, "\0".ptr, nil) != 0) {
|
||||||
|
os.unlink(tmp);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
let exec_argv: **u8 = os.alloc(16u64): **u8;
|
let exec_argv: **u8 = os.alloc(16u64): **u8;
|
||||||
exec_argv[0] = tmp;
|
exec_argv[0] = tmp;
|
||||||
exec_argv[1] = nil;
|
exec_argv[1] = nil;
|
||||||
@@ -1032,6 +1326,100 @@ fn do_run(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
|||||||
return rc;
|
return rc;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
fn run_dir_tests(self_dir: *u8, dir: *u8) i32 = {
|
||||||
|
let fd: i32 = os.open(dir, os.O_RDONLY, 0i32);
|
||||||
|
if (fd < 0) {
|
||||||
|
os.write(2, "ww test: cannot open directory\n".ptr, 31u64);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
|
||||||
|
let pass: i32 = 0;
|
||||||
|
let fail: i32 = 0;
|
||||||
|
let buf: *u8 = os.alloc(8192u64): *u8;
|
||||||
|
let dirlen: u64 = cstrlen(dir);
|
||||||
|
|
||||||
|
let n: i64 = os.getdents64(fd, buf, 8192u64);
|
||||||
|
for (n > 0i64) {
|
||||||
|
let off: u64 = 0u64;
|
||||||
|
let nu: u64 = n: u64;
|
||||||
|
for (off < nu) {
|
||||||
|
// d_reclen at offset+16 (u16 LE), d_name at offset+19 (cstr)
|
||||||
|
let blo: u64 = (buf[off + 16u64]): u64;
|
||||||
|
let bhi: u64 = (buf[off + 17u64]): u64;
|
||||||
|
let reclen: u64 = blo + (bhi * 256u64);
|
||||||
|
let name: *u8 = buf + off + 19u64;
|
||||||
|
if (cstr_endswith_lit(name, "_test.ww")) {
|
||||||
|
let nlen: u64 = cstrlen(name);
|
||||||
|
// path = <dir>/<name>
|
||||||
|
let path: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
|
let p_off: u64 = cstr_into(path, 0u64, dir);
|
||||||
|
path[p_off] = 47u8; p_off += 1u64;
|
||||||
|
let i: u64 = 0u64;
|
||||||
|
for (i < nlen) { path[p_off + i] = name[i]; i += 1u64; };
|
||||||
|
p_off += nlen;
|
||||||
|
cstr_seal(path, p_off);
|
||||||
|
// incs = <dir> so test files can `use ` siblings
|
||||||
|
let tincs: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
|
let ic: u64 = cstr_into(tincs, 0u64, dir);
|
||||||
|
cstr_seal(tincs, ic);
|
||||||
|
let tmp: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
|
make_run_tmp(tmp);
|
||||||
|
let bres: i32 = build_one(self_dir, path, tmp, tincs, nil);
|
||||||
|
if (bres != 0) {
|
||||||
|
fail += 1;
|
||||||
|
os.write(2, "FAIL ".ptr, 5u64);
|
||||||
|
os.write(2, name, nlen);
|
||||||
|
os.write(2, " (build)\n".ptr, 9u64);
|
||||||
|
} else {
|
||||||
|
let exec_argv: **u8 = os.alloc(16u64): **u8;
|
||||||
|
exec_argv[0] = tmp;
|
||||||
|
exec_argv[1] = nil;
|
||||||
|
let rc: i32 = proc_run(tmp, exec_argv);
|
||||||
|
if (rc == 0) {
|
||||||
|
pass += 1;
|
||||||
|
os.write(1, "ok ".ptr, 5u64);
|
||||||
|
os.write(1, name, nlen);
|
||||||
|
os.write(1, "\n".ptr, 1u64);
|
||||||
|
} else {
|
||||||
|
fail += 1;
|
||||||
|
os.write(2, "FAIL ".ptr, 5u64);
|
||||||
|
os.write(2, name, nlen);
|
||||||
|
os.write(2, "\n".ptr, 1u64);
|
||||||
|
};
|
||||||
|
};
|
||||||
|
os.unlink(tmp);
|
||||||
|
};
|
||||||
|
off += reclen;
|
||||||
|
};
|
||||||
|
n = os.getdents64(fd, buf, 8192u64);
|
||||||
|
};
|
||||||
|
os.close(fd);
|
||||||
|
if (fail == 0) { return 0; };
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
|
||||||
|
fn do_test(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
||||||
|
let a: *arena = newarena();
|
||||||
|
let target: *u8;
|
||||||
|
if (start >= argc) {
|
||||||
|
let dot: *u8 = amalloc(a, 2u64): *u8;
|
||||||
|
dot[0] = 46u8; dot[1] = 0u8;
|
||||||
|
target = dot;
|
||||||
|
} else {
|
||||||
|
target = argv[start];
|
||||||
|
};
|
||||||
|
|
||||||
|
// single-file mode: literal *.ww that exists
|
||||||
|
if (cstr_endswith_lit(target, ".ww")) {
|
||||||
|
if (os.access(target, 0i32) == 0) {
|
||||||
|
return run_single_test(self_dir, target);
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
// otherwise treat target as a directory; enumerate *_test.ww
|
||||||
|
return run_dir_tests(self_dir, target);
|
||||||
|
};
|
||||||
|
|
||||||
// ---- Entry -------------------------------------------------------------
|
// ---- Entry -------------------------------------------------------------
|
||||||
|
|
||||||
export fn main(argc: i32, argv: **u8) i32 = {
|
export fn main(argc: i32, argv: **u8) i32 = {
|
||||||
@@ -1065,6 +1453,9 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (cstreq_lit(cmd, "run")) {
|
if (cstreq_lit(cmd, "run")) {
|
||||||
return do_run(self_dir, argv, argc, 2);
|
return do_run(self_dir, argv, argc, 2);
|
||||||
};
|
};
|
||||||
|
if (cstreq_lit(cmd, "test")) {
|
||||||
|
return do_test(self_dir, argv, argc, 2);
|
||||||
|
};
|
||||||
os.write(2, "ww: unknown subcommand\n".ptr, 23u64);
|
os.write(2, "ww: unknown subcommand\n".ptr, 23u64);
|
||||||
write_usage(2);
|
write_usage(2);
|
||||||
return 2;
|
return 2;
|
||||||
|
|||||||
@@ -2,13 +2,13 @@
|
|||||||
//
|
//
|
||||||
// The user-facing driver. Plan 9 cc(1) / Hare hare(1) analogue:
|
// The user-facing driver. Plan 9 cc(1) / Hare hare(1) analogue:
|
||||||
//
|
//
|
||||||
// ww build foo.ww → 6c foo.ww > foo.s ; 6a foo.s > foo.o ;
|
// ww build foo.ww → w6c foo.ww > foo.s ; w6a foo.s > foo.o ;
|
||||||
// 6l -o foo foo.o libwwrt.a
|
// w6l -o foo foo.o libwwrt.a
|
||||||
// ww run foo.ww → build then exec
|
// ww run foo.ww → build then exec
|
||||||
// ww version → print version
|
// ww version → print version
|
||||||
//
|
//
|
||||||
// Tool paths default to siblings of $0 so a fresh build runs out of
|
// Tool paths default to siblings of $0 so a fresh build runs out of
|
||||||
// out/bin/. Env-var overrides (WW_6C / WW_6A / WW_6L / WW_LIB) are
|
// out/bin/. Env-var overrides (WW_W6C / WW_W6A / WW_W6L / WW_LIB) are
|
||||||
// not yet supported in this port; the bootstrap doesn't need them.
|
// not yet supported in this port; the bootstrap doesn't need them.
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
@@ -408,7 +408,7 @@ fn append_lit(stem: *u8, suffix: str) *u8 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
// linker flags bundled as a struct so build_one stays at the wwstage
|
// linker flags bundled as a struct so build_one stays at the wwstage
|
||||||
// 6c's 6-argument calling-convention limit.
|
// w6c's 6-argument calling-convention limit.
|
||||||
type lflags = struct {
|
type lflags = struct {
|
||||||
libdirs: **u8,
|
libdirs: **u8,
|
||||||
n_libdirs: i32,
|
n_libdirs: i32,
|
||||||
@@ -418,7 +418,7 @@ type lflags = struct {
|
|||||||
|
|
||||||
// build_one — compile `src` into the executable named `out`.
|
// build_one — compile `src` into the executable named `out`.
|
||||||
// self_dir: NUL-terminated dir containing this driver and the
|
// self_dir: NUL-terminated dir containing this driver and the
|
||||||
// wwstage tools (6c_ww/6a_ww/6l_ww)
|
// wwstage tools (w6c_ww/w6a_ww/w6l_ww)
|
||||||
// src: NUL-terminated path to the .ww file
|
// src: NUL-terminated path to the .ww file
|
||||||
// out: NUL-terminated desired output path
|
// out: NUL-terminated desired output path
|
||||||
// incs: NUL-terminated colon-list of -I dirs (may be empty)
|
// incs: NUL-terminated colon-list of -I dirs (may be empty)
|
||||||
@@ -426,14 +426,14 @@ type lflags = struct {
|
|||||||
//
|
//
|
||||||
// The ww-side driver shells to the ww-side tools so a `ww_ww build`
|
// The ww-side driver shells to the ww-side tools so a `ww_ww build`
|
||||||
// touches no C-built code at runtime. The C `ww` driver in cmd/ww/
|
// touches no C-built code at runtime. The C `ww` driver in cmd/ww/
|
||||||
// still drives the C-built 6c/6a/6l. Test 993 pins the two
|
// still drives the C-built w6c/w6a/w6l. Test 993 pins the two
|
||||||
// pipelines to byte-identical output on a corpus.
|
// pipelines to byte-identical output on a corpus.
|
||||||
fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
||||||
let a: *arena = newarena();
|
let a: *arena = newarena();
|
||||||
|
|
||||||
let c6: *u8 = join_path_lit(self_dir, "6c_ww");
|
let c6: *u8 = join_path_lit(self_dir, "w6c_ww");
|
||||||
let a6: *u8 = join_path_lit(self_dir, "6a_ww");
|
let a6: *u8 = join_path_lit(self_dir, "w6a_ww");
|
||||||
let l6: *u8 = join_path_lit(self_dir, "6l_ww");
|
let l6: *u8 = join_path_lit(self_dir, "w6l_ww");
|
||||||
|
|
||||||
// Default lib search path: <self_dir>/../../lib
|
// Default lib search path: <self_dir>/../../lib
|
||||||
let dotdot_lib: *u8 = os.alloc(PATH_MAX): *u8;
|
let dotdot_lib: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
@@ -486,35 +486,35 @@ fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
|||||||
};
|
};
|
||||||
os.close(cf);
|
os.close(cf);
|
||||||
|
|
||||||
// Step 2: 6c -o <stem>.s <stem>.combined.ww
|
// Step 2: w6c -o <stem>.s <stem>.combined.ww
|
||||||
{
|
{
|
||||||
let argv: **u8 = os.alloc(40u64): **u8;
|
let argv: **u8 = os.alloc(40u64): **u8;
|
||||||
argv[0] = "6c\0".ptr;
|
argv[0] = "w6c\0".ptr;
|
||||||
argv[1] = "-o\0".ptr;
|
argv[1] = "-o\0".ptr;
|
||||||
argv[2] = asmf;
|
argv[2] = asmf;
|
||||||
argv[3] = combined;
|
argv[3] = combined;
|
||||||
argv[4] = nil;
|
argv[4] = nil;
|
||||||
if (proc_run(c6, argv) != 0) {
|
if (proc_run(c6, argv) != 0) {
|
||||||
os.write(2, "ww: 6c failed\n".ptr, 14u64);
|
os.write(2, "ww: w6c failed\n".ptr, 15u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
// Step 3: 6a -o <stem>.o <stem>.s
|
// Step 3: w6a -o <stem>.o <stem>.s
|
||||||
{
|
{
|
||||||
let argv: **u8 = os.alloc(40u64): **u8;
|
let argv: **u8 = os.alloc(40u64): **u8;
|
||||||
argv[0] = "6a\0".ptr;
|
argv[0] = "w6a\0".ptr;
|
||||||
argv[1] = "-o\0".ptr;
|
argv[1] = "-o\0".ptr;
|
||||||
argv[2] = objf;
|
argv[2] = objf;
|
||||||
argv[3] = asmf;
|
argv[3] = asmf;
|
||||||
argv[4] = nil;
|
argv[4] = nil;
|
||||||
if (proc_run(a6, argv) != 0) {
|
if (proc_run(a6, argv) != 0) {
|
||||||
os.write(2, "ww: 6a failed\n".ptr, 14u64);
|
os.write(2, "ww: w6a failed\n".ptr, 15u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
// Step 4: 6l -o <out> <stem>.o libwwrt.a [-L<dir>...] [-l<name>...]
|
// Step 4: w6l -o <out> <stem>.o libwwrt.a [-L<dir>...] [-l<name>...]
|
||||||
{
|
{
|
||||||
let nl_dirs: i32 = 0;
|
let nl_dirs: i32 = 0;
|
||||||
let nl_libs: i32 = 0;
|
let nl_libs: i32 = 0;
|
||||||
@@ -526,13 +526,13 @@ fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
|||||||
l_dirs = lf.libdirs;
|
l_dirs = lf.libdirs;
|
||||||
l_libs = lf.libs;
|
l_libs = lf.libs;
|
||||||
};
|
};
|
||||||
// argv slots: 5 fixed (6l, -o, out, objf, libwwrt)
|
// argv slots: 5 fixed (w6l, -o, out, objf, libwwrt)
|
||||||
// + 2 * n_libdirs (-L, dir)
|
// + 2 * n_libdirs (-L, dir)
|
||||||
// + 2 * n_libs (-l, name)
|
// + 2 * n_libs (-l, name)
|
||||||
// + 1 nil terminator.
|
// + 1 nil terminator.
|
||||||
let total: i32 = 5 + 2 * nl_dirs + 2 * nl_libs + 1;
|
let total: i32 = 5 + 2 * nl_dirs + 2 * nl_libs + 1;
|
||||||
let argv: **u8 = os.alloc((total: u64) * 8u64): **u8;
|
let argv: **u8 = os.alloc((total: u64) * 8u64): **u8;
|
||||||
argv[0] = "6l\0".ptr;
|
argv[0] = "w6l\0".ptr;
|
||||||
argv[1] = "-o\0".ptr;
|
argv[1] = "-o\0".ptr;
|
||||||
argv[2] = out;
|
argv[2] = out;
|
||||||
argv[3] = objf;
|
argv[3] = objf;
|
||||||
@@ -554,17 +554,139 @@ fn build_one(self_dir: *u8, src: *u8, out: *u8, incs: *u8, lf: *lflags) i32 = {
|
|||||||
};
|
};
|
||||||
argv[pos] = nil;
|
argv[pos] = nil;
|
||||||
if (proc_run(l6, argv) != 0) {
|
if (proc_run(l6, argv) != 0) {
|
||||||
os.write(2, "ww: 6l failed\n".ptr, 14u64);
|
os.write(2, "ww: w6l failed\n".ptr, 15u64);
|
||||||
return 1;
|
return 1;
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
return 0;
|
return 0;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
// ---- Module-by-name resolution ----------------------------------------
|
||||||
|
//
|
||||||
|
// Mirrors cmd/ww/main.c:resolve_module. Maps a name like "foo", "lib/foo",
|
||||||
|
// "foo.ww", or "." to a concrete .ww file path:
|
||||||
|
// 1. literal <name>.ww that exists → use as-is
|
||||||
|
// 2. "." → <cwd>/<basename(cwd)>.ww → that, if it exists
|
||||||
|
// 3. <name>/<basename(name)>.ww → that, if it exists
|
||||||
|
// 4. walk search path (cwd:incs:<self_dir>/../../lib):
|
||||||
|
// <dir>/<name>.ww or <dir>/<name>/<name>.ww
|
||||||
|
|
||||||
|
fn cstr_endswith_lit(p: *u8, lit: str) bool = {
|
||||||
|
let plen: u64 = cstrlen(p);
|
||||||
|
let slen: u64 = lit.len: u64;
|
||||||
|
if (plen < slen) { return false; };
|
||||||
|
let off: u64 = plen - slen;
|
||||||
|
let i: i32 = 0;
|
||||||
|
for (i < lit.len) {
|
||||||
|
let iu: u64 = i: u64;
|
||||||
|
if (p[off + iu] != lit[i]) { return false; };
|
||||||
|
i += 1;
|
||||||
|
};
|
||||||
|
return true;
|
||||||
|
};
|
||||||
|
|
||||||
|
// basename_off — return the offset of the last path segment within `p`
|
||||||
|
// (i.e. one past the final '/'). Returns 0 if there's no slash.
|
||||||
|
fn basename_off(p: *u8, plen: u64) u64 = {
|
||||||
|
let start: u64 = 0u64;
|
||||||
|
let i: u64 = 0u64;
|
||||||
|
for (i < plen) {
|
||||||
|
if (p[i] == 47u8) { start = i + 1u64; }; // '/'
|
||||||
|
i += 1u64;
|
||||||
|
};
|
||||||
|
return start;
|
||||||
|
};
|
||||||
|
|
||||||
|
// arena_dup_cstr — copy `plen` bytes from `src` into a fresh NUL-sealed
|
||||||
|
// arena buffer.
|
||||||
|
fn arena_dup_cstr(a: *arena, src: *u8, plen: u64) *u8 = {
|
||||||
|
let buf: *u8 = amalloc(a, plen + 1u64): *u8;
|
||||||
|
let i: u64 = 0u64;
|
||||||
|
for (i < plen) { buf[i] = src[i]; i += 1u64; };
|
||||||
|
buf[plen] = 0u8;
|
||||||
|
return buf;
|
||||||
|
};
|
||||||
|
|
||||||
|
// build_dir_module_path — alloc <dir>/<base>.ww, NUL-terminated, in `a`.
|
||||||
|
fn build_dir_module_path(a: *arena, dir: *u8, dlen: u64,
|
||||||
|
base: *u8, blen: u64) *u8 = {
|
||||||
|
let need: u64 = dlen + 1u64 + blen + 3u64 + 1u64;
|
||||||
|
let buf: *u8 = amalloc(a, need): *u8;
|
||||||
|
let off: u64 = 0u64;
|
||||||
|
let i: u64 = 0u64;
|
||||||
|
for (i < dlen) { buf[off] = dir[i]; off += 1u64; i += 1u64; };
|
||||||
|
buf[off] = 47u8; off += 1u64; // '/'
|
||||||
|
i = 0u64;
|
||||||
|
for (i < blen) { buf[off] = base[i]; off += 1u64; i += 1u64; };
|
||||||
|
buf[off] = 46u8; off += 1u64; // '.'
|
||||||
|
buf[off] = 119u8; off += 1u64; // 'w'
|
||||||
|
buf[off] = 119u8; off += 1u64; // 'w'
|
||||||
|
buf[off] = 0u8;
|
||||||
|
return buf;
|
||||||
|
};
|
||||||
|
|
||||||
|
// build_search_path — compose the colon-separated lookup path used by
|
||||||
|
// resolve_module's case (4). Order: "." : <incs> : <self_dir>/../../lib
|
||||||
|
fn build_search_path(a: *arena, self_dir: *u8, incs: *u8) *u8 = {
|
||||||
|
let buf: *u8 = amalloc(a, PATH_MAX * 2u64): *u8;
|
||||||
|
let off: u64 = 0u64;
|
||||||
|
buf[off] = 46u8; off += 1u64; // '.'
|
||||||
|
if (incs != nil) {
|
||||||
|
if (incs[0u64] != 0u8) {
|
||||||
|
buf[off] = 58u8; off += 1u64; // ':'
|
||||||
|
off = cstr_into(buf, off, incs);
|
||||||
|
};
|
||||||
|
};
|
||||||
|
buf[off] = 58u8; off += 1u64;
|
||||||
|
off = cstr_into(buf, off, self_dir);
|
||||||
|
off = str_into(buf, off, "/../../lib");
|
||||||
|
cstr_seal(buf, off);
|
||||||
|
return buf;
|
||||||
|
};
|
||||||
|
|
||||||
|
fn resolve_module(a: *arena, self_dir: *u8, name: *u8, incs: *u8) *u8 = {
|
||||||
|
let nlen: u64 = cstrlen(name);
|
||||||
|
|
||||||
|
// (1) literal .ww file that exists
|
||||||
|
if (cstr_endswith_lit(name, ".ww")) {
|
||||||
|
if (os.access(name, 0i32) == 0) {
|
||||||
|
return arena_dup_cstr(a, name, nlen);
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
// (2) "." → cwd's <basename>.ww
|
||||||
|
if (nlen == 1u64) {
|
||||||
|
if (name[0u64] == 46u8) { // '.'
|
||||||
|
let cwd: *u8 = amalloc(a, PATH_MAX): *u8;
|
||||||
|
let r: i64 = os.getcwd(cwd, PATH_MAX);
|
||||||
|
if (r <= 0i64) { return nil; };
|
||||||
|
let cwdlen: u64 = (r: u64) - 1u64; // strip trailing NUL
|
||||||
|
let bo: u64 = basename_off(cwd, cwdlen);
|
||||||
|
let blen: u64 = cwdlen - bo;
|
||||||
|
let dot: *u8 = amalloc(a, 2u64): *u8;
|
||||||
|
dot[0] = 46u8; dot[1] = 0u8;
|
||||||
|
let probe: *u8 = build_dir_module_path(a, dot, 1u64,
|
||||||
|
cwd + bo, blen);
|
||||||
|
if (os.access(probe, 0i32) == 0) { return probe; };
|
||||||
|
return nil;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
// (3) <name>/<basename(name)>.ww — directory-as-module
|
||||||
|
let bo: u64 = basename_off(name, nlen);
|
||||||
|
let probe: *u8 = build_dir_module_path(a, name, nlen,
|
||||||
|
name + bo, nlen - bo);
|
||||||
|
if (os.access(probe, 0i32) == 0) { return probe; };
|
||||||
|
|
||||||
|
// (4) search path lookup
|
||||||
|
let search: *u8 = build_search_path(a, self_dir, incs);
|
||||||
|
return locate_import(a, search, name, nlen);
|
||||||
|
};
|
||||||
|
|
||||||
// ---- Subcommand handlers ----------------------------------------------
|
// ---- Subcommand handlers ----------------------------------------------
|
||||||
|
|
||||||
fn write_usage(fd: i32) void = {
|
fn write_usage(fd: i32) void = {
|
||||||
let s: str = "usage: ww [-V] <subcommand> [args...]\n -V print version and exit\n build <path> compile module to a static binary\n run <path> build then exec\n version print version and exit\n";
|
let s: str = "usage: ww [-V] <subcommand> [args...]\n -V print version and exit\n build [path] compile module to a static binary (path defaults to cwd)\n run [path] ... build then exec, passing extra args to the program\n test [path] build and run *_test.ww in the module (path defaults to cwd)\n version print version and exit\n\n path forms:\n foo.ww literal file\n foo search cwd, -I dirs, then $WW_LIB-equiv for foo.ww or foo/foo.ww\n lib/foo directory: build lib/foo/foo.ww\n . build the cwd's <basename>.ww\n";
|
||||||
os.write(fd, s.ptr, s.len: u64);
|
os.write(fd, s.ptr, s.len: u64);
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -606,6 +728,7 @@ fn default_out_path(src: *u8) *u8 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
fn do_build(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
fn do_build(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
||||||
|
let a: *arena = newarena();
|
||||||
let src: *u8 = nil;
|
let src: *u8 = nil;
|
||||||
let incs: *u8 = os.alloc(PATH_MAX * 2u64): *u8;
|
let incs: *u8 = os.alloc(PATH_MAX * 2u64): *u8;
|
||||||
let inc_off: u64 = 0u64;
|
let inc_off: u64 = 0u64;
|
||||||
@@ -686,16 +809,23 @@ fn do_build(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
if (src == nil) {
|
if (src == nil) {
|
||||||
os.write(2, "ww build: missing source\n".ptr, 25u64);
|
// default to cwd module
|
||||||
return 2;
|
let dot: *u8 = amalloc(a, 2u64): *u8;
|
||||||
|
dot[0] = 46u8; dot[1] = 0u8;
|
||||||
|
src = dot;
|
||||||
};
|
};
|
||||||
let out: *u8 = default_out_path(src);
|
let resolved: *u8 = resolve_module(a, self_dir, src, incs);
|
||||||
|
if (resolved == nil) {
|
||||||
|
os.write(2, "ww build: cannot find module\n".ptr, 29u64);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
let out: *u8 = default_out_path(resolved);
|
||||||
let lf: lflags;
|
let lf: lflags;
|
||||||
lf.libdirs = libdirs;
|
lf.libdirs = libdirs;
|
||||||
lf.n_libdirs = n_libdirs;
|
lf.n_libdirs = n_libdirs;
|
||||||
lf.libs = libs;
|
lf.libs = libs;
|
||||||
lf.n_libs = n_libs;
|
lf.n_libs = n_libs;
|
||||||
return build_one(self_dir, src, out, incs, &lf);
|
return build_one(self_dir, resolved, out, incs, &lf);
|
||||||
};
|
};
|
||||||
|
|
||||||
// Format the scratch path /tmp/ww_run_<pid> into buf. Returns NUL-
|
// Format the scratch path /tmp/ww_run_<pid> into buf. Returns NUL-
|
||||||
@@ -729,13 +859,149 @@ fn make_run_tmp(buf: *u8) void = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
fn do_run(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
fn do_run(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
||||||
if (start >= argc) {
|
let a: *arena = newarena();
|
||||||
os.write(2, "ww run: missing source\n".ptr, 23u64);
|
let src: *u8 = nil;
|
||||||
|
let pass_start: i32 = -1; // first argv idx to pass through to program
|
||||||
|
let incs: *u8 = os.alloc(PATH_MAX * 2u64): *u8;
|
||||||
|
let inc_off: u64 = 0u64;
|
||||||
|
cstr_seal(incs, 0u64);
|
||||||
|
|
||||||
|
let max_lflags: i32 = 32;
|
||||||
|
let libdirs: **u8 = os.alloc((max_lflags: u64) * 8u64): **u8;
|
||||||
|
let n_libdirs: i32 = 0;
|
||||||
|
let libs: **u8 = os.alloc((max_lflags: u64) * 8u64): **u8;
|
||||||
|
let n_libs: i32 = 0;
|
||||||
|
|
||||||
|
let i: i32 = start;
|
||||||
|
for (i < argc) {
|
||||||
|
if (pass_start >= 0) { i = argc; } // stop, leave rest for exec
|
||||||
|
else {
|
||||||
|
let p: *u8 = argv[i];
|
||||||
|
if (p[0u64] == 45u8) {
|
||||||
|
if (p[1u64] == 73u8) {
|
||||||
|
let dir: *u8 = nil;
|
||||||
|
if (p[2u64] != 0u8) {
|
||||||
|
dir = p + 2u64;
|
||||||
|
} else {
|
||||||
|
if (i + 1 >= argc) {
|
||||||
|
os.write(2, "ww run: -I needs an argument\n".ptr, 29u64);
|
||||||
return 2;
|
return 2;
|
||||||
};
|
};
|
||||||
|
i += 1;
|
||||||
|
dir = argv[i];
|
||||||
|
};
|
||||||
|
if (inc_off > 0u64) {
|
||||||
|
incs[inc_off] = 58u8;
|
||||||
|
inc_off += 1u64;
|
||||||
|
};
|
||||||
|
inc_off = cstr_into(incs, inc_off, dir);
|
||||||
|
cstr_seal(incs, inc_off);
|
||||||
|
} else { if (p[1u64] == 76u8) {
|
||||||
|
let dir: *u8 = nil;
|
||||||
|
if (p[2u64] != 0u8) {
|
||||||
|
dir = p + 2u64;
|
||||||
|
} else {
|
||||||
|
if (i + 1 >= argc) {
|
||||||
|
os.write(2, "ww run: -L needs an argument\n".ptr, 29u64);
|
||||||
|
return 2;
|
||||||
|
};
|
||||||
|
i += 1;
|
||||||
|
dir = argv[i];
|
||||||
|
};
|
||||||
|
if (n_libdirs >= max_lflags) {
|
||||||
|
os.write(2, "ww run: too many -L\n".ptr, 20u64);
|
||||||
|
return 2;
|
||||||
|
};
|
||||||
|
libdirs[n_libdirs] = dir;
|
||||||
|
n_libdirs += 1;
|
||||||
|
} else { if (p[1u64] == 108u8) {
|
||||||
|
let nm: *u8 = nil;
|
||||||
|
if (p[2u64] != 0u8) {
|
||||||
|
nm = p + 2u64;
|
||||||
|
} else {
|
||||||
|
if (i + 1 >= argc) {
|
||||||
|
os.write(2, "ww run: -l needs an argument\n".ptr, 29u64);
|
||||||
|
return 2;
|
||||||
|
};
|
||||||
|
i += 1;
|
||||||
|
nm = argv[i];
|
||||||
|
};
|
||||||
|
if (n_libs >= max_lflags) {
|
||||||
|
os.write(2, "ww run: too many -l\n".ptr, 20u64);
|
||||||
|
return 2;
|
||||||
|
};
|
||||||
|
libs[n_libs] = nm;
|
||||||
|
n_libs += 1;
|
||||||
|
} else {
|
||||||
|
os.write(2, "ww run: unknown flag\n".ptr, 21u64);
|
||||||
|
return 2;
|
||||||
|
}; }; };
|
||||||
|
i += 1;
|
||||||
|
} else {
|
||||||
|
if (src == nil) {
|
||||||
|
src = p;
|
||||||
|
i += 1;
|
||||||
|
} else {
|
||||||
|
pass_start = i; // remaining args go to the program
|
||||||
|
};
|
||||||
|
};
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
if (src == nil) {
|
||||||
|
let dot: *u8 = amalloc(a, 2u64): *u8;
|
||||||
|
dot[0] = 46u8; dot[1] = 0u8;
|
||||||
|
src = dot;
|
||||||
|
};
|
||||||
|
let resolved: *u8 = resolve_module(a, self_dir, src, incs);
|
||||||
|
if (resolved == nil) {
|
||||||
|
os.write(2, "ww run: cannot find module\n".ptr, 27u64);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
|
||||||
let tmp: *u8 = os.alloc(PATH_MAX): *u8;
|
let tmp: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
make_run_tmp(tmp);
|
make_run_tmp(tmp);
|
||||||
if (build_one(self_dir, argv[start], tmp, "\0".ptr, nil) != 0) { return 1; };
|
let lf: lflags;
|
||||||
|
lf.libdirs = libdirs;
|
||||||
|
lf.n_libdirs = n_libdirs;
|
||||||
|
lf.libs = libs;
|
||||||
|
lf.n_libs = n_libs;
|
||||||
|
if (build_one(self_dir, resolved, tmp, incs, &lf) != 0) {
|
||||||
|
os.unlink(tmp);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
|
||||||
|
// exec with [tmp, argv[pass_start..argc), nil]
|
||||||
|
let n_extra: i32 = 0;
|
||||||
|
if (pass_start >= 0) { n_extra = argc - pass_start; };
|
||||||
|
let total: i32 = n_extra + 2;
|
||||||
|
let exec_argv: **u8 = os.alloc((total: u64) * 8u64): **u8;
|
||||||
|
exec_argv[0] = tmp;
|
||||||
|
let k: i32 = 0;
|
||||||
|
for (k < n_extra) {
|
||||||
|
exec_argv[k + 1] = argv[pass_start + k];
|
||||||
|
k += 1;
|
||||||
|
};
|
||||||
|
exec_argv[n_extra + 1] = nil;
|
||||||
|
let rc: i32 = proc_run(tmp, exec_argv);
|
||||||
|
os.unlink(tmp);
|
||||||
|
return rc;
|
||||||
|
};
|
||||||
|
|
||||||
|
// ---- ww test ----------------------------------------------------------
|
||||||
|
//
|
||||||
|
// Mirrors cmd/ww/main.c:do_test. Two modes:
|
||||||
|
// single-file: build+run a literal *.ww file, return its exit code
|
||||||
|
// directory: open the dir, getdents64, build+run each *_test.ww,
|
||||||
|
// report ok/FAIL per file, return 0 iff all pass.
|
||||||
|
|
||||||
|
fn run_single_test(self_dir: *u8, src: *u8) i32 = {
|
||||||
|
let tmp: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
|
make_run_tmp(tmp);
|
||||||
|
if (build_one(self_dir, src, tmp, "\0".ptr, nil) != 0) {
|
||||||
|
os.unlink(tmp);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
let exec_argv: **u8 = os.alloc(16u64): **u8;
|
let exec_argv: **u8 = os.alloc(16u64): **u8;
|
||||||
exec_argv[0] = tmp;
|
exec_argv[0] = tmp;
|
||||||
exec_argv[1] = nil;
|
exec_argv[1] = nil;
|
||||||
@@ -744,6 +1010,100 @@ fn do_run(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
|||||||
return rc;
|
return rc;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
fn run_dir_tests(self_dir: *u8, dir: *u8) i32 = {
|
||||||
|
let fd: i32 = os.open(dir, os.O_RDONLY, 0i32);
|
||||||
|
if (fd < 0) {
|
||||||
|
os.write(2, "ww test: cannot open directory\n".ptr, 31u64);
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
|
||||||
|
let pass: i32 = 0;
|
||||||
|
let fail: i32 = 0;
|
||||||
|
let buf: *u8 = os.alloc(8192u64): *u8;
|
||||||
|
let dirlen: u64 = cstrlen(dir);
|
||||||
|
|
||||||
|
let n: i64 = os.getdents64(fd, buf, 8192u64);
|
||||||
|
for (n > 0i64) {
|
||||||
|
let off: u64 = 0u64;
|
||||||
|
let nu: u64 = n: u64;
|
||||||
|
for (off < nu) {
|
||||||
|
// d_reclen at offset+16 (u16 LE), d_name at offset+19 (cstr)
|
||||||
|
let blo: u64 = (buf[off + 16u64]): u64;
|
||||||
|
let bhi: u64 = (buf[off + 17u64]): u64;
|
||||||
|
let reclen: u64 = blo + (bhi * 256u64);
|
||||||
|
let name: *u8 = buf + off + 19u64;
|
||||||
|
if (cstr_endswith_lit(name, "_test.ww")) {
|
||||||
|
let nlen: u64 = cstrlen(name);
|
||||||
|
// path = <dir>/<name>
|
||||||
|
let path: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
|
let p_off: u64 = cstr_into(path, 0u64, dir);
|
||||||
|
path[p_off] = 47u8; p_off += 1u64;
|
||||||
|
let i: u64 = 0u64;
|
||||||
|
for (i < nlen) { path[p_off + i] = name[i]; i += 1u64; };
|
||||||
|
p_off += nlen;
|
||||||
|
cstr_seal(path, p_off);
|
||||||
|
// incs = <dir> so test files can `use ` siblings
|
||||||
|
let tincs: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
|
let ic: u64 = cstr_into(tincs, 0u64, dir);
|
||||||
|
cstr_seal(tincs, ic);
|
||||||
|
let tmp: *u8 = os.alloc(PATH_MAX): *u8;
|
||||||
|
make_run_tmp(tmp);
|
||||||
|
let bres: i32 = build_one(self_dir, path, tmp, tincs, nil);
|
||||||
|
if (bres != 0) {
|
||||||
|
fail += 1;
|
||||||
|
os.write(2, "FAIL ".ptr, 5u64);
|
||||||
|
os.write(2, name, nlen);
|
||||||
|
os.write(2, " (build)\n".ptr, 9u64);
|
||||||
|
} else {
|
||||||
|
let exec_argv: **u8 = os.alloc(16u64): **u8;
|
||||||
|
exec_argv[0] = tmp;
|
||||||
|
exec_argv[1] = nil;
|
||||||
|
let rc: i32 = proc_run(tmp, exec_argv);
|
||||||
|
if (rc == 0) {
|
||||||
|
pass += 1;
|
||||||
|
os.write(1, "ok ".ptr, 5u64);
|
||||||
|
os.write(1, name, nlen);
|
||||||
|
os.write(1, "\n".ptr, 1u64);
|
||||||
|
} else {
|
||||||
|
fail += 1;
|
||||||
|
os.write(2, "FAIL ".ptr, 5u64);
|
||||||
|
os.write(2, name, nlen);
|
||||||
|
os.write(2, "\n".ptr, 1u64);
|
||||||
|
};
|
||||||
|
};
|
||||||
|
os.unlink(tmp);
|
||||||
|
};
|
||||||
|
off += reclen;
|
||||||
|
};
|
||||||
|
n = os.getdents64(fd, buf, 8192u64);
|
||||||
|
};
|
||||||
|
os.close(fd);
|
||||||
|
if (fail == 0) { return 0; };
|
||||||
|
return 1;
|
||||||
|
};
|
||||||
|
|
||||||
|
fn do_test(self_dir: *u8, argv: **u8, argc: i32, start: i32) i32 = {
|
||||||
|
let a: *arena = newarena();
|
||||||
|
let target: *u8;
|
||||||
|
if (start >= argc) {
|
||||||
|
let dot: *u8 = amalloc(a, 2u64): *u8;
|
||||||
|
dot[0] = 46u8; dot[1] = 0u8;
|
||||||
|
target = dot;
|
||||||
|
} else {
|
||||||
|
target = argv[start];
|
||||||
|
};
|
||||||
|
|
||||||
|
// single-file mode: literal *.ww that exists
|
||||||
|
if (cstr_endswith_lit(target, ".ww")) {
|
||||||
|
if (os.access(target, 0i32) == 0) {
|
||||||
|
return run_single_test(self_dir, target);
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
// otherwise treat target as a directory; enumerate *_test.ww
|
||||||
|
return run_dir_tests(self_dir, target);
|
||||||
|
};
|
||||||
|
|
||||||
// ---- Entry -------------------------------------------------------------
|
// ---- Entry -------------------------------------------------------------
|
||||||
|
|
||||||
export fn main(argc: i32, argv: **u8) i32 = {
|
export fn main(argc: i32, argv: **u8) i32 = {
|
||||||
@@ -777,6 +1137,9 @@ export fn main(argc: i32, argv: **u8) i32 = {
|
|||||||
if (cstreq_lit(cmd, "run")) {
|
if (cstreq_lit(cmd, "run")) {
|
||||||
return do_run(self_dir, argv, argc, 2);
|
return do_run(self_dir, argv, argc, 2);
|
||||||
};
|
};
|
||||||
|
if (cstreq_lit(cmd, "test")) {
|
||||||
|
return do_test(self_dir, argv, argc, 2);
|
||||||
|
};
|
||||||
os.write(2, "ww: unknown subcommand\n".ptr, 23u64);
|
os.write(2, "ww: unknown subcommand\n".ptr, 23u64);
|
||||||
write_usage(2);
|
write_usage(2);
|
||||||
return 2;
|
return 2;
|
||||||
|
|||||||
@@ -31,6 +31,8 @@ def SYS_EXECVE: i64 = 59;
|
|||||||
def SYS_EXIT: i64 = 60;
|
def SYS_EXIT: i64 = 60;
|
||||||
def SYS_WAIT4: i64 = 61;
|
def SYS_WAIT4: i64 = 61;
|
||||||
def SYS_UNLINK: i64 = 87;
|
def SYS_UNLINK: i64 = 87;
|
||||||
|
def SYS_GETCWD: i64 = 79;
|
||||||
|
def SYS_GETDENTS64: i64 = 217;
|
||||||
|
|
||||||
// open(2) flags. Linux values, matching <fcntl.h>.
|
// open(2) flags. Linux values, matching <fcntl.h>.
|
||||||
def O_RDONLY: i32 = 0;
|
def O_RDONLY: i32 = 0;
|
||||||
@@ -65,7 +67,7 @@ export fn close(fd: i32) i32 = {
|
|||||||
|
|
||||||
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
||||||
// closing `newfd` first if open. Returns `newfd` on success or a
|
// closing `newfd` first if open. Returns `newfd` on success or a
|
||||||
// negative errno. Used by 6c_ww to redirect stdout into an output
|
// negative errno. Used by w6c_ww to redirect stdout into an output
|
||||||
// file without changing the cgen emit path.
|
// file without changing the cgen emit path.
|
||||||
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
||||||
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
||||||
@@ -179,7 +181,33 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
options: i64, rusage: i64): i32;
|
options: i64, rusage: i64): i32;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/mem.ww — port of cmd/wwc/mem.c.
|
// getcwd(2) — Linux flavour. Writes the NUL-terminated cwd into `buf`
|
||||||
|
// and returns the number of bytes written (including the NUL), or a
|
||||||
|
// negative errno. The driver uses it to expand `.` to the cwd's
|
||||||
|
// basename for `ww build` / `ww test`.
|
||||||
|
export fn getcwd(buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall2(SYS_GETCWD, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// getdents64(2) — Linux directory enumeration. The fd must be opened
|
||||||
|
// with O_RDONLY on a directory. `buf` receives a packed sequence of
|
||||||
|
// linux_dirent64 records:
|
||||||
|
//
|
||||||
|
// struct linux_dirent64 {
|
||||||
|
// u64 d_ino; // 0..7
|
||||||
|
// i64 d_off; // 8..15
|
||||||
|
// u16 d_reclen; // 16..17 — total bytes for this record
|
||||||
|
// u8 d_type; // 18 — DT_REG/DT_DIR/...
|
||||||
|
// u8 d_name[]; // 19.. — NUL-terminated name + padding
|
||||||
|
// };
|
||||||
|
//
|
||||||
|
// Returns bytes written into `buf` (advance by d_reclen to walk),
|
||||||
|
// 0 at end-of-directory, or a negative errno.
|
||||||
|
export fn getdents64(fd: i32, buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall3(SYS_GETDENTS64, fd: i64, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// selfhost/cmd/wcc/mem.ww — port of cmd/wcc/mem.c.
|
||||||
//
|
//
|
||||||
// Bump arena allocator. Backed by the runtime page allocator
|
// Bump arena allocator. Backed by the runtime page allocator
|
||||||
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
// (rt_alloc / rt_free), no libc. Each chunk is mmap'd; when the
|
||||||
@@ -187,7 +215,7 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
// unmaps the chain.
|
// unmaps the chain.
|
||||||
//
|
//
|
||||||
// Memory handed out is 16-byte aligned. The C version under
|
// Memory handed out is 16-byte aligned. The C version under
|
||||||
// cmd/wwc/ is retained until the three-stage bootstrap diffs clean.
|
// cmd/wcc/ is retained until the three-stage bootstrap diffs clean.
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
|
|
||||||
@@ -406,8 +434,8 @@ export fn parseu64(s: str) (u64 | str) = {
|
|||||||
return v;
|
return v;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/tok.ww — port of cmd/wwc/tok.c plus the Tkind /
|
// selfhost/cmd/wcc/tok.ww — port of cmd/wcc/tok.c plus the Tkind /
|
||||||
// Tok / Pos shapes from cmd/wwc/ww.h.
|
// Tok / Pos shapes from cmd/wcc/ww.h.
|
||||||
//
|
//
|
||||||
// Token kind values must stay numerically equal to the C side: the
|
// Token kind values must stay numerically equal to the C side: the
|
||||||
// 990_selfhost test diffs ww-side wwdump output against C-side
|
// 990_selfhost test diffs ww-side wwdump output against C-side
|
||||||
@@ -415,13 +443,13 @@ export fn parseu64(s: str) (u64 | str) = {
|
|||||||
// integers and breaks the diff.
|
// integers and breaks the diff.
|
||||||
//
|
//
|
||||||
// Bottom of file: tokprint, which emits one token per line in a
|
// Bottom of file: tokprint, which emits one token per line in a
|
||||||
// format identical to cmd/wwc/tok.c:tokprint().
|
// format identical to cmd/wcc/tok.c:tokprint().
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
use strconv;
|
use strconv;
|
||||||
|
|
||||||
// ---- Tkind ------------------------------------------------------------
|
// ---- Tkind ------------------------------------------------------------
|
||||||
// Mirror of the C enum in cmd/wwc/ww.h. Don't reorder.
|
// Mirror of the C enum in cmd/wcc/ww.h. Don't reorder.
|
||||||
|
|
||||||
def TK_NONE: i32 = 0;
|
def TK_NONE: i32 = 0;
|
||||||
def TK_EOF: i32 = 1;
|
def TK_EOF: i32 = 1;
|
||||||
@@ -516,7 +544,7 @@ def TK_LAST: i32 = 80;
|
|||||||
// ---- Pos / Tok --------------------------------------------------------
|
// ---- Pos / Tok --------------------------------------------------------
|
||||||
//
|
//
|
||||||
// `pos` is used at error-reporting boundaries; we always pass it via
|
// `pos` is used at error-reporting boundaries; we always pass it via
|
||||||
// *pos so the value never gets struct-copied (6c can't yet copy a
|
// *pos so the value never gets struct-copied (w6c can't yet copy a
|
||||||
// 24-byte struct).
|
// 24-byte struct).
|
||||||
//
|
//
|
||||||
// `tok` is flat — file/line/col live directly on the token rather than
|
// `tok` is flat — file/line/col live directly on the token rather than
|
||||||
@@ -554,7 +582,7 @@ fn streq_n(a: *u8, b: str, n: i32) bool = {
|
|||||||
|
|
||||||
// kwlookup — returns the matching TK_* keyword kind for a byte run,
|
// kwlookup — returns the matching TK_* keyword kind for a byte run,
|
||||||
// or TK_NONE if it's an ordinary identifier. Linear search over a
|
// or TK_NONE if it's an ordinary identifier. Linear search over a
|
||||||
// small alphabetised list, matching cmd/wwc/tok.c.
|
// small alphabetised list, matching cmd/wcc/tok.c.
|
||||||
export fn kwlookup(p: *u8, n: i32) i32 = {
|
export fn kwlookup(p: *u8, n: i32) i32 = {
|
||||||
if (streq_n(p, "as", n)) { return TK_AS; };
|
if (streq_n(p, "as", n)) { return TK_AS; };
|
||||||
if (streq_n(p, "break", n)) { return TK_BREAK; };
|
if (streq_n(p, "break", n)) { return TK_BREAK; };
|
||||||
@@ -683,7 +711,7 @@ export fn tokname(k: i32) str = {
|
|||||||
|
|
||||||
// ---- writer for tokprint ----------------------------------------------
|
// ---- writer for tokprint ----------------------------------------------
|
||||||
//
|
//
|
||||||
// fputq mirrors cmd/wwc/tok.c:fputq — quote the string with C-style
|
// fputq mirrors cmd/wcc/tok.c:fputq — quote the string with C-style
|
||||||
// escapes for \, ", \n, \t, \r and \xNN for other non-printables.
|
// escapes for \, ", \n, \t, \r and \xNN for other non-printables.
|
||||||
|
|
||||||
fn fputc_byte(fd: i32, b: u8) void = {
|
fn fputc_byte(fd: i32, b: u8) void = {
|
||||||
@@ -750,14 +778,14 @@ fn fputq(fd: i32, p: *u8, n: i32) void = {
|
|||||||
};
|
};
|
||||||
|
|
||||||
// tokprint — write one token line to fd. Format must match
|
// tokprint — write one token line to fd. Format must match
|
||||||
// cmd/wwc/tok.c:tokprint() byte-for-byte: that's the diff anchor.
|
// cmd/wcc/tok.c:tokprint() byte-for-byte: that's the diff anchor.
|
||||||
// "<file>:<line>:<col> <kindname>[ <value>]\n"
|
// "<file>:<line>:<col> <kindname>[ <value>]\n"
|
||||||
//
|
//
|
||||||
// Takes `t` by pointer because 6c can't yet pass a >16-byte struct
|
// Takes `t` by pointer because w6c can't yet pass a >16-byte struct
|
||||||
// by value; the C version takes Tok by value.
|
// by value; the C version takes Tok by value.
|
||||||
export fn tokprint(fd: i32, t: *tok) void = {
|
export fn tokprint(fd: i32, t: *tok) void = {
|
||||||
// Chained-dot field reads (`t.x.y`) on str sub-fields aren't yet
|
// Chained-dot field reads (`t.x.y`) on str sub-fields aren't yet
|
||||||
// reduced by 6c — `t.x.y` returns the whole str. Lift the str
|
// reduced by w6c — `t.x.y` returns the whole str. Lift the str
|
||||||
// fields into locals so we can use the str pseudo-field path.
|
// fields into locals so we can use the str pseudo-field path.
|
||||||
let tfile: str = t.file;
|
let tfile: str = t.file;
|
||||||
let ttext: str = t.text;
|
let ttext: str = t.text;
|
||||||
@@ -894,14 +922,14 @@ export fn toupper(c: u8) u8 = {
|
|||||||
return c;
|
return c;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/lex.ww — port of cmd/wwc/lex.c.
|
// selfhost/cmd/wcc/lex.ww — port of cmd/wcc/lex.c.
|
||||||
//
|
//
|
||||||
// The DFA, the helpers, and the order of decisions all mirror the C
|
// The DFA, the helpers, and the order of decisions all mirror the C
|
||||||
// version exactly. The 990_selfhost test diffs the resulting token
|
// version exactly. The 990_selfhost test diffs the resulting token
|
||||||
// stream against the C-side wwdump byte-for-byte; any divergence is
|
// stream against the C-side wwdump byte-for-byte; any divergence is
|
||||||
// a port bug.
|
// a port bug.
|
||||||
//
|
//
|
||||||
// Calling-convention note: 6c can't yet pass or return structs >16
|
// Calling-convention note: w6c can't yet pass or return structs >16
|
||||||
// bytes by value, so `tok` and `pos` are passed by pointer (out
|
// bytes by value, so `tok` and `pos` are passed by pointer (out
|
||||||
// params). The C version passes `Tok` by value; we differ here only
|
// params). The C version passes `Tok` by value; we differ here only
|
||||||
// in shape, not in observable behaviour. Token kind values stay
|
// in shape, not in observable behaviour. Token kind values stay
|
||||||
@@ -1551,7 +1579,7 @@ export fn lexnext(l: *lex, out: *tok) void = {
|
|||||||
out.text = astrndup(l.a, one.ptr, 1u64);
|
out.text = astrndup(l.a, one.ptr, 1u64);
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/ast.ww — port of cmd/wwc/ast.c (Node defs + printer).
|
// selfhost/cmd/wcc/ast.ww — port of cmd/wcc/ast.c (Node defs + printer).
|
||||||
//
|
//
|
||||||
// Status: AST printer is fully ported. Constructor `newnode` is here.
|
// Status: AST printer is fully ported. Constructor `newnode` is here.
|
||||||
// The parser (parse.ww) is currently minimal — see its file header.
|
// The parser (parse.ww) is currently minimal — see its file header.
|
||||||
@@ -1567,7 +1595,7 @@ use tok;
|
|||||||
|
|
||||||
// ---- Nkind ------------------------------------------------------------
|
// ---- Nkind ------------------------------------------------------------
|
||||||
//
|
//
|
||||||
// Mirror of cmd/wwc/ww.h Nkind. Values must stay numerically equal so
|
// Mirror of cmd/wcc/ww.h Nkind. Values must stay numerically equal so
|
||||||
// the AST diff probe in 990_selfhost works.
|
// the AST diff probe in 990_selfhost works.
|
||||||
|
|
||||||
def N_NONE: i32 = 0;
|
def N_NONE: i32 = 0;
|
||||||
@@ -1887,7 +1915,7 @@ export fn astprint(fd: i32, n: *node) void = {
|
|||||||
pr(fd, n, 0);
|
pr(fd, n, 0);
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/parse.ww — port of cmd/wwc/parse.c.
|
// selfhost/cmd/wcc/parse.ww — port of cmd/wcc/parse.c.
|
||||||
//
|
//
|
||||||
// Status: GROWING stub. Currently handles top-level `use IDENT;`,
|
// Status: GROWING stub. Currently handles top-level `use IDENT;`,
|
||||||
// `def NAME: TYPE = LIT;`, `type NAME = TYPE;`, and `fn NAME(params)
|
// `def NAME: TYPE = LIT;`, `type NAME = TYPE;`, and `fn NAME(params)
|
||||||
@@ -1900,7 +1928,7 @@ export fn astprint(fd: i32, n: *node) void = {
|
|||||||
// surface form lands here gradually so the AST diff in 990_selfhost
|
// surface form lands here gradually so the AST diff in 990_selfhost
|
||||||
// grows toward whole-language coverage one increment at a time.
|
// grows toward whole-language coverage one increment at a time.
|
||||||
//
|
//
|
||||||
// Calling-convention shim: 6c can't yet pass a sub-struct field
|
// Calling-convention shim: w6c can't yet pass a sub-struct field
|
||||||
// (e.g. p.cur.line where p.cur is a `tok` of size 76). The parser
|
// (e.g. p.cur.line where p.cur is a `tok` of size 76). The parser
|
||||||
// stores the current token as flat primitive fields rather than a
|
// stores the current token as flat primitive fields rather than a
|
||||||
// nested `tok` struct; `refill` copies a freshly lexed token in.
|
// nested `tok` struct; `refill` copies a freshly lexed token in.
|
||||||
@@ -2635,7 +2663,7 @@ fn parsestmt(p: *parser) *node = {
|
|||||||
};
|
};
|
||||||
// expression statement, or tuple-destructure multi-assign:
|
// expression statement, or tuple-destructure multi-assign:
|
||||||
// a, b = expr;
|
// a, b = expr;
|
||||||
// Mirrors cmd/wwc/parse.c:1015-1031. We parse the first lvalue
|
// Mirrors cmd/wcc/parse.c:1015-1031. We parse the first lvalue
|
||||||
// with parseexpr (matches the C side); subsequent lvalues go
|
// with parseexpr (matches the C side); subsequent lvalues go
|
||||||
// through parsebin(parseunary, 1) so the `=` stays for us to
|
// through parsebin(parseunary, 1) so the `=` stays for us to
|
||||||
// consume — parseexpr would absorb it.
|
// consume — parseexpr would absorb it.
|
||||||
@@ -2870,7 +2898,7 @@ export fn parsefile(p: *parser) *node = {
|
|||||||
return f;
|
return f;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/type.ww — port of cmd/wwc/type.c.
|
// selfhost/cmd/wcc/type.ww — port of cmd/wcc/type.c.
|
||||||
//
|
//
|
||||||
// Status: full structural port. The C version uses module-globals for
|
// Status: full structural port. The C version uses module-globals for
|
||||||
// the primitive types (ty_void, ty_i32, …); ww doesn't have writable
|
// the primitive types (ty_void, ty_i32, …); ww doesn't have writable
|
||||||
@@ -2882,7 +2910,7 @@ use os;
|
|||||||
use mem;
|
use mem;
|
||||||
|
|
||||||
// ---- TypeKind ---------------------------------------------------------
|
// ---- TypeKind ---------------------------------------------------------
|
||||||
// Numeric values must stay aligned with cmd/wwc/ww.h TypeKind so the
|
// Numeric values must stay aligned with cmd/wcc/ww.h TypeKind so the
|
||||||
// next diff signal (typed-AST printer / cgen) can compare across the
|
// next diff signal (typed-AST printer / cgen) can compare across the
|
||||||
// two implementations.
|
// two implementations.
|
||||||
|
|
||||||
@@ -3200,7 +3228,7 @@ export fn type_eq(a: *tinfo, b: *tinfo) bool = {
|
|||||||
return true; // primitives match by kind alone
|
return true; // primitives match by kind alone
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/sym.ww — port of cmd/wwc/sym.c.
|
// selfhost/cmd/wcc/sym.ww — port of cmd/wcc/sym.c.
|
||||||
//
|
//
|
||||||
// Per-scope hashtable, chained to the parent. Lookup walks up.
|
// Per-scope hashtable, chained to the parent. Lookup walks up.
|
||||||
// Plan 9 / Hare flavoured. Duplicate definitions in the same scope
|
// Plan 9 / Hare flavoured. Duplicate definitions in the same scope
|
||||||
@@ -3210,7 +3238,7 @@ use mem;
|
|||||||
use typ;
|
use typ;
|
||||||
use ast;
|
use ast;
|
||||||
|
|
||||||
// Symbol kinds — must stay numerically aligned with cmd/wwc/ww.h Skind.
|
// Symbol kinds — must stay numerically aligned with cmd/wcc/ww.h Skind.
|
||||||
def SK_NONE: i32 = 0;
|
def SK_NONE: i32 = 0;
|
||||||
def SK_VAR: i32 = 1;
|
def SK_VAR: i32 = 1;
|
||||||
def SK_PARAM: i32 = 2;
|
def SK_PARAM: i32 = 2;
|
||||||
@@ -3314,11 +3342,11 @@ export fn scope_define(s: *scope, name: str, k: i32, t: *tinfo, decl: *node) *sy
|
|||||||
return sy;
|
return sy;
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/check.ww — minimal port of cmd/wwc/check.c.
|
// selfhost/cmd/wcc/check.ww — minimal port of cmd/wcc/check.c.
|
||||||
//
|
//
|
||||||
// Status: name-resolution + primitive-type seeding only. Full type
|
// Status: name-resolution + primitive-type seeding only. Full type
|
||||||
// inference, conversion rules, tagged-union dispatch typing, return-
|
// inference, conversion rules, tagged-union dispatch typing, return-
|
||||||
// type checking, etc. all live in cmd/wwc/check.c (937 lines) and
|
// type checking, etc. all live in cmd/wcc/check.c (937 lines) and
|
||||||
// will land here in subsequent commits.
|
// will land here in subsequent commits.
|
||||||
//
|
//
|
||||||
// What this version does:
|
// What this version does:
|
||||||
@@ -3562,10 +3590,10 @@ export fn check_file(c: *checker, file: *node) void = {
|
|||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
// selfhost/cmd/wwc/cgen.ww — port of cmd/6c/cgen.c.
|
// selfhost/cmd/wcc/cgen.ww — port of cmd/w6c/cgen.c.
|
||||||
//
|
//
|
||||||
// Status: GROWING. Each subsystem we add is verified by `wwdump_ww -c`
|
// Status: GROWING. Each subsystem we add is verified by `wwdump_ww -c`
|
||||||
// producing byte-identical output to C-side `6c` for the same source,
|
// producing byte-identical output to C-side `w6c` for the same source,
|
||||||
// then by assembling + linking + running the result.
|
// then by assembling + linking + running the result.
|
||||||
//
|
//
|
||||||
// Current coverage:
|
// Current coverage:
|
||||||
@@ -3760,7 +3788,7 @@ fn local_alloc(c: *cgen, name: str, sz: i32, tnode: *node) i32 = {
|
|||||||
fn local_add(c: *cgen, name: str, sz: i32, tnode: *node) i32 = {
|
fn local_add(c: *cgen, name: str, sz: i32, tnode: *node) i32 = {
|
||||||
// Name-based slot reuse for N_LETs and params: if `name` is
|
// Name-based slot reuse for N_LETs and params: if `name` is
|
||||||
// already declared in this function, return its existing
|
// already declared in this function, return its existing
|
||||||
// offset. Mirrors C cgen (cmd/6c/cgen.c:localoff). Two
|
// offset. Mirrors C cgen (cmd/w6c/cgen.c:localoff). Two
|
||||||
// disjoint scopes that declare the same name share one slot —
|
// disjoint scopes that declare the same name share one slot —
|
||||||
// so `escape` in wwdump (three `let cp: pos;` across separate
|
// so `escape` in wwdump (three `let cp: pos;` across separate
|
||||||
// branches) reserves one slot, not three. scan_locals does
|
// branches) reserves one slot, not three. scan_locals does
|
||||||
@@ -4097,7 +4125,7 @@ fn fnret_lookup(c: *cgen, name: str) *node = {
|
|||||||
|
|
||||||
// ---- def-constant registry ------------------------------------------
|
// ---- def-constant registry ------------------------------------------
|
||||||
//
|
//
|
||||||
// `def NAME: T = LIT;` becomes a DATA symbol the C-side 6c emits; an
|
// `def NAME: T = LIT;` becomes a DATA symbol the C-side w6c emits; an
|
||||||
// ident reference loads it via `MOVQ NAME(SB), AX`. We collect them at
|
// ident reference loads it via `MOVQ NAME(SB), AX`. We collect them at
|
||||||
// file load and consult on N_IDENT lookup.
|
// file load and consult on N_IDENT lookup.
|
||||||
|
|
||||||
@@ -4725,7 +4753,7 @@ fn node_isunsigned(c: *cgen, n: *node) bool = {
|
|||||||
// Walks the base local's declared type and pulls the element
|
// Walks the base local's declared type and pulls the element
|
||||||
// out — *u8 → u8, [N]u32 → u32, []u64 → u64. Without this the
|
// out — *u8 → u8, [N]u32 → u32, []u64 → u64. Without this the
|
||||||
// compare-codegen for `p[i] >= 48u8` falls back to signed JGE
|
// compare-codegen for `p[i] >= 48u8` falls back to signed JGE
|
||||||
// instead of JAE, diverging from C 6c on byte indexing.
|
// instead of JAE, diverging from C w6c on byte indexing.
|
||||||
if (k == N_INDEX) {
|
if (k == N_INDEX) {
|
||||||
let base: *node = n.lhs;
|
let base: *node = n.lhs;
|
||||||
if (base != nil) {
|
if (base != nil) {
|
||||||
@@ -5198,7 +5226,7 @@ fn cgexpr(c: *cgen, n: *node) void = {
|
|||||||
// path the cgen falls through and AX retains whatever the
|
// path the cgen falls through and AX retains whatever the
|
||||||
// inner expression left there — typically the *struct pointer
|
// inner expression left there — typically the *struct pointer
|
||||||
// itself, so reads silently get the pointer value instead of
|
// itself, so reads silently get the pointer value instead of
|
||||||
// the field. (Showed up porting 6l/pass.ww.)
|
// the field. (Showed up porting w6l/pass.ww.)
|
||||||
if (lhs != nil) {
|
if (lhs != nil) {
|
||||||
if (lhs.kind == N_DOT) {
|
if (lhs.kind == N_DOT) {
|
||||||
let inner_t: *node = dot_inner_struct_ptr(c, lhs);
|
let inner_t: *node = dot_inner_struct_ptr(c, lhs);
|
||||||
@@ -5487,7 +5515,7 @@ fn cgexpr(c: *cgen, n: *node) void = {
|
|||||||
};
|
};
|
||||||
cgexpr(c, n.rhs);
|
cgexpr(c, n.rhs);
|
||||||
// Push order matches C cgen
|
// Push order matches C cgen
|
||||||
// (cmd/6c/cgen.c:1033-1041): PUSHQ AX
|
// (cmd/w6c/cgen.c:1033-1041): PUSHQ AX
|
||||||
// (ptr) first, then PUSHQ BX (len) if
|
// (ptr) first, then PUSHQ BX (len) if
|
||||||
// str, so the pop sequence is POP CX
|
// str, so the pop sequence is POP CX
|
||||||
// (len) → POP AX (ptr) → MOVQ AX,
|
// (len) → POP AX (ptr) → MOVQ AX,
|
||||||
@@ -6259,7 +6287,7 @@ fn cgstmt(c: *cgen, n: *node) void = {
|
|||||||
};
|
};
|
||||||
} else {
|
} else {
|
||||||
// Bare `let x: T;` with no initializer. C cgen
|
// Bare `let x: T;` with no initializer. C cgen
|
||||||
// (cmd/6c/cgen.c:2181-2183) zero-inits only when
|
// (cmd/w6c/cgen.c:2181-2183) zero-inits only when
|
||||||
// the underlying type's natural size is 8 — pointers,
|
// the underlying type's natural size is 8 — pointers,
|
||||||
// i64/u64, function pointers, ints. Structs/arrays/
|
// i64/u64, function pointers, ints. Structs/arrays/
|
||||||
// slices/strings/tagged/tuples are left for per-field
|
// slices/strings/tagged/tuples are left for per-field
|
||||||
@@ -6330,7 +6358,7 @@ fn cgstmt(c: *cgen, n: *node) void = {
|
|||||||
// Tuple-destructure assign: `a, b = call();`. The call's tuple
|
// Tuple-destructure assign: `a, b = call();`. The call's tuple
|
||||||
// return lands in (AX, DX); push DX to free it, store AX into
|
// return lands in (AX, DX); push DX to free it, store AX into
|
||||||
// the first lvalue, then pop DX into the second. Mirrors
|
// the first lvalue, then pop DX into the second. Mirrors
|
||||||
// cmd/6c/cgen.c:2424-2440. Lvalues beyond two are dropped (same
|
// cmd/w6c/cgen.c:2424-2440. Lvalues beyond two are dropped (same
|
||||||
// as C — no fixture uses >2 today).
|
// as C — no fixture uses >2 today).
|
||||||
if (k == N_MASSIGN) {
|
if (k == N_MASSIGN) {
|
||||||
if (n.rhs != nil) { cgexpr(c, n.rhs); };
|
if (n.rhs != nil) { cgexpr(c, n.rhs); };
|
||||||
|
|||||||
@@ -31,6 +31,8 @@ def SYS_EXECVE: i64 = 59;
|
|||||||
def SYS_EXIT: i64 = 60;
|
def SYS_EXIT: i64 = 60;
|
||||||
def SYS_WAIT4: i64 = 61;
|
def SYS_WAIT4: i64 = 61;
|
||||||
def SYS_UNLINK: i64 = 87;
|
def SYS_UNLINK: i64 = 87;
|
||||||
|
def SYS_GETCWD: i64 = 79;
|
||||||
|
def SYS_GETDENTS64: i64 = 217;
|
||||||
|
|
||||||
// open(2) flags. Linux values, matching <fcntl.h>.
|
// open(2) flags. Linux values, matching <fcntl.h>.
|
||||||
def O_RDONLY: i32 = 0;
|
def O_RDONLY: i32 = 0;
|
||||||
@@ -65,7 +67,7 @@ export fn close(fd: i32) i32 = {
|
|||||||
|
|
||||||
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
// dup2(2): make `newfd` refer to the same description as `oldfd`,
|
||||||
// closing `newfd` first if open. Returns `newfd` on success or a
|
// closing `newfd` first if open. Returns `newfd` on success or a
|
||||||
// negative errno. Used by 6c_ww to redirect stdout into an output
|
// negative errno. Used by w6c_ww to redirect stdout into an output
|
||||||
// file without changing the cgen emit path.
|
// file without changing the cgen emit path.
|
||||||
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
export fn dup2(oldfd: i32, newfd: i32) i32 = {
|
||||||
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
return syscall2(SYS_DUP2, oldfd: i64, newfd: i64): i32;
|
||||||
@@ -179,6 +181,32 @@ export fn wait4(pid: i32, status_out: *i32, options: i32, rusage: *void) i32 = {
|
|||||||
options: i64, rusage: i64): i32;
|
options: i64, rusage: i64): i32;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
// getcwd(2) — Linux flavour. Writes the NUL-terminated cwd into `buf`
|
||||||
|
// and returns the number of bytes written (including the NUL), or a
|
||||||
|
// negative errno. The driver uses it to expand `.` to the cwd's
|
||||||
|
// basename for `ww build` / `ww test`.
|
||||||
|
export fn getcwd(buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall2(SYS_GETCWD, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
|
// getdents64(2) — Linux directory enumeration. The fd must be opened
|
||||||
|
// with O_RDONLY on a directory. `buf` receives a packed sequence of
|
||||||
|
// linux_dirent64 records:
|
||||||
|
//
|
||||||
|
// struct linux_dirent64 {
|
||||||
|
// u64 d_ino; // 0..7
|
||||||
|
// i64 d_off; // 8..15
|
||||||
|
// u16 d_reclen; // 16..17 — total bytes for this record
|
||||||
|
// u8 d_type; // 18 — DT_REG/DT_DIR/...
|
||||||
|
// u8 d_name[]; // 19.. — NUL-terminated name + padding
|
||||||
|
// };
|
||||||
|
//
|
||||||
|
// Returns bytes written into `buf` (advance by d_reclen to walk),
|
||||||
|
// 0 at end-of-directory, or a negative errno.
|
||||||
|
export fn getdents64(fd: i32, buf: *u8, n: u64) i64 = {
|
||||||
|
return syscall3(SYS_GETDENTS64, fd: i64, buf: i64, n: i64);
|
||||||
|
};
|
||||||
|
|
||||||
// strconv — number↔string conversions. Decimal i64 to/from a fixed
|
// strconv — number↔string conversions. Decimal i64 to/from a fixed
|
||||||
// buffer. Two error idioms ship side by side:
|
// buffer. Two error idioms ship side by side:
|
||||||
// - Plan 9 style (atoi64): tuple `(value, ok)`. Pre-dates the
|
// - Plan 9 style (atoi64): tuple `(value, ok)`. Pre-dates the
|
||||||
@@ -406,7 +434,7 @@ export fn toupper(c: u8) u8 = {
|
|||||||
// indicating which probe broke. The 990_selfhost test asserts 42.
|
// indicating which probe broke. The 990_selfhost test asserts 42.
|
||||||
//
|
//
|
||||||
// Note: only stack-local mutable state. Top-level `let` mutation
|
// Note: only stack-local mutable state. Top-level `let` mutation
|
||||||
// requires a writable .data segment in 6l, which is a separate
|
// requires a writable .data segment in w6l, which is a separate
|
||||||
// task; until then we exercise polymorphism via ctx pointers, which
|
// task; until then we exercise polymorphism via ctx pointers, which
|
||||||
// is what the real port wants anyway.
|
// is what the real port wants anyway.
|
||||||
|
|
||||||
@@ -423,7 +451,7 @@ type arena = struct {
|
|||||||
};
|
};
|
||||||
|
|
||||||
// In-place init. Returning a 24-byte struct by value isn't yet
|
// In-place init. Returning a 24-byte struct by value isn't yet
|
||||||
// supported in 6c (SysV requires a hidden return-slot pointer for
|
// supported in w6c (SysV requires a hidden return-slot pointer for
|
||||||
// structs >16 bytes), so we initialize through a pointer like the
|
// structs >16 bytes), so we initialize through a pointer like the
|
||||||
// real compiler does today.
|
// real compiler does today.
|
||||||
fn arena_init(a: *arena, buf: *u8, cap: u64) void = {
|
fn arena_init(a: *arena, buf: *u8, cap: u64) void = {
|
||||||
|
|||||||
@@ -12,7 +12,7 @@
|
|||||||
// indicating which probe broke. The 990_selfhost test asserts 42.
|
// indicating which probe broke. The 990_selfhost test asserts 42.
|
||||||
//
|
//
|
||||||
// Note: only stack-local mutable state. Top-level `let` mutation
|
// Note: only stack-local mutable state. Top-level `let` mutation
|
||||||
// requires a writable .data segment in 6l, which is a separate
|
// requires a writable .data segment in w6l, which is a separate
|
||||||
// task; until then we exercise polymorphism via ctx pointers, which
|
// task; until then we exercise polymorphism via ctx pointers, which
|
||||||
// is what the real port wants anyway.
|
// is what the real port wants anyway.
|
||||||
|
|
||||||
@@ -29,7 +29,7 @@ type arena = struct {
|
|||||||
};
|
};
|
||||||
|
|
||||||
// In-place init. Returning a 24-byte struct by value isn't yet
|
// In-place init. Returning a 24-byte struct by value isn't yet
|
||||||
// supported in 6c (SysV requires a hidden return-slot pointer for
|
// supported in w6c (SysV requires a hidden return-slot pointer for
|
||||||
// structs >16 bytes), so we initialize through a pointer like the
|
// structs >16 bytes), so we initialize through a pointer like the
|
||||||
// real compiler does today.
|
// real compiler does today.
|
||||||
fn arena_init(a: *arena, buf: *u8, cap: u64) void = {
|
fn arena_init(a: *arena, buf: *u8, cap: u64) void = {
|
||||||
|
|||||||
@@ -3,7 +3,7 @@
|
|||||||
// `type NAME = TYPE;` (alias + struct), top-level `let NAME: TYPE = LIT;`.
|
// `type NAME = TYPE;` (alias + struct), top-level `let NAME: TYPE = LIT;`.
|
||||||
//
|
//
|
||||||
// Function declarations are still recovered past — the body parser
|
// Function declarations are still recovered past — the body parser
|
||||||
// is the next major chunk. See selfhost/cmd/wwc/parse.ww header.
|
// is the next major chunk. See selfhost/cmd/wcc/parse.ww header.
|
||||||
|
|
||||||
use os;
|
use os;
|
||||||
use mem;
|
use mem;
|
||||||
|
|||||||
4
test/run
4
test/run
@@ -2,7 +2,7 @@
|
|||||||
# test/run — driver for `make test`. Plan 9 rc-flavoured but plain sh.
|
# test/run — driver for `make test`. Plan 9 rc-flavoured but plain sh.
|
||||||
#
|
#
|
||||||
# Walks the test/ tree:
|
# Walks the test/ tree:
|
||||||
# test/wwc/<NNN>_<name>.c → out/bin/test_<name> binary, run it.
|
# test/wcc/<NNN>_<name>.c → out/bin/test_<name> binary, run it.
|
||||||
# test/lang/<phase>/*.ww → compile/run via $WW, compare stdout/exit
|
# test/lang/<phase>/*.ww → compile/run via $WW, compare stdout/exit
|
||||||
# with header comments (// expected: ...).
|
# with header comments (// expected: ...).
|
||||||
# Exit non-zero on first failure.
|
# Exit non-zero on first failure.
|
||||||
@@ -16,7 +16,7 @@ fail=0
|
|||||||
ran=0
|
ran=0
|
||||||
|
|
||||||
# ---- C-side unit tests --------------------------------------------------
|
# ---- C-side unit tests --------------------------------------------------
|
||||||
for t in test/wwc/*.c; do
|
for t in test/wcc/*.c; do
|
||||||
[ -f "$t" ] || continue
|
[ -f "$t" ] || continue
|
||||||
name=${t##*/}
|
name=${t##*/}
|
||||||
name=${name%.c}
|
name=${name%.c}
|
||||||
|
|||||||
@@ -2,7 +2,7 @@
|
|||||||
* 000_smoke — Phase 0 smoke test.
|
* 000_smoke — Phase 0 smoke test.
|
||||||
*
|
*
|
||||||
* Asserts:
|
* Asserts:
|
||||||
* - libwwc symbols (newarena/amalloc/freearena, fatal/errorf/warnf)
|
* - libwcc symbols (newarena/amalloc/freearena, fatal/errorf/warnf)
|
||||||
* are linkable.
|
* are linkable.
|
||||||
* - `ww -V` exits 0 and prints the configured version.
|
* - `ww -V` exits 0 and prints the configured version.
|
||||||
*/
|
*/
|
||||||
@@ -22,7 +22,7 @@ run6c(const char *src, char **out)
|
|||||||
char cmd[256];
|
char cmd[256];
|
||||||
const char *bin = getenv("BIN");
|
const char *bin = getenv("BIN");
|
||||||
if (!bin) bin = "out/bin";
|
if (!bin) bin = "out/bin";
|
||||||
snprintf(cmd, sizeof cmd, "%s/6c %s 2>&1", bin, path);
|
snprintf(cmd, sizeof cmd, "%s/w6c %s 2>&1", bin, path);
|
||||||
FILE *p = popen(cmd, "r");
|
FILE *p = popen(cmd, "r");
|
||||||
if (p == NULL) { unlink(path); return -1; }
|
if (p == NULL) { unlink(path); return -1; }
|
||||||
size_t cap = 4096, n = 0;
|
size_t cap = 4096, n = 0;
|
||||||
@@ -72,7 +72,7 @@ main(void)
|
|||||||
char *out = NULL;
|
char *out = NULL;
|
||||||
int rc = run6c(rows[i].src, &out);
|
int rc = run6c(rows[i].src, &out);
|
||||||
if (rc != 0) {
|
if (rc != 0) {
|
||||||
fprintf(stderr, "row %d: 6c rc=%d\n", i, rc);
|
fprintf(stderr, "row %d: w6c rc=%d\n", i, rc);
|
||||||
fail++;
|
fail++;
|
||||||
free(out);
|
free(out);
|
||||||
continue;
|
continue;
|
||||||
@@ -84,7 +84,7 @@ main(void)
|
|||||||
}
|
}
|
||||||
free(out);
|
free(out);
|
||||||
}
|
}
|
||||||
if (fail) { fprintf(stderr, "%d/%d 6c tests failed\n", fail, n); return 1; }
|
if (fail) { fprintf(stderr, "%d/%d w6c tests failed\n", fail, n); return 1; }
|
||||||
printf("6c: %d/%d ok\n", n, n);
|
printf("w6c: %d/%d ok\n", n, n);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
@@ -1,6 +1,6 @@
|
|||||||
/*
|
/*
|
||||||
* 500_asm — assembler smoke. Drive 6c on a tiny program, feed the
|
* 500_asm — assembler smoke. Drive w6c on a tiny program, feed the
|
||||||
* output to 6a, then read back the .o magic to confirm we produced
|
* output to w6a, then read back the .o magic to confirm we produced
|
||||||
* a valid ELF64 relocatable object.
|
* a valid ELF64 relocatable object.
|
||||||
*/
|
*/
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
@@ -39,10 +39,10 @@ main(void)
|
|||||||
fclose(f);
|
fclose(f);
|
||||||
|
|
||||||
char cmd[512];
|
char cmd[512];
|
||||||
snprintf(cmd, sizeof cmd, "%s/6c -o %s %s", bin, asmf, src);
|
snprintf(cmd, sizeof cmd, "%s/w6c -o %s %s", bin, asmf, src);
|
||||||
if (run(cmd) != 0) { fprintf(stderr, "6c fail: %s\n", programs[i]); fail++; continue; }
|
if (run(cmd) != 0) { fprintf(stderr, "w6c fail: %s\n", programs[i]); fail++; continue; }
|
||||||
snprintf(cmd, sizeof cmd, "%s/6a -o %s %s", bin, obj, asmf);
|
snprintf(cmd, sizeof cmd, "%s/w6a -o %s %s", bin, obj, asmf);
|
||||||
if (run(cmd) != 0) { fprintf(stderr, "6a fail: %s\n", programs[i]); fail++; continue; }
|
if (run(cmd) != 0) { fprintf(stderr, "w6a fail: %s\n", programs[i]); fail++; continue; }
|
||||||
|
|
||||||
FILE *of = fopen(obj, "rb");
|
FILE *of = fopen(obj, "rb");
|
||||||
if (of == NULL) { fail++; continue; }
|
if (of == NULL) { fail++; continue; }
|
||||||
@@ -56,7 +56,7 @@ main(void)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
unlink(src); unlink(asmf); unlink(obj);
|
unlink(src); unlink(asmf); unlink(obj);
|
||||||
if (fail) { fprintf(stderr, "%d/%d 6a tests failed\n", fail, n); return 1; }
|
if (fail) { fprintf(stderr, "%d/%d w6a tests failed\n", fail, n); return 1; }
|
||||||
printf("6a: %d/%d ok\n", n, n);
|
printf("w6a: %d/%d ok\n", n, n);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* 600_6l — linker smoke. Drive 6c → 6a → 6l on a tiny program,
|
* 600_6l — linker smoke. Drive w6c → w6a → w6l on a tiny program,
|
||||||
* confirm the result is a static ELF executable with no PT_INTERP.
|
* confirm the result is a static ELF executable with no PT_INTERP.
|
||||||
*/
|
*/
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
@@ -24,12 +24,12 @@ main(void)
|
|||||||
fclose(f);
|
fclose(f);
|
||||||
|
|
||||||
char cmd[1024];
|
char cmd[1024];
|
||||||
snprintf(cmd, sizeof cmd, "%s/6c -o %s %s", bin, asmf, src);
|
snprintf(cmd, sizeof cmd, "%s/w6c -o %s %s", bin, asmf, src);
|
||||||
if (system(cmd) != 0) { fprintf(stderr, "6c failed\n"); return 1; }
|
if (system(cmd) != 0) { fprintf(stderr, "w6c failed\n"); return 1; }
|
||||||
snprintf(cmd, sizeof cmd, "%s/6a -o %s %s", bin, obj, asmf);
|
snprintf(cmd, sizeof cmd, "%s/w6a -o %s %s", bin, obj, asmf);
|
||||||
if (system(cmd) != 0) { fprintf(stderr, "6a failed\n"); return 1; }
|
if (system(cmd) != 0) { fprintf(stderr, "w6a failed\n"); return 1; }
|
||||||
snprintf(cmd, sizeof cmd, "%s/6l -o %s %s", bin, exe, obj);
|
snprintf(cmd, sizeof cmd, "%s/w6l -o %s %s", bin, exe, obj);
|
||||||
if (system(cmd) != 0) { fprintf(stderr, "6l failed\n"); return 1; }
|
if (system(cmd) != 0) { fprintf(stderr, "w6l failed\n"); return 1; }
|
||||||
|
|
||||||
/* validate ELF magic + e_type=EXEC */
|
/* validate ELF magic + e_type=EXEC */
|
||||||
FILE *of = fopen(exe, "rb");
|
FILE *of = fopen(exe, "rb");
|
||||||
@@ -62,6 +62,6 @@ main(void)
|
|||||||
}
|
}
|
||||||
|
|
||||||
unlink(src); unlink(asmf); unlink(obj); unlink(exe);
|
unlink(src); unlink(asmf); unlink(obj); unlink(exe);
|
||||||
printf("6l: ok\n");
|
printf("w6l: ok\n");
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
@@ -4,7 +4,7 @@
|
|||||||
* undefined external. Linking should pull only the needed member;
|
* undefined external. Linking should pull only the needed member;
|
||||||
* the other one's bad reference must NOT cause a link error.
|
* the other one's bad reference must NOT cause a link error.
|
||||||
*
|
*
|
||||||
* If 6l were still pulling all members, this test would fail with
|
* If w6l were still pulling all members, this test would fail with
|
||||||
* "undefined reference to 'this_symbol_does_not_exist'".
|
* "undefined reference to 'this_symbol_does_not_exist'".
|
||||||
*/
|
*/
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
@@ -56,11 +56,11 @@ main(void)
|
|||||||
|
|
||||||
char cmd[2048];
|
char cmd[2048];
|
||||||
snprintf(cmd, sizeof cmd,
|
snprintf(cmd, sizeof cmd,
|
||||||
"set -e; cd %s && %s/6c -o lib_good.s lib_good.ww && "
|
"set -e; cd %s && %s/w6c -o lib_good.s lib_good.ww && "
|
||||||
"%s/6c -o lib_bad.s lib_bad.ww && "
|
"%s/w6c -o lib_bad.s lib_bad.ww && "
|
||||||
"%s/6a -o lib_good.o lib_good.s && %s/6a -o lib_bad.o lib_bad.s && "
|
"%s/w6a -o lib_good.o lib_good.s && %s/w6a -o lib_bad.o lib_bad.s && "
|
||||||
"ar rcs libfoo.a lib_good.o lib_bad.o && "
|
"ar rcs libfoo.a lib_good.o lib_bad.o && "
|
||||||
"%s/6c -o m.s m.ww && %s/6a -o m.o m.s",
|
"%s/w6c -o m.s m.ww && %s/w6a -o m.o m.s",
|
||||||
dir, bin, bin, bin, bin, bin, bin);
|
dir, bin, bin, bin, bin, bin, bin);
|
||||||
if (run(cmd) != 0) { fprintf(stderr, "build failed\n"); return 1; }
|
if (run(cmd) != 0) { fprintf(stderr, "build failed\n"); return 1; }
|
||||||
|
|
||||||
@@ -69,7 +69,7 @@ main(void)
|
|||||||
snprintf(startobj, sizeof startobj, "%s/../obj/rt/start.o", bin);
|
snprintf(startobj, sizeof startobj, "%s/../obj/rt/start.o", bin);
|
||||||
|
|
||||||
snprintf(cmd, sizeof cmd,
|
snprintf(cmd, sizeof cmd,
|
||||||
"%s/6l -o %s/m %s/m.o %s %s/libfoo.a 2>%s/link.err",
|
"%s/w6l -o %s/m %s/m.o %s %s/libfoo.a 2>%s/link.err",
|
||||||
bin, dir, dir, startobj, dir, dir);
|
bin, dir, dir, startobj, dir, dir);
|
||||||
if (run(cmd) != 0) {
|
if (run(cmd) != 0) {
|
||||||
FILE *ef = fopen("/dev/null", "r");
|
FILE *ef = fopen("/dev/null", "r");
|
||||||
@@ -22,7 +22,7 @@ run6c(const char *bin, const char *src)
|
|||||||
fclose(f);
|
fclose(f);
|
||||||
|
|
||||||
char cmd[512];
|
char cmd[512];
|
||||||
snprintf(cmd, sizeof cmd, "%s/6c %s 2>&1", bin, path);
|
snprintf(cmd, sizeof cmd, "%s/w6c %s 2>&1", bin, path);
|
||||||
FILE *p = popen(cmd, "r");
|
FILE *p = popen(cmd, "r");
|
||||||
size_t cap = 4096, n = 0;
|
size_t cap = 4096, n = 0;
|
||||||
char *buf = malloc(cap);
|
char *buf = malloc(cap);
|
||||||
@@ -66,10 +66,10 @@ main(void)
|
|||||||
char path[256];
|
char path[256];
|
||||||
snprintf(path, sizeof path, "%s/../../lib/c/libc/libc.ww", bin);
|
snprintf(path, sizeof path, "%s/../../lib/c/libc/libc.ww", bin);
|
||||||
char cmd[512];
|
char cmd[512];
|
||||||
snprintf(cmd, sizeof cmd, "%s/6c %s > /dev/null 2>&1", bin, path);
|
snprintf(cmd, sizeof cmd, "%s/w6c %s > /dev/null 2>&1", bin, path);
|
||||||
int rc = system(cmd);
|
int rc = system(cmd);
|
||||||
if (rc != 0) {
|
if (rc != 0) {
|
||||||
fprintf(stderr, "ffi: 6c failed on libc.ww (rc=%d)\n", rc);
|
fprintf(stderr, "ffi: w6c failed on libc.ww (rc=%d)\n", rc);
|
||||||
fail++;
|
fail++;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* 810_dyn — end-to-end test of 6l's dynamic linker.
|
* 810_dyn — end-to-end test of w6l's dynamic linker.
|
||||||
*
|
*
|
||||||
* Drives `ww build -L /usr/lib -l c` over a small ww program that
|
* Drives `ww build -L /usr/lib -l c` over a small ww program that
|
||||||
* binds libc symbols via @symbol, then runs the produced binary and
|
* binds libc symbols via @symbol, then runs the produced binary and
|
||||||
@@ -51,7 +51,7 @@ main(void)
|
|||||||
for (int i = 0; modules[i]; i++, n++) {
|
for (int i = 0; modules[i]; i++, n++) {
|
||||||
char path[1024], cmd[2048];
|
char path[1024], cmd[2048];
|
||||||
snprintf(path, sizeof path, "%s/%s", cwd, modules[i]);
|
snprintf(path, sizeof path, "%s/%s", cwd, modules[i]);
|
||||||
snprintf(cmd, sizeof cmd, "%s/6c %s > /dev/null 2>&1",
|
snprintf(cmd, sizeof cmd, "%s/w6c %s > /dev/null 2>&1",
|
||||||
bin, path);
|
bin, path);
|
||||||
int rc = system(cmd);
|
int rc = system(cmd);
|
||||||
if (rc != 0) {
|
if (rc != 0) {
|
||||||
@@ -2,7 +2,7 @@
|
|||||||
* 990_selfhost — phase-10 marker test. Three probes:
|
* 990_selfhost — phase-10 marker test. Three probes:
|
||||||
*
|
*
|
||||||
* 1. The selfhost stubs (mem.ww, err.ww) must parse, typecheck and
|
* 1. The selfhost stubs (mem.ww, err.ww) must parse, typecheck and
|
||||||
* codegen via C-side `6c`.
|
* codegen via C-side `w6c`.
|
||||||
*
|
*
|
||||||
* 2. selfhost/test/smoke.ww — an actual ww program exercising the
|
* 2. selfhost/test/smoke.ww — an actual ww program exercising the
|
||||||
* patterns the real port will use (bump arena, error union,
|
* patterns the real port will use (bump arena, error union,
|
||||||
@@ -65,13 +65,13 @@ slurp(const char *path, char **outbuf, size_t *outlen)
|
|||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Probe 1: each file must compile through `6c`. */
|
/* Probe 1: each file must compile through `w6c`. */
|
||||||
static int
|
static int
|
||||||
probe_codegen(const char *bin)
|
probe_codegen(const char *bin)
|
||||||
{
|
{
|
||||||
static const char *files[] = {
|
static const char *files[] = {
|
||||||
"selfhost/cmd/wwc/mem.ww",
|
"selfhost/cmd/wcc/mem.ww",
|
||||||
"selfhost/cmd/wwc/err.ww",
|
"selfhost/cmd/wcc/err.ww",
|
||||||
NULL,
|
NULL,
|
||||||
};
|
};
|
||||||
char cwd[1024];
|
char cwd[1024];
|
||||||
@@ -80,7 +80,7 @@ probe_codegen(const char *bin)
|
|||||||
for (int i = 0; files[i]; i++) {
|
for (int i = 0; files[i]; i++) {
|
||||||
char cmd[2048];
|
char cmd[2048];
|
||||||
snprintf(cmd, sizeof cmd,
|
snprintf(cmd, sizeof cmd,
|
||||||
"%s/6c %s/%s > /dev/null 2>&1", bin, cwd, files[i]);
|
"%s/w6c %s/%s > /dev/null 2>&1", bin, cwd, files[i]);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "codegen FAIL: %s\n", files[i]);
|
fprintf(stderr, "codegen FAIL: %s\n", files[i]);
|
||||||
fail++;
|
fail++;
|
||||||
@@ -169,12 +169,12 @@ static int
|
|||||||
probe_dump_diff(const char *bin)
|
probe_dump_diff(const char *bin)
|
||||||
{
|
{
|
||||||
const char *tok_inputs[] = {
|
const char *tok_inputs[] = {
|
||||||
"selfhost/cmd/wwc/mem.ww",
|
"selfhost/cmd/wcc/mem.ww",
|
||||||
"selfhost/cmd/wwc/err.ww",
|
"selfhost/cmd/wcc/err.ww",
|
||||||
"selfhost/cmd/wwc/lex.ww",
|
"selfhost/cmd/wcc/lex.ww",
|
||||||
"selfhost/cmd/wwc/tok.ww",
|
"selfhost/cmd/wcc/tok.ww",
|
||||||
"selfhost/cmd/wwc/ast.ww",
|
"selfhost/cmd/wcc/ast.ww",
|
||||||
"selfhost/cmd/wwc/parse.ww",
|
"selfhost/cmd/wcc/parse.ww",
|
||||||
"selfhost/cmd/wwdump/main.ww",
|
"selfhost/cmd/wwdump/main.ww",
|
||||||
"selfhost/test/smoke.ww",
|
"selfhost/test/smoke.ww",
|
||||||
NULL,
|
NULL,
|
||||||
@@ -186,16 +186,16 @@ probe_dump_diff(const char *bin)
|
|||||||
* against the C parser on every selfhost file plus the stdlib. */
|
* against the C parser on every selfhost file plus the stdlib. */
|
||||||
const char *ast_inputs[] = {
|
const char *ast_inputs[] = {
|
||||||
"selfhost/test/uses.ww",
|
"selfhost/test/uses.ww",
|
||||||
"selfhost/cmd/wwc/err.ww",
|
"selfhost/cmd/wcc/err.ww",
|
||||||
"selfhost/cmd/wwc/mem.ww",
|
"selfhost/cmd/wcc/mem.ww",
|
||||||
"selfhost/cmd/wwc/lex.ww",
|
"selfhost/cmd/wcc/lex.ww",
|
||||||
"selfhost/cmd/wwc/tok.ww",
|
"selfhost/cmd/wcc/tok.ww",
|
||||||
"selfhost/cmd/wwc/ast.ww",
|
"selfhost/cmd/wcc/ast.ww",
|
||||||
"selfhost/cmd/wwc/parse.ww",
|
"selfhost/cmd/wcc/parse.ww",
|
||||||
"selfhost/cmd/wwc/typ.ww",
|
"selfhost/cmd/wcc/typ.ww",
|
||||||
"selfhost/cmd/wwc/sym.ww",
|
"selfhost/cmd/wcc/sym.ww",
|
||||||
"selfhost/cmd/wwc/check.ww",
|
"selfhost/cmd/wcc/check.ww",
|
||||||
"selfhost/cmd/wwc/cgen.ww",
|
"selfhost/cmd/wcc/cgen.ww",
|
||||||
"selfhost/cmd/wwdump/main.ww",
|
"selfhost/cmd/wwdump/main.ww",
|
||||||
"selfhost/test/smoke.ww",
|
"selfhost/test/smoke.ww",
|
||||||
"lib/strconv/strconv.ww",
|
"lib/strconv/strconv.ww",
|
||||||
@@ -226,7 +226,7 @@ probe_dump_diff(const char *bin)
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* Probe 5: ww-side cgen (wwdump_ww -c) emits Plan 9 amd64 asm. For
|
/* Probe 5: ww-side cgen (wwdump_ww -c) emits Plan 9 amd64 asm. For
|
||||||
* each fixture we (a) diff the ww asm against C-side 6c and (b)
|
* each fixture we (a) diff the ww asm against C-side w6c and (b)
|
||||||
* assemble + link + run the ww output and compare exit codes. Both
|
* assemble + link + run the ww output and compare exit codes. Both
|
||||||
* must succeed. The cgen port handles literals, +/-/star/slash,
|
* must succeed. The cgen port handles literals, +/-/star/slash,
|
||||||
* compound assignment, idents, calls, if/else, for loops, and
|
* compound assignment, idents, calls, if/else, for loops, and
|
||||||
@@ -349,7 +349,7 @@ probe_ww_compile(const char *bin)
|
|||||||
/* Chained N_DOT: o.ptr_to_inner.val (read field through a
|
/* Chained N_DOT: o.ptr_to_inner.val (read field through a
|
||||||
* pointer-to-struct field). Pre-fix the cgen fell through
|
* pointer-to-struct field). Pre-fix the cgen fell through
|
||||||
* silently and returned the inner pointer instead of the
|
* silently and returned the inner pointer instead of the
|
||||||
* dereferenced field. Surfaced porting 6l/pass.ww. */
|
* dereferenced field. Surfaced porting w6l/pass.ww. */
|
||||||
{ "@symbol(\"rt_alloc\") fn rt_alloc(n: u64) *void;\n"
|
{ "@symbol(\"rt_alloc\") fn rt_alloc(n: u64) *void;\n"
|
||||||
"type inner = struct { val: u64 };\n"
|
"type inner = struct { val: u64 };\n"
|
||||||
"type outer = struct { p: *inner };\n"
|
"type outer = struct { p: *inner };\n"
|
||||||
@@ -384,7 +384,7 @@ probe_ww_compile(const char *bin)
|
|||||||
fprintf(stderr, "ww-compile prog %d: wwdump_ww -c errored\n", i);
|
fprintf(stderr, "ww-compile prog %d: wwdump_ww -c errored\n", i);
|
||||||
fail++; goto cleanup;
|
fail++; goto cleanup;
|
||||||
}
|
}
|
||||||
snprintf(cmd, sizeof cmd, "%s/6c %s > %s 2>/dev/null", bin, src, cs);
|
snprintf(cmd, sizeof cmd, "%s/w6c %s > %s 2>/dev/null", bin, src, cs);
|
||||||
runwait(cmd);
|
runwait(cmd);
|
||||||
|
|
||||||
char *bw = NULL, *bc = NULL;
|
char *bw = NULL, *bc = NULL;
|
||||||
@@ -398,15 +398,15 @@ probe_ww_compile(const char *bin)
|
|||||||
}
|
}
|
||||||
free(bw); free(bc);
|
free(bw); free(bc);
|
||||||
|
|
||||||
snprintf(cmd, sizeof cmd, "%s/6a -o %s %s 2>/dev/null", bin, obj, wws);
|
snprintf(cmd, sizeof cmd, "%s/w6a -o %s %s 2>/dev/null", bin, obj, wws);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "ww-compile prog %d: 6a failed\n", i);
|
fprintf(stderr, "ww-compile prog %d: w6a failed\n", i);
|
||||||
fail++; goto cleanup;
|
fail++; goto cleanup;
|
||||||
}
|
}
|
||||||
snprintf(cmd, sizeof cmd, "%s/6l -o %s %s %s 2>/dev/null",
|
snprintf(cmd, sizeof cmd, "%s/w6l -o %s %s %s 2>/dev/null",
|
||||||
bin, exe, obj, rt);
|
bin, exe, obj, rt);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "ww-compile prog %d: 6l failed\n", i);
|
fprintf(stderr, "ww-compile prog %d: w6l failed\n", i);
|
||||||
fail++; goto cleanup;
|
fail++; goto cleanup;
|
||||||
}
|
}
|
||||||
int rc = runwait(exe);
|
int rc = runwait(exe);
|
||||||
@@ -433,9 +433,9 @@ probe_resolve(const char *bin)
|
|||||||
char cwd[1024];
|
char cwd[1024];
|
||||||
if (getcwd(cwd, sizeof cwd) == NULL) return -1;
|
if (getcwd(cwd, sizeof cwd) == NULL) return -1;
|
||||||
const char *complete[] = {
|
const char *complete[] = {
|
||||||
"selfhost/cmd/wwc/err.ww",
|
"selfhost/cmd/wcc/err.ww",
|
||||||
"selfhost/cmd/wwc/mem.ww",
|
"selfhost/cmd/wcc/mem.ww",
|
||||||
"selfhost/cmd/wwc/tok.ww",
|
"selfhost/cmd/wcc/tok.ww",
|
||||||
"selfhost/test/smoke.ww",
|
"selfhost/test/smoke.ww",
|
||||||
NULL,
|
NULL,
|
||||||
};
|
};
|
||||||
@@ -463,8 +463,8 @@ probe_dump_stable(const char *bin)
|
|||||||
char cwd[1024];
|
char cwd[1024];
|
||||||
if (getcwd(cwd, sizeof cwd) == NULL) return -1;
|
if (getcwd(cwd, sizeof cwd) == NULL) return -1;
|
||||||
const char *inputs[] = {
|
const char *inputs[] = {
|
||||||
"selfhost/cmd/wwc/mem.ww",
|
"selfhost/cmd/wcc/mem.ww",
|
||||||
"selfhost/cmd/wwc/err.ww",
|
"selfhost/cmd/wcc/err.ww",
|
||||||
"selfhost/test/smoke.ww",
|
"selfhost/test/smoke.ww",
|
||||||
NULL,
|
NULL,
|
||||||
};
|
};
|
||||||
@@ -540,19 +540,19 @@ probe_bootstrap_fixed_point(const char *bin)
|
|||||||
"%s/wwdump_ww -c %s/selfhost/cmd/wwdump/main.combined.ww > %s 2>/dev/null",
|
"%s/wwdump_ww -c %s/selfhost/cmd/wwdump/main.combined.ww > %s 2>/dev/null",
|
||||||
bin, cwd, ww2s);
|
bin, cwd, ww2s);
|
||||||
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: ww1 self-compile\n"); fail++; goto cleanup; }
|
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: ww1 self-compile\n"); fail++; goto cleanup; }
|
||||||
snprintf(cmd, sizeof cmd, "%s/6a -o %s %s 2>/dev/null", bin, ww2o, ww2s);
|
snprintf(cmd, sizeof cmd, "%s/w6a -o %s %s 2>/dev/null", bin, ww2o, ww2s);
|
||||||
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: 6a ww2.s\n"); fail++; goto cleanup; }
|
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: w6a ww2.s\n"); fail++; goto cleanup; }
|
||||||
snprintf(cmd, sizeof cmd, "%s/6l -o %s %s %s 2>/dev/null", bin, ww2e, ww2o, rt);
|
snprintf(cmd, sizeof cmd, "%s/w6l -o %s %s %s 2>/dev/null", bin, ww2e, ww2o, rt);
|
||||||
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: 6l ww2\n"); fail++; goto cleanup; }
|
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: w6l ww2\n"); fail++; goto cleanup; }
|
||||||
/* ww2 -> ww3 */
|
/* ww2 -> ww3 */
|
||||||
snprintf(cmd, sizeof cmd,
|
snprintf(cmd, sizeof cmd,
|
||||||
"%s -c %s/selfhost/cmd/wwdump/main.combined.ww > %s 2>/dev/null",
|
"%s -c %s/selfhost/cmd/wwdump/main.combined.ww > %s 2>/dev/null",
|
||||||
ww2e, cwd, ww3s);
|
ww2e, cwd, ww3s);
|
||||||
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: ww2 self-compile\n"); fail++; goto cleanup; }
|
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: ww2 self-compile\n"); fail++; goto cleanup; }
|
||||||
snprintf(cmd, sizeof cmd, "%s/6a -o %s %s 2>/dev/null", bin, ww3o, ww3s);
|
snprintf(cmd, sizeof cmd, "%s/w6a -o %s %s 2>/dev/null", bin, ww3o, ww3s);
|
||||||
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: 6a ww3.s\n"); fail++; goto cleanup; }
|
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: w6a ww3.s\n"); fail++; goto cleanup; }
|
||||||
snprintf(cmd, sizeof cmd, "%s/6l -o %s %s %s 2>/dev/null", bin, ww3e, ww3o, rt);
|
snprintf(cmd, sizeof cmd, "%s/w6l -o %s %s %s 2>/dev/null", bin, ww3e, ww3o, rt);
|
||||||
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: 6l ww3\n"); fail++; goto cleanup; }
|
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: w6l ww3\n"); fail++; goto cleanup; }
|
||||||
/* The fixed-point check: ww2.s == ww3.s, ww2 == ww3. */
|
/* The fixed-point check: ww2.s == ww3.s, ww2 == ww3. */
|
||||||
snprintf(cmd, sizeof cmd, "cmp -s %s %s", ww2s, ww3s);
|
snprintf(cmd, sizeof cmd, "cmp -s %s %s", ww2s, ww3s);
|
||||||
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: ww2.s != ww3.s (no fixed point)\n"); fail++; }
|
if (runwait(cmd) != 0) { fprintf(stderr, "fp FAIL: ww2.s != ww3.s (no fixed point)\n"); fail++; }
|
||||||
@@ -566,7 +566,7 @@ cleanup:
|
|||||||
|
|
||||||
/* Probe 8: ww1 → ww2 ladder. wwdump_ww (= ww1, built by C tools)
|
/* Probe 8: ww1 → ww2 ladder. wwdump_ww (= ww1, built by C tools)
|
||||||
* compiles its own concatenated source. The output assembles + links
|
* compiles its own concatenated source. The output assembles + links
|
||||||
* via 6a/6l into ww2 (a fresh ww-built compiler binary). Confirms
|
* via w6a/w6l into ww2 (a fresh ww-built compiler binary). Confirms
|
||||||
* the full ww-cgen pipeline is functionally correct end-to-end on
|
* the full ww-cgen pipeline is functionally correct end-to-end on
|
||||||
* the entire frontend (lex+parse+check+cgen+ast+typ+sym+mem+err+
|
* the entire frontend (lex+parse+check+cgen+ast+typ+sym+mem+err+
|
||||||
* driver). Pre-fix-set this segfaulted at 5919 lines of asm; post-
|
* driver). Pre-fix-set this segfaulted at 5919 lines of asm; post-
|
||||||
@@ -592,18 +592,18 @@ probe_ww1_to_ww2(const char *bin)
|
|||||||
fail++;
|
fail++;
|
||||||
goto cleanup;
|
goto cleanup;
|
||||||
}
|
}
|
||||||
snprintf(cmd, sizeof cmd, "%s/6a -o %s %s 2>/dev/null", bin, obj_p, asm_p);
|
snprintf(cmd, sizeof cmd, "%s/w6a -o %s %s 2>/dev/null", bin, obj_p, asm_p);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "ww1->ww2 FAIL: 6a errored on ww1 output\n");
|
fprintf(stderr, "ww1->ww2 FAIL: w6a errored on ww1 output\n");
|
||||||
fail++;
|
fail++;
|
||||||
goto cleanup;
|
goto cleanup;
|
||||||
}
|
}
|
||||||
char rt[1024];
|
char rt[1024];
|
||||||
snprintf(rt, sizeof rt, "%s/../lib/libwwrt.a", bin);
|
snprintf(rt, sizeof rt, "%s/../lib/libwwrt.a", bin);
|
||||||
snprintf(cmd, sizeof cmd, "%s/6l -o %s %s %s 2>/dev/null",
|
snprintf(cmd, sizeof cmd, "%s/w6l -o %s %s %s 2>/dev/null",
|
||||||
bin, exe_p, obj_p, rt);
|
bin, exe_p, obj_p, rt);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "ww1->ww2 FAIL: 6l errored\n");
|
fprintf(stderr, "ww1->ww2 FAIL: w6l errored\n");
|
||||||
fail++;
|
fail++;
|
||||||
goto cleanup;
|
goto cleanup;
|
||||||
}
|
}
|
||||||
@@ -619,8 +619,8 @@ cleanup:
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* Probe 7: end-to-end via wwdump_ww. Use `ww build` to produce the
|
/* Probe 7: end-to-end via wwdump_ww. Use `ww build` to produce the
|
||||||
* concatenated source as a side effect, then drive ww-cgen → 6a →
|
* concatenated source as a side effect, then drive ww-cgen → w6a →
|
||||||
* 6l → run, comparing the binary's exit code to the fixture's
|
* w6l → run, comparing the binary's exit code to the fixture's
|
||||||
* declared expectation. This is the bootstrap-grade signal: it
|
* declared expectation. This is the bootstrap-grade signal: it
|
||||||
* doesn't require ww-cgen output to be byte-identical to C-cgen,
|
* doesn't require ww-cgen output to be byte-identical to C-cgen,
|
||||||
* only to be functionally correct. The byte-match probe above is
|
* only to be functionally correct. The byte-match probe above is
|
||||||
@@ -656,7 +656,7 @@ probe_ww_links(const char *bin)
|
|||||||
runwait(cmd);
|
runwait(cmd);
|
||||||
/* ww build to get the .combined.ww as a side effect. */
|
/* ww build to get the .combined.ww as a side effect. */
|
||||||
snprintf(cmd, sizeof cmd,
|
snprintf(cmd, sizeof cmd,
|
||||||
"cd %s && %s/ww build -I %s/selfhost/cmd/wwc %s >/dev/null 2>&1",
|
"cd %s && %s/ww build -I %s/selfhost/cmd/wcc %s >/dev/null 2>&1",
|
||||||
tmpdir, bin, cwd, tmpsrc);
|
tmpdir, bin, cwd, tmpsrc);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "ww-links FAIL: ww build %s\n", fix);
|
fprintf(stderr, "ww-links FAIL: ww build %s\n", fix);
|
||||||
@@ -676,19 +676,19 @@ probe_ww_links(const char *bin)
|
|||||||
fail++;
|
fail++;
|
||||||
goto cleanup;
|
goto cleanup;
|
||||||
}
|
}
|
||||||
snprintf(cmd, sizeof cmd, "%s/6a -o %s %s 2>/dev/null",
|
snprintf(cmd, sizeof cmd, "%s/w6a -o %s %s 2>/dev/null",
|
||||||
bin, wop, wsp);
|
bin, wop, wsp);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "ww-links FAIL: 6a %s\n", fix);
|
fprintf(stderr, "ww-links FAIL: w6a %s\n", fix);
|
||||||
fail++;
|
fail++;
|
||||||
goto cleanup;
|
goto cleanup;
|
||||||
}
|
}
|
||||||
char rt[1024];
|
char rt[1024];
|
||||||
snprintf(rt, sizeof rt, "%s/../lib/libwwrt.a", bin);
|
snprintf(rt, sizeof rt, "%s/../lib/libwwrt.a", bin);
|
||||||
snprintf(cmd, sizeof cmd, "%s/6l -o %s %s %s 2>/dev/null",
|
snprintf(cmd, sizeof cmd, "%s/w6l -o %s %s %s 2>/dev/null",
|
||||||
bin, wexep, wop, rt);
|
bin, wexep, wop, rt);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "ww-links FAIL: 6l %s\n", fix);
|
fprintf(stderr, "ww-links FAIL: w6l %s\n", fix);
|
||||||
fail++;
|
fail++;
|
||||||
goto cleanup;
|
goto cleanup;
|
||||||
}
|
}
|
||||||
@@ -708,16 +708,16 @@ cleanup:
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* Probe 6: ww-cgen byte-matches C-cgen on every selfhost file that
|
/* Probe 6: ww-cgen byte-matches C-cgen on every selfhost file that
|
||||||
* raw 6c can compile in isolation (no driver concatenation). The list
|
* raw w6c can compile in isolation (no driver concatenation). The list
|
||||||
* is the convergence set: when this stays empty, the cmp ww2 ww3
|
* is the convergence set: when this stays empty, the cmp ww2 ww3
|
||||||
* ceiling becomes feasible. */
|
* ceiling becomes feasible. */
|
||||||
static int
|
static int
|
||||||
probe_cgen_match(const char *bin)
|
probe_cgen_match(const char *bin)
|
||||||
{
|
{
|
||||||
const char *files[] = {
|
const char *files[] = {
|
||||||
"selfhost/cmd/wwc/mem.ww",
|
"selfhost/cmd/wcc/mem.ww",
|
||||||
"selfhost/cmd/wwc/err.ww",
|
"selfhost/cmd/wcc/err.ww",
|
||||||
"selfhost/cmd/wwc/tok.ww",
|
"selfhost/cmd/wcc/tok.ww",
|
||||||
"selfhost/test/smoke.ww",
|
"selfhost/test/smoke.ww",
|
||||||
NULL,
|
NULL,
|
||||||
};
|
};
|
||||||
@@ -728,7 +728,7 @@ probe_cgen_match(const char *bin)
|
|||||||
char a[256], b[256], cmd[2048];
|
char a[256], b[256], cmd[2048];
|
||||||
snprintf(a, sizeof a, "/tmp/wwd_cm_%d_c", getpid());
|
snprintf(a, sizeof a, "/tmp/wwd_cm_%d_c", getpid());
|
||||||
snprintf(b, sizeof b, "/tmp/wwd_cm_%d_w", getpid());
|
snprintf(b, sizeof b, "/tmp/wwd_cm_%d_w", getpid());
|
||||||
snprintf(cmd, sizeof cmd, "%s/6c %s/%s > %s 2>/dev/null",
|
snprintf(cmd, sizeof cmd, "%s/w6c %s/%s > %s 2>/dev/null",
|
||||||
bin, cwd, files[i], a);
|
bin, cwd, files[i], a);
|
||||||
runwait(cmd);
|
runwait(cmd);
|
||||||
snprintf(cmd, sizeof cmd, "%s/wwdump_ww -c %s/%s > %s 2>/dev/null",
|
snprintf(cmd, sizeof cmd, "%s/wwdump_ww -c %s/%s > %s 2>/dev/null",
|
||||||
@@ -1,15 +1,15 @@
|
|||||||
/*
|
/*
|
||||||
* 991_6a_ww — phase-10 marker for the ww-side 6a port.
|
* 991_w6a_ww — phase-10 marker for the ww-side w6a port.
|
||||||
*
|
*
|
||||||
* Diffs the C-built `6a` against the ww-built `6a_ww` on a corpus of
|
* Diffs the C-built `w6a` against the ww-built `w6a_ww` on a corpus of
|
||||||
* .s files. Both must produce byte-identical ELF .o output. The corpus
|
* .s files. Both must produce byte-identical ELF .o output. The corpus
|
||||||
* spans:
|
* spans:
|
||||||
* - rt/X.s hand-written runtime; small, varied operands
|
* - rt/X.s hand-written runtime; small, varied operands
|
||||||
* - generated .s from the existing selfhost cgen pipeline
|
* - generated .s from the existing selfhost cgen pipeline
|
||||||
* (wwdump/6a/6l main.s) - large, exercises
|
* (wwdump/w6a/w6l main.s) - large, exercises
|
||||||
* every encoding path 6c emits
|
* every encoding path w6c emits
|
||||||
*
|
*
|
||||||
* Any divergence is a port bug in selfhost/cmd/6a/.
|
* Any divergence is a port bug in selfhost/cmd/w6a/.
|
||||||
*/
|
*/
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
@@ -65,15 +65,15 @@ diff_one(const char *bin, const char *src)
|
|||||||
snprintf(co, sizeof co, "/tmp/wwa_%d_c.o", getpid());
|
snprintf(co, sizeof co, "/tmp/wwa_%d_c.o", getpid());
|
||||||
snprintf(wo, sizeof wo, "/tmp/wwa_%d_w.o", getpid());
|
snprintf(wo, sizeof wo, "/tmp/wwa_%d_w.o", getpid());
|
||||||
|
|
||||||
snprintf(cmd, sizeof cmd, "%s/6a -o %s %s 2>/dev/null", bin, co, src);
|
snprintf(cmd, sizeof cmd, "%s/w6a -o %s %s 2>/dev/null", bin, co, src);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "6a_ww FAIL: C 6a errored on %s\n", src);
|
fprintf(stderr, "w6a_ww FAIL: C w6a errored on %s\n", src);
|
||||||
unlink(co);
|
unlink(co);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
snprintf(cmd, sizeof cmd, "%s/6a_ww -o %s %s 2>/dev/null", bin, wo, src);
|
snprintf(cmd, sizeof cmd, "%s/w6a_ww -o %s %s 2>/dev/null", bin, wo, src);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "6a_ww FAIL: ww 6a errored on %s\n", src);
|
fprintf(stderr, "w6a_ww FAIL: ww w6a errored on %s\n", src);
|
||||||
unlink(co); unlink(wo);
|
unlink(co); unlink(wo);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
@@ -81,10 +81,10 @@ diff_one(const char *bin, const char *src)
|
|||||||
size_t nc = 0, nw = 0;
|
size_t nc = 0, nw = 0;
|
||||||
int rc = 0;
|
int rc = 0;
|
||||||
if (slurp(co, &bc, &nc) < 0 || slurp(wo, &bw, &nw) < 0) {
|
if (slurp(co, &bc, &nc) < 0 || slurp(wo, &bw, &nw) < 0) {
|
||||||
fprintf(stderr, "6a_ww FAIL: cannot read .o for %s\n", src);
|
fprintf(stderr, "w6a_ww FAIL: cannot read .o for %s\n", src);
|
||||||
rc = -1;
|
rc = -1;
|
||||||
} else if (nc != nw || memcmp(bc, bw, nc) != 0) {
|
} else if (nc != nw || memcmp(bc, bw, nc) != 0) {
|
||||||
fprintf(stderr, "6a_ww FAIL: %s — C %zu vs ww %zu bytes\n",
|
fprintf(stderr, "w6a_ww FAIL: %s — C %zu vs ww %zu bytes\n",
|
||||||
src, nc, nw);
|
src, nc, nw);
|
||||||
rc = -1;
|
rc = -1;
|
||||||
}
|
}
|
||||||
@@ -110,11 +110,11 @@ main(void)
|
|||||||
"rt/alloc.s",
|
"rt/alloc.s",
|
||||||
"rt/streq.s",
|
"rt/streq.s",
|
||||||
/* generated .s from the existing selfhost stack — large,
|
/* generated .s from the existing selfhost stack — large,
|
||||||
* exercises every encoding 6c emits (the only way to hit
|
* exercises every encoding w6c emits (the only way to hit
|
||||||
* the long tail of operand shapes). */
|
* the long tail of operand shapes). */
|
||||||
"selfhost/cmd/wwdump/main.s",
|
"selfhost/cmd/wwdump/main.s",
|
||||||
"selfhost/cmd/6l/main.s",
|
"selfhost/cmd/w6l/main.s",
|
||||||
"selfhost/cmd/6a/main.s",
|
"selfhost/cmd/w6a/main.s",
|
||||||
NULL,
|
NULL,
|
||||||
};
|
};
|
||||||
int fail = 0;
|
int fail = 0;
|
||||||
@@ -126,10 +126,10 @@ main(void)
|
|||||||
n++;
|
n++;
|
||||||
}
|
}
|
||||||
if (fail) {
|
if (fail) {
|
||||||
fprintf(stderr, "6a_ww: %d/%d diff(s) failed\n", fail, n);
|
fprintf(stderr, "w6a_ww: %d/%d diff(s) failed\n", fail, n);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
printf("6a_ww: byte-identical to C 6a on %d corpus files "
|
printf("w6a_ww: byte-identical to C w6a on %d corpus files "
|
||||||
"(rt/*.s + selfhost generated main.s)\n", n);
|
"(rt/*.s + selfhost generated main.s)\n", n);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
@@ -1,13 +1,13 @@
|
|||||||
/*
|
/*
|
||||||
* 992_6l_ww — phase-10 marker for the ww-side 6l port.
|
* 992_w6l_ww — phase-10 marker for the ww-side w6l port.
|
||||||
*
|
*
|
||||||
* Diffs the C-built `6l` against the ww-built `6l_ww` on a corpus of
|
* Diffs the C-built `w6l` against the ww-built `w6l_ww` on a corpus of
|
||||||
* link inputs. Both must produce byte-identical static ELF binaries.
|
* link inputs. Both must produce byte-identical static ELF binaries.
|
||||||
* The corpus mixes:
|
* The corpus mixes:
|
||||||
* - a single .o input (no archive resolution)
|
* - a single .o input (no archive resolution)
|
||||||
* - a .o + libwwrt.a link, exercising the SysV `ar` two-pass loader
|
* - a .o + libwwrt.a link, exercising the SysV `ar` two-pass loader
|
||||||
*
|
*
|
||||||
* Any divergence is a port bug in selfhost/cmd/6l/.
|
* Any divergence is a port bug in selfhost/cmd/w6l/.
|
||||||
*/
|
*/
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
@@ -65,15 +65,15 @@ diff_one(const char *bin, const char *label, const char *inputs)
|
|||||||
snprintf(co, sizeof co, "/tmp/wwl_%d_c", getpid());
|
snprintf(co, sizeof co, "/tmp/wwl_%d_c", getpid());
|
||||||
snprintf(wo, sizeof wo, "/tmp/wwl_%d_w", getpid());
|
snprintf(wo, sizeof wo, "/tmp/wwl_%d_w", getpid());
|
||||||
|
|
||||||
snprintf(cmd, sizeof cmd, "%s/6l -o %s %s 2>/dev/null", bin, co, inputs);
|
snprintf(cmd, sizeof cmd, "%s/w6l -o %s %s 2>/dev/null", bin, co, inputs);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "6l_ww FAIL: C 6l errored on %s\n", label);
|
fprintf(stderr, "w6l_ww FAIL: C w6l errored on %s\n", label);
|
||||||
unlink(co);
|
unlink(co);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
snprintf(cmd, sizeof cmd, "%s/6l_ww -o %s %s 2>/dev/null", bin, wo, inputs);
|
snprintf(cmd, sizeof cmd, "%s/w6l_ww -o %s %s 2>/dev/null", bin, wo, inputs);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "6l_ww FAIL: ww 6l errored on %s\n", label);
|
fprintf(stderr, "w6l_ww FAIL: ww w6l errored on %s\n", label);
|
||||||
unlink(co); unlink(wo);
|
unlink(co); unlink(wo);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
@@ -81,10 +81,10 @@ diff_one(const char *bin, const char *label, const char *inputs)
|
|||||||
size_t nc = 0, nw = 0;
|
size_t nc = 0, nw = 0;
|
||||||
int rc = 0;
|
int rc = 0;
|
||||||
if (slurp(co, &bc, &nc) < 0 || slurp(wo, &bw, &nw) < 0) {
|
if (slurp(co, &bc, &nc) < 0 || slurp(wo, &bw, &nw) < 0) {
|
||||||
fprintf(stderr, "6l_ww FAIL: cannot read output for %s\n", label);
|
fprintf(stderr, "w6l_ww FAIL: cannot read output for %s\n", label);
|
||||||
rc = -1;
|
rc = -1;
|
||||||
} else if (nc != nw || memcmp(bc, bw, nc) != 0) {
|
} else if (nc != nw || memcmp(bc, bw, nc) != 0) {
|
||||||
fprintf(stderr, "6l_ww FAIL: %s — C %zu vs ww %zu bytes\n",
|
fprintf(stderr, "w6l_ww FAIL: %s — C %zu vs ww %zu bytes\n",
|
||||||
label, nc, nw);
|
label, nc, nw);
|
||||||
rc = -1;
|
rc = -1;
|
||||||
}
|
}
|
||||||
@@ -112,10 +112,10 @@ main(void)
|
|||||||
* are pulled from libwwrt.a as undefs are encountered). */
|
* are pulled from libwwrt.a as undefs are encountered). */
|
||||||
{ "wwdump+libwwrt",
|
{ "wwdump+libwwrt",
|
||||||
"%s/selfhost/cmd/wwdump/main.o %s/out/lib/libwwrt.a" },
|
"%s/selfhost/cmd/wwdump/main.o %s/out/lib/libwwrt.a" },
|
||||||
{ "6a+libwwrt",
|
{ "w6a+libwwrt",
|
||||||
"%s/selfhost/cmd/6a/main.o %s/out/lib/libwwrt.a" },
|
"%s/selfhost/cmd/w6a/main.o %s/out/lib/libwwrt.a" },
|
||||||
{ "6l+libwwrt",
|
{ "w6l+libwwrt",
|
||||||
"%s/selfhost/cmd/6l/main.o %s/out/lib/libwwrt.a" },
|
"%s/selfhost/cmd/w6l/main.o %s/out/lib/libwwrt.a" },
|
||||||
{ NULL, NULL },
|
{ NULL, NULL },
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -128,10 +128,10 @@ main(void)
|
|||||||
n++;
|
n++;
|
||||||
}
|
}
|
||||||
if (fail) {
|
if (fail) {
|
||||||
fprintf(stderr, "6l_ww: %d/%d diff(s) failed\n", fail, n);
|
fprintf(stderr, "w6l_ww: %d/%d diff(s) failed\n", fail, n);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
printf("6l_ww: byte-identical to C 6l on %d corpus links "
|
printf("w6l_ww: byte-identical to C w6l on %d corpus links "
|
||||||
"(.o + libwwrt.a archive resolution)\n", n);
|
"(.o + libwwrt.a archive resolution)\n", n);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
@@ -2,7 +2,7 @@
|
|||||||
* 993_ww_ww — phase-10 marker for the ww-side driver port.
|
* 993_ww_ww — phase-10 marker for the ww-side driver port.
|
||||||
*
|
*
|
||||||
* Diffs the C-built `ww` against the ww-built `ww_ww`. Both drivers
|
* Diffs the C-built `ww` against the ww-built `ww_ww`. Both drivers
|
||||||
* orchestrate the same 6c/6a/6l, so the resulting binaries must be
|
* orchestrate the same w6c/w6a/w6l, so the resulting binaries must be
|
||||||
* byte-identical for every program in the corpus. The corpus mixes:
|
* byte-identical for every program in the corpus. The corpus mixes:
|
||||||
* - a tiny single-file program (no -I flags)
|
* - a tiny single-file program (no -I flags)
|
||||||
* - a multi-import build (selfhost/cmd/wwdump/main.ww), exercising
|
* - a multi-import build (selfhost/cmd/wwdump/main.ww), exercising
|
||||||
@@ -152,7 +152,7 @@ main(void)
|
|||||||
* regardless of the per-driver workdir. */
|
* regardless of the per-driver workdir. */
|
||||||
static char wwdump_src[2048], wwdump_inc_a[2048], wwdump_inc_b[2048];
|
static char wwdump_src[2048], wwdump_inc_a[2048], wwdump_inc_b[2048];
|
||||||
snprintf(wwdump_src, sizeof wwdump_src, "%s/selfhost/cmd/wwdump/main.ww", cwd);
|
snprintf(wwdump_src, sizeof wwdump_src, "%s/selfhost/cmd/wwdump/main.ww", cwd);
|
||||||
snprintf(wwdump_inc_a, sizeof wwdump_inc_a, "%s/selfhost/cmd/wwc", cwd);
|
snprintf(wwdump_inc_a, sizeof wwdump_inc_a, "%s/selfhost/cmd/wcc", cwd);
|
||||||
wwdump_inc_b[0] = '\0';
|
wwdump_inc_b[0] = '\0';
|
||||||
cases[1].src = wwdump_src;
|
cases[1].src = wwdump_src;
|
||||||
cases[1].inc_a = wwdump_inc_a;
|
cases[1].inc_a = wwdump_inc_a;
|
||||||
@@ -1,13 +1,13 @@
|
|||||||
/*
|
/*
|
||||||
* 994_6c_ww — phase-10 marker for the ww-side 6c port.
|
* 994_w6c_ww — phase-10 marker for the ww-side w6c port.
|
||||||
*
|
*
|
||||||
* 6c_ww is a thin packaging of selfhost/cmd/wwc/cgen.ww: it slurps a
|
* w6c_ww is a thin packaging of selfhost/cmd/wcc/cgen.ww: it slurps a
|
||||||
* .ww file, runs lex+parse+cgen, and writes Plan 9 amd64 asm to the
|
* .ww file, runs lex+parse+cgen, and writes Plan 9 amd64 asm to the
|
||||||
* file given by -o. The same cgen is reached through `wwdump_ww -c`,
|
* file given by -o. The same cgen is reached through `wwdump_ww -c`,
|
||||||
* so 6c_ww must produce byte-identical output to wwdump_ww -c on
|
* so w6c_ww must produce byte-identical output to wwdump_ww -c on
|
||||||
* every program — this test pins that.
|
* every program — this test pins that.
|
||||||
*
|
*
|
||||||
* (We do not diff against C-side `6c` here because the C compiler has
|
* (We do not diff against C-side `w6c` here because the C compiler has
|
||||||
* features the ww cgen has not yet ported — float compare, fn-address
|
* features the ww cgen has not yet ported — float compare, fn-address
|
||||||
* @symbol, indirect call. Test 990 probe 5 covers the C-vs-ww diff on
|
* @symbol, indirect call. Test 990 probe 5 covers the C-vs-ww diff on
|
||||||
* the subset that the ww cgen handles today.)
|
* the subset that the ww cgen handles today.)
|
||||||
@@ -69,13 +69,13 @@ diff_one(const char *bin, const char *label, const char *src)
|
|||||||
snprintf(cmd, sizeof cmd, "%s/wwdump_ww -c %s > %s 2>/dev/null",
|
snprintf(cmd, sizeof cmd, "%s/wwdump_ww -c %s > %s 2>/dev/null",
|
||||||
bin, src, ws);
|
bin, src, ws);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "6c_ww FAIL: wwdump_ww -c errored on %s\n", label);
|
fprintf(stderr, "w6c_ww FAIL: wwdump_ww -c errored on %s\n", label);
|
||||||
unlink(ws);
|
unlink(ws);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
snprintf(cmd, sizeof cmd, "%s/6c_ww -o %s %s 2>/dev/null", bin, cs, src);
|
snprintf(cmd, sizeof cmd, "%s/w6c_ww -o %s %s 2>/dev/null", bin, cs, src);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "6c_ww FAIL: 6c_ww errored on %s\n", label);
|
fprintf(stderr, "w6c_ww FAIL: w6c_ww errored on %s\n", label);
|
||||||
unlink(ws); unlink(cs);
|
unlink(ws); unlink(cs);
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
@@ -83,10 +83,10 @@ diff_one(const char *bin, const char *label, const char *src)
|
|||||||
size_t nw = 0, nc = 0;
|
size_t nw = 0, nc = 0;
|
||||||
int rc = 0;
|
int rc = 0;
|
||||||
if (slurp(ws, &bw, &nw) < 0 || slurp(cs, &bc, &nc) < 0) {
|
if (slurp(ws, &bw, &nw) < 0 || slurp(cs, &bc, &nc) < 0) {
|
||||||
fprintf(stderr, "6c_ww FAIL: cannot read .s for %s\n", label);
|
fprintf(stderr, "w6c_ww FAIL: cannot read .s for %s\n", label);
|
||||||
rc = -1;
|
rc = -1;
|
||||||
} else if (nw != nc || memcmp(bw, bc, nw) != 0) {
|
} else if (nw != nc || memcmp(bw, bc, nw) != 0) {
|
||||||
fprintf(stderr, "6c_ww FAIL: %s — wwdump_ww %zu vs 6c_ww %zu bytes\n",
|
fprintf(stderr, "w6c_ww FAIL: %s — wwdump_ww %zu vs w6c_ww %zu bytes\n",
|
||||||
label, nw, nc);
|
label, nw, nc);
|
||||||
rc = -1;
|
rc = -1;
|
||||||
}
|
}
|
||||||
@@ -115,7 +115,7 @@ main(void)
|
|||||||
|
|
||||||
/* In-source corpus: programs the ww-side cgen handles today.
|
/* In-source corpus: programs the ww-side cgen handles today.
|
||||||
* Mirrors probe 5 in 990_selfhost without the parts that drift
|
* Mirrors probe 5 in 990_selfhost without the parts that drift
|
||||||
* against C 6c. */
|
* against C w6c. */
|
||||||
struct { const char *label; const char *src; } progs[] = {
|
struct { const char *label; const char *src; } progs[] = {
|
||||||
{ "ret42",
|
{ "ret42",
|
||||||
"fn main() i32 = { return 42; };" },
|
"fn main() i32 = { return 42; };" },
|
||||||
@@ -147,12 +147,12 @@ main(void)
|
|||||||
};
|
};
|
||||||
|
|
||||||
/* Source-tree corpus: the same .combined.ww files the bootstrap
|
/* Source-tree corpus: the same .combined.ww files the bootstrap
|
||||||
* fixed point chews on. Confirms 6c_ww handles realistic inputs,
|
* fixed point chews on. Confirms w6c_ww handles realistic inputs,
|
||||||
* not just hand-tailored ones. */
|
* not just hand-tailored ones. */
|
||||||
const char *combined_rel[] = {
|
const char *combined_rel[] = {
|
||||||
"selfhost/cmd/wwdump/main.combined.ww",
|
"selfhost/cmd/wwdump/main.combined.ww",
|
||||||
"selfhost/cmd/6a/main.combined.ww",
|
"selfhost/cmd/w6a/main.combined.ww",
|
||||||
"selfhost/cmd/6l/main.combined.ww",
|
"selfhost/cmd/w6l/main.combined.ww",
|
||||||
"selfhost/cmd/ww/main.combined.ww",
|
"selfhost/cmd/ww/main.combined.ww",
|
||||||
NULL,
|
NULL,
|
||||||
};
|
};
|
||||||
@@ -175,10 +175,10 @@ main(void)
|
|||||||
}
|
}
|
||||||
|
|
||||||
if (fail) {
|
if (fail) {
|
||||||
fprintf(stderr, "6c_ww: %d/%d diff(s) failed\n", fail, n);
|
fprintf(stderr, "w6c_ww: %d/%d diff(s) failed\n", fail, n);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
printf("6c_ww: byte-identical to wwdump_ww -c on %d corpus inputs "
|
printf("w6c_ww: byte-identical to wwdump_ww -c on %d corpus inputs "
|
||||||
"(in-source + selfhost combined.ww)\n", n);
|
"(in-source + selfhost combined.ww)\n", n);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
/*
|
/*
|
||||||
* 995_self_rebuild — the wwstage rebuilds itself.
|
* 995_self_rebuild — the wwstage rebuilds itself.
|
||||||
*
|
*
|
||||||
* Drives ww_ww (the ww-side driver, which shells to 6c_ww/6a_ww/6l_ww)
|
* Drives ww_ww (the ww-side driver, which shells to w6c_ww/w6a_ww/w6l_ww)
|
||||||
* over each wwstage tool's source and diffs the result byte-for-byte
|
* over each wwstage tool's source and diffs the result byte-for-byte
|
||||||
* against the cstage-built binary in $BIN. A green run means the
|
* against the cstage-built binary in $BIN. A green run means the
|
||||||
* toolchain can recompile itself without touching cc, modulo the
|
* toolchain can recompile itself without touching cc, modulo the
|
||||||
@@ -59,9 +59,9 @@ slurp_eq(const char *a, const char *b)
|
|||||||
return rc;
|
return rc;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Each tool builds via `ww_ww build -I <local> -I selfhost/cmd/wwc src`.
|
/* Each tool builds via `ww_ww build -I <local> -I selfhost/cmd/wcc src`.
|
||||||
* Some tools have a local module dir (6a, 6l with sibling .ww files);
|
* Some tools have a local module dir (w6a, w6l with sibling .ww files);
|
||||||
* wwc-only tools (6c, ww, wwdump) just need the wwc -I. inc_local is
|
* wwc-only tools (w6c, ww, wwdump) just need the wwc -I. inc_local is
|
||||||
* "" for those.
|
* "" for those.
|
||||||
*/
|
*/
|
||||||
static int
|
static int
|
||||||
@@ -76,12 +76,12 @@ rebuild_one(const char *bin, const char *cwd, const char *tool,
|
|||||||
|
|
||||||
if (inc_local && inc_local[0]) {
|
if (inc_local && inc_local[0]) {
|
||||||
snprintf(cmd, sizeof cmd,
|
snprintf(cmd, sizeof cmd,
|
||||||
"cd %s && %s/ww_ww build -I %s/%s -I %s/selfhost/cmd/wwc "
|
"cd %s && %s/ww_ww build -I %s/%s -I %s/selfhost/cmd/wcc "
|
||||||
"%s/%s >/dev/null 2>&1",
|
"%s/%s >/dev/null 2>&1",
|
||||||
workdir, bin, cwd, inc_local, cwd, cwd, src_rel);
|
workdir, bin, cwd, inc_local, cwd, cwd, src_rel);
|
||||||
} else {
|
} else {
|
||||||
snprintf(cmd, sizeof cmd,
|
snprintf(cmd, sizeof cmd,
|
||||||
"cd %s && %s/ww_ww build -I %s/selfhost/cmd/wwc "
|
"cd %s && %s/ww_ww build -I %s/selfhost/cmd/wcc "
|
||||||
"%s/%s >/dev/null 2>&1",
|
"%s/%s >/dev/null 2>&1",
|
||||||
workdir, bin, cwd, cwd, src_rel);
|
workdir, bin, cwd, cwd, src_rel);
|
||||||
}
|
}
|
||||||
@@ -121,9 +121,9 @@ main(void)
|
|||||||
const char *src;
|
const char *src;
|
||||||
const char *inc_local;
|
const char *inc_local;
|
||||||
} tools[] = {
|
} tools[] = {
|
||||||
{ "6c", "selfhost/cmd/6c/main.ww", "" },
|
{ "w6c", "selfhost/cmd/w6c/main.ww", "" },
|
||||||
{ "6a", "selfhost/cmd/6a/main.ww", "selfhost/cmd/6a" },
|
{ "w6a", "selfhost/cmd/w6a/main.ww", "selfhost/cmd/w6a" },
|
||||||
{ "6l", "selfhost/cmd/6l/main.ww", "selfhost/cmd/6l" },
|
{ "w6l", "selfhost/cmd/w6l/main.ww", "selfhost/cmd/w6l" },
|
||||||
{ "ww", "selfhost/cmd/ww/main.ww", "" },
|
{ "ww", "selfhost/cmd/ww/main.ww", "" },
|
||||||
{ "wwdump", "selfhost/cmd/wwdump/main.ww", "" },
|
{ "wwdump", "selfhost/cmd/wwdump/main.ww", "" },
|
||||||
{ NULL, NULL, NULL },
|
{ NULL, NULL, NULL },
|
||||||
@@ -141,6 +141,6 @@ main(void)
|
|||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
printf("self-rebuild: %d wwstage tool(s) round-trip byte-identical "
|
printf("self-rebuild: %d wwstage tool(s) round-trip byte-identical "
|
||||||
"through ww_ww + 6c_ww + 6a_ww + 6l_ww\n", n);
|
"through ww_ww + w6c_ww + w6a_ww + w6l_ww\n", n);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
/*
|
/*
|
||||||
* 996_dyn_ww — phase-8 marker for ET_DYN linking on the ww side.
|
* 996_dyn_ww — phase-8 marker for ET_DYN linking on the ww side.
|
||||||
*
|
*
|
||||||
* Drives 6l_ww with -L/-l flags over examples/snake/snake.o and diffs
|
* Drives w6l_ww with -L/-l flags over examples/snake/snake.o and diffs
|
||||||
* the result against the C-built 6l on the same inputs. A green run
|
* the result against the C-built w6l on the same inputs. A green run
|
||||||
* means the ww-side linker emits PT_INTERP/PT_DYNAMIC binaries byte-
|
* means the ww-side linker emits PT_INTERP/PT_DYNAMIC binaries byte-
|
||||||
* for-byte identical to the C linker — i.e. the dynamic linking story
|
* for-byte identical to the C linker — i.e. the dynamic linking story
|
||||||
* is fully ported and snake no longer depends on Cstage.
|
* is fully ported and snake no longer depends on Cstage.
|
||||||
@@ -71,7 +71,7 @@ main(void)
|
|||||||
"-l ncurses -l c >/dev/null 2>&1",
|
"-l ncurses -l c >/dev/null 2>&1",
|
||||||
cwd, bin);
|
cwd, bin);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "6l_ww-dyn FAIL: cannot build snake.o via C driver\n");
|
fprintf(stderr, "w6l_ww-dyn FAIL: cannot build snake.o via C driver\n");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -79,24 +79,24 @@ main(void)
|
|||||||
snprintf(co, sizeof co, "/tmp/wwld_%d_c", getpid());
|
snprintf(co, sizeof co, "/tmp/wwld_%d_c", getpid());
|
||||||
snprintf(wo, sizeof wo, "/tmp/wwld_%d_w", getpid());
|
snprintf(wo, sizeof wo, "/tmp/wwld_%d_w", getpid());
|
||||||
|
|
||||||
/* C-side 6l with the dynamic flags. */
|
/* C-side w6l with the dynamic flags. */
|
||||||
snprintf(cmd, sizeof cmd,
|
snprintf(cmd, sizeof cmd,
|
||||||
"%s/6l -o %s %s/examples/snake/snake.o -L /usr/lib "
|
"%s/w6l -o %s %s/examples/snake/snake.o -L /usr/lib "
|
||||||
"-l ncurses -l c %s/out/lib/libwwrt.a 2>/dev/null",
|
"-l ncurses -l c %s/out/lib/libwwrt.a 2>/dev/null",
|
||||||
bin, co, cwd, cwd);
|
bin, co, cwd, cwd);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "6l_ww-dyn FAIL: C 6l errored\n");
|
fprintf(stderr, "w6l_ww-dyn FAIL: C w6l errored\n");
|
||||||
unlink(co);
|
unlink(co);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* ww-side 6l with the same flags. */
|
/* ww-side w6l with the same flags. */
|
||||||
snprintf(cmd, sizeof cmd,
|
snprintf(cmd, sizeof cmd,
|
||||||
"%s/6l_ww -o %s %s/examples/snake/snake.o -L /usr/lib "
|
"%s/w6l_ww -o %s %s/examples/snake/snake.o -L /usr/lib "
|
||||||
"-l ncurses -l c %s/out/lib/libwwrt.a 2>/dev/null",
|
"-l ncurses -l c %s/out/lib/libwwrt.a 2>/dev/null",
|
||||||
bin, wo, cwd, cwd);
|
bin, wo, cwd, cwd);
|
||||||
if (runwait(cmd) != 0) {
|
if (runwait(cmd) != 0) {
|
||||||
fprintf(stderr, "6l_ww-dyn FAIL: ww 6l errored\n");
|
fprintf(stderr, "w6l_ww-dyn FAIL: ww w6l errored\n");
|
||||||
unlink(co); unlink(wo);
|
unlink(co); unlink(wo);
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
@@ -105,14 +105,14 @@ main(void)
|
|||||||
size_t nc = 0, nw = 0;
|
size_t nc = 0, nw = 0;
|
||||||
int rc = 0;
|
int rc = 0;
|
||||||
if (slurp(co, &bc, &nc) < 0 || slurp(wo, &bw, &nw) < 0) {
|
if (slurp(co, &bc, &nc) < 0 || slurp(wo, &bw, &nw) < 0) {
|
||||||
fprintf(stderr, "6l_ww-dyn FAIL: cannot read outputs\n");
|
fprintf(stderr, "w6l_ww-dyn FAIL: cannot read outputs\n");
|
||||||
rc = 1;
|
rc = 1;
|
||||||
} else if (nc != nw || memcmp(bc, bw, nc) != 0) {
|
} else if (nc != nw || memcmp(bc, bw, nc) != 0) {
|
||||||
fprintf(stderr, "6l_ww-dyn FAIL: C %zu vs ww %zu bytes\n",
|
fprintf(stderr, "w6l_ww-dyn FAIL: C %zu vs ww %zu bytes\n",
|
||||||
nc, nw);
|
nc, nw);
|
||||||
rc = 1;
|
rc = 1;
|
||||||
} else {
|
} else {
|
||||||
printf("6l_ww-dyn: byte-identical to C 6l on snake "
|
printf("w6l_ww-dyn: byte-identical to C w6l on snake "
|
||||||
"(PT_INTERP + PT_DYNAMIC + .rela.plt + .gnu.version_r, "
|
"(PT_INTERP + PT_DYNAMIC + .rela.plt + .gnu.version_r, "
|
||||||
"%zu bytes)\n", nc);
|
"%zu bytes)\n", nc);
|
||||||
}
|
}
|
||||||
Reference in New Issue
Block a user