2000-04-19
2000-04-19 13:59:01 by Martin Stjernholm <mast@lysator.liu.se>
-
18d3d35819477e08ec93d60d1e588c89140fc4a5
(5 lines)
(+4/-1)
[
Show
| Annotate
]
Branch: 7.9
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");