From 1338e606c69d97af8ae9cf506f23cc7c2819a510 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 26 Mar 1991 13:14:54 +0000 Subject: [PATCH] Starting loop boundary on heap-clearing loop in allocate_closure was incorrect. --- v7/src/microcode/cmpintmd/mc68k.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1