From bb10ce69e30498d1c3b5bdd1f33960803cd107d3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 12 Feb 2001 22:32:32 +0000
Subject: [PATCH] Fix fencepost error in handling of linkage sections.

---
 v7/src/microcode/bchdmp.c | 9 +++++----
 v7/src/microcode/bchgcl.c | 9 +++++----
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index fa3b38620..de44a953c 100644
--- 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 5327ed865..2e7bbb342 100644
--- 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;
 		  }
 	      }
-- 
2.25.1