Mercurial > emacs

comparison src/alloc.c @ 1318:0edeba6fc9fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed typos.
author Joseph Arceneaux <jla@gnu.org>
date Sat, 03 Oct 1992 00:08:23 +0000
parents b13b79e28eb5
children ef16e7c0d402
comparison
equal deleted inserted replaced
1317:b74069f669cc 1318:0edeba6fc9fc
109 char *stack_copy; 109 char *stack_copy;
110 int stack_copy_size; 110 int stack_copy_size;
111 111
112 /* Non-zero means ignore malloc warnings. Set during initialization. */ 112 /* Non-zero means ignore malloc warnings. Set during initialization. */
113 int ignore_warnings; 113 int ignore_warnings;
114
115 static void mark_object (), mark_buffer ();
116 static void clear_marks (), gc_sweep ();
117 static void compact_strings ();
114 118
115 Lisp_Object 119 Lisp_Object
116 malloc_warning_1 (str) 120 malloc_warning_1 (str)
117 Lisp_Object str; 121 Lisp_Object str;
118 { 122 {
1120 int total_conses, total_markers, total_symbols, total_string_size, total_vector_size; 1124 int total_conses, total_markers, total_symbols, total_string_size, total_vector_size;
1121 int total_free_conses, total_free_markers, total_free_symbols; 1125 int total_free_conses, total_free_markers, total_free_symbols;
1122 #ifdef LISP_FLOAT_TYPE 1126 #ifdef LISP_FLOAT_TYPE
1123 int total_free_floats, total_floats; 1127 int total_free_floats, total_floats;
1124 #endif /* LISP_FLOAT_TYPE */ 1128 #endif /* LISP_FLOAT_TYPE */
1125
1126 static void mark_object (), mark_buffer ();
1127 static void clear_marks (), gc_sweep ();
1128 static void compact_strings ();
1129 1129
1130 DEFUN ("garbage-collect", Fgarbage_collect, Sgarbage_collect, 0, 0, "", 1130 DEFUN ("garbage-collect", Fgarbage_collect, Sgarbage_collect, 0, 0, "",
1131 "Reclaim storage for Lisp objects no longer needed.\n\ 1131 "Reclaim storage for Lisp objects no longer needed.\n\
1132 Returns info on amount of space in use:\n\ 1132 Returns info on amount of space in use:\n\
1133 ((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)\n\ 1133 ((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)\n\