comparison src/backtrace.h @ 647:b39c14581166

[xemacs-hg @ 2001-08-13 04:45:47 by ben] removal of unsigned, size_t, etc.
author ben
date Mon, 13 Aug 2001 04:46:48 +0000
parents af57a77cbc92
children 943eaba38521
comparison
equal deleted inserted replaced
646:00c54252fe4f 647:b39c14581166
149 extern struct backtrace *backtrace_list; 149 extern struct backtrace *backtrace_list;
150 150
151 /* Most callers should simply use specbind() and unbind_to(), but if 151 /* Most callers should simply use specbind() and unbind_to(), but if
152 speed is REALLY IMPORTANT, you can use the faster macros below */ 152 speed is REALLY IMPORTANT, you can use the faster macros below */
153 void specbind_magic (Lisp_Object, Lisp_Object); 153 void specbind_magic (Lisp_Object, Lisp_Object);
154 void grow_specpdl (size_t reserved); 154 void grow_specpdl (EMACS_INT reserved);
155 void unbind_to_hairy (int); 155 void unbind_to_hairy (int);
156 extern int specpdl_size; 156 extern int specpdl_size;
157 157
158 /* Inline version of specbind(). 158 /* Inline version of specbind().
159 Use this instead of specbind() if speed is sufficiently important 159 Use this instead of specbind() if speed is sufficiently important
217 specbind_magic (SFU_symbol, SFU_newval); \ 217 specbind_magic (SFU_symbol, SFU_newval); \
218 } while (0) 218 } while (0)
219 219
220 /* Request enough room for SIZE future entries on special binding stack */ 220 /* Request enough room for SIZE future entries on special binding stack */
221 #define SPECPDL_RESERVE(size) do { \ 221 #define SPECPDL_RESERVE(size) do { \
222 size_t SR_size = (size); \ 222 EMACS_INT SR_size = (size); \
223 if (specpdl_depth() + SR_size >= specpdl_size) \ 223 if (specpdl_depth() + SR_size >= specpdl_size) \
224 grow_specpdl (SR_size); \ 224 grow_specpdl (SR_size); \
225 } while (0) 225 } while (0)
226 226
227 /* Inline version of unbind_to(). 227 /* Inline version of unbind_to().