From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 26 Mar 1991 13:14:54 +0000 (+0000)
Subject: Starting loop boundary on heap-clearing loop in allocate_closure was
X-Git-Tag: 20090517-FFI~10814
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1338e606c69d97af8ae9cf506f23cc7c2819a510;p=mit-scheme.git

Starting loop boundary on heap-clearing loop in allocate_closure was
incorrect.
---

diff --git a/v7/src/microcode/cmpintmd/mc68k.h b/v7/src/microcode/cmpintmd/mc68k.h
index 5b2ba6126..49a4266e9 100644
--- a/v7/src/microcode/cmpintmd/mc68k.h
+++ b/v7/src/microcode/cmpintmd/mc68k.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/mc68k.h,v 1.22 1991/03/24 03:01:13 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/mc68k.h,v 1.23 1991/03/26 13:14:54 jinx Exp $
 
 Copyright (c) 1989-1991 Massachusetts Institute of Technology
 
@@ -575,14 +575,14 @@ DEFUN (allocate_closure,
       eptr = (start + size);
     }
 
-      eptr = (start + (compare + 3));
+      eptr = ((start + 3) + compare);
     result = start;
     space = (eptr - start);
     last_chunk_size = space;	/* To be used next time, maybe. */
     result = (start + 3);
     space = (eptr - result);
       unsigned short *wptr;
-    for (ptr = result; ptr < eptr; ptr++)
+
       *ptr = SHARP_F;		/* Allow forward scanning of heap. */
 
     for (ptr = result; ptr < eptr; ptr += CLOSURE_ENTRY_WORDS)