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

Replace a couple of uses of si_make_vector with ecl_alloc_simple_vector

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-08-29 18:59:12 +02:00
parent 4bcd908a0a
commit 2e1ba7a9e9
2 changed files with 2 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/c/main.d
View file

@ -345,9 +345,7 @@ read_char_database()
if (!fseek(f, 0, SEEK_END)) {
size = ftell(f);
fseek(f, 0, SEEK_SET);
output = si_make_vector(@'ext::byte8', MAKE_FIXNUM(size),
Cnil, Cnil, Cnil, Cnil);
output = ecl_alloc_simple_vector(size, aet_b8);
read = 0;
while (read < size) {
cl_index res;
@ -578,15 +576,6 @@ cl_boot(int argc, char **argv)
a vector of weak pointers thanks to the magic in
gbc.d/alloc_2.d */
cl_core.libraries = Cnil;
#if 0
/* FINALIZERS and FINALIZABLE_OBJECTS are also like LIBRARIES */
cl_core.finalizable_objects = si_make_vector(@'t', MAKE_FIXNUM(512),
@'t', MAKE_FIXNUM(0),
@'nil', @'nil');
cl_core.finalizers = si_make_vector(@'t', MAKE_FIXNUM(512),
@'t', MAKE_FIXNUM(0),
@'nil', @'nil');
#endif
cl_core.to_be_finalized = Cnil;
cl_core.bytes_consed = Cnil;
cl_core.gc_counter = Cnil;

2
src/c/num_log.d
View file

@ -731,7 +731,7 @@ si_bit_array_op(cl_object o, cl_object x, cl_object y, cl_object r)
}
L1:
if (Null(r)) {
r = si_make_vector(@'bit', MAKE_FIXNUM(d), Cnil, Cnil, Cnil, Cnil);
r = ecl_alloc_simple_vector(d, aet_bit);
}
} else {
if (type_of(x) != t_array)