Branch: Tag:

2000-04-19

2000-04-19 13:59:01 by Martin Stjernholm <mast@lysator.liu.se>

Debug thread check: Check the actual interpreter lock too when possible.

Rev: src/interpret.c:1.143

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.142 2000/04/17 21:06:24 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.143 2000/04/19 13:59:01 mast Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
669: Inside #if defined(PIKE_DEBUG) && defined(_REENTRANT)
   {    THREAD_T self = th_self();    +  TRYLOCK_INTERPRETER_LOCK(); +     if( thread_id && !th_equal( OBJ2THREAD(thread_id)->id, self) )    fatal("Current thread is wrong.\n");