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

The mailbox did not set its mask properly

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-15 20:39:09 +02:00
parent 324f2c59cc
commit 0ce91a565d
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/threads/mailbox.d
View file

@ -34,8 +34,9 @@ ecl_make_mailbox(cl_object name, cl_fixnum count)
cl_fixnum mask;
for (mask = 1; mask < count; mask <<= 1) {}
if (mask == 1)
mask = 63;
count = mask + 1;
mask = 63;
count = mask;
mask = count - 1;
output->mailbox.name = name;
output->mailbox.data = si_make_vector(Ct, /* element type */
MAKE_FIXNUM(count), /* size */
@ -48,7 +49,7 @@ ecl_make_mailbox(cl_object name, cl_fixnum count)
output->mailbox.writer_semaphore =
ecl_make_semaphore(name, count);
output->mailbox.read_pointer = 0;
output->mailbox.write_pointer = 1;
output->mailbox.write_pointer = 0;
output->mailbox.mask = mask;
return output;
}