Mercurial > hg > xemacs-beta

comparison src/print.c @ 603:1c880911c386

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-06-01 08:23:09 by martinb] Fix a bunch of 128-bit bugs
author martinb
date Fri, 01 Jun 2001 08:23:12 +0000
parents 0e1f61d4b978
children fdefd0186b75
comparison
equal deleted inserted replaced
602:b9f1a2e84ead 603:1c880911c386
1286 { 1286 {
1287 int i; 1287 int i;
1288 for (i = 0; i < print_depth; i++) 1288 for (i = 0; i < print_depth; i++)
1289 if (EQ (obj, being_printed[i])) 1289 if (EQ (obj, being_printed[i]))
1290 { 1290 {
1291 char buf[32]; 1291 char buf[DECIMAL_PRINT_SIZE (long) + 1];
1292 *buf = '#'; 1292 *buf = '#';
1293 long_to_string (buf + 1, i); 1293 long_to_string (buf + 1, i);
1294 write_c_string (buf, printcharfun); 1294 write_c_string (buf, printcharfun);
1295 return; 1295 return;
1296 } 1296 }
1305 switch (XTYPE (obj)) 1305 switch (XTYPE (obj))
1306 { 1306 {
1307 case Lisp_Type_Int_Even: 1307 case Lisp_Type_Int_Even:
1308 case Lisp_Type_Int_Odd: 1308 case Lisp_Type_Int_Odd:
1309 { 1309 {
1310 /* ASCII Decimal representation uses 2.4 times as many bits as 1310 char buf[DECIMAL_PRINT_SIZE (EMACS_INT)];
1311 machine binary. */
1312 char buf[3 * sizeof (EMACS_INT) + 5];
1313 long_to_string (buf, XINT (obj)); 1311 long_to_string (buf, XINT (obj));
1314 write_c_string (buf, printcharfun); 1312 write_c_string (buf, printcharfun);
1315 break; 1313 break;
1316 } 1314 }
1317 1315