diff options
Diffstat (limited to 'thread/athread.asm')
| -rw-r--r-- | thread/athread.asm | 371 |
1 files changed, 371 insertions, 0 deletions
diff --git a/thread/athread.asm b/thread/athread.asm new file mode 100644 index 0000000..38c5bef --- /dev/null +++ b/thread/athread.asm @@ -0,0 +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 ?
|