Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
run-time-system
Commits
804f7a41
Commit
804f7a41
authored
Apr 06, 2022
by
John van Groningen
Browse files
remove old code for old descriptor format in copying garbage collector for 32 bit Intel
parent
17850bbf
Changes
1
Hide whitespace changes
Inline
Side-by-side
icopy.s
View file @
804f7a41
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment