Changeset 15834


Ignore:
Timestamp:
Jun 4, 2013, 6:33:33 PM (6 years ago)
Author:
gb
Message:

More PPC typos ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gb-egc/lisp-kernel/ppc-gc.c

    r15821 r15834  
    843843    prev = start;
    844844    tag = fulltag_of(x1);
     845    intergen_ref = false;
    845846    if (immheader_tag_p(tag)) {
    846847      start = skip_over_ivector(ptr_to_lispobj(start), x1);
    847848    } else {
    848       intergen_ref = false;
    849849      if (header_subtag(x1) == subtag_weak)
    850850        lenient_next_dnode == true;
    851     }
    852     if ((tag == fulltag_misc) || (tag == fulltag_cons)) {       
    853       node_dnode = gc_area_dnode(x1);
    854       if (node_dnode < GCndnodes_in_area) {
    855         intergen_ref = true;
    856       }
    857     }
    858     if (lenient_this_dnode) {
    859       lenient_this_dnode = false;
    860     } else {
    861       if (intergen_ref == false) {       
    862         x1 = start[1];
    863         tag = fulltag_of(x1);
    864         if ((tag == fulltag_misc) || (tag == fulltag_cons)) {
    865           node_dnode = gc_area_dnode(x1);
    866           if (node_dnode < GCndnodes_in_area) {
    867             intergen_ref = true;
     851      if ((tag == fulltag_misc) || (tag == fulltag_cons)) {       
     852        node_dnode = gc_area_dnode(x1);
     853        if (node_dnode < GCndnodes_in_area) {
     854          intergen_ref = true;
     855        }
     856      }
     857      if (lenient_this_dnode) {
     858        lenient_this_dnode = false;
     859      } else {
     860        if (intergen_ref == false) {       
     861          x1 = start[1];
     862          tag = fulltag_of(x1);
     863          if ((tag == fulltag_misc) || (tag == fulltag_cons)) {
     864            node_dnode = gc_area_dnode(x1);
     865            if (node_dnode < GCndnodes_in_area) {
     866              intergen_ref = true;
     867            }
    868868          }
    869869        }
    870870      }
    871     }
    872     if (intergen_ref) {
    873       ref_dnode = area_dnode(start, base);
    874       if (!ref_bit(refbits, ref_dnode)) {
    875         Bug(NULL, "Missing memoization in doublenode at 0x" LISP "\n", start);
    876         set_bit(refbits, ref_dnode);
    877         if (refidx) {
    878           set_bit(refidx,ref_dnode>>8);
    879         }
    880       } else {
    881         if (refidx) {
    882           if (!ref_bit(refidx, ref_dnode>>8)) {
    883             Bug(NULL, "Memoization for doublenode at 0x" LISP " not indexed\n", start);
     871      if (intergen_ref) {
     872        ref_dnode = area_dnode(start, base);
     873        if (!ref_bit(refbits, ref_dnode)) {
     874          Bug(NULL, "Missing memoization in doublenode at 0x" LISP "\n", start);
     875          set_bit(refbits, ref_dnode);
     876          if (refidx) {
    884877            set_bit(refidx,ref_dnode>>8);
    885878          }
     879        } else {
     880          if (refidx) {
     881            if (!ref_bit(refidx, ref_dnode>>8)) {
     882              Bug(NULL, "Memoization for doublenode at 0x" LISP " not indexed\n", start);
     883              set_bit(refidx,ref_dnode>>8);
     884            }
     885          }
    886886        }
    887887      }
    888     }
    889     start += 2;
    890     if (lenient_next_dnode) {
    891       lenient_this_dnode = true;
    892     }
    893     lenient_next_dnode = false;
     888      start += 2;
     889      if (lenient_next_dnode) {
     890        lenient_this_dnode = true;
     891      }
     892      lenient_next_dnode = false;
     893    }
    894894  }
    895895}
Note: See TracChangeset for help on using the changeset viewer.