Fix fencepost error in handling of linkage sections.

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index fa3b3862092c40e9d63df3d1a7f587b4638e32f2..de44a953cc044604ff6357b91a3844bb9609685a 100644 (file)
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bchdmp.c,v 9.87 2000/12/23 02:45:55 cph Exp $
+$Id: bchdmp.c,v 9.88 2001/02/12 22:32:32 cph Exp $
 
-Copyright (c) 1987-2000 Massachusetts Institute of Technology
+Copyright (c) 1987-2001 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -845,7 +845,9 @@ DEFUN (dump_loop, (scan, free_ptr, new_address_ptr),
                scan += 1;
                while (count > 0)
                  {
-                   SCHEME_OBJECT * old_start = (SCHEME_ADDR_TO_ADDR (*scan));
+                   SCHEME_OBJECT * old_start;
+                   MAYBE_DUMP_SCAN (scan);
+                   old_start = (SCHEME_ADDR_TO_ADDR (*scan));
                    if (BROKEN_HEART_P (*old_start))
                      (*scan++)
                        = (ADDR_TO_SCHEME_ADDR (OBJECT_ADDRESS (*old_start)));
@@ -861,7 +863,6 @@ DEFUN (dump_loop, (scan, free_ptr, new_address_ptr),
                        (*old_start) = (MAKE_BROKEN_HEART (new_address));
                        new_address += 4;
                      }
-                   MAYBE_DUMP_SCAN (scan);
                    count -= 1;
                  }
              }

diff --git a/v7/src/microcode/bchgcl.c b/v7/src/microcode/bchgcl.c
index 5327ed865662d19d80090cb4a65f4a36afc1b8ab..2e7bbb3425ea1d0f7b1605325fc0e18f4cee3466 100644 (file)
--- a/v7/src/microcode/bchgcl.c
+++ b/v7/src/microcode/bchgcl.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bchgcl.c,v 9.51 2000/12/05 21:23:42 cph Exp $
+$Id: bchgcl.c,v 9.52 2001/02/12 22:32:20 cph Exp $
 
-Copyright (c) 1987-2000 Massachusetts Institute of Technology
+Copyright (c) 1987-2001 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -465,7 +465,9 @@ DEFUN (gc_loop,
                scan += 1;
                while (count > 0)
                  {
-                   SCHEME_OBJECT * old_start = (SCHEME_ADDR_TO_ADDR (*scan));
+                   SCHEME_OBJECT * old_start;
+                   MAYBE_DUMP_SCAN (scan);
+                   old_start = (SCHEME_ADDR_TO_ADDR (*scan));
                    if (old_start < low_heap)
                      scan += 1;
                    else if (BROKEN_HEART_P (*old_start))
@@ -482,7 +484,6 @@ DEFUN (gc_loop,
                        (*old_start) = (MAKE_BROKEN_HEART (new_address));
                        new_address += 4;
                      }
-                   MAYBE_DUMP_SCAN (scan);
                    count -= 1;
                  }
              }