st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-28 09:38:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix all prints

Browse source
This commit is contained in:
Roman Venediktov 2024-02-06 10:27:27 +01:00
parent a91f61dbfa
commit db9067b748
3 changed files with 174 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

115
runtime/printf.s
View file

@ -7,7 +7,10 @@
.extern fprintf
.global Lsprintf
.extern sprintf
.extern Bsprintf
.global Lfailure
.extern failure
.extern cnt_percentage_sign
@ -21,7 +24,6 @@ Lprintf:
pushq %rdx
pushq %rsi
movq %rsp, %rax
# pushq %rsi
# rdi --- format string
# r11 --- number of arguments except format string
loop:
@ -49,3 +51,112 @@ continue:
pushq %r14
jmp printf
Lfprintf:
# save return address
popq %r14
pushq %r9
pushq %r8
pushq %rcx
pushq %rdx
movq %rsp, %rax
# rdi --- FILE*
# rsi --- format string
# r11 --- number of arguments except format string
Lfprintf_loop:
movq $0, %r12
cmpq %r11, %r12
jz Lfprintf_continue
decq %r11
movq (%rax), %r10
testq $1, %r10
jz Lfprintf_loop_end
# unbox value
sarq %r10
movq %r10, (%rax)
Lfprintf_loop_end:
addq $8, %rax
jmp Lfprintf_loop
Lfprintf_continue:
popq %rdx
popq %rcx
popq %r8
popq %r9
# restore return address
pushq %r14
jmp fprintf
Lsprintf:
# save return address
popq %r14
pushq %r9
pushq %r8
pushq %rcx
pushq %rdx
pushq %rsi
movq %rsp, %rax
# rdi --- format string
# r11 --- number of arguments except format string
Lsprintf_loop:
movq $0, %r12
cmpq %r11, %r12
jz Lsprintf_continue
decq %r11
movq (%rax), %r10
testq $1, %r10
jz Lsprintf_loop_end
# unbox value
sarq %r10
movq %r10, (%rax)
Lsprintf_loop_end:
addq $8, %rax
jmp Lsprintf_loop
Lsprintf_continue:
popq %rsi
popq %rdx
popq %rcx
popq %r8
popq %r9
# restore return address
pushq %r14
jmp Bsprintf
Lfailure:
# save return address
popq %r14
pushq %r9
pushq %r8
pushq %rcx
pushq %rdx
pushq %rsi
movq %rsp, %rax
# rdi --- format string
# r11 --- number of arguments except format string
Lfailure_loop:
movq $0, %r12
cmpq %r11, %r12
jz Lfailure_continue
decq %r11
movq (%rax), %r10
testq $1, %r10
jz Lfailure_loop_end
# unbox value
sarq %r10
movq %r10, (%rax)
Lfailure_loop_end:
addq $8, %rax
jmp Lfailure_loop
Lfailure_continue:
popq %rsi
popq %rdx
popq %rcx
popq %r8
popq %r9
# restore return address
pushq %r14
jmp failure