diff options
Diffstat (limited to 'thread/ithread.s')
| -rw-r--r-- | thread/ithread.s | 294 |
1 files changed, 294 insertions, 0 deletions
diff --git a/thread/ithread.s b/thread/ithread.s new file mode 100644 index 0000000..d5285c9 --- /dev/null +++ b/thread/ithread.s @@ -0,0 +1,294 @@ +/
+/ File: ithread.s
+/ Author: John van Groningen
+/ Machine: Intel 386
+
+#define d0 %eax
+#define d1 %ebx
+#define a0 %ecx
+#define a1 %edx
+#define a2 %ebp
+#define a3 %esi
+#define a4 %edi
+#define sp %esp
+
+#define d0w %ax
+#define d1w %bx
+#define a0w %cx
+#define a1w %dx
+#define a2w %bp
+#define a3w %si
+#define a4w %di
+
+#define d0b %al
+#define d1b %bl
+#define a0b %cl
+#define a1b %dl
+
+#define d0lb %al
+#define d0hb %ah
+#define d1lb %bl
+#define d1hb %bh
+
+ .text
+
+ .globl @GetProcessHeap?0
+ .globl @HeapAlloc?12
+
+ .globl @clean_new_thread
+
+@clean_new_thread:
+ call @GetProcessHeap?0
+
+ pushl $256
+ pushl $0
+ push d0
+ call @HeapAlloc?12
+
+ movl d0,a4
+ movl tlsp_tls_index,d0
+ movl a4,%fs:0x0e10(,d0,4)
+
+ movl 4(sp),a0
+
+ movl 4(a0),d1
+ test d1,d1
+ jne clean_new_thread_1
+ movl main_thread_local_storage+heap_size_offset,d1
+clean_new_thread_1:
+ movl d1,heap_size_offset(a4)
+
+ movl 8(a0),d1
+ test d1,d1
+ jne clean_new_thread_2
+ movl main_thread_local_storage+a_stack_size_offset,d1
+clean_new_thread_2:
+ movl d1,a_stack_size_offset(a4)
+
+ call init_thread
+
+ movl a3,saved_a_stack_p_offset(a4)
+ movl sp,halt_sp_offset (a4)
+
+ movl 4(sp),d0
+ push d0
+ call *(d0)
+ addl $4,sp
+
+ movl tlsp_tls_index,a4
+ movl %fs:0x0e10(,a4,4),a4
+ jmp exit_thread
+
+init_thread:
+ movl heap_size_offset(a4),d0
+#ifdef PREFETCH2
+ sub $63,d0
+#else
+ sub $3,d0
+#endif
+ xorl a1,a1
+ mov $33,d1
+ div d1
+ movl d0,heap_size_33_offset(a4)
+
+ movl heap_size_offset(a4),d0
+ sub $3,d0
+ xorl a1,a1
+ mov $129,d1
+ div d1
+ mov d0,heap_size_129_offset(a4)
+ add $3,d0
+ andl $-4,d0
+ movl d0,heap_copied_vector_size_offset(a4)
+ movl $0,heap_end_after_copy_gc_offset(a4)
+
+ movl heap_size_offset(a4),d0
+ add $7,d0
+
+ push d0
+#ifdef USE_CLIB
+ call @malloc
+#else
+ call @allocate_memory
+#endif
+ add $4,sp
+
+ test d0,d0
+ je init_thread_no_memory_2
+
+ mov d0,heap_mbp_offset(a4)
+ addl $3,d0
+ and $-4,d0
+ mov d0,free_heap_offset(a4)
+ mov d0,heap_p_offset(a4)
+
+ movl a_stack_size_offset(a4),a2
+ add $3,a2
+
+ push a2
+#ifdef STACK_OVERFLOW_EXCEPTION_HANDLER
+ call @allocate_memory_with_guard_page_at_end
+#else
+# ifdef USE_CLIB
+ call @malloc
+# else
+ call @allocate_memory
+# endif
+#endif
+ add $4,sp
+
+ test d0,d0
+ je init_thread_no_memory_3
+
+ mov d0,stack_mbp_offset(a4)
+#ifdef STACK_OVERFLOW_EXCEPTION_HANDLER
+ addl a_stack_size_offset(a4),d0
+ addl $3+4095,d0
+ andl $-4096,d0
+ movl d0,a_stack_guard_page
+ subl a_stack_size_offset(a4),d0
+#endif
+ add $3,d0
+ andl $-4,d0
+
+ mov d0,a3
+ mov d0,stack_p_offset(a4)
+
+/ lea caf_list+4,a0
+/ movl a0,caf_listp
+
+/ #ifdef FINALIZERS
+/ movl $__Nil-4,finalizer_list
+/ movl $__Nil-4,free_finalizer_list
+/ #endif
+
+ mov free_heap_offset(a4),a1
+ mov a1,heap_p1_offset(a4)
+
+ movl heap_size_129_offset(a4),a2
+ shl $4,a2
+ lea (a1,a2,4),d0
+ mov d0,heap_copied_vector_offset(a4)
+ add heap_copied_vector_size_offset(a4),d0
+ mov d0,heap_p2_offset(a4)
+
+ movb $0,garbage_collect_flag_offset(a4)
+
+# ifdef MARK_AND_COPY_GC
+ testb $64,@flags
+ je init_thread_no_mark1
+# endif
+
+# if defined (MARK_GC) || defined (COMPACT_GC_ONLY)
+ movl heap_size_33_offset(a4),d0
+ movl a1,heap_vector_offset(a4)
+ addl d0,a1
+# ifdef PREFETCH2
+ addl $63,a1
+ andl $-64,a1
+# else
+ addl $3,a1
+ andl $-4,a1
+# endif
+ movl a1,free_heap_offset(a4)
+ movl a1,heap_p3_offset(a4)
+ lea (,d0,8),a2
+ movb $-1,garbage_collect_flag_offset(a4)
+# endif
+
+# ifdef MARK_AND_COPY_GC
+init_thread_no_mark1:
+# endif
+
+# ifdef ADJUST_HEAP_SIZE
+ movl @initial_heap_size,d0
+# ifdef MARK_AND_COPY_GC
+ movl $(MINIMUM_HEAP_SIZE_2),d1
+ testb $64,@flags
+ jne init_thread_no_mark9
+ addl d1,d1
+init_thread_no_mark9:
+# else
+# if defined (MARK_GC) || defined (COMPACT_GC_ONLY)
+ movl $(MINIMUM_HEAP_SIZE),d1
+# else
+ movl $(MINIMUM_HEAP_SIZE_2),d1
+# endif
+# endif
+
+ cmpl d1,d0
+ jle init_thread_too_large_or_too_small
+ shr $2,d0
+ cmpl a2,d0
+ jge init_thread_too_large_or_too_small
+ movl d0,a2
+init_thread_too_large_or_too_small:
+# endif
+
+ lea (a1,a2,4),d0
+ mov d0,heap_end_after_gc_offset(a4)
+ subl $32,d0
+ movl d0,end_heap_offset(a4)
+
+# ifdef MARK_AND_COPY_GC
+ testb $64,@flags
+ je init_thread_no_mark2
+# endif
+
+# if defined (MARK_GC) && defined (ADJUST_HEAP_SIZE)
+ movl a2,bit_vector_size_offset(a4)
+# endif
+
+# ifdef MARK_AND_COPY_GC
+init_thread_no_mark2:
+# endif
+
+ movl $0,bit_counter_offset(a4)
+ movl $0,zero_bits_before_mark_offset(a4)
+
+ xor %eax,%eax
+ ret
+
+init_thread_no_memory_2:
+ movl $1,%eax
+ ret
+
+init_thread_no_memory_3:
+ push heap_mbp_offset(a4)
+#ifdef USE_CLIB
+ call @free
+#else
+ call @free_memory
+#endif
+ add $4,sp
+
+ movl $1,%eax
+ ret
+
+exit_thread:
+ call add_execute_time
+
+ push stack_mbp_offset(a4)
+#ifdef USE_CLIB
+ call @free
+#else
+ call @free_memory
+#endif
+ add $4,sp
+
+ push heap_mbp_offset(a4)
+#ifdef USE_CLIB
+ call @free
+#else
+ call @free_memory
+#endif
+ add $4,sp
+
+ call @GetProcessHeap?0
+
+ pushl a4
+ pushl $0
+ push d0
+ call @HeapFree?12
+
+ ret
|