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 5b2ba6126ca391416a3094ee7aabfb1a2cf53cb4..49a4266e9a2c4985fbd438bb83525efc2bf1fcd4 100644 (file)
--- 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)