Fix bug in open coding of SYSTEM-VECTOR-SIZE that became a problem

when it was enabled by the previous change.

diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm
index 329d941898f8a6aaca7261f81c4d43b48cfd2da9..87e68581cbf7aa56e3795bf27f5f92eb5084f5f7 100644 (file)
--- a/v8/src/compiler/midend/fakeprim.scm
+++ b/v8/src/compiler/midend/fakeprim.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: fakeprim.scm,v 1.24 1996/03/08 17:16:12 adams Exp $
+$Id: fakeprim.scm,v 1.25 1996/04/25 04:23:45 cph Exp $
 
-Copyright (c) 1994-1995 Massachusetts Institute of Technology
+Copyright (c) 1994-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -1093,7 +1093,6 @@ MIT in each case. |#
        ;;string-length vector-8b-ref
        system-pair-car system-pair-cdr
        system-hunk3-cxr0 system-hunk3-cxr1 system-hunk3-cxr2
-       (make-primitive-procedure 'SYSTEM-VECTOR-SIZE)
        system-vector-ref
        (make-primitive-procedure 'SYSTEM-VECTOR-SIZE)
        (make-primitive-procedure 'GET-INTERRUPT-ENABLES)

diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index 1975bdd872c46644af523d661e8cd10625f25d47..b71756133339a354c3aef2069efc7d0fe7083cbc 100644 (file)
--- a/v8/src/compiler/midend/rtlgen.scm
+++ b/v8/src/compiler/midend/rtlgen.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: rtlgen.scm,v 1.43 1996/03/08 17:15:38 adams Exp $
+$Id: rtlgen.scm,v 1.44 1996/04/25 04:23:33 cph Exp $
 
-Copyright (c) 1994-1995 Massachusetts Institute of Technology
+Copyright (c) 1994-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -3698,7 +3698,7 @@ MIT in each case. |#
   (define-fixnumized-selector/tagged %vector-length  (machine-tag 'VECTOR) 0)
   ;;(define-fixnumized-selector/tagged '%RECORD-LENGTH (machine-tag 'RECORD) 0)
   (define-fixnumized-selector/tagged %%RECORD-LENGTH (machine-tag 'RECORD) 0)
-  (define-fixnumized-selector/tagged 'SYSTEM-VECTOR-SIZE false 1)
+  (define-fixnumized-selector/tagged 'SYSTEM-VECTOR-SIZE false 0)
   ;;(define-fixnumized-selector 'STRING-LENGTH     (machine-tag 'STRING)    1)
   (define-fixnumized-selector %STRING-LENGTH     (machine-tag 'STRING)    1)
   ;;(define-fixnumized-selector 'BIT-STRING-LENGTH (machine-tag 'VECTOR-1B) 1)