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

Cannot displace arrays with element type T onto arbitrary memory pointed by a foreign pointer

Browse source
This commit is contained in:
jgarcia 2007-01-06 16:29:10 +00:00
parent 6314427a13
commit 5eeac5bae4
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/array.d
View file

@ -613,8 +613,8 @@ displace(cl_object from, cl_object to, cl_object offset)
cl_elttype totype, fromtype;
fromtype = array_elttype(from);
if (type_of(to) == t_foreign) {
if (fromtype == aet_bit) {
FEerror("Cannot displace bit vectors onto foreign data",0);
if (fromtype == aet_bit || fromtype == aet_object) {
FEerror("Cannot displace arrays with element type T or BIT onto foreign data",0);
}
base = to->foreign.data;
j = ecl_fixnum_in_range(@'adjust-array',"array displacement", offset,