diff options
Diffstat (limited to 'thread/athread.asm')
| -rw-r--r-- | thread/athread.asm | 742 |
1 files changed, 371 insertions, 371 deletions
diff --git a/thread/athread.asm b/thread/athread.asm index 38c5bef..fe14832 100644 --- a/thread/athread.asm +++ b/thread/athread.asm @@ -1,371 +1,371 @@ -
-; File: athread.asm
-; Author: John van Groningen
-; Machine: amd64
-
- _TEXT segment
-
- ifdef LINUX
- else
- extern GetProcessHeap:near
- extern HeapAlloc:near
- extern HeapFree:near
- endif
-
- public clean_new_thread
-
-clean_new_thread:
- ifdef LINUX
- push rbx
- push rbp
- push r12
- push r13
- push r14
- push r15
-
- sub rsp,24
- mov qword ptr 8[rsp],rdi
-
- mov rdi,768
- call malloc
-
- mov rbx,rax
-
- mov rdi,qword ptr tlsp_tls_index
- mov rsi,rax
- call pthread_setspecific
-
- mov r9,rbx
-
- mov rdi,qword ptr 8[rsp]
-
- mov rbx,qword ptr 8[rdi]
- else
- sub rsp,56
- mov qword ptr 32[rsp],rcx
-
- call GetProcessHeap
-
- mov rcx,rax
- xor rdx,rdx
- mov r8,512
- call HeapAlloc
-
- mov r9,rax
- mov rax,qword ptr tlsp_tls_index
- mov qword ptr gs:[1480h+rax*8],r9
-
- mov rcx,qword ptr 32[rsp]
-
- mov rbx,qword ptr 8[rcx]
- endif
- test rbx,rbx
- cmove rbx,qword ptr (main_thread_local_storage+heap_size_offset)
- mov qword ptr heap_size_offset[r9],rbx
-
- ifdef LINUX
- mov rbx,qword ptr 16[rdi]
- else
- mov rbx,qword ptr 16[rcx]
- endif
- test rbx,rbx
- cmove rbx,qword ptr (main_thread_local_storage+a_stack_size_offset)
- mov qword ptr a_stack_size_offset[r9],rbx
-
- call init_thread
-
- ifndef LINUX
- mov rcx,qword ptr 32[rsp]
- endif
-
- mov qword ptr saved_heap_p_offset[r9],rdi
- mov qword ptr saved_r15_offset[r9],r15
- mov qword ptr saved_a_stack_p_offset[r9],rsi
-
- mov qword ptr halt_sp_offset[r9],rsp
-
- ifdef LINUX
- mov rdi,qword ptr 8[rsp]
- call qword ptr [rdi]
-
- mov rdi,qword ptr tlsp_tls_index
- call pthread_getspecific
- mov r9,rax
- add rsp,24
- else
- call qword ptr [rcx]
-
- mov r9,qword ptr tlsp_tls_index
- mov r9,qword ptr gs:[1480h+r9*8]
- add rsp,56
- endif
-
- jmp exit_thread
-
-init_thread:
- lea rax,128[rsp]
- sub rsp,32+8
-
- mov rax,qword ptr heap_size_offset[r9]
- sub rax,7
- xor rdx,rdx
- mov rbx,65
- div rbx
- mov qword ptr heap_size_65_offset[r9],rax
-
- mov rax,qword ptr heap_size_offset[r9]
- sub rax,7
- xor rdx,rdx
- mov rbx,257
- div rbx
-
- mov heap_size_257_offset[r9],rax
-
- add rax,7
- and rax,-8
-
- mov qword ptr heap_copied_vector_size_offset[r9],rax
- mov qword ptr heap_end_after_copy_gc_offset[r9],0
-
- mov rax,qword ptr heap_size_offset[r9]
- add rax,7
- and rax,-8
- mov qword ptr heap_size_offset[r9],rax
- add rax,7
-
- mov rbp,rsp
- and rsp,-16
-
- mov rbx,r9
-
- ifdef LINUX
- mov rdi,rax
- call malloc
- else
- mov rcx,rax
- call allocate_memory
- endif
- mov rsp,rbp
-
- mov r9,rbx
-
- test rax,rax
- je init_thread_no_memory_2
-
- mov heap_mbp_offset[r9],rax
-
- lea rdi,7[rax]
- and rdi,-8
-
- mov heap_p_offset[r9],rdi
-
- mov rbp,rsp
- and rsp,-16
-
- mov rbx,r9
-
- ifdef LINUX
- mov r14,rdi
- mov rdi,qword ptr a_stack_size_offset[r9]
- add rdi,7
- call malloc
- mov rdi,r14
- else
- mov rcx,qword ptr a_stack_size_offset[r9]
- add rcx,7
- if 0
- call allocate_memory_with_guard_page_at_end
- else
- call allocate_memory
- endif
- endif
- mov rsp,rbp
-
- mov r9,rbx
-
- test rax,rax
- je init_thread_no_memory_3
-
- mov stack_mbp_offset[r9],rax
-
- add rax,qword ptr a_stack_size_offset[r9]
- add rax,7+4095
- and rax,-4096
-; mov qword ptr a_stack_guard_page,rax
- sub rax,qword ptr a_stack_size_offset[r9]
-
- add rax,7
- and rax,-8
-
- mov rsi,rax
-
- mov stack_p_offset[r9],rax
-
-; lea rcx,(caf_list+8)
-; mov qword ptr caf_listp,rcx
-
-; lea rcx,__Nil-8
-; mov qword ptr finalizer_list,rcx
-; mov qword ptr free_finalizer_list,rcx
-
- mov heap_p1_offset[r9],rdi
-
- mov rbp,qword ptr heap_size_257_offset[r9]
-
- shl rbp,4
- lea rax,[rdi+rbp*8]
-
- mov heap_copied_vector_offset[r9],rax
- add rax,heap_copied_vector_size_offset[r9]
- mov heap_p2_offset[r9],rax
-
- mov byte ptr garbage_collect_flag_offset[r9],0
-
- test byte ptr flags,64
- je init_thread_no_mark1
-
- mov rax,qword ptr heap_size_65_offset[r9]
-
- mov qword ptr heap_vector_offset[r9],rdi
-
- add rdi,rax
-
- add rdi,7
- and rdi,-8
-
- mov qword ptr heap_p3_offset[r9],rdi
-
- lea rbp,[rax*8]
-
- mov byte ptr garbage_collect_flag_offset [r9],-1
-
-init_thread_no_mark1:
-; mov rax,qword ptr initial_heap_size
- mov rax,qword ptr heap_size_offset[r9]
-
- mov rbx,4000
- test byte ptr flags,64
- jne init_thread_no_mark9
- add rbx,rbx
-init_thread_no_mark9:
-
- cmp rax,rbx
- jle init_thread_too_large_or_too_small
- shr rax,3
- cmp rax,rbp
- jge init_thread_too_large_or_too_small
- mov rbp,rax
-init_thread_too_large_or_too_small:
-
- lea rax,[rdi+rbp*8]
-
- mov heap_end_after_gc_offset[r9],rax
-
- test byte ptr flags,64
- je init_thread_no_mark2
-
- mov qword ptr bit_vector_size_offset[r9],rbp
-
-init_thread_no_mark2:
- mov qword ptr bit_counter_offset[r9],0
- mov qword ptr zero_bits_before_mark_offset[r9],0
-
- mov r15,rbp
-
- add rsp,32+8
- xor rax,rax
- ret
-
-init_thread_no_memory_2:
- mov rax,1
- ret
-
-init_thread_no_memory_3:
- mov rbp,rsp
- and rsp,-16
-
- mov rbx,r9
-
- ifdef LINUX
- mov rdi,heap_mbp_offset[r9]
- call free
- else
- mov rcx,heap_mbp_offset[r9]
- call free_memory
- endif
-
- mov rsp,rbp
-
- mov r9,rbx
-
- add rsp,32
-
- mov rax,1
- ret
-
-
-exit_thread:
- call add_execute_time
-
- mov rbp,rsp
- and rsp,-16
-
- mov rbx,r9
-
- ifdef LINUX
- mov rdi,stack_mbp_offset[r9]
- call free
-
- mov r9,rbx
-
- mov rdi,heap_mbp_offset[r9]
- call free
-
- mov rdi,r9
- call free
- else
- mov rcx,stack_mbp_offset[r9]
- sub rsp,32
- call free_memory
-
- mov r9,rbx
-
- mov rcx,heap_mbp_offset[r9]
- call free_memory
-
- call GetProcessHeap
-
- mov rcx,rax
- xor rdx,rdx
- mov r8,rbx
- call HeapFree
-
- add rsp,32
- endif
-
- mov rsp,rbp
-
- ifdef LINUX
- pop r15
- pop r14
- pop r13
- pop r12
- pop rbp
- pop rbx
- endif
-
- xor rax,rax
- ret
-
-_TEXT ends
-
-; bit_counter_offset = 0 ?
-; zero_bits_before_mark_offset = 1 =0 ?
-
-; a_stack_guard_page
-; caf_list
-; caf_listp
-; finalizer_list
-; free_finalizer_list
-; initial_heap_size
-; flags ?
+ +; File: athread.asm +; Author: John van Groningen +; Machine: amd64 + + _TEXT segment + + ifdef LINUX + else + extern GetProcessHeap:near + extern HeapAlloc:near + extern HeapFree:near + endif + + public clean_new_thread + +clean_new_thread: + ifdef LINUX + push rbx + push rbp + push r12 + push r13 + push r14 + push r15 + + sub rsp,24 + mov qword ptr 8[rsp],rdi + + mov rdi,768 + call malloc + + mov rbx,rax + + mov rdi,qword ptr tlsp_tls_index + mov rsi,rax + call pthread_setspecific + + mov r9,rbx + + mov rdi,qword ptr 8[rsp] + + mov rbx,qword ptr 8[rdi] + else + sub rsp,56 + mov qword ptr 32[rsp],rcx + + call GetProcessHeap + + mov rcx,rax + xor rdx,rdx + mov r8,512 + call HeapAlloc + + mov r9,rax + mov rax,qword ptr tlsp_tls_index + mov qword ptr gs:[1480h+rax*8],r9 + + mov rcx,qword ptr 32[rsp] + + mov rbx,qword ptr 8[rcx] + endif + test rbx,rbx + cmove rbx,qword ptr (main_thread_local_storage+heap_size_offset) + mov qword ptr heap_size_offset[r9],rbx + + ifdef LINUX + mov rbx,qword ptr 16[rdi] + else + mov rbx,qword ptr 16[rcx] + endif + test rbx,rbx + cmove rbx,qword ptr (main_thread_local_storage+a_stack_size_offset) + mov qword ptr a_stack_size_offset[r9],rbx + + call init_thread + + ifndef LINUX + mov rcx,qword ptr 32[rsp] + endif + + mov qword ptr saved_heap_p_offset[r9],rdi + mov qword ptr saved_r15_offset[r9],r15 + mov qword ptr saved_a_stack_p_offset[r9],rsi + + mov qword ptr halt_sp_offset[r9],rsp + + ifdef LINUX + mov rdi,qword ptr 8[rsp] + call qword ptr [rdi] + + mov rdi,qword ptr tlsp_tls_index + call pthread_getspecific + mov r9,rax + add rsp,24 + else + call qword ptr [rcx] + + mov r9,qword ptr tlsp_tls_index + mov r9,qword ptr gs:[1480h+r9*8] + add rsp,56 + endif + + jmp exit_thread + +init_thread: + lea rax,128[rsp] + sub rsp,32+8 + + mov rax,qword ptr heap_size_offset[r9] + sub rax,7 + xor rdx,rdx + mov rbx,65 + div rbx + mov qword ptr heap_size_65_offset[r9],rax + + mov rax,qword ptr heap_size_offset[r9] + sub rax,7 + xor rdx,rdx + mov rbx,257 + div rbx + + mov heap_size_257_offset[r9],rax + + add rax,7 + and rax,-8 + + mov qword ptr heap_copied_vector_size_offset[r9],rax + mov qword ptr heap_end_after_copy_gc_offset[r9],0 + + mov rax,qword ptr heap_size_offset[r9] + add rax,7 + and rax,-8 + mov qword ptr heap_size_offset[r9],rax + add rax,7 + + mov rbp,rsp + and rsp,-16 + + mov rbx,r9 + + ifdef LINUX + mov rdi,rax + call malloc + else + mov rcx,rax + call allocate_memory + endif + mov rsp,rbp + + mov r9,rbx + + test rax,rax + je init_thread_no_memory_2 + + mov heap_mbp_offset[r9],rax + + lea rdi,7[rax] + and rdi,-8 + + mov heap_p_offset[r9],rdi + + mov rbp,rsp + and rsp,-16 + + mov rbx,r9 + + ifdef LINUX + mov r14,rdi + mov rdi,qword ptr a_stack_size_offset[r9] + add rdi,7 + call malloc + mov rdi,r14 + else + mov rcx,qword ptr a_stack_size_offset[r9] + add rcx,7 + if 0 + call allocate_memory_with_guard_page_at_end + else + call allocate_memory + endif + endif + mov rsp,rbp + + mov r9,rbx + + test rax,rax + je init_thread_no_memory_3 + + mov stack_mbp_offset[r9],rax + + add rax,qword ptr a_stack_size_offset[r9] + add rax,7+4095 + and rax,-4096 +; mov qword ptr a_stack_guard_page,rax + sub rax,qword ptr a_stack_size_offset[r9] + + add rax,7 + and rax,-8 + + mov rsi,rax + + mov stack_p_offset[r9],rax + +; lea rcx,(caf_list+8) +; mov qword ptr caf_listp,rcx + +; lea rcx,__Nil-8 +; mov qword ptr finalizer_list,rcx +; mov qword ptr free_finalizer_list,rcx + + mov heap_p1_offset[r9],rdi + + mov rbp,qword ptr heap_size_257_offset[r9] + + shl rbp,4 + lea rax,[rdi+rbp*8] + + mov heap_copied_vector_offset[r9],rax + add rax,heap_copied_vector_size_offset[r9] + mov heap_p2_offset[r9],rax + + mov byte ptr garbage_collect_flag_offset[r9],0 + + test byte ptr flags,64 + je init_thread_no_mark1 + + mov rax,qword ptr heap_size_65_offset[r9] + + mov qword ptr heap_vector_offset[r9],rdi + + add rdi,rax + + add rdi,7 + and rdi,-8 + + mov qword ptr heap_p3_offset[r9],rdi + + lea rbp,[rax*8] + + mov byte ptr garbage_collect_flag_offset [r9],-1 + +init_thread_no_mark1: +; mov rax,qword ptr initial_heap_size + mov rax,qword ptr heap_size_offset[r9] + + mov rbx,4000 + test byte ptr flags,64 + jne init_thread_no_mark9 + add rbx,rbx +init_thread_no_mark9: + + cmp rax,rbx + jle init_thread_too_large_or_too_small + shr rax,3 + cmp rax,rbp + jge init_thread_too_large_or_too_small + mov rbp,rax +init_thread_too_large_or_too_small: + + lea rax,[rdi+rbp*8] + + mov heap_end_after_gc_offset[r9],rax + + test byte ptr flags,64 + je init_thread_no_mark2 + + mov qword ptr bit_vector_size_offset[r9],rbp + +init_thread_no_mark2: + mov qword ptr bit_counter_offset[r9],0 + mov qword ptr zero_bits_before_mark_offset[r9],0 + + mov r15,rbp + + add rsp,32+8 + xor rax,rax + ret + +init_thread_no_memory_2: + mov rax,1 + ret + +init_thread_no_memory_3: + mov rbp,rsp + and rsp,-16 + + mov rbx,r9 + + ifdef LINUX + mov rdi,heap_mbp_offset[r9] + call free + else + mov rcx,heap_mbp_offset[r9] + call free_memory + endif + + mov rsp,rbp + + mov r9,rbx + + add rsp,32 + + mov rax,1 + ret + + +exit_thread: + call add_execute_time + + mov rbp,rsp + and rsp,-16 + + mov rbx,r9 + + ifdef LINUX + mov rdi,stack_mbp_offset[r9] + call free + + mov r9,rbx + + mov rdi,heap_mbp_offset[r9] + call free + + mov rdi,r9 + call free + else + mov rcx,stack_mbp_offset[r9] + sub rsp,32 + call free_memory + + mov r9,rbx + + mov rcx,heap_mbp_offset[r9] + call free_memory + + call GetProcessHeap + + mov rcx,rax + xor rdx,rdx + mov r8,rbx + call HeapFree + + add rsp,32 + endif + + mov rsp,rbp + + ifdef LINUX + pop r15 + pop r14 + pop r13 + pop r12 + pop rbp + pop rbx + endif + + xor rax,rax + ret + +_TEXT ends + +; bit_counter_offset = 0 ? +; zero_bits_before_mark_offset = 1 =0 ? + +; a_stack_guard_page +; caf_list +; caf_listp +; finalizer_list +; free_finalizer_list +; initial_heap_size +; flags ? |