Mercurial > hg > xemacs-beta

comparison src/eval.c @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
112 struct specbinding *specpdl; 112 struct specbinding *specpdl;
113 113
114 /* Pointer to first unused element in specpdl. */ 114 /* Pointer to first unused element in specpdl. */
115 struct specbinding *specpdl_ptr; 115 struct specbinding *specpdl_ptr;
116 116
117 /* specpdl_ptr - specpdl. Callers outside this this file should use 117 /* specpdl_ptr - specpdl. Callers outside this file should use
118 * specpdl_depth () function-call */ 118 * specpdl_depth () function-call */
119 static int specpdl_depth_counter; 119 static int specpdl_depth_counter;
120 120
121 /* Maximum size allowed for specpdl allocation */ 121 /* Maximum size allowed for specpdl allocation */
122 int max_specpdl_size; 122 int max_specpdl_size;
4618 4618
4619 /**********************************************************************/ 4619 /**********************************************************************/
4620 /* The special binding stack */ 4620 /* The special binding stack */
4621 /**********************************************************************/ 4621 /**********************************************************************/
4622 4622
4623 #define min_max_specpdl_size 400
4624
4623 static void 4625 static void
4624 grow_specpdl (void) 4626 grow_specpdl (void)
4625 { 4627 {
4626 if (specpdl_size >= max_specpdl_size) 4628 if (specpdl_size >= max_specpdl_size)
4627 { 4629 {
4628 if (max_specpdl_size < 400) 4630 if (max_specpdl_size < min_max_specpdl_size)
4629 max_specpdl_size = 400; 4631 max_specpdl_size = min_max_specpdl_size;
4630 if (specpdl_size >= max_specpdl_size) 4632 if (specpdl_size >= max_specpdl_size)
4631 { 4633 {
4632 if (!NILP (Vdebug_on_error) || !NILP (Vdebug_on_signal)) 4634 if (!NILP (Vdebug_on_error) || !NILP (Vdebug_on_signal))
4633 /* Leave room for some specpdl in the debugger. */ 4635 /* Leave room for some specpdl in the debugger. */
4634 max_specpdl_size = specpdl_size + 100; 4636 max_specpdl_size = specpdl_size + 100;