Changeset 10364
- Timestamp:
- Aug 6, 2008, 6:30:21 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lisp-kernel/ppc-gc.c
r9905 r10364 392 392 opcode *program_counter; 393 393 394 for(program_counter=(opcode *)ptr_from_lispobj(xpc & ~ 4);395 dnode < GCndnodes_in_area;396 program_counter-=2 , --dnode) {394 for(program_counter=(opcode *)ptr_from_lispobj(xpc & ~7); 395 (LispObj)program_counter >= GCarealow; 396 program_counter-=2) { 397 397 if (*program_counter == PPC64_CODE_VECTOR_PREFIX) { 398 398 headerP = ((LispObj *)program_counter)-1; 399 399 header = *headerP; 400 set_n_bits(GCmarkbits, dnode, (2+header_element_count(header))>>1); 400 dnode = gc_area_dnode(headerP); 401 set_n_bits(GCmarkbits, dnode, (8+(header_element_count(header)<<2)+(dnode_size-1))>>dnode_shift); 401 402 return; 402 403 }
Note: See TracChangeset
for help on using the changeset viewer.