From 1129f4e30b90253efb70674bbf87f34d0d349bac Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 2 Aug 2006 12:36:50 +0000
Subject: [PATCH] repair tagged-array sweep that steps too far if an alignment
 word was added

svn: r3924
---
 src/mzscheme/gc2/newgc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/gc2/newgc.c b/src/mzscheme/gc2/newgc.c
index acdf380cdf..59b0197c20 100644
--- a/src/mzscheme/gc2/newgc.c
+++ b/src/mzscheme/gc2/newgc.c
@@ -2533,7 +2533,7 @@ static void repair_heap(void)
 		struct objhead *info = (struct objhead *)start;
 		size_t size = info->size;
 		if(info->mark) {
-		  void **tempend = (++start) + (size - 1);
+		  void **tempend = (start++) + (size - 1);
 		  unsigned short tag = *(unsigned short*)start;
 		  while(start < tempend)
 		    start += fixup_table[tag](start);