mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-08 10:13:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Support for _unsigned_ specialized arrays of type CL-INDEX (i.e. the smallest unsigned word that fits a fixnum)

Browse source
This commit is contained in:
jjgarcia 2005-06-02 13:44:34 +00:00
parent 31552cc918
commit 9ecbe76d8b
6 changed files with 35 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/sequence.d
View file

@ -195,6 +195,7 @@ E:
switch ((cl_elttype)sequence->vector.elttype) {
case aet_object:
case aet_fix:
case aet_index:
case aet_sf:
for (i = s, j = 0; i < e; i++, j++)
x->vector.self.t[j] = sequence->vector.self.t[i];
@ -325,6 +326,7 @@ cl_reverse(cl_object seq)
switch ((cl_elttype)x->vector.elttype) {
case aet_object:
case aet_fix:
case aet_index:
case aet_sf:
for (j = k - 1, i = 0; j >=0; --j, i++)
y->vector.self.t[j] = x->vector.self.t[i];
@ -401,6 +403,7 @@ cl_nreverse(cl_object seq)
switch ((cl_elttype)x->vector.elttype) {
case aet_object:
case aet_fix:
case aet_index:
for (i = 0, j = k - 1; i < j; i++, --j) {
y = x->vector.self.t[i];
x->vector.self.t[i] = x->vector.self.t[j];