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

Removed further warnings about uninitialized or unused variables and functions

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-11 23:04:27 +02:00
parent a7eead6ba7
commit fbd3587b1a
15 changed files with 21 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/array.d
View file

@ -48,8 +48,6 @@ static const cl_object ecl_aet_name[] = {
@'base-char' /* aet_bc */
};
static void check_displaced (cl_object dlist, cl_object orig, cl_index newdim);
static void FEbad_aet() ecl_attr_noreturn;
static void
@ -731,12 +729,6 @@ address_inc(void *address, cl_fixnum inc, cl_elttype elt_type)
}
}
static void *
array_address(cl_object x, cl_index inc)
{
return address_inc(x->array.self.t, inc, x->array.elttype);
}
cl_object
cl_array_element_type(cl_object a)
{