Mercurial > hg > xemacs-beta

comparison src/number.c @ 4959:bd169a24a554

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Thu, 28 Jan 2010 04:27:30 -0600
parents d1d4ce10c7b4 db2db229ee82
children e813cf16c015
comparison
equal deleted inserted replaced
4893:99f2102552d7 4959:bd169a24a554
51 #ifdef HAVE_BIGNUM 51 #ifdef HAVE_BIGNUM
52 static void 52 static void
53 bignum_print (Lisp_Object obj, Lisp_Object printcharfun, 53 bignum_print (Lisp_Object obj, Lisp_Object printcharfun,
54 int UNUSED (escapeflag)) 54 int UNUSED (escapeflag))
55 { 55 {
56 CIbyte *bstr = bignum_to_string (XBIGNUM_DATA (obj), 10); 56 Ascbyte *bstr = bignum_to_string (XBIGNUM_DATA (obj), 10);
57 write_c_string (printcharfun, bstr); 57 write_ascstring (printcharfun, bstr);
58 xfree (bstr, CIbyte *); 58 xfree (bstr, Ascbyte *);
59 } 59 }
60 60
61 #ifdef NEW_GC 61 #ifdef NEW_GC
62 static void 62 static void
63 bignum_finalize (void *header, int for_disksave) 63 bignum_finalize (void *header, int for_disksave)
144 static void 144 static void
145 ratio_print (Lisp_Object obj, Lisp_Object printcharfun, 145 ratio_print (Lisp_Object obj, Lisp_Object printcharfun,
146 int UNUSED (escapeflag)) 146 int UNUSED (escapeflag))
147 { 147 {
148 CIbyte *rstr = ratio_to_string (XRATIO_DATA (obj), 10); 148 CIbyte *rstr = ratio_to_string (XRATIO_DATA (obj), 10);
149 write_c_string (printcharfun, rstr); 149 write_ascstring (printcharfun, rstr);
150 xfree (rstr, CIbyte *); 150 xfree (rstr, CIbyte *);
151 } 151 }
152 152
153 #ifdef NEW_GC 153 #ifdef NEW_GC
154 static void 154 static void
247 #ifdef HAVE_BIGFLOAT 247 #ifdef HAVE_BIGFLOAT
248 static void 248 static void
249 bigfloat_print (Lisp_Object obj, Lisp_Object printcharfun, 249 bigfloat_print (Lisp_Object obj, Lisp_Object printcharfun,
250 int UNUSED (escapeflag)) 250 int UNUSED (escapeflag))
251 { 251 {
252 CIbyte *fstr = bigfloat_to_string (XBIGFLOAT_DATA (obj), 10); 252 Ascbyte *fstr = bigfloat_to_string (XBIGFLOAT_DATA (obj), 10);
253 write_c_string (printcharfun, fstr); 253 write_ascstring (printcharfun, fstr);
254 xfree (fstr, CIbyte *); 254 xfree (fstr, CIbyte *);
255 } 255 }
256 256
257 #ifdef NEW_GC 257 #ifdef NEW_GC
258 static void 258 static void