8 #define MAX_STACK_DEPTH 512
9 #define MAX_RECURSION 128
10 #define MAX_MARK_DEPTH 128
12 // Number of objects (per pool per thread) asked for using naGC_get().
13 // The idea is that contexts can "cache" allocations to prevent thread
14 // contention on the global pools. But in practice this interacts
15 // very badly with small subcontext calls, which grab huge numbers of
16 // cached objects and don't use them, causing far more collections
17 // than necessary. Just leave it at 1 pending a rework of the
18 // collector synchronization.
19 #define OBJ_CACHE_SZ 1
22 OP_NOT, OP_MUL, OP_PLUS, OP_MINUS, OP_DIV, OP_NEG, OP_CAT, OP_LT, OP_LTE,
23 OP_GT, OP_GTE, OP_EQ, OP_NEQ, OP_EACH, OP_JMP, OP_JMPLOOP, OP_JIFNOTPOP,
24 OP_JIFEND, OP_FCALL, OP_MCALL, OP_RETURN, OP_PUSHCONST, OP_PUSHONE,
25 OP_PUSHZERO, OP_PUSHNIL, OP_POP, OP_DUP, OP_XCHG, OP_INSERT, OP_EXTRACT,
26 OP_MEMBER, OP_SETMEMBER, OP_LOCAL, OP_SETLOCAL, OP_NEWVEC, OP_VAPPEND,
27 OP_NEWHASH, OP_HAPPEND, OP_MARK, OP_UNMARK, OP_BREAK, OP_SETSYM, OP_DUP2,
28 OP_INDEX, OP_BREAK2, OP_PUSHEND, OP_JIFTRUE, OP_JIFNOT, OP_FCALLH,
29 OP_MCALLH, OP_XCHG2, OP_UNPACK, OP_SLICE, OP_SLICE2, OP_BIT_AND, OP_BIT_OR,
30 OP_BIT_XOR, OP_BIT_NEG
34 naRef func; // naFunc object
35 naRef locals; // local per-call namespace
36 int ip; // instruction pointer into code
37 int bp; // opStack pointer to start of frame
41 // Garbage collecting allocators:
42 struct naPool pools[NUM_NASAL_TYPES];
45 // Dead blocks waiting to be freed when it is safe
63 // A hash of symbol names
66 // Vector/hash containing objects which should not be freed by the gc
67 // TODO do we need a separate vector and hash?
72 struct Context* freeContexts;
73 struct Context* allContexts;
78 struct Frame fStack[MAX_RECURSION];
80 naRef opStack[MAX_STACK_DEPTH];
81 int opFrame; // like Frame::bp, but for C functions
83 int markStack[MAX_MARK_DEPTH];
86 // Free object lists, cached from the global GC
87 struct naObj** free[NUM_NASAL_TYPES];
88 int nfree[NUM_NASAL_TYPES];
90 // GC-findable reference point for objects that may live on the
91 // processor ("real") stack during execution. naNew() places them
92 // here, and clears the array each instruction
103 struct Context* callParent;
104 struct Context* callChild;
106 // Linked list pointers in globals
107 struct Context* nextFree;
108 struct Context* nextAll;
113 #define globals nasal_globals
114 extern struct Globals* globals;
116 // Threading low-level functions
118 void naFreeLock(void* lock);
119 void naLock(void* lock);
120 void naUnlock(void* lock);
122 void naFreeSem(void* sem);
123 void naSemDown(void* sem);
124 void naSemUp(void* sem, int count);
126 void naCheckBottleneck();
128 #define LOCK() naLock(globals->lock)
129 #define UNLOCK() naUnlock(globals->lock)