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

Fix #402 multiple-values are not returned (reverted)

Browse source 
Reintroduce fix for additional coverity warnings.
This commit is contained in:
Fabrizio Fabbri 2017-09-10 23:36:41 -04:00
parent db5a55c820
commit f0d09de88e
No known key found for this signature in database
GPG key ID: 8276EDF3D10E6C35
9 changed files with 30 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/array.d
View file

@ -550,7 +550,6 @@ ecl_array_allocself(cl_object x)
}
#endif
case ecl_aet_bc: {
cl_index elt_size = 1;
x->vector.self.bc = (ecl_base_char *)ecl_alloc_atomic(d+1);
/* Null terminate the string */
x->vector.self.bc[d] = 0;
@ -752,7 +751,7 @@ cl_array_element_type(cl_object a)
void
ecl_displace(cl_object from, cl_object to, cl_object offset)
{
cl_index j;
cl_fixnum j;
void *base;
cl_elttype totype, fromtype;
fromtype = from->array.elttype;