Changeset 15395

Timestamp:

May 28, 2012, 4:28:30 PM (12 years ago)

Author:

Gary Byers

Message:

Update for new dual write barrier.

File:

• trunk/source/lisp-kernel/mach-o-image.c (modified) (2 diffs)

trunk/source/lisp-kernel/mach-o-image.c

@@ -545 +545 @@
                        S_REGULAR);
     managed_static_refbits_section_ordinal=++next_section_ordinal;
-    safe_write(fd,(char *)managed_static_area->refbits,nrefbytes);
+    safe_write(fd,(char *)managed_static_refbits,nrefbytes);
     curpos = align_to_power_of_2(lseek(fd,0,SEEK_CUR),12);
   }
@@ -840 +840 @@
     nrefbytes = msr_end - ms_end;
     CommitMemory(global_mark_ref_bits,align_to_power_of_2(nrefbytes, 12));
-    memcpy(global_mark_ref_bits,ms_end,nrefbytes);
+    CommitMemory(managed_static_refbits,align_to_power_of_2(nrefbytes, 12));
+    memcpy(managed_static_refbits,ms_end,nrefbytes);
     memset(ms_end,0,nrefbytes);