From 0f3fd603f6a42566051f20b7096feea1bec51a2c Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 28 Oct 1993 02:56:17 +0000 Subject: [PATCH] Remove fossil. --- v7/src/compiler/machines/C/rules3.scm | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) 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)))) -- 2.25.1