Mercurial > emacs

comparison src/alloc.c @ 434:ab8836c672bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Tue, 26 Nov 1991 01:47:10 +0000
parents f4f9b557d934
children 8c615e453683
comparison
equal deleted inserted replaced
433:1c6c6382f1d7 434:ab8836c672bd
22 #include "lisp.h" 22 #include "lisp.h"
23 #include "puresize.h" 23 #include "puresize.h"
24 #ifndef standalone 24 #ifndef standalone
25 #include "buffer.h" 25 #include "buffer.h"
26 #include "window.h" 26 #include "window.h"
27 #ifdef HAVE_X_WINDOWS
28 #include "xterm.h"
29 #ifdef MULTI_SCREEN 27 #ifdef MULTI_SCREEN
30 #include "screen.h" 28 #include "screen.h"
31 #endif /* MULTI_SCREEN */ 29 #endif /* MULTI_SCREEN */
32 #endif /* HAVE_X_WINDOWS */
33 #endif 30 #endif
34 31
35 #define max(A,B) ((A) > (B) ? (A) : (B)) 32 #define max(A,B) ((A) > (B) ? (A) : (B))
36 33
37 /* Macro to verify that storage intended for Lisp objects is not 34 /* Macro to verify that storage intended for Lisp objects is not
751 elements. If all the arguments are characters, make a string; 748 elements. If all the arguments are characters, make a string;
752 otherwise, make a vector. Any number of arguments, even zero 749 otherwise, make a vector. Any number of arguments, even zero
753 arguments, are allowed. */ 750 arguments, are allowed. */
754 751
755 Lisp_Object 752 Lisp_Object
756 make_sequence (nargs, args) 753 make_array (nargs, args)
757 register int nargs; 754 register int nargs;
758 Lisp_Object *args; 755 Lisp_Object *args;
759 { 756 {
760 int i; 757 int i;
761 758
1039 register struct backtrace *backlist; 1036 register struct backtrace *backlist;
1040 register Lisp_Object tem; 1037 register Lisp_Object tem;
1041 char *omessage = echo_area_glyphs; 1038 char *omessage = echo_area_glyphs;
1042 char stack_top_variable; 1039 char stack_top_variable;
1043 register int i; 1040 register int i;
1044
1045 BLOCK_INPUT;
1046 1041
1047 /* Save a copy of the contents of the stack, for debugging. */ 1042 /* Save a copy of the contents of the stack, for debugging. */
1048 #if MAX_SAVE_STACK > 0 1043 #if MAX_SAVE_STACK > 0
1049 if (NULL (Vpurify_flag)) 1044 if (NULL (Vpurify_flag))
1050 { 1045 {
1178 1173
1179 if (omessage) 1174 if (omessage)
1180 message1 (omessage); 1175 message1 (omessage);
1181 else if (!noninteractive) 1176 else if (!noninteractive)
1182 message1 ("Garbage collecting...done"); 1177 message1 ("Garbage collecting...done");
1183
1184 #ifdef HAVE_X_WINDOWS
1185 UNBLOCK_INPUT;
1186 #endif
1187 1178
1188 return Fcons (Fcons (make_number (total_conses), 1179 return Fcons (Fcons (make_number (total_conses),
1189 make_number (total_free_conses)), 1180 make_number (total_free_conses)),
1190 Fcons (Fcons (make_number (total_symbols), 1181 Fcons (Fcons (make_number (total_symbols),
1191 make_number (total_free_symbols)), 1182 make_number (total_free_symbols)),