Mercurial > hg > xemacs-beta

comparison src/free-hook.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 376386a54a3c
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
429 strict_free_check = 1; 429 strict_free_check = 1;
430 } 430 }
431 431
432 void really_free_one_entry (void *, int, int *); 432 void really_free_one_entry (void *, int, int *);
433 433
434 DEFUN ("really-free", Freally_free, Sreally_free, 0, 1, "P" /* 434 DEFUN ("really-free", Freally_free, 0, 1, "P", /*
435 Actually free the storage held by the free() debug hook. 435 Actually free the storage held by the free() debug hook.
436 A no-op if the free hook is disabled. 436 A no-op if the free hook is disabled.
437 */ ) 437 */
438 (arg) 438 (arg))
439 Lisp_Object arg;
440 { 439 {
441 int count[2]; 440 int count[2];
442 Lisp_Object lisp_count[2]; 441 Lisp_Object lisp_count[2];
443 442
444 if ((__free_hook != 0) && pointer_table) 443 if ((__free_hook != 0) && pointer_table)
475 } 474 }
476 475
477 void 476 void
478 syms_of_free_hook (void) 477 syms_of_free_hook (void)
479 { 478 {
480 defsubr (&Sreally_free); 479 DEFSUBR (Freally_free);
481 } 480 }
482 481
483 #else 482 #else
484 void (*__free_hook)() = check_free; 483 void (*__free_hook)() = check_free;
485 void *(*__malloc_hook)() = check_malloc; 484 void *(*__malloc_hook)() = check_malloc;