Joseph Ferano
0fbca40446
x86.ml is an instruction selector for the part of Tast that fits in one integer register: literals, slots, let, if, arithmetic, comparison, and a call. Everything else raises with the node that defeated it, because an honest refusal is the measurement and a silently wrong answer would waste the exercise. The frontend is the real one -- Reader, Parse, Load, Check -- so what is lowered is the same Tast.fn the LLVM backend gets. Seven arithmetic results are compared against what the language says they should be; the disassembly proves nothing and is not the evidence. Nothing is wired into the build. No dune file under spike/, driven by hand with ocamlfind and clang as spike/embed already does.
39 lines
1.4 KiB
Bash
39 lines
1.4 KiB
Bash
#!/usr/bin/env bash
|
|
# The spike, end to end: the real frontend produces a Tast, x86.ml turns it
|
|
# into bytes, the bytes go into an mmap, and the mmap gets called.
|
|
#
|
|
# Driven by hand with ocamlfind and clang against the flan.cmxa dune already
|
|
# builds, exactly as spike/embed does and for the same reason: nothing under
|
|
# spike/ is wired into the build, so there is no dune file here and `dune test`
|
|
# cannot see any of it.
|
|
set -u
|
|
here=$(cd "$(dirname "$0")" && pwd)
|
|
root=$(cd "$here/../.." && pwd)
|
|
cd "$root" || exit 1
|
|
|
|
dune build --root . lib/flan.cmxa 2>&1 | head -20
|
|
|
|
out=$(mktemp -d); trap 'rm -rf "$out"' EXIT
|
|
|
|
# The C stubs. -O2 on purpose: spike_probe_align's aligned load only becomes a
|
|
# real movaps with optimisation on, and an alignment bug that only shows up in
|
|
# a release build is the one this is looking for.
|
|
clang -O2 -c -I"$(ocamlopt -where)" "$here/jit_stubs.c" -o "$out/jit_stubs.o" || exit 1
|
|
|
|
ocamlfind ocamlopt -thread -package unix,threads.posix -linkpkg \
|
|
-I "$root/_build/default/lib/.flan.objs/byte" \
|
|
-I "$root/_build/default/lib/.flan.objs/native" \
|
|
-I "$out" -I "$here" \
|
|
-o "$out/spike" \
|
|
"$root/_build/default/lib/flan.cmxa" \
|
|
-cclib -rdynamic -ccopt -L"$root/_build/default/lib" \
|
|
"$out/jit_stubs.o" \
|
|
"$here/x86.ml" "$here/driver.ml" 2>&1 | head -40
|
|
|
|
test -x "$out/spike" || { echo "build failed"; exit 1; }
|
|
|
|
"$out/spike" "$here/probe.flan"
|
|
rc=$?
|
|
echo "exit: $rc"
|
|
exit $rc
|