summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--icompact.s10
-rw-r--r--icopy.s2
-rw-r--r--imark.s6
-rw-r--r--istartup.s8
4 files changed, 13 insertions, 13 deletions
diff --git a/icompact.s b/icompact.s
index 5a16b4f..559dc56 100644
--- a/icompact.s
+++ b/icompact.s
@@ -78,7 +78,7 @@ compact_heap:
movl (a0),a2
determine_free_finalizers_after_compact1:
- cmpl $__Nil-8,a2
+ cmpl $__Nil-4,a2
je end_finalizers_after_compact1
movl neg_heap_p3,d0
@@ -132,7 +132,7 @@ end_finalizers_after_compact1:
movl a2,(a1)
movl finalizer_list,a0
- cmpl $__Nil-8,a0
+ cmpl $__Nil-4,a0
je finalizer_list_empty
testl $3,a0
jne finalizer_list_already_reversed
@@ -144,10 +144,10 @@ finalizer_list_empty:
# ifdef COMPACT_MARK_WITH_STACK
movl $free_finalizer_list,a3
- cmpl $__Nil-8,(a3)
+ cmpl $__Nil-4,(a3)
# else
movl $free_finalizer_list,a2
- cmpl $__Nil-8,(a2)
+ cmpl $__Nil-4,(a2)
# endif
je free_finalizer_list_empty
@@ -1296,7 +1296,7 @@ end_copy:
movl finalizer_list,a0
restore_finalizer_descriptors:
- cmpl $__Nil-8,a0
+ cmpl $__Nil-4,a0
je end_restore_finalizer_descriptors
movl $e____system__kFinalizer+2,(a0)
diff --git a/icopy.s b/icopy.s
index 3a98a17..223b35a 100644
--- a/icopy.s
+++ b/icopy.s
@@ -1406,7 +1406,7 @@ determine_free_finalizers_after_copy:
jmp determine_free_finalizers_after_copy
finalizer_not_used_after_copy:
- cmpl $__Nil-8,a2
+ cmpl $__Nil-4,a2
je end_finalizers_after_copy
movl a2,(a1)
diff --git a/imark.s b/imark.s
index 754fca1..2f84590 100644
--- a/imark.s
+++ b/imark.s
@@ -185,7 +185,7 @@ end_restore_arrays:
movl (a0),a2
determine_free_finalizers_after_mark:
- cmpl $__Nil-8,a2
+ cmpl $__Nil-4,a2
je end_finalizers_after_mark
movl neg_heap_p3,d0
@@ -1453,7 +1453,7 @@ __mark_record_selector_node_1:
movl (a2),d1
testb $2,d1b
je __mark_no_selector_2
-
+
cmpw $258,-2(d1)
#ifdef NEW_DESCRIPTORS
jbe __small_record
@@ -1517,7 +1517,7 @@ __mark_strict_record_selector_node_1:
movl bit_set_table(a2),a2
testl (a4,d1,4),a2
jne __mark_no_selector_2
-
+
__select_from_small_record:
#ifdef NEW_DESCRIPTORS
movl -8(d0),d0
diff --git a/istartup.s b/istartup.s
index 414d4da..49800fd 100644
--- a/istartup.s
+++ b/istartup.s
@@ -819,8 +819,8 @@ make_static_characters_lp:
movl a0,caf_listp
#ifdef FINALIZERS
- movl $__Nil-8,finalizer_list
- movl $__Nil-8,free_finalizer_list
+ movl $__Nil-4,finalizer_list
+ movl $__Nil-4,free_finalizer_list
#endif
mov a4,heap_p1
@@ -2492,7 +2492,7 @@ call_finalizers:
movl free_finalizer_list,d0
call_finalizers_lp:
- cmpl $__Nil-8,d0
+ cmpl $__Nil-4,d0
je end_call_finalizers
pushl 4(d0)
movl 8(d0),d1
@@ -2503,7 +2503,7 @@ call_finalizers_lp:
jmp call_finalizers_lp
end_call_finalizers:
- movl $__Nil-8,free_finalizer_list
+ movl $__Nil-4,free_finalizer_list
ret
#endif