From de88e148139c9eefd79bbe696818baaa8b8c69ac Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 25 Apr 1996 04:23:45 +0000 Subject: [PATCH] Fix bug in open coding of SYSTEM-VECTOR-SIZE that became a problem when it was enabled by the previous change. --- v8/src/compiler/midend/fakeprim.scm | 5 ++--- v8/src/compiler/midend/rtlgen.scm | 6 +++--- 2 files changed, 5 insertions(+), 6 deletions(-) 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) -- 2.25.1