From b5afc17ed5d8b29cbef9a525a9814d018bd0d8ac Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 7 Mar 1995 05:57:24 +0000 Subject: [PATCH] Added bit-string-length. --- v8/src/compiler/midend/ea2.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v8/src/compiler/midend/ea2.scm b/v8/src/compiler/midend/ea2.scm index 5064dc64b..aafdfa29b 100644 --- a/v8/src/compiler/midend/ea2.scm +++ b/v8/src/compiler/midend/ea2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: ea2.scm,v 1.1 1995/03/01 14:02:52 adams Exp $ +$Id: ea2.scm,v 1.2 1995/03/07 05:57:24 adams Exp $ Copyright (c) 1995 Massachusetts Institute of Technology @@ -741,7 +741,8 @@ MIT in each case. |# vector-length flo:vector-length length) ;;((unary-result earlyrew/type/*small-non-negative-fixnum) string-length) - ((unary-result earlyrew/type/*string-length) string-length) + (do-each (unary-result earlyrew/type/*string-length) + string-length bit-string-length) ((unary-result earlyrew/type/*small-fixnum) object-type) ) -- 2.25.1