From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Mar 2001 22:13:16 +0000 (+0000)
Subject: Add LENGTH member to external-string structure.  It turns out that
X-Git-Tag: 20090517-FFI~2889
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=60da15c882c988a1acd64e3691805db6546a4231;p=mit-scheme.git

Add LENGTH member to external-string structure.  It turns out that
it's important that fetching the length be fast.
---

diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm
index 8464060e5..8cdaf3eb9 100644
--- a/v7/src/runtime/string.scm
+++ b/v7/src/runtime/string.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: string.scm,v 14.38 2001/01/05 20:15:29 cph Exp $
+$Id: string.scm,v 14.39 2001/03/19 22:13:16 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -975,23 +975,17 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   unspecific)
 
 (define-structure external-string
-  (descriptor #f read-only #t))
+  (descriptor #f read-only #t)
+  (length #f read-only #t))
 
 (define (allocate-external-string n-bytes)
   (without-interrupts
    (lambda ()
      (let ((descriptor ((ucode-primitive allocate-external-string) n-bytes)))
-       (let ((xstring (make-external-string descriptor)))
+       (let ((xstring (make-external-string descriptor n-bytes)))
 	 (add-to-gc-finalizer! external-strings xstring descriptor)
 	 xstring)))))
 
-(define (external-string-length xstring)
-  (if (not (external-string? xstring))
-      (error:wrong-type-argument xstring "external string"
-				 'EXTERNAL-STRING-LENGTH))
-   ((ucode-primitive extended-string-length)
-    (external-string-descriptor xstring)))
-
 (define (xstring? object)
   (or (string? object)
       (external-string? object)))
@@ -1000,8 +994,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (cond ((string? xstring)
 	 (string-length xstring))
 	((external-string? xstring)
-	 ((ucode-primitive extended-string-length)
-	  (external-string-descriptor xstring)))
+	 (external-string-length string))
 	(else
 	 (error:wrong-type-argument xstring "xstring" 'XSTRING-LENGTH))))