mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

stacks: fix issues with ecl_make_stack

Browse source 
these functions are not used by us yet, so these issues were not noticed. Most
notably we did not assign the vector type and did not release the object.
This commit is contained in:
Daniel Kochmański 2025-06-06 15:19:06 +02:00
parent 9a894b7dab
commit d880e6f276
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/stacks.d
View file

@ -955,6 +955,7 @@ cl_object
ecl_make_stack(cl_index size)
{
cl_object x = ecl_malloc(sizeof(struct ecl_vector));
x->vector.t = t_vector;
x->vector.elttype = ecl_aet_object;
x->vector.self.t = NULL;
x->vector.displaced = ECL_NIL;
@ -968,6 +969,7 @@ void
ecl_free_stack(cl_object self)
{
ecl_free(self->vector.self.t);
ecl_free(self);
}
void