alien: these make "utf8 encode" 7-8% faster.

2012-07-17 22:52:37 -07:00 · 2012-07-17 22:52:37 -07:00 · 940848a813
parent 126fbd45a7
commit 940848a813
1 changed files with 4 additions and 0 deletions
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@ -22,6 +22,10 @@ GENERIC: byte-length ( obj -- n ) flushable

 M: object byte-length [ length ] [ element-size ] bi * ; inline

+M: byte-array byte-length length ; inline
+
+M: byte-vector byte-length length ; inline
+
 GENERIC: >c-ptr ( obj -- c-ptr ) flushable

 M: c-ptr >c-ptr ; inline