Mercurial > emacs
comparison src/print.c @ 53537:c8f34cd38fd0
(print_preprocess) <case Lisp_Vectorlike>: Only mask
size if PSEUDOVECTOR_FLAG is set.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Thu, 08 Jan 2004 00:15:52 +0000 |
| parents | 6f8ae3624b9e |
| children | 47b66024b855 82554ed1aed8 |
comparison
equal
deleted
inserted
replaced
| 53536:479dc1181cb1 | 53537:c8f34cd38fd0 |
|---|---|
| 1340 print_preprocess (XCAR (obj)); | 1340 print_preprocess (XCAR (obj)); |
| 1341 obj = XCDR (obj); | 1341 obj = XCDR (obj); |
| 1342 goto loop; | 1342 goto loop; |
| 1343 | 1343 |
| 1344 case Lisp_Vectorlike: | 1344 case Lisp_Vectorlike: |
| 1345 size = XVECTOR (obj)->size & PSEUDOVECTOR_SIZE_MASK; | 1345 size = XVECTOR (obj)->size; |
| 1346 if (size & PSEUDOVECTOR_FLAG) | |
| 1347 size &= PSEUDOVECTOR_SIZE_MASK; | |
| 1346 for (i = 0; i < size; i++) | 1348 for (i = 0; i < size; i++) |
| 1347 print_preprocess (XVECTOR (obj)->contents[i]); | 1349 print_preprocess (XVECTOR (obj)->contents[i]); |
| 1348 break; | 1350 break; |
| 1349 | 1351 |
| 1350 default: | 1352 default: |