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 d617a5e5abd04dd62389e7f89823f4717252bc07..3cb5777b56fbbb1a7ac0ec4060c3460e48fde376 100644 (file)
--- 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))
                       ")"))))