Commit 804f7a41 authored by John van Groningen's avatar John van Groningen
Browse files

remove old code for old descriptor format in copying garbage collector for 32 bit Intel

parent 17850bbf
......@@ -853,10 +853,8 @@ copy_arity_2_node2_:
mov 8(a1),d0
mov d0,8(a4)
#endif
#ifdef NEW_DESCRIPTORS
copy_arity_1_node2__:
pop d1
#endif
copy_arity_1_node2:
copy_arity_1_node2_:
mov a4,(a2)
......@@ -921,27 +919,26 @@ copy_selector_2:
jl copy_record_selector_2
mov 4(a1),d0
#ifdef NEW_DESCRIPTORS
push d1
mov (d0),d1
testb $2,d1b
# ifdef PROFILE_GRAPH
#ifdef PROFILE_GRAPH
je copy_arity_2_node2_
# else
#else
je copy_arity_1_node2__
# endif
#endif
cmpw $2,-2(d1)
jbe copy_selector_2_
movl 8(d0),d1
testb $1,(d1)
# ifdef PROFILE_GRAPH
#ifdef PROFILE_GRAPH
jne copy_arity_2_node2_
# else
#else
jne copy_arity_1_node2__
# endif
#endif
movl -8(a0),a0
......@@ -983,46 +980,6 @@ copy_selector_2_:
movl a0,4(a1)
movl a0,a1
jmp continue_after_selector_2
#else
mov (d0),d0
testb $2,d0b
# ifdef PROFILE_GRAPH
je copy_arity_2_node2_
# else
je copy_arity_1_node2_
# endif
cmpw $2,-2(d0)
jbe copy_selector_2_
#ifdef COPY_RECORDS_WITHOUT_POINTERS_TO_END_OF_HEAP
copy_selector_2__:
#endif
mov 4(a1),d0
mov 8(d0),d0
testb $1,(d0)
# ifdef PROFILE_GRAPH
jne copy_arity_2_node2_
# else
jne copy_arity_1_node2_
# endif
copy_selector_2_:
mov -8(a0),d0
mov 4(a1),a0
push a1
push a2
call *4(d0)
pop a2
pop a1
movl $e__system__nind,(a1)
mov a0,4(a1)
mov a0,a1
jmp continue_after_selector_2
#endif
copy_record_selector_2:
cmpl $-3,d0
......@@ -1038,11 +995,7 @@ copy_record_selector_2:
# endif
cmpw $258,-2(d0)
#ifdef NEW_DESCRIPTORS
jbe copy_record_selector_2_
#else
jbe copy_selector_2_
#endif
#ifdef COPY_RECORDS_WITHOUT_POINTERS_TO_END_OF_HEAP
cmpw $2,-2+2(d0)
......@@ -1071,30 +1024,29 @@ copy_record_selector_2:
andl (a1),d0
popl a1
#ifdef NEW_DESCRIPTORS
# ifdef COPY_RECORDS_WITHOUT_POINTERS_TO_END_OF_HEAP
#ifdef COPY_RECORDS_WITHOUT_POINTERS_TO_END_OF_HEAP
je copy_record_selector_2_
# ifdef PROFILE_GRAPH
# ifdef PROFILE_GRAPH
jmp copy_arity_2_node2_
# else
# else
jmp copy_arity_1_node2_
# endif
# endif
copy_selector_2__:
mov 4(a1),d0
mov 8(d0),d0
testb $1,(d0)
# ifdef PROFILE_GRAPH
# ifdef PROFILE_GRAPH
jne copy_arity_2_node2_
# else
jne copy_arity_1_node2_
# endif
# else
# ifdef PROFILE_GRAPH
jne copy_arity_1_node2_
# endif
#else
# ifdef PROFILE_GRAPH
jne copy_arity_2_node2_
# else
# else
jne copy_arity_1_node2_
# endif
# endif
#endif
copy_record_selector_2_:
movl -8(a0),d0
movl 4(a1),a0
......@@ -1112,14 +1064,6 @@ copy_record_selector_3:
movl a0,a1
jmp continue_after_selector_2
#else
# ifdef PROFILE_GRAPH
jne copy_arity_2_node2_
# else
jne copy_arity_1_node2_
# endif
jmp copy_selector_2_
#endif
copy_strict_record_selector_2:
testb $2,d0b
......@@ -1181,7 +1125,6 @@ copy_strict_record_selector_2_b:
copy_strict_record_selector_2_:
movl -8(a0),d0
#ifdef NEW_DESCRIPTORS
push d1
movl 4(a1),a0
......@@ -1214,20 +1157,6 @@ copy_strict_record_selector_6:
testb $2,a0b
jne in_hnf_2
hlt
#else
movl a1,a0
movl 4(a1),a1
push a2
call *4(d0)
pop a2
movl a0,a1
movl (a0),a0
testb $2,a0b
jne in_hnf_2
hlt
#endif
copy_arity_0_node2_:
jl copy_selector_2
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment