From 22fce107bceea6959c2674b36d7e82e6646e5f11 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 5 Nov 1993 20:36:46 +0000 Subject: [PATCH] Fix innocuous logical off-by-one error. --- v7/src/microcode/fasload.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c index a25790bc0..0ef7854d9 100644 --- a/v7/src/microcode/fasload.c +++ b/v7/src/microcode/fasload.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: fasload.c,v 9.75 1993/11/04 23:50:45 gjr Exp $ +$Id: fasload.c,v 9.76 1993/11/05 20:36:46 gjr Exp $ Copyright (c) 1987-1993 Massachusetts Institute of Technology @@ -552,7 +552,7 @@ DEFUN (Relocate_Block, (Scan, Stop_At), Scan += 1; count = (MANIFEST_CLOSURE_COUNT (Scan)); word_ptr = (FIRST_MANIFEST_CLOSURE_ENTRY (Scan)); - area_end = ((MANIFEST_CLOSURE_END (Scan, count)) + 1); + area_end = (MANIFEST_CLOSURE_END (Scan, count)); while ((--count) >= 0) { @@ -563,8 +563,8 @@ DEFUN (Relocate_Block, (Scan, Stop_At), address = ((long) (RELOCATE (address))); STORE_CLOSURE_ENTRY_ADDRESS ((ADDR_TO_SCHEME_ADDR (address)), Scan); } - Scan = area_end; - END_CLOSURE_RELOCATION (Scan); + END_CLOSURE_RELOCATION (area_end); + Scan = (area_end + 1); break; } -- 2.25.1