Commit 475545b5 authored by Paul Eggert's avatar Paul Eggert
Browse files

* eval.c (call_debugger, do_debug_on_call, grow_specpdl): Now static.

parent b0e80955
2011-03-16 Paul Eggert <eggert@cs.ucla.edu> 2011-03-16 Paul Eggert <eggert@cs.ucla.edu>
   
* eval.c (call_debugger, do_debug_on_call, grow_specpdl): Now static.
* callint.c (quotify_arg, quotify_args): Now static. * callint.c (quotify_arg, quotify_args): Now static.
(Fcall_interactively): Rename locals to avoid shadowing. (Fcall_interactively): Rename locals to avoid shadowing.
Use const pointer when appropriate. Use const pointer when appropriate.
...@@ -158,7 +158,7 @@ restore_stack_limits (Lisp_Object data) ...@@ -158,7 +158,7 @@ restore_stack_limits (Lisp_Object data)
/* Call the Lisp debugger, giving it argument ARG. */ /* Call the Lisp debugger, giving it argument ARG. */
Lisp_Object static Lisp_Object
call_debugger (Lisp_Object arg) call_debugger (Lisp_Object arg)
{ {
int debug_while_redisplaying; int debug_while_redisplaying;
...@@ -214,7 +214,7 @@ call_debugger (Lisp_Object arg) ...@@ -214,7 +214,7 @@ call_debugger (Lisp_Object arg)
return unbind_to (count, val); return unbind_to (count, val);
} }
void static void
do_debug_on_call (Lisp_Object code) do_debug_on_call (Lisp_Object code)
{ {
debug_on_next_call = 0; debug_on_next_call = 0;
...@@ -1637,7 +1637,7 @@ See also the function `condition-case'. */) ...@@ -1637,7 +1637,7 @@ See also the function `condition-case'. */)
if (!NILP (clause)) if (!NILP (clause))
break; break;
} }
if (/* Don't run the debugger for a memory-full error. if (/* Don't run the debugger for a memory-full error.
(There is no room in memory to do that!) */ (There is no room in memory to do that!) */
!NILP (error_symbol) !NILP (error_symbol)
...@@ -1654,13 +1654,13 @@ See also the function `condition-case'. */) ...@@ -1654,13 +1654,13 @@ See also the function `condition-case'. */)
can continue code which has signaled a quit. */ can continue code which has signaled a quit. */
if (debugger_called && EQ (real_error_symbol, Qquit)) if (debugger_called && EQ (real_error_symbol, Qquit))
return Qnil; return Qnil;
} }
if (!NILP (clause)) if (!NILP (clause))
{ {
Lisp_Object unwind_data Lisp_Object unwind_data
= (NILP (error_symbol) ? data : Fcons (error_symbol, data)); = (NILP (error_symbol) ? data : Fcons (error_symbol, data));
h->chosen_clause = clause; h->chosen_clause = clause;
unwind_to_catch (h->tag, unwind_data); unwind_to_catch (h->tag, unwind_data);
} }
...@@ -1672,7 +1672,7 @@ See also the function `condition-case'. */) ...@@ -1672,7 +1672,7 @@ See also the function `condition-case'. */)
if (! NILP (error_symbol)) if (! NILP (error_symbol))
data = Fcons (error_symbol, data); data = Fcons (error_symbol, data);
string = Ferror_message_string (data); string = Ferror_message_string (data);
fatal ("%s", SDATA (string), 0); fatal ("%s", SDATA (string), 0);
} }
...@@ -3057,7 +3057,7 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode, ...@@ -3057,7 +3057,7 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode,
return object; return object;
} }
void static void
grow_specpdl (void) grow_specpdl (void)
{ {
register int count = SPECPDL_INDEX (); register int count = SPECPDL_INDEX ();
...@@ -3589,4 +3589,3 @@ The value the function returns is not used. */); ...@@ -3589,4 +3589,3 @@ The value the function returns is not used. */);
defsubr (&Sbacktrace); defsubr (&Sbacktrace);
defsubr (&Sbacktrace_frame); defsubr (&Sbacktrace_frame);
} }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment