alien: these make "utf8 encode" 7-8% faster.
parent
126fbd45a7
commit
940848a813
|
@ -22,6 +22,10 @@ GENERIC: byte-length ( obj -- n ) flushable
|
||||||
|
|
||||||
M: object byte-length [ length ] [ element-size ] bi * ; inline
|
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
|
GENERIC: >c-ptr ( obj -- c-ptr ) flushable
|
||||||
|
|
||||||
M: c-ptr >c-ptr ; inline
|
M: c-ptr >c-ptr ; inline
|
||||||
|
|
Loading…
Reference in New Issue