Changeset 13512

Timestamp:

Mar 12, 2010, 12:50:04 AM (10 years ago)

Author:

gb

Message:

Fix typos.

File:

• trunk/source/lisp-kernel/ppc-gc.c (modified) (3 diffs)

trunk/source/lisp-kernel/ppc-gc.c

@@ -853 +853 @@
 check_refmap_consistency(LispObj *start, LispObj *end, bitvector refbits)
 {
-  LispObj x1, *base = start;
+  LispObj x1, *base = start, *prev = start;
   int tag;
   natural ref_dnode, node_dnode;
@@ -860 +860 @@
   while (start < end) {
     x1 = *start;
+    prev = start;
     tag = fulltag_of(x1);
     if (immheader_tag_p(tag)) {
@@ -867 +868 @@
       if (header_subtag(x1) == subtag_weak)
         lenient_next_dnode == true;
-      }
-      if ((tag == fulltag_misc) || (tag == fulltag_cons)) {        
-        node_dnode = gc_area_dnode(x1);
-        if (node_dnode < GCndnodes_in_area) {
-          intergen_ref = true;
-        }
-      }
-      if (lenient_this_dnode) {
-        lenient_this_dnode = false;
-      } else {
-        if (intergen_ref == false) {        
-          x1 = start[1];
-          tag = fulltag_of(x1);
-          if ((tag == fulltag_misc) || (tag == fulltag_cons)) {
-            node_dnode = gc_area_dnode(x1);
-            if (node_dnode < GCndnodes_in_area) {
-              intergen_ref = true;
-            }
+    }
+    if ((tag == fulltag_misc) || (tag == fulltag_cons)) {        
+      node_dnode = gc_area_dnode(x1);
+      if (node_dnode < GCndnodes_in_area) {
+        intergen_ref = true;
+      }
+    }
+    if (lenient_this_dnode) {
+      lenient_this_dnode = false;
+    } else {
+      if (intergen_ref == false) {        
+        x1 = start[1];
+        tag = fulltag_of(x1);
+        if ((tag == fulltag_misc) || (tag == fulltag_cons)) {
+          node_dnode = gc_area_dnode(x1);
+          if (node_dnode < GCndnodes_in_area) {
+            intergen_ref = true;
           }
         }
       }
-      if (intergen_ref) {
-        ref_dnode = area_dnode(start, base);
-        if (!lenient_after_weak_header && !ref_bit(refbits, ref_dnode)) {
-          Bug(NULL, "Missing memoization in doublenode at 0x" LISP "\n", start);
-          set_bit(refbits, ref_dnode);
-        }
-      }
-      start += 2;
-      if (lenient_next_dnode) {
-        lenient_this_dnode = true;
-      }
-      lenient_next_dnode = false;
-    }
+    }
+    if (intergen_ref) {
+      ref_dnode = area_dnode(start, base);
+      if (!ref_bit(refbits, ref_dnode)) {
+        Bug(NULL, "Missing memoization in doublenode at 0x" LISP "\n", start);
+        set_bit(refbits, ref_dnode);
+      }
+    }
+    start += 2;
+    if (lenient_next_dnode) {
+      lenient_this_dnode = true;
+    }
+    lenient_next_dnode = false;
   }
 }