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

write_addr() would only output the first digit of any number.

Browse source
This commit is contained in:
jjgarcia 2001-07-23 08:38:02 +00:00
parent c714dc74ca
commit e8d4cf7438
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/print.d
View file

@ -352,7 +352,7 @@ write_addr(cl_object x)
cl_fixnum i, j;
i = (cl_index)x;
for (j = sizeof(i)-4; j >= 0; j -= 4) {
for (j = sizeof(i)*8-4; j >= 0; j -= 4) {
int k = (i>>j) & 0xf;
if (k < 10)
write_ch('0' + k);