Devine Lu Linvega f2b657aa1d Fixed 3 warnings | vor 5 Jahren | |
---|---|---|
.. | ||
legacy | vor 9 Jahren | |
os | vor 9 Jahren | |
tests | vor 9 Jahren | |
README.md | vor 9 Jahren | |
alloc.c | vor 9 Jahren | |
alloc.h | vor 9 Jahren | |
build_rpi.sh | vor 9 Jahren | |
build_win32.sh | vor 9 Jahren | |
build_x64.sh | vor 9 Jahren | |
build_x86.sh | vor 9 Jahren | |
compiler_arm_hosted.c | vor 9 Jahren | |
compiler_m68k.c | vor 9 Jahren | |
compiler_new.c | vor 6 Jahren | |
compiler_new.h | vor 9 Jahren | |
compiler_x64_hosted.c | vor 9 Jahren | |
compiler_x86.c | vor 9 Jahren | |
jit_arm_raw.c | vor 9 Jahren | |
jit_m68k.c | vor 9 Jahren | |
jit_x64.c | vor 9 Jahren | |
jit_x86.c | vor 9 Jahren | |
minilisp.h | vor 7 Jahren | |
reader.c | vor 9 Jahren | |
reader.h | vor 9 Jahren | |
sledge.c | vor 8 Jahren | |
stream.c | vor 9 Jahren | |
stream.h | vor 9 Jahren | |
strmap.c | vor 9 Jahren | |
strmap.h | vor 9 Jahren | |
unifont.bin | vor 9 Jahren | |
unifont.png | vor 9 Jahren | |
utf8.c | vor 9 Jahren | |
utf8.h | vor 9 Jahren | |
writer.c | vor 5 Jahren | |
writer.h | vor 9 Jahren |
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