From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 26 Oct 1993 19:38:22 +0000 (+0000)
Subject: Change needed to resurrect the C back end.
X-Git-Tag: 20090517-FFI~7693
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1f84d18e5dcd6d0cf7ac658b1e3ad4c287e32ab7;p=mit-scheme.git

Change needed to resurrect the C back end.
---

diff --git a/v7/src/compiler/machines/C/compiler.pkg b/v7/src/compiler/machines/C/compiler.pkg
index 0fdd1c3af..d18357b5f 100644
--- a/v7/src/compiler/machines/C/compiler.pkg
+++ b/v7/src/compiler/machines/C/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.4 1993/10/12 07:28:44 cph Exp $
+$Id: compiler.pkg,v 1.5 1993/10/26 19:38:22 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -505,7 +505,8 @@ MIT in each case. |#
   (files "rtlgen/rgcomb")
   (parent (compiler rtl-generator))
   (export (compiler rtl-generator)
-	  generate/combination)
+	  generate/combination
+	  rtl:bump-closure)
   (export (compiler rtl-generator combination/inline)
 	  generate/invocation-prefix))
 
diff --git a/v7/src/compiler/rtlgen/opncod.scm b/v7/src/compiler/rtlgen/opncod.scm
index 99df09de3..49f868160 100644
--- a/v7/src/compiler/rtlgen/opncod.scm
+++ b/v7/src/compiler/rtlgen/opncod.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: opncod.scm,v 4.60 1993/07/01 03:26:29 gjr Exp $
+$Id: opncod.scm,v 4.61 1993/10/26 19:34:45 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -472,8 +472,9 @@ MIT in each case. |#
 	    (if (and (object-type? (ucode-type fixnum) value)
 		     (not (negative? value)))
 		(finish
-		 (make-constant-locative base
-					 (+ value header-length-in-units)))
+		 (make-constant-locative
+		  base
+		  (back-end:+ value header-length-in-units)))
 		(unknown-index)))
 	  (unknown-index)))))
 
@@ -498,7 +499,7 @@ MIT in each case. |#
    (lambda (expression) (rtl:make-fetch (rtl:locative-offset expression 1)))
    (index-locative-generator rtl:locative-byte-offset
 			     rtl:locative-byte-index
-			     (* 2 address-units-per-object)
+			     (back-end:* address-units-per-object 2)
 			     scfg*scfg->scfg!)))
 
 (define float-memory-reference