3 Copyright (C) 2013 celeron55, Perttu Ahola <celeron55@gmail.com>
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU Lesser General Public License as published by
7 the Free Software Foundation; either version 2.1 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public License along
16 with this program; if not, write to the Free Software Foundation, Inc.,
17 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20 /******************************************************************************/
21 /******************************************************************************/
22 /* WARNING!!!! do NOT add this header in any include file or any code file */
23 /* not being a modapi file!!!!!!!! */
24 /******************************************************************************/
25 /******************************************************************************/
30 #include "common/c_internal.h"
31 #include "cpp_api/s_base.h"
33 #ifdef SCRIPTAPI_LOCK_DEBUG
34 #include "debug.h" // assert()
38 LockChecker(int *recursion_counter, threadid_t *owning_thread)
40 m_lock_recursion_counter = recursion_counter;
41 m_owning_thread = owning_thread;
42 m_original_level = *recursion_counter;
44 if (*m_lock_recursion_counter > 0)
45 assert(thr_is_current_thread(*m_owning_thread));
47 *m_owning_thread = thr_get_current_thread_id();
49 (*m_lock_recursion_counter)++;
54 assert(thr_is_current_thread(*m_owning_thread));
55 assert(*m_lock_recursion_counter > 0);
57 (*m_lock_recursion_counter)--;
59 assert(*m_lock_recursion_counter == m_original_level);
63 int *m_lock_recursion_counter;
65 threadid_t *m_owning_thread;
68 #define SCRIPTAPI_LOCK_CHECK \
69 LockChecker scriptlock_checker( \
70 &this->m_lock_recursion_count, \
71 &this->m_owning_thread)
74 #define SCRIPTAPI_LOCK_CHECK while(0)
77 #define SCRIPTAPI_PRECHECKHEADER \
78 RecursiveMutexAutoLock scriptlock(this->m_luastackmutex); \
79 SCRIPTAPI_LOCK_CHECK; \
81 lua_State *L = getStack(); \
82 assert(lua_checkstack(L, 20)); \
83 StackUnroller stack_unroller(L);
85 #endif /* S_INTERNAL_H_ */