From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 28 Oct 1993 02:56:17 +0000 (+0000)
Subject: Remove fossil.
X-Git-Tag: 20090517-FFI~7657
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0f3fd603f6a42566051f20b7096feea1bec51a2c;p=mit-scheme.git

Remove fossil.
---

diff --git a/v7/src/compiler/machines/C/rules3.scm b/v7/src/compiler/machines/C/rules3.scm
index 32d8cbaf0..b896a1733 100644
--- a/v7/src/compiler/machines/C/rules3.scm
+++ b/v7/src/compiler/machines/C/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rules3.scm,v 1.3 1993/10/27 22:10:14 gjr Exp $
+$Id: rules3.scm,v 1.4 1993/10/28 02:56:17 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -415,12 +415,6 @@ MIT in each case. |#
 	   ,(number->string code:compiler-interrupt-closure)
 	   ");\n\t"))))
 
-(define (build-gc-offset-word offset code-word)
-  (let ((encoded-offset (quotient offset 2)))
-    (if (eq? endianness 'LITTLE)
-	(+ (* encoded-offset #x10000) code-word)
-	(+ (* code-word #x10000) encoded-offset))))
-
 (define (write-closure-entry internal-label min max offset)
   (let ((external-label
 	 (rtl-procedure/external-label (label->object internal-label))))