Branch: Tag:

1999-05-08

1999-05-08 00:37:38 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug

Rev: src/interpret.c:1.123
Rev: src/interpreter.h:1.6

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.122 1999/05/02 08:11:43 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.123 1999/05/08 00:33:18 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
649:   #endif   #endif    + #if defined(PIKE_DEBUG) && defined(_REENTRANT) +  if(d_flag) +  { +  if( thread_id && !th_equal( OBJ2THREAD(thread_id)->id, th_self()) ) +  fatal("Current thread is wrong.\n"); +  +  if(thread_for_id(th_self()) != thread_id) +  fatal("thread_for_id() (or thread_id) failed in mega_apply! %p != %p\n",thread_for_id(th_self()),thread_id); +  } + #endif +     switch(type)    {    case APPLY_STACK: