}
}
gc_assert_verbose(object_ptr == end, "Final object pointer %p, end %p\n",
- object_ptr, end);
+ object_ptr, end);
}
static lispobj trans_fun_header(lispobj object); /* forward decls */
fheaderl = fheaderp->next;
prev_pointer = &nfheaderp->next;
}
+#ifdef LISP_FEATURE_GENCGC
+ /* Cheneygc doesn't need this os_flush_icache, it flushes the whole
+ spaces once when all copying is done. */
os_flush_icache((os_vm_address_t) (((long *)new_code) + nheader_words),
ncode_words * sizeof(long));
-#ifdef LISP_FEATURE_GENCGC
+
gencgc_apply_code_fixups(code, new_code);
#endif
return new_code;
entry_point = function_ptr->next) {
gc_assert_verbose(is_lisp_pointer(entry_point), "Entry point %lx\n",
- (long)entry_point);
+ (long)entry_point);
function_ptr = (struct simple_fun *) native_pointer(entry_point);
gc_assert(widetag_of(function_ptr->header)==SIMPLE_FUN_HEADER_WIDETAG);