Re: clisp-cvs Digest, Vol 54, Issue 2

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

cli...@li... wrote:
> Index: zthread.d
> ===================================================================
> RCS file: /cvsroot/clisp/clisp/src/zthread.d,v
> retrieving revision 1.88
> retrieving revision 1.89
> diff -u -d -r1.88 -r1.89
> --- zthread.d	7 Jul 2010 12:29:20 -0000	1.88
> +++ zthread.d	3 Oct 2010 20:40:58 -0000	1.89
> @@ -221,14 +221,8 @@
>    set_current_thread(me); /* first: initialize TLS */
>    var struct backtrace_t bt;
>    me->_SP_anchor=(void*)SP();
> -  /* initialize backtrace */
> -  bt.bt_next = NULL;
> -  bt.bt_function = L(make_thread); /* not exactly */
> -  bt.bt_stack = STACK STACKop -1;
> -  bt.bt_num_arg = -1;
> -  back_trace = &bt;
> -  /* push the exit tag */
> -  pushSTACK(O(thread_exit_tag));
> +  back_trace = NULL; /* no back trace */
> +  pushSTACK(O(thread_exit_tag)); /* push the exit tag */
>    var gcv_object_t *initial_bindings = &STACK_1;
>    var gcv_object_t *funptr = &STACK_2;
>    /* create the thread exit CATCH frame */
> 
> Index: ChangeLog
> +	* zthread.d (thread_stub): no back trace for new thread

why?