Re: clisp/src debug.d,1.69,1.70 ChangeLog,1.2932,1.2933

[Sam S. <sd...@gn...>]

> * Bruno Haible <un...@hf...g> [2004-04-28 11:43:57 +0000]:
>
> Update of /cvsroot/clisp/clisp/src
> In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26451/src
>
> Modified Files:
> 	debug.d ChangeLog 
> Log Message:
> A hook for debugging.

what's wrong with
       p show_stack(0,0,0)
??

/* UP: print the stack (up to frame_limit frames, if that is non-0)
 frame by frame (moving using frame_up_x) or all stack items if that is NULL.
 starting with start_frame or STACK if that is NULL
 In debugger, use 'show_stack(0,0,0)'
 can trigger GC */
local inline uintL show_stack (climb_fun_t frame_up_x, uintL frame_limit,
                               gcv_object_t* start_frame)


>
> Index: debug.d
> ===================================================================
> RCS file: /cvsroot/clisp/clisp/src/debug.d,v
> retrieving revision 1.69
> retrieving revision 1.70
> diff -u -d -r1.69 -r1.70
> --- debug.d	28 Apr 2004 11:42:51 -0000	1.69
> +++ debug.d	28 Apr 2004 11:43:54 -0000	1.70
> @@ -1437,6 +1437,12 @@
>    VALUES1(UL_to_I(show_stack(frame_up_x,frame_limit,start_frame)));
>  }
>  
> +/* For debugging: From within gdb, type: call ext_show_stack().
> +   Equivalent to (ext:show-stack) from the Lisp prompt. */
> +global void ext_show_stack () {
> +  pushSTACK(unbound); pushSTACK(unbound); pushSTACK(unbound); C_show_stack();
> +}
> +
>  LISPFUNN(debug,0)
>  # (SYSTEM::DEBUG) springt in einen im Hintergrund sitzenden Debugger.
>    {
>
> Index: ChangeLog
> ===================================================================
> RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
> retrieving revision 1.2932
> retrieving revision 1.2933
> diff -u -d -r1.2932 -r1.2933
> --- ChangeLog	28 Apr 2004 11:42:51 -0000	1.2932
> +++ ChangeLog	28 Apr 2004 11:43:55 -0000	1.2933
> @@ -1,3 +1,8 @@
> +2004-04-23  Bruno Haible  <br...@cl...>
> +
> +	Restore debuggability during loading of init.lisp.
> +	* debug.d (ext_show_stack): New function.
> +
>  2004-04-22  Bruno Haible  <br...@cl...>
>  
>  	Restore debuggability during loading of init.lisp.
>
>
>

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
Even Windows doesn't suck, when you use Common Lisp