diff options
| author | kitty <nepeta@canaglie.net> | 2026-04-22 00:38:05 +1000 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-04-22 00:38:05 +1000 |
| commit | 0c46b326b3079ce2acd21817dae7c0bbe0b8d617 (patch) | |
| tree | c2f53008799425481f015c8cd1481685141d8979 | |
| parent | c64b62a0bfa6236370164d9e5fd4fd72a2402efc (diff) | |
comment out old debug stuff
could delete, maybe i'll keep it commented just in case it's
ever useful
| -rw-r--r-- | sanctuary.fs | 2 | ||||
| -rw-r--r-- | sanctuary.s | 100 |
2 files changed, 51 insertions, 51 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index bfbf108..7d2c88d 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -591,7 +591,7 @@ decimal until cr ; \ doesn't work when there are multiple vocabularies, \ for some reason the header of the last word is printed -: words get-order 0 ?do .s vlist loop ; +: words get-order 0 ?do vlist loop ; \ }}} \ todo doc diff --git a/sanctuary.s b/sanctuary.s index 1630e2b..3dcec3e 100644 --- a/sanctuary.s +++ b/sanctuary.s @@ -1250,56 +1250,56 @@ defcode "(defer)", dodefer, 0 jmp r12 ; also no RET -; TEMPORARY WONKY DEBUGGING FUNCTIONS {{{ -; .s {{{ -defcode ".s", dots, 0 - push r11 - push r12 - - mov r12, r15 -.loop: - cmp r12, wstk - jge .done - - mov [.space], r12 - mov rdx, 8 ; qword - mov rsi, .space - mov rdi, 1 - mov rax, __NR_write - syscall - - mov rdx, 8 ; qword - mov rsi, r12 - mov rdi, 1 - mov rax, __NR_write - syscall - lea r12, [r12+8] - jmp .loop - -.done: - mov rdx, 16 ; 2 qword - mov rsi, .dmsg - mov rdi, 1 - mov rax, __NR_write - syscall - - pop r12 - pop r11 - ret -.space: resq 1 -.dmsg: db "DONEDONEYIPPEEEE" -; }}} - -defcode "HEREDUMP", heredump, 0 - mov rdx, [dp] - mov r11, [dp0] - sub rdx, r11 - mov rsi, [dp0] - mov rdi, 1 - mov rax, __NR_write - syscall - ret -; }}} +; ; TEMPORARY WONKY DEBUGGING FUNCTIONS {{{ +; ; .s {{{ +; defcode ".s", dots, 0 +; push r11 +; push r12 +; +; mov r12, r15 +; .loop: +; cmp r12, wstk +; jge .done +; +; mov [.space], r12 +; mov rdx, 8 ; qword +; mov rsi, .space +; mov rdi, 1 +; mov rax, __NR_write +; syscall +; +; mov rdx, 8 ; qword +; mov rsi, r12 +; mov rdi, 1 +; mov rax, __NR_write +; syscall +; lea r12, [r12+8] +; jmp .loop +; +; .done: +; mov rdx, 16 ; 2 qword +; mov rsi, .dmsg +; mov rdi, 1 +; mov rax, __NR_write +; syscall +; +; pop r12 +; pop r11 +; ret +; .space: resq 1 +; .dmsg: db "DONEDONEYIPPEEEE" +; ; }}} +; +; defcode "HEREDUMP", heredump, 0 +; mov rdx, [dp] +; mov r11, [dp0] +; sub rdx, r11 +; mov rsi, [dp0] +; mov rdi, 1 +; mov rax, __NR_write +; syscall +; ret +; ; }}} defvar "state", state, 0, INTERPRET defvar "base", base, 0, 10 |