From 87f095873a4f507eed69edacf4bccc6dcbf396d8 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 9 Nov 1993 03:58:40 +0000
Subject: [PATCH] Fix closure-entry-distance when not HEAP_IN_LOW_MEMORY.

---
 v7/src/compiler/machines/C/machin.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/compiler/machines/C/machin.scm b/v7/src/compiler/machines/C/machin.scm
index d617a5e5a..3cb5777b5 100644
--- a/v7/src/compiler/machines/C/machin.scm
+++ b/v7/src/compiler/machines/C/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.6 1993/11/08 22:41:40 gjr Exp $
+$Id: machin.scm,v 1.7 1993/11/09 03:58:40 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -107,14 +107,14 @@ MIT in each case. |#
      ;; Manifest closure header, number of entries, then entries.
      (+ 1 1 (* closure-entry-size nentries)))))
 
-;; Bump from one entry point to another -- distance in BYTES
+;; Bump from one entry point to another -- distance in addressing units.
 
 (define (closure-entry-distance nentries entry entry*) ; for now
   nentries				; ignored
   (let ((entry-delta (- entry* entry)))
     (if (zero? entry-delta)
 	0
-	(string-append "((sizeof (SCHEME_OBJECT)) * "
+	(string-append "(CLOSURE_ENTRY_DELTA * "
 		       (number->string
 			(* closure-entry-size entry-delta))
 		       ")"))))
-- 
2.25.1