Vasilij Schneidermann 7d5d9e3b87 Fix Cons representation | 7 年 前 | |
---|---|---|
.. | ||
legacy | 9 年 前 | |
os | 9 年 前 | |
tests | 9 年 前 | |
README.md | 9 年 前 | |
alloc.c | 9 年 前 | |
alloc.h | 9 年 前 | |
build_rpi.sh | 9 年 前 | |
build_win32.sh | 9 年 前 | |
build_x64.sh | 9 年 前 | |
build_x86.sh | 9 年 前 | |
compiler_arm_hosted.c | 9 年 前 | |
compiler_m68k.c | 9 年 前 | |
compiler_new.c | 9 年 前 | |
compiler_new.h | 9 年 前 | |
compiler_x64_hosted.c | 9 年 前 | |
compiler_x86.c | 9 年 前 | |
jit_arm_raw.c | 9 年 前 | |
jit_m68k.c | 9 年 前 | |
jit_x64.c | 9 年 前 | |
jit_x86.c | 9 年 前 | |
minilisp.h | 9 年 前 | |
reader.c | 9 年 前 | |
reader.h | 9 年 前 | |
sledge.c | 8 年 前 | |
stream.c | 9 年 前 | |
stream.h | 9 年 前 | |
strmap.c | 9 年 前 | |
strmap.h | 9 年 前 | |
unifont.bin | 9 年 前 | |
unifont.png | 9 年 前 | |
utf8.c | 9 年 前 | |
utf8.h | 9 年 前 | |
writer.c | 7 年 前 | |
writer.h | 9 年 前 |
sledge JIT-compiles a minimal subset of LISP to a minimal subset of x64 or armv5 machine code.
./build.sh
./build_rpi.sh
./sledge
sledge> (def my-function (fn a b (* a (+ a b))))
JIT ---------------------
push %rdi
jmp f1_0x7f6a0144ca98
f0_0x7f6a0144ca98:
push %rdi
movq %r12, %rdi
mov (%rdi), %rdi
movq %r13, %rsi
mov (%rsi), %rsi
addq %rsi, %rdi
movq %rdi, %rsi
pop %rdi
movq %r12, %rdi
mov (%rdi), %rdi
imulq %rsi, %rdi
mov $0x406f02, %rax
callq *%rax # alloc_int
ret
f1_0x7f6a0144ca98:
mov $0x7f6a0144ca98, %rax
movq %rax, %rsi
pop %rdi
movq %rax, %rsi
mov $0x7f6a0144c750, %rdi
mov $0x401b21, %rax
callq *%rax # insert_global_symbol
ret
-------------------------
sledge> (my-function 35 36)
JIT ---------------------
mov $0x7f6a0144cb28, %r12
mov $0x7f6a0144cb58, %r13
mov $0x7f6a16a8b003, %rax
callq *%rax # lambda
ret
-------------------------
2485