lgc.h
上传用户:yisoukefu
上传日期:2020-08-09
资源大小:39506k
文件大小:3k
源码类别:

其他游戏

开发平台:

Visual C++

  1. /*
  2. ** $Id: lgc.h,v 2.15 2005/08/24 16:15:49 roberto Exp $
  3. ** Garbage Collector
  4. ** See Copyright Notice in lua.h
  5. */
  6. #ifndef lgc_h
  7. #define lgc_h
  8. #include "lobject.h"
  9. /*
  10. ** Possible states of the Garbage Collector
  11. */
  12. #define GCSpause 0
  13. #define GCSpropagate 1
  14. #define GCSsweepstring 2
  15. #define GCSsweep 3
  16. #define GCSfinalize 4
  17. /*
  18. ** some userful bit tricks
  19. */
  20. #define resetbits(x,m) ((x) &= cast(lu_byte, ~(m)))
  21. #define setbits(x,m) ((x) |= (m))
  22. #define testbits(x,m) ((x) & (m))
  23. #define bitmask(b) (1<<(b))
  24. #define bit2mask(b1,b2) (bitmask(b1) | bitmask(b2))
  25. #define l_setbit(x,b) setbits(x, bitmask(b))
  26. #define resetbit(x,b) resetbits(x, bitmask(b))
  27. #define testbit(x,b) testbits(x, bitmask(b))
  28. #define set2bits(x,b1,b2) setbits(x, (bit2mask(b1, b2)))
  29. #define reset2bits(x,b1,b2) resetbits(x, (bit2mask(b1, b2)))
  30. #define test2bits(x,b1,b2) testbits(x, (bit2mask(b1, b2)))
  31. /*
  32. ** Layout for bit use in `marked' field:
  33. ** bit 0 - object is white (type 0)
  34. ** bit 1 - object is white (type 1)
  35. ** bit 2 - object is black
  36. ** bit 3 - for userdata: has been finalized
  37. ** bit 3 - for tables: has weak keys
  38. ** bit 4 - for tables: has weak values
  39. ** bit 5 - object is fixed (should not be collected)
  40. ** bit 6 - object is "super" fixed (only the main thread)
  41. */
  42. #define WHITE0BIT 0
  43. #define WHITE1BIT 1
  44. #define BLACKBIT 2
  45. #define FINALIZEDBIT 3
  46. #define KEYWEAKBIT 3
  47. #define VALUEWEAKBIT 4
  48. #define FIXEDBIT 5
  49. #define SFIXEDBIT 6
  50. #define WHITEBITS bit2mask(WHITE0BIT, WHITE1BIT)
  51. #define iswhite(x)      test2bits((x)->gch.marked, WHITE0BIT, WHITE1BIT)
  52. #define isblack(x)      testbit((x)->gch.marked, BLACKBIT)
  53. #define isgray(x) (!isblack(x) && !iswhite(x))
  54. #define otherwhite(g) (g->currentwhite ^ WHITEBITS)
  55. #define isdead(g,v) ((v)->gch.marked & otherwhite(g) & WHITEBITS)
  56. #define changewhite(x) ((x)->gch.marked ^= WHITEBITS)
  57. #define gray2black(x) l_setbit((x)->gch.marked, BLACKBIT)
  58. #define valiswhite(x) (iscollectable(x) && iswhite(gcvalue(x)))
  59. #define luaC_white(g) cast(lu_byte, (g)->currentwhite & WHITEBITS)
  60. #define luaC_checkGC(L) { 
  61.   condhardstacktests(luaD_reallocstack(L, L->stacksize - EXTRA_STACK - 1)); 
  62.   if (G(L)->totalbytes >= G(L)->GCthreshold) 
  63. luaC_step(L); }
  64. #define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p)))  
  65. luaC_barrierf(L,obj2gco(p),gcvalue(v)); }
  66. #define luaC_barriert(L,t,v) { if (valiswhite(v) && isblack(obj2gco(t)))  
  67. luaC_barrierback(L,t); }
  68. #define luaC_objbarrier(L,p,o)  
  69. { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) 
  70. luaC_barrierf(L,obj2gco(p),obj2gco(o)); }
  71. #define luaC_objbarriert(L,t,o)  
  72.    { if (iswhite(obj2gco(o)) && isblack(obj2gco(t))) luaC_barrierback(L,t); }
  73. LUAI_FUNC size_t luaC_separateudata (lua_State *L, int all);
  74. LUAI_FUNC void luaC_callGCTM (lua_State *L);
  75. LUAI_FUNC void luaC_freeall (lua_State *L);
  76. LUAI_FUNC void luaC_step (lua_State *L);
  77. LUAI_FUNC void luaC_fullgc (lua_State *L);
  78. LUAI_FUNC void luaC_link (lua_State *L, GCObject *o, lu_byte tt);
  79. LUAI_FUNC void luaC_linkupval (lua_State *L, UpVal *uv);
  80. LUAI_FUNC void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v);
  81. LUAI_FUNC void luaC_barrierback (lua_State *L, Table *t);
  82. #endif