diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 56 |
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 | ||
| 1661 | DEFUN ("make-string", Fmake_string, Smake_string, 2, 2, 0, | 1661 | DEFUN ("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. |
| 1663 | Both LENGTH and INIT must be numbers. */) | 1663 | Both 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 | ||
| 1705 | DEFUN ("make-bool-vector", Fmake_bool_vector, Smake_bool_vector, 2, 2, 0, | 1705 | DEFUN ("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. |
| 1707 | LENGTH must be a number. INIT matters only in whether it is t or nil. */) | 1707 | LENGTH 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 | ||
| 2059 | DEFUN ("cons", Fcons, Scons, 2, 2, 0, | 2059 | DEFUN ("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 | ||
| 2132 | DEFUN ("list", Flist, Slist, 0, MANY, 0, | 2132 | DEFUN ("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. |
| 2134 | Any number of arguments, even zero arguments, are allowed. */) | 2134 | Any 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 | ||
| 2151 | DEFUN ("make-list", Fmake_list, Smake_list, 2, 2, 0, | 2151 | DEFUN ("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 | ||
| 2338 | DEFUN ("make-vector", Fmake_vector, Smake_vector, 2, 2, 0, | 2338 | DEFUN ("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. |
| 2340 | See also the function `vector'. */) | 2340 | See 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 | ||
| 2361 | DEFUN ("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0, | 2361 | DEFUN ("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. |
| 2363 | Each element is initialized to INIT, which defaults to nil. | 2363 | Each element is initialized to INIT, which defaults to nil. |
| 2364 | PURPOSE should be a symbol which has a `char-table-extra-slots' property. | 2364 | PURPOSE should be a symbol which has a `char-table-extra-slots' property. |
| 2365 | The property's value should be an integer between 0 and 10. */) | 2365 | The property's value should be an integer between 0 and 10. */) |
| @@ -2402,7 +2402,7 @@ make_sub_char_table (defalt) | |||
| 2402 | 2402 | ||
| 2403 | 2403 | ||
| 2404 | DEFUN ("vector", Fvector, Svector, 0, MANY, 0, | 2404 | DEFUN ("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. |
| 2406 | Any number of arguments, even zero arguments, are allowed. */) | 2406 | Any 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 | ||
| 2424 | DEFUN ("make-byte-code", Fmake_byte_code, Smake_byte_code, 4, MANY, 0, | 2424 | DEFUN ("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. |
| 2426 | The arguments should be the arglist, bytecode-string, constant vector, | 2426 | The arguments should be the arglist, bytecode-string, constant vector, |
| 2427 | stack size, (optional) doc string, and (optional) interactive spec. | 2427 | stack size, (optional) doc string, and (optional) interactive spec. |
| 2428 | The first four arguments are required; at most six have any | 2428 | The first four arguments are required; at most six have any |
| @@ -2510,7 +2510,7 @@ init_symbol () | |||
| 2510 | 2510 | ||
| 2511 | 2511 | ||
| 2512 | DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0, | 2512 | DEFUN ("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. |
| 2514 | Its value and function definition are void, and its property list is nil. */) | 2514 | Its 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 | ||
| 2630 | DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0, | 2630 | DEFUN ("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 | ||
| 5322 | DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, 0, | 5322 | DEFUN ("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. |
| 5324 | This may be helpful in debugging Emacs's memory usage. | 5324 | This may be helpful in debugging Emacs's memory usage. |
| 5325 | We divide the value by 1024 to make sure it fits in a Lisp integer. */) | 5325 | We 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 | ||
| 5335 | DEFUN ("memory-use-counts", Fmemory_use_counts, Smemory_use_counts, 0, 0, 0, | 5335 | DEFUN ("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. |
| 5337 | Each of these counters increments for a certain kind of object. | 5337 | Each of these counters increments for a certain kind of object. |
| 5338 | The counters wrap around from the largest positive integer to zero. | 5338 | The counters wrap around from the largest positive integer to zero. |
| 5339 | Garbage collection does not decrease them. | 5339 | Garbage collection does not decrease them. |
| @@ -5439,7 +5439,7 @@ void | |||
| 5439 | syms_of_alloc () | 5439 | syms_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. |
| 5443 | Garbage collection can happen automatically once this many bytes have been | 5443 | Garbage collection can happen automatically once this many bytes have been |
| 5444 | allocated since the last garbage collection. All data types count. | 5444 | allocated 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 | |||
| 5449 | prevent garbage collection during a part of the program. */); | 5449 | prevent 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. |
| 5480 | This means that certain objects should be allocated in shared (pure) space. */); | 5480 | This 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. |
| 5484 | This limit is applied when garbage collection happens. | 5484 | This limit is applied when garbage collection happens. |
| 5485 | The size is counted as the number of bytes occupied, | 5485 | The size is counted as the number of bytes occupied, |
| 5486 | which includes both saved text and other data. */); | 5486 | which 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. |
| 5491 | A command which pushes past this size is itself forgotten. | 5491 | A command which pushes past this size is itself forgotten. |
| 5492 | This limit is applied when garbage collection happens. | 5492 | This limit is applied when garbage collection happens. |
| 5493 | The size is counted as the number of bytes occupied, | 5493 | The 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); |