mirror of https://github.com/lua/lua
113 lines
2.4 KiB
C
113 lines
2.4 KiB
C
/*
|
|
** $Id: lstate.h,v 1.45 2001/01/22 18:01:38 roberto Exp roberto $
|
|
** Global State
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
#ifndef lstate_h
|
|
#define lstate_h
|
|
|
|
#include "lobject.h"
|
|
#include "lua.h"
|
|
#include "luadebug.h"
|
|
|
|
|
|
|
|
#ifdef LUA_DEBUG
|
|
extern int islocked;
|
|
#define LUA_ENTRY lua_assert(islocked++ == 0)
|
|
#define LUA_EXIT lua_assert(--islocked == 0)
|
|
#endif
|
|
|
|
|
|
/*
|
|
** macros that control all entries and exits from Lua core machine
|
|
** (mainly for thread syncronization)
|
|
*/
|
|
#ifndef LUA_ENTRY
|
|
#define LUA_ENTRY
|
|
#endif
|
|
|
|
#ifndef LUA_EXIT
|
|
#define LUA_EXIT
|
|
#endif
|
|
|
|
|
|
typedef TObject *StkId; /* index to stack elements */
|
|
|
|
|
|
/*
|
|
** marks for Reference array
|
|
*/
|
|
#define NONEXT -1 /* to end the free list */
|
|
#define HOLD -2
|
|
#define COLLECTED -3
|
|
#define LOCK -4
|
|
|
|
|
|
struct Ref {
|
|
TObject o;
|
|
int st; /* can be LOCK, HOLD, COLLECTED, or next (for free list) */
|
|
};
|
|
|
|
|
|
struct lua_longjmp; /* defined in ldo.c */
|
|
struct TM; /* defined in ltm.h */
|
|
|
|
|
|
typedef struct stringtable {
|
|
int size;
|
|
luint32 nuse; /* number of elements */
|
|
TString **hash;
|
|
} stringtable;
|
|
|
|
|
|
/*
|
|
** "global state", shared by all threads of this state
|
|
*/
|
|
typedef struct global_State {
|
|
char *Mbuffer; /* global buffer */
|
|
size_t Mbuffsize; /* size of Mbuffer */
|
|
Proto *rootproto; /* list of all prototypes */
|
|
Closure *rootcl; /* list of all closures */
|
|
Hash *roottable; /* list of all tables */
|
|
stringtable strt; /* hash table for strings */
|
|
stringtable udt; /* hash table for udata */
|
|
struct TM *TMtable; /* table for tag methods */
|
|
int sizeTM; /* size of TMtable */
|
|
int ntag; /* number of tags in TMtable */
|
|
struct Ref *refArray; /* locked objects */
|
|
int nref; /* first unused element in refArray */
|
|
int sizeref; /* size of refArray */
|
|
int refFree; /* list of free positions in refArray */
|
|
mem_int GCthreshold;
|
|
mem_int nblocks; /* number of `bytes' currently allocated */
|
|
} global_State;
|
|
|
|
|
|
/*
|
|
** "per thread" state
|
|
*/
|
|
struct lua_State {
|
|
StkId top; /* first free slot in the stack */
|
|
StkId stack; /* stack base */
|
|
StkId stack_last; /* last free slot in the stack */
|
|
int stacksize;
|
|
StkId Cbase; /* base for current C function */
|
|
Hash *gt; /* table for globals */
|
|
global_State *G;
|
|
lua_Hook callhook;
|
|
lua_Hook linehook;
|
|
int allowhooks;
|
|
struct lua_longjmp *errorJmp; /* current error recover point */
|
|
lua_State *next; /* circular double linked list of states */
|
|
lua_State *previous;
|
|
};
|
|
|
|
|
|
#define G(L) (L->G)
|
|
|
|
|
|
#endif
|
|
|