Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 460:223736d75acb r21-2-45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-45
author cvs
date Mon, 13 Aug 2007 11:43:24 +0200
parents c33ae14dd6d0
children e9a3f8b4de53
comparison
equal deleted inserted replaced
459:9d4fd877b885 460:223736d75acb
1313 } 1313 }
1314 1314
1315 Lisp_Object 1315 Lisp_Object
1316 make_bit_vector_from_byte_vector (unsigned char *bytevec, size_t length) 1316 make_bit_vector_from_byte_vector (unsigned char *bytevec, size_t length)
1317 { 1317 {
1318 int i; 1318 size_t i;
1319 Lisp_Bit_Vector *p = make_bit_vector_internal (length); 1319 Lisp_Bit_Vector *p = make_bit_vector_internal (length);
1320 1320
1321 for (i = 0; i < length; i++) 1321 for (i = 0; i < length; i++)
1322 set_bit_vector_bit (p, i, bytevec[i]); 1322 set_bit_vector_bit (p, i, bytevec[i]);
1323 1323
3531 `gc-cons-threshold' bytes of Lisp data since previous garbage collection. 3531 `gc-cons-threshold' bytes of Lisp data since previous garbage collection.
3532 */ 3532 */
3533 ()) 3533 ())
3534 { 3534 {
3535 Lisp_Object pl = Qnil; 3535 Lisp_Object pl = Qnil;
3536 int i; 3536 unsigned int i;
3537 int gc_count_vector_total_size = 0; 3537 int gc_count_vector_total_size = 0;
3538 3538
3539 garbage_collect_1 (); 3539 garbage_collect_1 ();
3540 3540
3541 for (i = 0; i < lrecord_type_count; i++) 3541 for (i = 0; i < lrecord_type_count; i++)
3546 { 3546 {
3547 char buf [255]; 3547 char buf [255];
3548 const char *name = lrecord_implementations_table[i]->name; 3548 const char *name = lrecord_implementations_table[i]->name;
3549 int len = strlen (name); 3549 int len = strlen (name);
3550 /* save this for the FSFmacs-compatible part of the summary */ 3550 /* save this for the FSFmacs-compatible part of the summary */
3551 if (i == lrecord_vector.lrecord_type_index) 3551 if (i == lrecord_type_vector)
3552 gc_count_vector_total_size = 3552 gc_count_vector_total_size =
3553 lcrecord_stats[i].bytes_in_use + lcrecord_stats[i].bytes_freed; 3553 lcrecord_stats[i].bytes_in_use + lcrecord_stats[i].bytes_freed;
3554 3554
3555 sprintf (buf, "%s-storage", name); 3555 sprintf (buf, "%s-storage", name);
3556 pl = gc_plist_hack (buf, lcrecord_stats[i].bytes_in_use, pl); 3556 pl = gc_plist_hack (buf, lcrecord_stats[i].bytes_in_use, pl);