From db58f43065c3b397754bb9efcb4a7376b2538131 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 23 Oct 2026 20:47:43 -0400 Subject: pit: Add tests, fix binding bug --- asm/lisp/test.pit | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 asm/lisp/test.pit (limited to 'asm/lisp/test.pit') diff --git a/asm/lisp/test.pit b/asm/lisp/test.pit new file mode 100644 index 0000000..cafa8f4 --- /dev/null +++ b/asm/lisp/test.pit @@ -0,0 +1,29 @@ +(let ( (elf (elf/new!)) + (entrypoint 0x696000) + (toff 0x1000) + (phdroff 0x2000)) + (elf/write-bytes! elf toff + '( 0xb8 0x3c 0x00 0x00 0x00 ;; mov rax, 60 + 0xbf 0x2a 0x00 0x00 0x00 ;; mov rdi, 42 + 0x0f 0x05 ;; syscall + )) + (elf/write-program-header! elf (+ phdroff elf/64_PROGRAM_HEADER_SIZE) + :type elf/PROGRAM_HEADER_TYPE_LOAD + :offset toff + :virtual-addr entrypoint + :file-size 0x100 + :mem-size 0x100 + :flags (bitwise/or elf/PROGRAM_HEADER_FLAG_R elf/PROGRAM_HEADER_FLAG_X) + ) + (elf/write-header! elf + :type elf/TYPE_EXEC + :machine elf/MACHINE_AMD64 + :program-header-offset phdroff + :program-header-entry-size elf/64_PROGRAM_HEADER_SIZE + :program-header-entries 2 + :section-header-offset 0 + :section-header-entry-size elf/64_SECTION_HEADER_SIZE + :section-header-entries 0 + :entry entrypoint + ) + (elf/spit! "test.elf" elf)) -- cgit v1.3.1