Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 450:98528da0b7fc r21-2-40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-40
author cvs
date Mon, 13 Aug 2007 11:39:20 +0200
parents 576fb035e263
children 3d3049ae1304
comparison
equal deleted inserted replaced
449:c83749d23eb5 450:98528da0b7fc
446 /* Give gdb/dbx enough information to decode Lisp Objects. We make 446 /* Give gdb/dbx enough information to decode Lisp Objects. We make
447 sure certain symbols are always defined, so gdb doesn't complain 447 sure certain symbols are always defined, so gdb doesn't complain
448 about expressions in src/.gdbinit. See src/.gdbinit or src/.dbxrc 448 about expressions in src/.gdbinit. See src/.gdbinit or src/.dbxrc
449 to see how this is used. */ 449 to see how this is used. */
450 450
451 EMACS_UINT dbg_valmask = ((1UL << VALBITS) - 1) << GCBITS; 451 const EMACS_UINT dbg_valmask = ((1UL << VALBITS) - 1) << GCBITS;
452 EMACS_UINT dbg_typemask = (1UL << GCTYPEBITS) - 1; 452 const EMACS_UINT dbg_typemask = (1UL << GCTYPEBITS) - 1;
453 453
454 #ifdef USE_UNION_TYPE 454 #ifdef USE_UNION_TYPE
455 unsigned char dbg_USE_UNION_TYPE = 1; 455 const unsigned char dbg_USE_UNION_TYPE = 1;
456 #else 456 #else
457 unsigned char dbg_USE_UNION_TYPE = 0; 457 const unsigned char dbg_USE_UNION_TYPE = 0;
458 #endif 458 #endif
459 459
460 unsigned char dbg_valbits = VALBITS; 460 const unsigned char dbg_valbits = VALBITS;
461 unsigned char dbg_gctypebits = GCTYPEBITS; 461 const unsigned char dbg_gctypebits = GCTYPEBITS;
462 462
463 /* Macros turned into functions for ease of debugging. 463 /* Macros turned into functions for ease of debugging.
464 Debuggers don't know about macros! */ 464 Debuggers don't know about macros! */
465 int dbg_eq (Lisp_Object obj1, Lisp_Object obj2); 465 int dbg_eq (Lisp_Object obj1, Lisp_Object obj2);
466 int 466 int
3942 INIT_LRECORD_IMPLEMENTATION (lcrecord_list); 3942 INIT_LRECORD_IMPLEMENTATION (lcrecord_list);
3943 3943
3944 staticidx = 0; 3944 staticidx = 0;
3945 } 3945 }
3946 3946
3947 int pure_bytes_used = 0;
3948
3949 void 3947 void
3950 reinit_alloc (void) 3948 reinit_alloc (void)
3951 { 3949 {
3952 gcprolist = 0; 3950 gcprolist = 0;
3953 } 3951 }
3995 prevent garbage collection during a part of the program. 3993 prevent garbage collection during a part of the program.
3996 3994
3997 See also `consing-since-gc'. 3995 See also `consing-since-gc'.
3998 */ ); 3996 */ );
3999 3997
4000 DEFVAR_INT ("pure-bytes-used", &pure_bytes_used /*
4001 Number of bytes of sharable Lisp data allocated so far.
4002 */ );
4003
4004 #ifdef DEBUG_XEMACS 3998 #ifdef DEBUG_XEMACS
4005 DEFVAR_INT ("debug-allocation", &debug_allocation /* 3999 DEFVAR_INT ("debug-allocation", &debug_allocation /*
4006 If non-zero, print out information to stderr about all objects allocated. 4000 If non-zero, print out information to stderr about all objects allocated.
4007 See also `debug-allocation-backtrace-length'. 4001 See also `debug-allocation-backtrace-length'.
4008 */ ); 4002 */ );