From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 9 Nov 1993 03:58:40 +0000 (+0000)
Subject: Fix closure-entry-distance when not HEAP_IN_LOW_MEMORY.
X-Git-Tag: 20090517-FFI~7576
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=87f095873a4f507eed69edacf4bccc6dcbf396d8;p=mit-scheme.git

Fix closure-entry-distance when not HEAP_IN_LOW_MEMORY.
---

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))
 		       ")"))))