steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

byte-arrays: faster clone-like when both arguments are byte-arrays.

db4
John Benediktsson 2013-06-25 15:39:24 -07:00
parent 6497dd0fe4
commit a1567bb01c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/byte-arrays/byte-arrays.factor
View File

@ -8,6 +8,8 @@ BUILTIN: byte-array
{ length array-capacity read-only initial: 0 } ; { length array-capacity read-only initial: 0 } ;
M: byte-array clone (clone) ; inline M: byte-array clone (clone) ; inline
M: byte-array clone-like
over byte-array? [ drop clone ] [ call-next-method ] if ; inline
M: byte-array length length>> ; inline M: byte-array length length>> ; inline
M: byte-array nth-unsafe swap integer>fixnum alien-unsigned-1 ; inline M: byte-array nth-unsafe swap integer>fixnum alien-unsigned-1 ; inline
M: byte-array set-nth-unsafe swap integer>fixnum set-alien-unsigned-1 ; inline M: byte-array set-nth-unsafe swap integer>fixnum set-alien-unsigned-1 ; inline