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

Reordering statements in ecl_{aset,aref} gives 25% speedup

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-03 14:34:24 +02:00
parent 8a3c9cea2c
commit 4ef65fa6cc
1 changed files with 26 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

46
src/c/array.d
View file

@ -188,21 +188,25 @@ ecl_aref_unsafe(cl_object x, cl_index index)
cl_object
ecl_aref(cl_object x, cl_index index)
{
if (!ECL_ARRAYP(x))
FEtype_error_array(x);
if (index >= x->array.dim)
if (ECL_ARRAYP(x)) {
if (index < x->array.dim) {
return ecl_aref_unsafe(x, index);
}
out_of_bounds_error(index, x);
return ecl_aref_unsafe(x, index);
}
FEtype_error_array(x);
}
cl_object
ecl_aref1(cl_object v, cl_index index)
ecl_aref1(cl_object x, cl_index index)
{
if (!ECL_VECTORP(v))
FEtype_error_vector(v);
if (index >= v->array.dim)
out_of_bounds_error(index, v);
return ecl_aref_unsafe(v, index);
if (ECL_VECTORP(x)) {
if (index < x->array.dim) {
return ecl_aref_unsafe(x, index);
}
out_of_bounds_error(index, x);
}
FEtype_error_array(x);
}
/*
@ -318,21 +322,23 @@ ecl_aset_unsafe(cl_object x, cl_index index, cl_object value)
cl_object
ecl_aset(cl_object x, cl_index index, cl_object value)
{
if (!ECL_ARRAYP(x))
FEtype_error_array(x);
if (index >= x->array.dim)
if (ECL_ARRAYP(x)) {
if (index < x->array.dim)
return ecl_aset_unsafe(x, index, value);
out_of_bounds_error(index, x);
return ecl_aset_unsafe(x, index, value);
}
FEtype_error_array(x);
}
cl_object
ecl_aset1(cl_object v, cl_index index, cl_object val)
ecl_aset1(cl_object x, cl_index index, cl_object value)
{
if (!ECL_VECTORP(v))
FEtype_error_vector(v);
if (index >= v->array.dim)
out_of_bounds_error(index, v);
return ecl_aset_unsafe(v, index, val);
if (ECL_VECTORP(x)) {
if (index < x->array.dim)
return ecl_aset_unsafe(x, index, value);
out_of_bounds_error(index, x);
}
FEtype_error_array(x);
}
/*