From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 25 Apr 1996 04:23:45 +0000 (+0000)
Subject: Fix bug in open coding of SYSTEM-VECTOR-SIZE that became a problem
X-Git-Tag: 20090517-FFI~5562
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=de88e148139c9eefd79bbe696818baaa8b8c69ac;p=mit-scheme.git

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 329d94189..87e68581c 100644
--- 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 1975bdd87..b71756133 100644
--- 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)