aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c56
1 files changed, 28 insertions, 28 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 101f599d009..0a7597e65c6 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1659,7 +1659,7 @@ compact_small_strings ()
1659 1659
1660 1660
1661DEFUN ("make-string", Fmake_string, Smake_string, 2, 2, 0, 1661DEFUN ("make-string", Fmake_string, Smake_string, 2, 2, 0,
1662 doc: /* Return a newly created string of length LENGTH, with each element being INIT. 1662 doc: /* Return a newly created string of length LENGTH, with each element being INIT.
1663Both LENGTH and INIT must be numbers. */) 1663Both LENGTH and INIT must be numbers. */)
1664 (length, init) 1664 (length, init)
1665 Lisp_Object length, init; 1665 Lisp_Object length, init;
@@ -1703,7 +1703,7 @@ Both LENGTH and INIT must be numbers. */)
1703 1703
1704 1704
1705DEFUN ("make-bool-vector", Fmake_bool_vector, Smake_bool_vector, 2, 2, 0, 1705DEFUN ("make-bool-vector", Fmake_bool_vector, Smake_bool_vector, 2, 2, 0,
1706 doc: /* Return a new bool-vector of length LENGTH, using INIT for as each element. 1706 doc: /* Return a new bool-vector of length LENGTH, using INIT for as each element.
1707LENGTH must be a number. INIT matters only in whether it is t or nil. */) 1707LENGTH must be a number. INIT matters only in whether it is t or nil. */)
1708 (length, init) 1708 (length, init)
1709 Lisp_Object length, init; 1709 Lisp_Object length, init;
@@ -2057,7 +2057,7 @@ free_cons (ptr)
2057 2057
2058 2058
2059DEFUN ("cons", Fcons, Scons, 2, 2, 0, 2059DEFUN ("cons", Fcons, Scons, 2, 2, 0,
2060 doc: /* Create a new cons, give it CAR and CDR as components, and return it. */) 2060 doc: /* Create a new cons, give it CAR and CDR as components, and return it. */)
2061 (car, cdr) 2061 (car, cdr)
2062 Lisp_Object car, cdr; 2062 Lisp_Object car, cdr;
2063{ 2063{
@@ -2130,7 +2130,7 @@ list5 (arg1, arg2, arg3, arg4, arg5)
2130 2130
2131 2131
2132DEFUN ("list", Flist, Slist, 0, MANY, 0, 2132DEFUN ("list", Flist, Slist, 0, MANY, 0,
2133 doc: /* Return a newly created list with specified arguments as elements. 2133 doc: /* Return a newly created list with specified arguments as elements.
2134Any number of arguments, even zero arguments, are allowed. */) 2134Any number of arguments, even zero arguments, are allowed. */)
2135 (nargs, args) 2135 (nargs, args)
2136 int nargs; 2136 int nargs;
@@ -2149,7 +2149,7 @@ Any number of arguments, even zero arguments, are allowed. */)
2149 2149
2150 2150
2151DEFUN ("make-list", Fmake_list, Smake_list, 2, 2, 0, 2151DEFUN ("make-list", Fmake_list, Smake_list, 2, 2, 0,
2152 doc: /* Return a newly created list of length LENGTH, with each element being INIT. */) 2152 doc: /* Return a newly created list of length LENGTH, with each element being INIT. */)
2153 (length, init) 2153 (length, init)
2154 register Lisp_Object length, init; 2154 register Lisp_Object length, init;
2155{ 2155{
@@ -2336,7 +2336,7 @@ allocate_other_vector (len)
2336 2336
2337 2337
2338DEFUN ("make-vector", Fmake_vector, Smake_vector, 2, 2, 0, 2338DEFUN ("make-vector", Fmake_vector, Smake_vector, 2, 2, 0,
2339 doc: /* Return a newly created vector of length LENGTH, with each element being INIT. 2339 doc: /* Return a newly created vector of length LENGTH, with each element being INIT.
2340See also the function `vector'. */) 2340See also the function `vector'. */)
2341 (length, init) 2341 (length, init)
2342 register Lisp_Object length, init; 2342 register Lisp_Object length, init;
@@ -2359,7 +2359,7 @@ See also the function `vector'. */)
2359 2359
2360 2360
2361DEFUN ("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0, 2361DEFUN ("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0,
2362 doc: /* Return a newly created char-table, with purpose PURPOSE. 2362 doc: /* Return a newly created char-table, with purpose PURPOSE.
2363Each element is initialized to INIT, which defaults to nil. 2363Each element is initialized to INIT, which defaults to nil.
2364PURPOSE should be a symbol which has a `char-table-extra-slots' property. 2364PURPOSE should be a symbol which has a `char-table-extra-slots' property.
2365The property's value should be an integer between 0 and 10. */) 2365The property's value should be an integer between 0 and 10. */)
@@ -2402,7 +2402,7 @@ make_sub_char_table (defalt)
2402 2402
2403 2403
2404DEFUN ("vector", Fvector, Svector, 0, MANY, 0, 2404DEFUN ("vector", Fvector, Svector, 0, MANY, 0,
2405 doc: /* Return a newly created vector with specified arguments as elements. 2405 doc: /* Return a newly created vector with specified arguments as elements.
2406Any number of arguments, even zero arguments, are allowed. */) 2406Any number of arguments, even zero arguments, are allowed. */)
2407 (nargs, args) 2407 (nargs, args)
2408 register int nargs; 2408 register int nargs;
@@ -2422,7 +2422,7 @@ Any number of arguments, even zero arguments, are allowed. */)
2422 2422
2423 2423
2424DEFUN ("make-byte-code", Fmake_byte_code, Smake_byte_code, 4, MANY, 0, 2424DEFUN ("make-byte-code", Fmake_byte_code, Smake_byte_code, 4, MANY, 0,
2425 doc: /* Create a byte-code object with specified arguments as elements. 2425 doc: /* Create a byte-code object with specified arguments as elements.
2426The arguments should be the arglist, bytecode-string, constant vector, 2426The arguments should be the arglist, bytecode-string, constant vector,
2427stack size, (optional) doc string, and (optional) interactive spec. 2427stack size, (optional) doc string, and (optional) interactive spec.
2428The first four arguments are required; at most six have any 2428The first four arguments are required; at most six have any
@@ -2510,7 +2510,7 @@ init_symbol ()
2510 2510
2511 2511
2512DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0, 2512DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0,
2513 doc: /* Return a newly allocated uninterned symbol whose name is NAME. 2513 doc: /* Return a newly allocated uninterned symbol whose name is NAME.
2514Its value and function definition are void, and its property list is nil. */) 2514Its value and function definition are void, and its property list is nil. */)
2515 (name) 2515 (name)
2516 Lisp_Object name; 2516 Lisp_Object name;
@@ -2628,7 +2628,7 @@ allocate_misc ()
2628} 2628}
2629 2629
2630DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0, 2630DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0,
2631 doc: /* Return a newly allocated marker which does not point at any place. */) 2631 doc: /* Return a newly allocated marker which does not point at any place. */)
2632 () 2632 ()
2633{ 2633{
2634 register Lisp_Object val; 2634 register Lisp_Object val;
@@ -5320,7 +5320,7 @@ gc_sweep ()
5320/* Debugging aids. */ 5320/* Debugging aids. */
5321 5321
5322DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, 0, 5322DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, 0,
5323 doc: /* Return the address of the last byte Emacs has allocated, divided by 1024. 5323 doc: /* Return the address of the last byte Emacs has allocated, divided by 1024.
5324This may be helpful in debugging Emacs's memory usage. 5324This may be helpful in debugging Emacs's memory usage.
5325We divide the value by 1024 to make sure it fits in a Lisp integer. */) 5325We divide the value by 1024 to make sure it fits in a Lisp integer. */)
5326 () 5326 ()
@@ -5333,7 +5333,7 @@ We divide the value by 1024 to make sure it fits in a Lisp integer. */)
5333} 5333}
5334 5334
5335DEFUN ("memory-use-counts", Fmemory_use_counts, Smemory_use_counts, 0, 0, 0, 5335DEFUN ("memory-use-counts", Fmemory_use_counts, Smemory_use_counts, 0, 0, 0,
5336 doc: /* Return a list of counters that measure how much consing there has been. 5336 doc: /* Return a list of counters that measure how much consing there has been.
5337Each of these counters increments for a certain kind of object. 5337Each of these counters increments for a certain kind of object.
5338The counters wrap around from the largest positive integer to zero. 5338The counters wrap around from the largest positive integer to zero.
5339Garbage collection does not decrease them. 5339Garbage collection does not decrease them.
@@ -5439,7 +5439,7 @@ void
5439syms_of_alloc () 5439syms_of_alloc ()
5440{ 5440{
5441 DEFVAR_INT ("gc-cons-threshold", &gc_cons_threshold, 5441 DEFVAR_INT ("gc-cons-threshold", &gc_cons_threshold,
5442 doc: /* *Number of bytes of consing between garbage collections. 5442 doc: /* *Number of bytes of consing between garbage collections.
5443Garbage collection can happen automatically once this many bytes have been 5443Garbage collection can happen automatically once this many bytes have been
5444allocated since the last garbage collection. All data types count. 5444allocated since the last garbage collection. All data types count.
5445 5445
@@ -5449,45 +5449,45 @@ By binding this temporarily to a large number, you can effectively
5449prevent garbage collection during a part of the program. */); 5449prevent garbage collection during a part of the program. */);
5450 5450
5451 DEFVAR_INT ("pure-bytes-used", &pure_bytes_used, 5451 DEFVAR_INT ("pure-bytes-used", &pure_bytes_used,
5452 doc: /* Number of bytes of sharable Lisp data allocated so far. */); 5452 doc: /* Number of bytes of sharable Lisp data allocated so far. */);
5453 5453
5454 DEFVAR_INT ("cons-cells-consed", &cons_cells_consed, 5454 DEFVAR_INT ("cons-cells-consed", &cons_cells_consed,
5455 doc: /* Number of cons cells that have been consed so far. */); 5455 doc: /* Number of cons cells that have been consed so far. */);
5456 5456
5457 DEFVAR_INT ("floats-consed", &floats_consed, 5457 DEFVAR_INT ("floats-consed", &floats_consed,
5458 doc: /* Number of floats that have been consed so far. */); 5458 doc: /* Number of floats that have been consed so far. */);
5459 5459
5460 DEFVAR_INT ("vector-cells-consed", &vector_cells_consed, 5460 DEFVAR_INT ("vector-cells-consed", &vector_cells_consed,
5461 doc: /* Number of vector cells that have been consed so far. */); 5461 doc: /* Number of vector cells that have been consed so far. */);
5462 5462
5463 DEFVAR_INT ("symbols-consed", &symbols_consed, 5463 DEFVAR_INT ("symbols-consed", &symbols_consed,
5464 doc: /* Number of symbols that have been consed so far. */); 5464 doc: /* Number of symbols that have been consed so far. */);
5465 5465
5466 DEFVAR_INT ("string-chars-consed", &string_chars_consed, 5466 DEFVAR_INT ("string-chars-consed", &string_chars_consed,
5467 doc: /* Number of string characters that have been consed so far. */); 5467 doc: /* Number of string characters that have been consed so far. */);
5468 5468
5469 DEFVAR_INT ("misc-objects-consed", &misc_objects_consed, 5469 DEFVAR_INT ("misc-objects-consed", &misc_objects_consed,
5470 doc: /* Number of miscellaneous objects that have been consed so far. */); 5470 doc: /* Number of miscellaneous objects that have been consed so far. */);
5471 5471
5472 DEFVAR_INT ("intervals-consed", &intervals_consed, 5472 DEFVAR_INT ("intervals-consed", &intervals_consed,
5473 doc: /* Number of intervals that have been consed so far. */); 5473 doc: /* Number of intervals that have been consed so far. */);
5474 5474
5475 DEFVAR_INT ("strings-consed", &strings_consed, 5475 DEFVAR_INT ("strings-consed", &strings_consed,
5476 doc: /* Number of strings that have been consed so far. */); 5476 doc: /* Number of strings that have been consed so far. */);
5477 5477
5478 DEFVAR_LISP ("purify-flag", &Vpurify_flag, 5478 DEFVAR_LISP ("purify-flag", &Vpurify_flag,
5479 doc: /* Non-nil means loading Lisp code in order to dump an executable. 5479 doc: /* Non-nil means loading Lisp code in order to dump an executable.
5480This means that certain objects should be allocated in shared (pure) space. */); 5480This means that certain objects should be allocated in shared (pure) space. */);
5481 5481
5482 DEFVAR_INT ("undo-limit", &undo_limit, 5482 DEFVAR_INT ("undo-limit", &undo_limit,
5483 doc: /* Keep no more undo information once it exceeds this size. 5483 doc: /* Keep no more undo information once it exceeds this size.
5484This limit is applied when garbage collection happens. 5484This limit is applied when garbage collection happens.
5485The size is counted as the number of bytes occupied, 5485The size is counted as the number of bytes occupied,
5486which includes both saved text and other data. */); 5486which includes both saved text and other data. */);
5487 undo_limit = 20000; 5487 undo_limit = 20000;
5488 5488
5489 DEFVAR_INT ("undo-strong-limit", &undo_strong_limit, 5489 DEFVAR_INT ("undo-strong-limit", &undo_strong_limit,
5490 doc: /* Don't keep more than this much size of undo information. 5490 doc: /* Don't keep more than this much size of undo information.
5491A command which pushes past this size is itself forgotten. 5491A command which pushes past this size is itself forgotten.
5492This limit is applied when garbage collection happens. 5492This limit is applied when garbage collection happens.
5493The size is counted as the number of bytes occupied, 5493The size is counted as the number of bytes occupied,
@@ -5495,11 +5495,11 @@ which includes both saved text and other data. */);
5495 undo_strong_limit = 30000; 5495 undo_strong_limit = 30000;
5496 5496
5497 DEFVAR_BOOL ("garbage-collection-messages", &garbage_collection_messages, 5497 DEFVAR_BOOL ("garbage-collection-messages", &garbage_collection_messages,
5498 doc: /* Non-nil means display messages at start and end of garbage collection. */); 5498 doc: /* Non-nil means display messages at start and end of garbage collection. */);
5499 garbage_collection_messages = 0; 5499 garbage_collection_messages = 0;
5500 5500
5501 DEFVAR_LISP ("post-gc-hook", &Vpost_gc_hook, 5501 DEFVAR_LISP ("post-gc-hook", &Vpost_gc_hook,
5502 doc: /* Hook run after garbage collection has finished. */); 5502 doc: /* Hook run after garbage collection has finished. */);
5503 Vpost_gc_hook = Qnil; 5503 Vpost_gc_hook = Qnil;
5504 Qpost_gc_hook = intern ("post-gc-hook"); 5504 Qpost_gc_hook = intern ("post-gc-hook");
5505 staticpro (&Qpost_gc_hook); 5505 staticpro (&Qpost_gc_hook);