Mercurial > hg > xemacs-beta

comparison src/doprnt.c @ 4333:3483b381b0a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Take out some debug code; correct some original code.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 18 Dec 2007 19:41:58 +0100
parents d9eb5ea14f65
children cacc942c0d0f
comparison
equal deleted inserted replaced
4329:d9eb5ea14f65 4333:3483b381b0a9
663 { 663 {
664 case 'i': case 'd': ch = 'n'; break; 664 case 'i': case 'd': ch = 'n'; break;
665 case 'o': ch = 'p'; break; 665 case 'o': ch = 'p'; break;
666 case 'x': ch = 'y'; break; 666 case 'x': ch = 'y'; break;
667 case 'X': ch = 'Y'; break; 667 case 'X': ch = 'Y'; break;
668 case 'b': ch = 'b'; break; 668 case 'b': ch = '\337'; break;
669 default: /* ch == 'u' */ 669 default: /* ch == 'u' */
670 if (strchr (unsigned_int_converters, ch) && 670 if (strchr (unsigned_int_converters, ch) &&
671 ratio_sign (XRATIO_DATA (obj)) < 0) 671 ratio_sign (XRATIO_DATA (obj)) < 0)
672 dead_wrong_type_argument (Qnonnegativep, obj); 672 dead_wrong_type_argument (Qnonnegativep, obj);
673 else 673 else
745 base = 2; 745 base = 2;
746 746
747 #ifdef HAVE_BIGNUM 747 #ifdef HAVE_BIGNUM
748 if (BIGNUMP (arg.obj)) 748 if (BIGNUMP (arg.obj))
749 { 749 {
750 bignum *d = XBIGNUM_DATA (arg.obj);
751 Ibyte *text_to_print = 750 Ibyte *text_to_print =
752 (Ibyte *) bignum_to_string (XBIGNUM_DATA (arg.obj), 751 (Ibyte *) bignum_to_string (XBIGNUM_DATA (arg.obj),
753 base); 752 base);
754 doprnt_2 (stream, text_to_print, 753 doprnt_2 (stream, text_to_print,
755 strlen ((const char *) text_to_print), 754 strlen ((const char *) text_to_print),