Devine Lu Linvega f2b657aa1d Fixed 3 warnings | пре 5 година | |
---|---|---|
.. | ||
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 | пре 6 година | |
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 | пре 7 година | |
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 | пре 5 година | |
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