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 0fdd1c3af05badd84d4e132ad223018eb4632f09..d18357b5f102fd78abca7a80690adbe095f06d7f 100644 (file)
--- 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 99df09de363f97a50793af90be02281c491feb77..49f8681603096c3a57ecb2146b2d0cd329f30a48 100644 (file)
--- 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!)))
 \f
 (define float-memory-reference