<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html><head><meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1"> <title>rpm: lua/lgc.c Source File</title> <link href="doxygen.css" rel="stylesheet" type="text/css"> <link href="tabs.css" rel="stylesheet" type="text/css"> </head><body> <!-- Generated by Doxygen 1.4.7 --> <div class="tabs"> <ul> <li><a href="index.html"><span>Main Page</span></a></li> <li><a href="modules.html"><span>Modules</span></a></li> <li><a href="annotated.html"><span>Data Structures</span></a></li> <li id="current"><a href="files.html"><span>Files</span></a></li> <li><a href="pages.html"><span>Related Pages</span></a></li> </ul></div> <div class="tabs"> <ul> <li><a href="files.html"><span>File List</span></a></li> <li><a href="globals.html"><span>Globals</span></a></li> </ul></div> <h1>lua/lgc.c</h1><a href="lgc_8c.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/*</span> <a name="l00002"></a>00002 <span class="comment">** $Id: lgc.c,v 1.3 2004/03/23 05:09:14 jbj Exp $</span> <a name="l00003"></a>00003 <span class="comment">** Garbage Collector</span> <a name="l00004"></a>00004 <span class="comment">** See Copyright Notice in lua.h</span> <a name="l00005"></a>00005 <span class="comment">*/</span> <a name="l00006"></a>00006 <a name="l00007"></a>00007 <span class="preprocessor">#include <string.h></span> <a name="l00008"></a>00008 <a name="l00009"></a><a class="code" href="lgc_8c.html#61d084c4959fdcc23103ae67105b3472">00009</a> <span class="preprocessor">#define lgc_c</span> <a name="l00010"></a>00010 <span class="preprocessor"></span> <a name="l00011"></a>00011 <span class="preprocessor">#include "lua.h"</span> <a name="l00012"></a>00012 <a name="l00013"></a>00013 <span class="preprocessor">#include "<a class="code" href="ldebug_8h.html">ldebug.h</a>"</span> <a name="l00014"></a>00014 <span class="preprocessor">#include "<a class="code" href="ldo_8h.html">ldo.h</a>"</span> <a name="l00015"></a>00015 <span class="preprocessor">#include "<a class="code" href="lfunc_8h.html">lfunc.h</a>"</span> <a name="l00016"></a>00016 <span class="preprocessor">#include "<a class="code" href="lgc_8h.html">lgc.h</a>"</span> <a name="l00017"></a>00017 <span class="preprocessor">#include "<a class="code" href="lmem_8h.html">lmem.h</a>"</span> <a name="l00018"></a>00018 <span class="preprocessor">#include "<a class="code" href="lobject_8h.html">lobject.h</a>"</span> <a name="l00019"></a>00019 <span class="preprocessor">#include "<a class="code" href="lstate_8h.html">lstate.h</a>"</span> <a name="l00020"></a>00020 <span class="preprocessor">#include "<a class="code" href="lstring_8h.html">lstring.h</a>"</span> <a name="l00021"></a>00021 <span class="preprocessor">#include "<a class="code" href="ltable_8h.html">ltable.h</a>"</span> <a name="l00022"></a>00022 <span class="preprocessor">#include "<a class="code" href="ltm_8h.html">ltm.h</a>"</span> <a name="l00023"></a>00023 <a name="l00024"></a>00024 <a name="l00025"></a><a class="code" href="structGCState.html">00025</a> <span class="keyword">typedef</span> <span class="keyword">struct </span><a class="code" href="structGCState.html">GCState</a> { <a name="l00026"></a>00026 <span class="comment">/*@null@*/</span> <a name="l00027"></a><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">00027</a> <a class="code" href="unionGCObject.html">GCObject</a> *<a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>; <span class="comment">/* list of marked objects to be traversed */</span> <a name="l00028"></a>00028 <span class="comment">/*@null@*/</span> <a name="l00029"></a><a class="code" href="structGCState.html#68d81546875e00a8d8ba74417870e1fe">00029</a> <a class="code" href="unionGCObject.html">GCObject</a> *<a class="code" href="structGCState.html#68d81546875e00a8d8ba74417870e1fe">wk</a>; <span class="comment">/* list of traversed key-weak tables (to be cleared) */</span> <a name="l00030"></a>00030 <span class="comment">/*@null@*/</span> <a name="l00031"></a><a class="code" href="structGCState.html#862d5d310ee6fd397a7ec44583e76535">00031</a> <a class="code" href="unionGCObject.html">GCObject</a> *<a class="code" href="structGCState.html#862d5d310ee6fd397a7ec44583e76535">wv</a>; <span class="comment">/* list of traversed value-weak tables */</span> <a name="l00032"></a>00032 <span class="comment">/*@null@*/</span> <a name="l00033"></a><a class="code" href="structGCState.html#06c5f3e1732cb067886ad3b007dc1459">00033</a> <a class="code" href="unionGCObject.html">GCObject</a> *<a class="code" href="structGCState.html#06c5f3e1732cb067886ad3b007dc1459">wkv</a>; <span class="comment">/* list of traversed key-value weak tables */</span> <a name="l00034"></a>00034 <span class="comment">/*@null@*/</span> <a name="l00035"></a><a class="code" href="structGCState.html#7727f1436a10d87f859a53bc08171584">00035</a> <a class="code" href="structglobal__State.html">global_State</a> *<a class="code" href="structGCState.html#7727f1436a10d87f859a53bc08171584">g</a>; <a name="l00036"></a>00036 } <a class="code" href="structGCState.html">GCState</a>; <a name="l00037"></a>00037 <a name="l00038"></a>00038 <a name="l00039"></a>00039 <span class="comment">/*</span> <a name="l00040"></a>00040 <span class="comment">** some userful bit tricks</span> <a name="l00041"></a>00041 <span class="comment">*/</span> <a name="l00042"></a><a class="code" href="lgc_8c.html#510064af8aabd3cf217557e26e346fd0">00042</a> <span class="preprocessor">#define setbit(x,b) ((x) |= (1<<(b)))</span> <a name="l00043"></a><a class="code" href="lgc_8c.html#ca0beb244185329a1b8f0e695ef47748">00043</a> <span class="preprocessor"></span><span class="preprocessor">#define resetbit(x,b) ((x) &= cast(lu_byte, ~(1<<(b))))</span> <a name="l00044"></a><a class="code" href="lgc_8c.html#25c19ff3161e2a2395ba69fdef49915f">00044</a> <span class="preprocessor"></span><span class="preprocessor">#define testbit(x,b) ((x) & (1<<(b)))</span> <a name="l00045"></a>00045 <span class="preprocessor"></span> <a name="l00046"></a><a class="code" href="lgc_8c.html#9c2002e0371efe71d4b4d3dabe54ca39">00046</a> <span class="preprocessor">#define unmark(x) resetbit((x)->gch.marked, 0)</span> <a name="l00047"></a><a class="code" href="lgc_8c.html#a078517f744c1f7aece3cf4d7ca8326c">00047</a> <span class="preprocessor"></span><span class="preprocessor">#define ismarked(x) ((x)->gch.marked & ((1<<4)|1))</span> <a name="l00048"></a>00048 <span class="preprocessor"></span> <a name="l00049"></a><a class="code" href="lgc_8c.html#220f3c1132e8df620410ed6de1a75b49">00049</a> <span class="preprocessor">#define stringmark(s) setbit((s)->tsv.marked, 0)</span> <a name="l00050"></a>00050 <span class="preprocessor"></span> <a name="l00051"></a>00051 <a name="l00052"></a><a class="code" href="lgc_8c.html#14e1f262784acec7fb2c97cae1e241a2">00052</a> <span class="preprocessor">#define isfinalized(u) (!testbit((u)->uv.marked, 1))</span> <a name="l00053"></a><a class="code" href="lgc_8c.html#27a77307b90dae514183dc73279ba46b">00053</a> <span class="preprocessor"></span><span class="preprocessor">#define markfinalized(u) resetbit((u)->uv.marked, 1)</span> <a name="l00054"></a>00054 <span class="preprocessor"></span> <a name="l00055"></a>00055 <a name="l00056"></a><a class="code" href="lgc_8c.html#8eddc511675ce387499de7eef2df2b5a">00056</a> <span class="preprocessor">#define KEYWEAKBIT 1</span> <a name="l00057"></a><a class="code" href="lgc_8c.html#19886a9aad85dae047084b6ad1d8bca4">00057</a> <span class="preprocessor"></span><span class="preprocessor">#define VALUEWEAKBIT 2</span> <a name="l00058"></a><a class="code" href="lgc_8c.html#c92cf2e20106bb0a9b68e0cdb74b286b">00058</a> <span class="preprocessor"></span><span class="preprocessor">#define KEYWEAK (1<<KEYWEAKBIT)</span> <a name="l00059"></a><a class="code" href="lgc_8c.html#cd04fc135b64ac6efe5ba024efa5d8f1">00059</a> <span class="preprocessor"></span><span class="preprocessor">#define VALUEWEAK (1<<VALUEWEAKBIT)</span> <a name="l00060"></a>00060 <span class="preprocessor"></span> <a name="l00061"></a>00061 <a name="l00062"></a>00062 <a name="l00063"></a><a class="code" href="lgc_8c.html#280c365579979db07322a3d13e279027">00063</a> <span class="preprocessor">#define markobject(st,o) { checkconsistency(o); \</span> <a name="l00064"></a>00064 <span class="preprocessor"> if (iscollectable(o) && !ismarked(gcvalue(o))) reallymarkobject(st,gcvalue(o)); }</span> <a name="l00065"></a>00065 <span class="preprocessor"></span> <a name="l00066"></a><a class="code" href="lgc_8c.html#df15370aee87d80193b586fde4cf987a">00066</a> <span class="preprocessor">#define condmarkobject(st,o,c) { checkconsistency(o); \</span> <a name="l00067"></a>00067 <span class="preprocessor"> if (iscollectable(o) && !ismarked(gcvalue(o)) && (c)) \</span> <a name="l00068"></a>00068 <span class="preprocessor"> reallymarkobject(st,gcvalue(o)); }</span> <a name="l00069"></a>00069 <span class="preprocessor"></span> <a name="l00070"></a><a class="code" href="lgc_8c.html#1968578018ca02245b66665e92c1cb82">00070</a> <span class="preprocessor">#define markvalue(st,t) { if (!ismarked(valtogco(t))) \</span> <a name="l00071"></a>00071 <span class="preprocessor"> reallymarkobject(st, valtogco(t)); }</span> <a name="l00072"></a>00072 <span class="preprocessor"></span> <a name="l00073"></a>00073 <a name="l00074"></a>00074 <a name="l00075"></a><a class="code" href="lgc_8c.html#221b106c2514b4ef66fec729fca05eae">00075</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#221b106c2514b4ef66fec729fca05eae">reallymarkobject</a> (<a class="code" href="structGCState.html">GCState</a> *st, <a class="code" href="unionGCObject.html">GCObject</a> *o) <a name="l00076"></a>00076 <span class="comment">/*@modifies st, o @*/</span> <a name="l00077"></a>00077 { <a name="l00078"></a>00078 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(!<a class="code" href="lgc_8c.html#a078517f744c1f7aece3cf4d7ca8326c">ismarked</a>(o)); <a name="l00079"></a>00079 <a class="code" href="lgc_8c.html#510064af8aabd3cf217557e26e346fd0">setbit</a>(o-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#33f3e2976d8f0997e02c5763194881e9">marked</a>, 0); <span class="comment">/* mark object */</span> <a name="l00080"></a>00080 <span class="keywordflow">switch</span> (o-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#952a882c3f16764f70c5e8dae8fb27eb">tt</a>) { <a name="l00081"></a>00081 <span class="keywordflow">case</span> LUA_TUSERDATA: { <a name="l00082"></a>00082 <a class="code" href="lgc_8c.html#1968578018ca02245b66665e92c1cb82">markvalue</a>(st, <a class="code" href="lstate_8h.html#8df56e9554d8ca940dc56c9add905b1b">gcotou</a>(o)->uv.metatable); <a name="l00083"></a>00083 <span class="keywordflow">break</span>; <a name="l00084"></a>00084 } <a name="l00085"></a>00085 <span class="keywordflow">case</span> LUA_TFUNCTION: { <a name="l00086"></a>00086 <a class="code" href="lstate_8h.html#fe7981c397b2d826b164faa08d52721f">gcotocl</a>(o)->c.gclist = st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>; <a name="l00087"></a>00087 st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a> = o; <a name="l00088"></a>00088 <span class="keywordflow">break</span>; <a name="l00089"></a>00089 } <a name="l00090"></a>00090 <span class="keywordflow">case</span> LUA_TTABLE: { <a name="l00091"></a>00091 <a class="code" href="lstate_8h.html#6d127b7d00736bf1cafd674acac82075">gcotoh</a>(o)->gclist = st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>; <a name="l00092"></a>00092 st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a> = o; <a name="l00093"></a>00093 <span class="keywordflow">break</span>; <a name="l00094"></a>00094 } <a name="l00095"></a>00095 <span class="keywordflow">case</span> LUA_TTHREAD: { <a name="l00096"></a>00096 <span class="comment">/*@-onlytrans@*/</span> <a name="l00097"></a>00097 <a class="code" href="lstate_8h.html#b548617c87a4d79e4bce4aff6d570394">gcototh</a>(o)->gclist = st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>; <a name="l00098"></a>00098 <span class="comment">/*@=onlytrans@*/</span> <a name="l00099"></a>00099 st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a> = o; <a name="l00100"></a>00100 <span class="keywordflow">break</span>; <a name="l00101"></a>00101 } <a name="l00102"></a>00102 <span class="keywordflow">case</span> <a class="code" href="lobject_8h.html#a2a683d9e42dac5846eefa108297cbf0">LUA_TPROTO</a>: { <a name="l00103"></a>00103 <a class="code" href="lstate_8h.html#5f81d264bb74381ffa039fb207704425">gcotop</a>(o)->gclist = st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>; <a name="l00104"></a>00104 st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a> = o; <a name="l00105"></a>00105 <span class="keywordflow">break</span>; <a name="l00106"></a>00106 } <a name="l00107"></a>00107 <span class="keywordflow">default</span>: <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(o-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#952a882c3f16764f70c5e8dae8fb27eb">tt</a> == LUA_TSTRING); <a name="l00108"></a>00108 } <a name="l00109"></a>00109 } <a name="l00110"></a>00110 <a name="l00111"></a>00111 <a name="l00112"></a><a class="code" href="lgc_8c.html#d897de93d93fcf9d682d063bc3e23c32">00112</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#d897de93d93fcf9d682d063bc3e23c32">marktmu</a> (<a class="code" href="structGCState.html">GCState</a> *st) <a name="l00113"></a>00113 <span class="comment">/*@modifies st @*/</span> <a name="l00114"></a>00114 { <a name="l00115"></a>00115 <a class="code" href="unionGCObject.html">GCObject</a> *u; <a name="l00116"></a>00116 <span class="keywordflow">for</span> (u = st-><a class="code" href="structGCState.html#7727f1436a10d87f859a53bc08171584">g</a>-><a class="code" href="structglobal__State.html#8f11ac1643d581a8340f8b894b1ce869">tmudata</a>; u; u = u-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a>) { <a name="l00117"></a>00117 <a class="code" href="lgc_8c.html#9c2002e0371efe71d4b4d3dabe54ca39">unmark</a>(u); <span class="comment">/* may be marked, if left from previous GC */</span> <a name="l00118"></a>00118 <a class="code" href="lgc_8c.html#221b106c2514b4ef66fec729fca05eae">reallymarkobject</a>(st, u); <a name="l00119"></a>00119 } <a name="l00120"></a>00120 } <a name="l00121"></a>00121 <a name="l00122"></a>00122 <a name="l00123"></a>00123 <span class="comment">/* move `dead' udata that need finalization to list `tmudata' */</span> <a name="l00124"></a><a class="code" href="lgc_8h.html#002b6fa34dc9f5d2f8c5d22e6c3f8fa2">00124</a> size_t <a class="code" href="lgc_8c.html#002b6fa34dc9f5d2f8c5d22e6c3f8fa2">luaC_separateudata</a> (<a class="code" href="structlua__State.html">lua_State</a> *L) { <a name="l00125"></a>00125 size_t deadmem = 0; <a name="l00126"></a>00126 <a class="code" href="unionGCObject.html">GCObject</a> **p = &<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->rootudata; <a name="l00127"></a>00127 <a class="code" href="unionGCObject.html">GCObject</a> *curr; <a name="l00128"></a>00128 <a class="code" href="unionGCObject.html">GCObject</a> *collected = NULL; <span class="comment">/* to collect udata with gc event */</span> <a name="l00129"></a>00129 <a class="code" href="unionGCObject.html">GCObject</a> **lastcollected = &collected; <a name="l00130"></a>00130 <span class="keywordflow">while</span> ((curr = *p) != NULL) { <a name="l00131"></a>00131 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(curr-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#952a882c3f16764f70c5e8dae8fb27eb">tt</a> == LUA_TUSERDATA); <a name="l00132"></a>00132 <span class="keywordflow">if</span> (<a class="code" href="lgc_8c.html#a078517f744c1f7aece3cf4d7ca8326c">ismarked</a>(curr) || <a class="code" href="lgc_8c.html#14e1f262784acec7fb2c97cae1e241a2">isfinalized</a>(<a class="code" href="lstate_8h.html#8df56e9554d8ca940dc56c9add905b1b">gcotou</a>(curr))) <a name="l00133"></a>00133 p = &curr-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a>; <span class="comment">/* don't bother with them */</span> <a name="l00134"></a>00134 <a name="l00135"></a>00135 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="ltm_8h.html#0a29ed88450f8f92330a6a411a9c8134">fasttm</a>(L, <a class="code" href="lstate_8h.html#8df56e9554d8ca940dc56c9add905b1b">gcotou</a>(curr)->uv.metatable, <a class="code" href="ltm_8h.html#69e345ae253d250b61a03f1d6871c8d101e1b0be5e2785471e19db3665960536">TM_GC</a>) == NULL) { <a name="l00136"></a>00136 <a class="code" href="lgc_8c.html#27a77307b90dae514183dc73279ba46b">markfinalized</a>(<a class="code" href="lstate_8h.html#8df56e9554d8ca940dc56c9add905b1b">gcotou</a>(curr)); <span class="comment">/* don't need finalization */</span> <a name="l00137"></a>00137 p = &curr-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a>; <a name="l00138"></a>00138 } <a name="l00139"></a>00139 <span class="keywordflow">else</span> { <span class="comment">/* must call its gc method */</span> <a name="l00140"></a>00140 deadmem += <a class="code" href="lstring_8h.html#669a28378c7db20a6f434ed8cac0c6d1">sizeudata</a>(<a class="code" href="lstate_8h.html#8df56e9554d8ca940dc56c9add905b1b">gcotou</a>(curr)->uv.len); <a name="l00141"></a>00141 *p = curr-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a>; <a name="l00142"></a>00142 curr-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a> = NULL; <span class="comment">/* link `curr' at the end of `collected' list */</span> <a name="l00143"></a>00143 *lastcollected = curr; <a name="l00144"></a>00144 lastcollected = &curr-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a>; <a name="l00145"></a>00145 } <a name="l00146"></a>00146 } <a name="l00147"></a>00147 <span class="comment">/* insert collected udata with gc event into `tmudata' list */</span> <a name="l00148"></a>00148 <span class="comment">/*@-dependenttrans@*/</span> <a name="l00149"></a>00149 *lastcollected = <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->tmudata; <a name="l00150"></a>00150 <span class="comment">/*@=dependenttrans@*/</span> <a name="l00151"></a>00151 <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->tmudata = collected; <a name="l00152"></a>00152 <span class="keywordflow">return</span> deadmem; <a name="l00153"></a>00153 } <a name="l00154"></a>00154 <a name="l00155"></a>00155 <a name="l00156"></a><a class="code" href="lgc_8c.html#913654a99f4ed397636a99b61bd9a90c">00156</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#913654a99f4ed397636a99b61bd9a90c">removekey</a> (<a class="code" href="structNode.html">Node</a> *n) <a name="l00157"></a>00157 <span class="comment">/*@modifies n @*/</span> <a name="l00158"></a>00158 { <a name="l00159"></a>00159 <a class="code" href="lobject_8h.html#d9034def7bbc1965ec3d714d84620b07">setnilvalue</a>(<a class="code" href="ltable_8h.html#cbbecd9bd8fbb72a17f6e2f5acf7113d">gval</a>(n)); <span class="comment">/* remove corresponding value ... */</span> <a name="l00160"></a>00160 <span class="keywordflow">if</span> (<a class="code" href="lobject_8h.html#aabdb414706e6a904461e39967557185">iscollectable</a>(<a class="code" href="ltable_8h.html#d8f233e3b7156cd470d0ac21d7b54c11">gkey</a>(n))) <a name="l00161"></a>00161 <a class="code" href="lobject_8h.html#2816cdd0a22f933ee0b23321b0a200b0">setttype</a>(<a class="code" href="ltable_8h.html#d8f233e3b7156cd470d0ac21d7b54c11">gkey</a>(n), LUA_TNONE); <span class="comment">/* dead key; remove it */</span> <a name="l00162"></a>00162 } <a name="l00163"></a>00163 <a name="l00164"></a>00164 <a name="l00165"></a><a class="code" href="lgc_8c.html#df1b5429adf91d6af0dcece50e699613">00165</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#df1b5429adf91d6af0dcece50e699613">traversetable</a> (<a class="code" href="structGCState.html">GCState</a> *st, <a class="code" href="structTable.html">Table</a> *h) <a name="l00166"></a>00166 <span class="comment">/*@modifies st, h @*/</span> <a name="l00167"></a>00167 { <a name="l00168"></a>00168 <span class="keywordtype">int</span> i; <a name="l00169"></a>00169 <span class="keywordtype">int</span> weakkey = 0; <a name="l00170"></a>00170 <span class="keywordtype">int</span> weakvalue = 0; <a name="l00171"></a>00171 <span class="keyword">const</span> <a class="code" href="structlua__TObject.html">TObject</a> *mode; <a name="l00172"></a>00172 <a class="code" href="lgc_8c.html#1968578018ca02245b66665e92c1cb82">markvalue</a>(st, h-><a class="code" href="structTable.html#99c20fa696fb6a4e89890efa3819ebdc">metatable</a>); <a name="l00173"></a>00173 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(h-><a class="code" href="structTable.html#ed057d880ebe0f38f65e626f646adf6a">lsizenode</a> || h-><a class="code" href="structTable.html#519f179c707cb4e93bb66d09151c89e5">node</a> == st-><a class="code" href="structGCState.html#7727f1436a10d87f859a53bc08171584">g</a>-><a class="code" href="structglobal__State.html#18328605677531c9df48b331f5e8532f">dummynode</a>); <a name="l00174"></a>00174 mode = <a class="code" href="ltm_8h.html#b067446141992fa1bfa2f1ca720197fc">gfasttm</a>(st-><a class="code" href="structGCState.html#7727f1436a10d87f859a53bc08171584">g</a>, h-><a class="code" href="structTable.html#99c20fa696fb6a4e89890efa3819ebdc">metatable</a>, <a class="code" href="ltm_8h.html#69e345ae253d250b61a03f1d6871c8d15cd07c76b9aff7450d8052363ff2db4e">TM_MODE</a>); <a name="l00175"></a>00175 <span class="keywordflow">if</span> (mode && <a class="code" href="lobject_8h.html#9bdf057a0de8da2ffae3ac35662dd255">ttisstring</a>(mode)) { <span class="comment">/* is there a weak mode? */</span> <a name="l00176"></a>00176 weakkey = (strchr(<a class="code" href="lobject_8h.html#c2c9eedf3ff2c3042445b3b534f161e1">svalue</a>(mode), <span class="charliteral">'k'</span>) != NULL); <a name="l00177"></a>00177 weakvalue = (strchr(<a class="code" href="lobject_8h.html#c2c9eedf3ff2c3042445b3b534f161e1">svalue</a>(mode), <span class="charliteral">'v'</span>) != NULL); <a name="l00178"></a>00178 <span class="keywordflow">if</span> (weakkey || weakvalue) { <span class="comment">/* is really weak? */</span> <a name="l00179"></a>00179 <a class="code" href="unionGCObject.html">GCObject</a> **weaklist; <a name="l00180"></a>00180 h-><a class="code" href="structTable.html#b4fd6c7325de2d7deb31cbca87f8d969">marked</a> &= ~(<a class="code" href="lgc_8c.html#c92cf2e20106bb0a9b68e0cdb74b286b">KEYWEAK</a> | <a class="code" href="lgc_8c.html#cd04fc135b64ac6efe5ba024efa5d8f1">VALUEWEAK</a>); <span class="comment">/* clear bits */</span> <a name="l00181"></a>00181 h-><a class="code" href="structTable.html#b4fd6c7325de2d7deb31cbca87f8d969">marked</a> |= <a class="code" href="llimits_8h.html#f17d62ec9e237a7644de6b9b34a48a34">cast</a>(<a class="code" href="llimits_8h.html#e1fe9ac10d9803bd1d7bdf30b18bad68">lu_byte</a>, (weakkey << <a class="code" href="lgc_8c.html#8eddc511675ce387499de7eef2df2b5a">KEYWEAKBIT</a>) | <a name="l00182"></a>00182 (weakvalue << <a class="code" href="lgc_8c.html#19886a9aad85dae047084b6ad1d8bca4">VALUEWEAKBIT</a>)); <a name="l00183"></a>00183 weaklist = (weakkey && weakvalue) ? &st-><a class="code" href="structGCState.html#06c5f3e1732cb067886ad3b007dc1459">wkv</a> : <a name="l00184"></a>00184 (weakkey) ? &st-><a class="code" href="structGCState.html#68d81546875e00a8d8ba74417870e1fe">wk</a> : <a name="l00185"></a>00185 &st-><a class="code" href="structGCState.html#862d5d310ee6fd397a7ec44583e76535">wv</a>; <a name="l00186"></a>00186 h-><a class="code" href="structTable.html#1b6f3d76efed2011a36ee7c78f65aa70">gclist</a> = *weaklist; <span class="comment">/* must be cleared after GC, ... */</span> <a name="l00187"></a>00187 *weaklist = <a class="code" href="lstate_8h.html#b45b06e8618aa4a7bf53171933f30d57">valtogco</a>(h); <span class="comment">/* ... so put in the appropriate list */</span> <a name="l00188"></a>00188 } <a name="l00189"></a>00189 } <a name="l00190"></a>00190 <span class="keywordflow">if</span> (!weakvalue) { <a name="l00191"></a>00191 i = h-><a class="code" href="structTable.html#2c648e99fcf88c4660c97e7d9408b50f">sizearray</a>; <a name="l00192"></a>00192 <span class="keywordflow">while</span> (i--) <a name="l00193"></a>00193 <a class="code" href="lgc_8c.html#280c365579979db07322a3d13e279027">markobject</a>(st, &h-><a class="code" href="structTable.html#193ec6402a4e6e6aa976ca1ffe7186d3">array</a>[i]); <a name="l00194"></a>00194 } <a name="l00195"></a>00195 i = <a class="code" href="lobject_8h.html#2fbf715e78eaa889ed0fb9d4514e736a">sizenode</a>(h); <a name="l00196"></a>00196 <span class="keywordflow">while</span> (i--) { <a name="l00197"></a>00197 <a class="code" href="structNode.html">Node</a> *n = <a class="code" href="ltable_8h.html#644cfa3b6d4be1782e818a8340b5f78b">gnode</a>(h, i); <a name="l00198"></a>00198 <span class="keywordflow">if</span> (!<a class="code" href="lobject_8h.html#8630c13eaefbeaba1aa0933cab6e0238">ttisnil</a>(<a class="code" href="ltable_8h.html#cbbecd9bd8fbb72a17f6e2f5acf7113d">gval</a>(n))) { <a name="l00199"></a>00199 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(!<a class="code" href="lobject_8h.html#8630c13eaefbeaba1aa0933cab6e0238">ttisnil</a>(<a class="code" href="ltable_8h.html#d8f233e3b7156cd470d0ac21d7b54c11">gkey</a>(n))); <a name="l00200"></a>00200 <a class="code" href="lgc_8c.html#df15370aee87d80193b586fde4cf987a">condmarkobject</a>(st, <a class="code" href="ltable_8h.html#d8f233e3b7156cd470d0ac21d7b54c11">gkey</a>(n), !weakkey); <a name="l00201"></a>00201 <a class="code" href="lgc_8c.html#df15370aee87d80193b586fde4cf987a">condmarkobject</a>(st, <a class="code" href="ltable_8h.html#cbbecd9bd8fbb72a17f6e2f5acf7113d">gval</a>(n), !weakvalue); <a name="l00202"></a>00202 } <a name="l00203"></a>00203 } <a name="l00204"></a>00204 } <a name="l00205"></a>00205 <a name="l00206"></a>00206 <a name="l00207"></a><a class="code" href="lgc_8c.html#4f128a5df1667624ef1bfc75aa162d54">00207</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#4f128a5df1667624ef1bfc75aa162d54">traverseproto</a> (<a class="code" href="structGCState.html">GCState</a> *st, <a class="code" href="structProto.html">Proto</a> *f) <a name="l00208"></a>00208 <span class="comment">/*@modifies st, f @*/</span> <a name="l00209"></a>00209 { <a name="l00210"></a>00210 <span class="keywordtype">int</span> i; <a name="l00211"></a>00211 <a class="code" href="lgc_8c.html#220f3c1132e8df620410ed6de1a75b49">stringmark</a>(f-><a class="code" href="structProto.html#92b6ec319e7aa1ee8b8ff7807353ad96">source</a>); <a name="l00212"></a>00212 <span class="keywordflow">for</span> (i=0; i<f-><a class="code" href="structProto.html#5bd719e0486168f6ecd4b01bf41a7444">sizek</a>; i++) { <span class="comment">/* mark literal strings */</span> <a name="l00213"></a>00213 <span class="keywordflow">if</span> (<a class="code" href="lobject_8h.html#9bdf057a0de8da2ffae3ac35662dd255">ttisstring</a>(f-><a class="code" href="structProto.html#f379e777efa031186320f7e90c14f8c9">k</a>+i)) <a name="l00214"></a>00214 <a class="code" href="lgc_8c.html#220f3c1132e8df620410ed6de1a75b49">stringmark</a>(<a class="code" href="lobject_8h.html#8661397faed512ccc9c70a4661f1a83d">tsvalue</a>(f-><a class="code" href="structProto.html#f379e777efa031186320f7e90c14f8c9">k</a>+i)); <a name="l00215"></a>00215 } <a name="l00216"></a>00216 <span class="keywordflow">for</span> (i=0; i<f-><a class="code" href="structProto.html#6ecec897497ba7d94df6ef69289ef5c0">sizeupvalues</a>; i++) <span class="comment">/* mark upvalue names */</span> <a name="l00217"></a>00217 <a class="code" href="lgc_8c.html#220f3c1132e8df620410ed6de1a75b49">stringmark</a>(f-><a class="code" href="structProto.html#bebc63aea579a1b630efc04d2bf9c4b7">upvalues</a>[i]); <a name="l00218"></a>00218 for (i=0; i<f-><a class="code" href="structProto.html#73ddad1a18b7c46be46ec32aa2a08632">sizep</a>; i++) <span class="comment">/* mark nested protos */</span> <a name="l00219"></a>00219 <a class="code" href="lgc_8c.html#1968578018ca02245b66665e92c1cb82">markvalue</a>(st, f-><a class="code" href="structProto.html#54dc8e2e8973007794fa0ab0e4a71461">p</a>[i]); <a name="l00220"></a>00220 for (i=0; i<f-><a class="code" href="structProto.html#c2ab37e941e8866687f44f7b2f4b95a9">sizelocvars</a>; i++) <span class="comment">/* mark local-variable names */</span> <a name="l00221"></a>00221 <a class="code" href="lgc_8c.html#220f3c1132e8df620410ed6de1a75b49">stringmark</a>(f-><a class="code" href="structProto.html#24fd00345a3dad92baf371a9c96ba140">locvars</a>[i].<a class="code" href="structLocVar.html#cf62684d78349320b90b4acfa3b6d22a">varname</a>); <a name="l00222"></a>00222 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(<a class="code" href="ldebug_8c.html#1abb4dc97c40ac34a3a1de5fca70f7c2">luaG_checkcode</a>(f)); <a name="l00223"></a>00223 } <a name="l00224"></a>00224 <a name="l00225"></a>00225 <a name="l00226"></a>00226 <a name="l00227"></a><a class="code" href="lgc_8c.html#41f9460ecbc50e8e44ad566f45906e01">00227</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#41f9460ecbc50e8e44ad566f45906e01">traverseclosure</a> (<a class="code" href="structGCState.html">GCState</a> *st, <a class="code" href="unionClosure.html">Closure</a> *cl) <a name="l00228"></a>00228 <span class="comment">/*@modifies st, cl @*/</span> <a name="l00229"></a>00229 { <a name="l00230"></a>00230 <span class="keywordflow">if</span> (cl-><a class="code" href="unionClosure.html#ce9dac5a62b61db682ef0cd86b3b44b1">c</a>.<a class="code" href="structCClosure.html#26248a7c18155d17793bf4a35d6d52a0">isC</a>) { <a name="l00231"></a>00231 <span class="keywordtype">int</span> i; <a name="l00232"></a>00232 <span class="keywordflow">for</span> (i=0; i<cl-><a class="code" href="unionClosure.html#ce9dac5a62b61db682ef0cd86b3b44b1">c</a>.<a class="code" href="structCClosure.html#8c910f71349190d0661a422d41b95e82">nupvalues</a>; i++) <span class="comment">/* mark its upvalues */</span> <a name="l00233"></a>00233 <a class="code" href="lgc_8c.html#280c365579979db07322a3d13e279027">markobject</a>(st, &cl-><a class="code" href="unionClosure.html#ce9dac5a62b61db682ef0cd86b3b44b1">c</a>.<a class="code" href="structCClosure.html#23090b10624563779c1d537ba974b59d">upvalue</a>[i]); <a name="l00234"></a>00234 } <a name="l00235"></a>00235 <span class="keywordflow">else</span> { <a name="l00236"></a>00236 <span class="keywordtype">int</span> i; <a name="l00237"></a>00237 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(cl-><a class="code" href="unionClosure.html#8c338ec7dc76078cbee5887857de713c">l</a>.<a class="code" href="structLClosure.html#05732375a30757a8faa6c889e1823696">nupvalues</a> == cl-><a class="code" href="unionClosure.html#8c338ec7dc76078cbee5887857de713c">l</a>.<a class="code" href="structLClosure.html#4cf173817d3897b0e70822e70d241d6c">p</a>-><a class="code" href="structProto.html#e20e9996154a89085ac03eaaf8f23d32">nups</a>); <a name="l00238"></a>00238 <a class="code" href="lgc_8c.html#1968578018ca02245b66665e92c1cb82">markvalue</a>(st, <a class="code" href="lobject_8h.html#336a6ce5e8340e6de133ec249cf47ebf">hvalue</a>(&cl-><a class="code" href="unionClosure.html#8c338ec7dc76078cbee5887857de713c">l</a>.<a class="code" href="structLClosure.html#64f4853f6bad93920ccb1158c0da87e7">g</a>)); <a name="l00239"></a>00239 <a class="code" href="lgc_8c.html#1968578018ca02245b66665e92c1cb82">markvalue</a>(st, cl-><a class="code" href="unionClosure.html#8c338ec7dc76078cbee5887857de713c">l</a>.<a class="code" href="structLClosure.html#4cf173817d3897b0e70822e70d241d6c">p</a>); <a name="l00240"></a>00240 <span class="keywordflow">for</span> (i=0; i<cl-><a class="code" href="unionClosure.html#8c338ec7dc76078cbee5887857de713c">l</a>.<a class="code" href="structLClosure.html#05732375a30757a8faa6c889e1823696">nupvalues</a>; i++) { <span class="comment">/* mark its upvalues */</span> <a name="l00241"></a>00241 <a class="code" href="structUpVal.html">UpVal</a> *u = cl-><a class="code" href="unionClosure.html#8c338ec7dc76078cbee5887857de713c">l</a>.<a class="code" href="structLClosure.html#94886e7c7df838f5fab36575b0554682">upvals</a>[i]; <a name="l00242"></a>00242 if (!u->marked) { <a name="l00243"></a>00243 <a class="code" href="lgc_8c.html#280c365579979db07322a3d13e279027">markobject</a>(st, &u->value); <a name="l00244"></a>00244 u->marked = 1; <a name="l00245"></a>00245 } <a name="l00246"></a>00246 } <a name="l00247"></a>00247 } <a name="l00248"></a>00248 } <a name="l00249"></a>00249 <a name="l00250"></a>00250 <a name="l00251"></a><a class="code" href="lgc_8c.html#3091af958bc0821e5c6e49308f91d06d">00251</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#3091af958bc0821e5c6e49308f91d06d">checkstacksizes</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <a class="code" href="structlua__TObject.html">StkId</a> max) <a name="l00252"></a>00252 <span class="comment">/*@modifies L @*/</span> <a name="l00253"></a>00253 { <a name="l00254"></a>00254 <span class="keywordtype">int</span> used = L-><a class="code" href="structlua__State.html#7fbb5727050853f411ad64b4be9ab5c8">ci</a> - L-><a class="code" href="structlua__State.html#5e99f3f914a793d73684a19eb96dda3b">base_ci</a>; <span class="comment">/* number of `ci' in use */</span> <a name="l00255"></a>00255 <span class="keywordflow">if</span> (4*used < L->size_ci && 2*BASIC_CI_SIZE < L->size_ci) <a name="l00256"></a>00256 <a class="code" href="ldo_8c.html#4973df8c6b2fda8e72794f8d66cdaca2">luaD_reallocCI</a>(L, L-><a class="code" href="structlua__State.html#7eeb5161838f93d7aa57108a936e8982">size_ci</a>/2); <span class="comment">/* still big enough... */</span> <a name="l00257"></a>00257 <span class="keywordflow">else</span> <a class="code" href="ldo_8h.html#db7255da0decb82ca11a64fb830a8af1">condhardstacktests</a>(<a class="code" href="ldo_8c.html#4973df8c6b2fda8e72794f8d66cdaca2">luaD_reallocCI</a>(L, L->size_ci)); <a name="l00258"></a>00258 used = max - L->stack; <span class="comment">/* part of stack in use */</span> <a name="l00259"></a>00259 <span class="keywordflow">if</span> (4*used < L->stacksize && 2*(<a class="code" href="lstate_8h.html#8f869ebbbd09a2c657864e11e3d88453">BASIC_STACK_SIZE</a>+<a class="code" href="lstate_8h.html#9e690b8e4047af306d2dd1f78a9094d7">EXTRA_STACK</a>) < L->stacksize) <a name="l00260"></a>00260 <a class="code" href="ldo_8c.html#f9e1a13760752fc0ba594072b1fef5f3">luaD_reallocstack</a>(L, L->stacksize/2); <span class="comment">/* still big enough... */</span> <a name="l00261"></a>00261 <span class="keywordflow">else</span> <a class="code" href="ldo_8h.html#db7255da0decb82ca11a64fb830a8af1">condhardstacktests</a>(<a class="code" href="ldo_8c.html#f9e1a13760752fc0ba594072b1fef5f3">luaD_reallocstack</a>(L, L->stacksize)); <a name="l00262"></a>00262 } <a name="l00263"></a>00263 <a name="l00264"></a>00264 <a name="l00265"></a><a class="code" href="lgc_8c.html#2767008b9039177c098784b09c6be8fe">00265</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#2767008b9039177c098784b09c6be8fe">traversestack</a> (<a class="code" href="structGCState.html">GCState</a> *st, <a class="code" href="structlua__State.html">lua_State</a> *L1) <a name="l00266"></a>00266 <span class="comment">/*@modifies st, L1 @*/</span> <a name="l00267"></a>00267 { <a name="l00268"></a>00268 <a class="code" href="structlua__TObject.html">StkId</a> o, lim; <a name="l00269"></a>00269 <a class="code" href="structCallInfo.html">CallInfo</a> *ci; <a name="l00270"></a>00270 <a class="code" href="lgc_8c.html#280c365579979db07322a3d13e279027">markobject</a>(st, <a class="code" href="lstate_8h.html#1108b4374aa20059cd53d90b638c0e4b">gt</a>(L1)); <a name="l00271"></a>00271 lim = L1-><a class="code" href="structlua__State.html#195f448e76fd404953fa1962d28212a3">top</a>; <a name="l00272"></a>00272 <span class="keywordflow">for</span> (ci = L1-><a class="code" href="structlua__State.html#5e99f3f914a793d73684a19eb96dda3b">base_ci</a>; ci <= L1->ci; ci++) { <a name="l00273"></a>00273 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(ci-><a class="code" href="structCallInfo.html#e782b06ef00ccfe0720625ffa99b093a">top</a> <= L1-><a class="code" href="structlua__State.html#797a585a2bdb638bd1ca78c15bbe46fb">stack_last</a>); <a name="l00274"></a>00274 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(ci-><a class="code" href="structCallInfo.html#f902a563b421abdc49cb18808460d0a6">state</a> & (<a class="code" href="lstate_8h.html#7651f05866c96295a87e280f18e575e8">CI_C</a> | <a class="code" href="lstate_8h.html#280d3c7f7c2a815b11e873ec1377fe1a">CI_HASFRAME</a> | <a class="code" href="lstate_8h.html#be8d117279fbb27de79a9ce30e9cbaac">CI_SAVEDPC</a>)); <a name="l00275"></a>00275 <span class="keywordflow">if</span> (lim < ci->top) <a name="l00276"></a>00276 lim = ci-><a class="code" href="structCallInfo.html#e782b06ef00ccfe0720625ffa99b093a">top</a>; <a name="l00277"></a>00277 } <a name="l00278"></a>00278 <span class="keywordflow">for</span> (o = L1-><a class="code" href="structlua__State.html#27e1d5122ef7fffae7542814c72fdd2f">stack</a>; o < L1->top; o++) <a name="l00279"></a>00279 <a class="code" href="lgc_8c.html#280c365579979db07322a3d13e279027">markobject</a>(st, o); <a name="l00280"></a>00280 <span class="keywordflow">for</span> (; o <= lim; o++) <a name="l00281"></a>00281 <a class="code" href="lobject_8h.html#d9034def7bbc1965ec3d714d84620b07">setnilvalue</a>(o); <a name="l00282"></a>00282 <a class="code" href="lgc_8c.html#3091af958bc0821e5c6e49308f91d06d">checkstacksizes</a>(L1, lim); <a name="l00283"></a>00283 } <a name="l00284"></a>00284 <a name="l00285"></a>00285 <a name="l00286"></a><a class="code" href="lgc_8c.html#d86cd252f9e917828e98ed9bd8d6171b">00286</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#d86cd252f9e917828e98ed9bd8d6171b">propagatemarks</a> (<a class="code" href="structGCState.html">GCState</a> *st) <a name="l00287"></a>00287 <span class="comment">/*@modifies st @*/</span> <a name="l00288"></a>00288 { <a name="l00289"></a>00289 <span class="keywordflow">while</span> (st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>) { <span class="comment">/* traverse marked objects */</span> <a name="l00290"></a>00290 <span class="keywordflow">switch</span> (st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#952a882c3f16764f70c5e8dae8fb27eb">tt</a>) { <a name="l00291"></a>00291 <span class="keywordflow">case</span> LUA_TTABLE: { <a name="l00292"></a>00292 <a class="code" href="structTable.html">Table</a> *h = <a class="code" href="lstate_8h.html#6d127b7d00736bf1cafd674acac82075">gcotoh</a>(st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>); <a name="l00293"></a>00293 st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a> = h-><a class="code" href="structTable.html#1b6f3d76efed2011a36ee7c78f65aa70">gclist</a>; <a name="l00294"></a>00294 <a class="code" href="lgc_8c.html#df1b5429adf91d6af0dcece50e699613">traversetable</a>(st, h); <a name="l00295"></a>00295 <span class="keywordflow">break</span>; <a name="l00296"></a>00296 } <a name="l00297"></a>00297 <span class="keywordflow">case</span> LUA_TFUNCTION: { <a name="l00298"></a>00298 <a class="code" href="unionClosure.html">Closure</a> *cl = <a class="code" href="lstate_8h.html#fe7981c397b2d826b164faa08d52721f">gcotocl</a>(st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>); <a name="l00299"></a>00299 st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a> = cl-><a class="code" href="unionClosure.html#ce9dac5a62b61db682ef0cd86b3b44b1">c</a>.<a class="code" href="structCClosure.html#35364da6d9ff118a5db627b052ecb584">gclist</a>; <a name="l00300"></a>00300 <a class="code" href="lgc_8c.html#41f9460ecbc50e8e44ad566f45906e01">traverseclosure</a>(st, cl); <a name="l00301"></a>00301 <span class="keywordflow">break</span>; <a name="l00302"></a>00302 } <a name="l00303"></a>00303 <span class="keywordflow">case</span> LUA_TTHREAD: { <a name="l00304"></a>00304 <a class="code" href="structlua__State.html">lua_State</a> *th = <a class="code" href="lstate_8h.html#b548617c87a4d79e4bce4aff6d570394">gcototh</a>(st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>); <a name="l00305"></a>00305 <span class="comment">/*@-dependenttrans@*/</span> <a name="l00306"></a>00306 st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a> = th-><a class="code" href="structlua__State.html#0d446661e92287c8409076c970771217">gclist</a>; <a name="l00307"></a>00307 <span class="comment">/*@=dependenttrans@*/</span> <a name="l00308"></a>00308 <a class="code" href="lgc_8c.html#2767008b9039177c098784b09c6be8fe">traversestack</a>(st, th); <a name="l00309"></a>00309 <span class="keywordflow">break</span>; <a name="l00310"></a>00310 } <a name="l00311"></a>00311 <span class="keywordflow">case</span> <a class="code" href="lobject_8h.html#a2a683d9e42dac5846eefa108297cbf0">LUA_TPROTO</a>: { <a name="l00312"></a>00312 <a class="code" href="structProto.html">Proto</a> *p = <a class="code" href="lstate_8h.html#5f81d264bb74381ffa039fb207704425">gcotop</a>(st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a>); <a name="l00313"></a>00313 st-><a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a> = p-><a class="code" href="structProto.html#7991ec396b493a42b5c7f38b4e162959">gclist</a>; <a name="l00314"></a>00314 <a class="code" href="lgc_8c.html#4f128a5df1667624ef1bfc75aa162d54">traverseproto</a>(st, p); <a name="l00315"></a>00315 <span class="keywordflow">break</span>; <a name="l00316"></a>00316 } <a name="l00317"></a>00317 <span class="keywordflow">default</span>: <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(0); <a name="l00318"></a>00318 } <a name="l00319"></a>00319 } <a name="l00320"></a>00320 } <a name="l00321"></a>00321 <a name="l00322"></a>00322 <a name="l00323"></a><a class="code" href="lgc_8c.html#26efee58023d4cf3878cee50abf68a04">00323</a> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="lgc_8c.html#26efee58023d4cf3878cee50abf68a04">valismarked</a> (<span class="keyword">const</span> <a class="code" href="structlua__TObject.html">TObject</a> *o) <a name="l00324"></a>00324 <span class="comment">/*@modifies o @*/</span> <a name="l00325"></a>00325 { <a name="l00326"></a>00326 <span class="keywordflow">if</span> (<a class="code" href="lobject_8h.html#9bdf057a0de8da2ffae3ac35662dd255">ttisstring</a>(o)) <a name="l00327"></a>00327 <a class="code" href="lgc_8c.html#220f3c1132e8df620410ed6de1a75b49">stringmark</a>(<a class="code" href="lobject_8h.html#8661397faed512ccc9c70a4661f1a83d">tsvalue</a>(o)); <span class="comment">/* strings are `values', so are never weak */</span> <a name="l00328"></a>00328 <span class="keywordflow">return</span> !<a class="code" href="lobject_8h.html#aabdb414706e6a904461e39967557185">iscollectable</a>(o) || <a class="code" href="lgc_8c.html#25c19ff3161e2a2395ba69fdef49915f">testbit</a>(o->value.gc->gch.marked, 0); <a name="l00329"></a>00329 } <a name="l00330"></a>00330 <a name="l00331"></a>00331 <a name="l00332"></a>00332 <span class="comment">/*</span> <a name="l00333"></a>00333 <span class="comment">** clear collected keys from weaktables</span> <a name="l00334"></a>00334 <span class="comment">*/</span> <a name="l00335"></a><a class="code" href="lgc_8c.html#d692165aff17e61281c137f2d2ac81f1">00335</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#d692165aff17e61281c137f2d2ac81f1">cleartablekeys</a> (<span class="comment">/*@null@*/</span> <a class="code" href="unionGCObject.html">GCObject</a> *l) <a name="l00336"></a>00336 <span class="comment">/*@modifies l @*/</span> <a name="l00337"></a>00337 { <a name="l00338"></a>00338 <span class="keywordflow">while</span> (l) { <a name="l00339"></a>00339 <a class="code" href="structTable.html">Table</a> *h = <a class="code" href="lstate_8h.html#6d127b7d00736bf1cafd674acac82075">gcotoh</a>(l); <a name="l00340"></a>00340 <span class="keywordtype">int</span> i = <a class="code" href="lobject_8h.html#2fbf715e78eaa889ed0fb9d4514e736a">sizenode</a>(h); <a name="l00341"></a>00341 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(h-><a class="code" href="structTable.html#b4fd6c7325de2d7deb31cbca87f8d969">marked</a> & <a class="code" href="lgc_8c.html#c92cf2e20106bb0a9b68e0cdb74b286b">KEYWEAK</a>); <a name="l00342"></a>00342 <span class="keywordflow">while</span> (i--) { <a name="l00343"></a>00343 <a class="code" href="structNode.html">Node</a> *n = <a class="code" href="ltable_8h.html#644cfa3b6d4be1782e818a8340b5f78b">gnode</a>(h, i); <a name="l00344"></a>00344 <span class="keywordflow">if</span> (!<a class="code" href="lgc_8c.html#26efee58023d4cf3878cee50abf68a04">valismarked</a>(<a class="code" href="ltable_8h.html#d8f233e3b7156cd470d0ac21d7b54c11">gkey</a>(n))) <span class="comment">/* key was collected? */</span> <a name="l00345"></a>00345 <a class="code" href="lgc_8c.html#913654a99f4ed397636a99b61bd9a90c">removekey</a>(n); <span class="comment">/* remove entry from table */</span> <a name="l00346"></a>00346 } <a name="l00347"></a>00347 l = h-><a class="code" href="structTable.html#1b6f3d76efed2011a36ee7c78f65aa70">gclist</a>; <a name="l00348"></a>00348 } <a name="l00349"></a>00349 } <a name="l00350"></a>00350 <a name="l00351"></a>00351 <a name="l00352"></a>00352 <span class="comment">/*</span> <a name="l00353"></a>00353 <span class="comment">** clear collected values from weaktables</span> <a name="l00354"></a>00354 <span class="comment">*/</span> <a name="l00355"></a><a class="code" href="lgc_8c.html#ff3526a8109092a6eeffdfd6ab68de89">00355</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#ff3526a8109092a6eeffdfd6ab68de89">cleartablevalues</a> (<span class="comment">/*@null@*/</span> <a class="code" href="unionGCObject.html">GCObject</a> *l) <a name="l00356"></a>00356 <span class="comment">/*@modifies l @*/</span> <a name="l00357"></a>00357 { <a name="l00358"></a>00358 <span class="keywordflow">while</span> (l) { <a name="l00359"></a>00359 <a class="code" href="structTable.html">Table</a> *h = <a class="code" href="lstate_8h.html#6d127b7d00736bf1cafd674acac82075">gcotoh</a>(l); <a name="l00360"></a>00360 <span class="keywordtype">int</span> i = h-><a class="code" href="structTable.html#2c648e99fcf88c4660c97e7d9408b50f">sizearray</a>; <a name="l00361"></a>00361 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(h-><a class="code" href="structTable.html#b4fd6c7325de2d7deb31cbca87f8d969">marked</a> & <a class="code" href="lgc_8c.html#cd04fc135b64ac6efe5ba024efa5d8f1">VALUEWEAK</a>); <a name="l00362"></a>00362 <span class="keywordflow">while</span> (i--) { <a name="l00363"></a>00363 <a class="code" href="structlua__TObject.html">TObject</a> *o = &h-><a class="code" href="structTable.html#193ec6402a4e6e6aa976ca1ffe7186d3">array</a>[i]; <a name="l00364"></a>00364 <span class="keywordflow">if</span> (!<a class="code" href="lgc_8c.html#26efee58023d4cf3878cee50abf68a04">valismarked</a>(o)) <span class="comment">/* value was collected? */</span> <a name="l00365"></a>00365 <a class="code" href="lobject_8h.html#d9034def7bbc1965ec3d714d84620b07">setnilvalue</a>(o); <span class="comment">/* remove value */</span> <a name="l00366"></a>00366 } <a name="l00367"></a>00367 i = <a class="code" href="lobject_8h.html#2fbf715e78eaa889ed0fb9d4514e736a">sizenode</a>(h); <a name="l00368"></a>00368 <span class="keywordflow">while</span> (i--) { <a name="l00369"></a>00369 <a class="code" href="structNode.html">Node</a> *n = <a class="code" href="ltable_8h.html#644cfa3b6d4be1782e818a8340b5f78b">gnode</a>(h, i); <a name="l00370"></a>00370 <span class="keywordflow">if</span> (!<a class="code" href="lgc_8c.html#26efee58023d4cf3878cee50abf68a04">valismarked</a>(<a class="code" href="ltable_8h.html#cbbecd9bd8fbb72a17f6e2f5acf7113d">gval</a>(n))) <span class="comment">/* value was collected? */</span> <a name="l00371"></a>00371 <a class="code" href="lgc_8c.html#913654a99f4ed397636a99b61bd9a90c">removekey</a>(n); <span class="comment">/* remove entry from table */</span> <a name="l00372"></a>00372 } <a name="l00373"></a>00373 l = h-><a class="code" href="structTable.html#1b6f3d76efed2011a36ee7c78f65aa70">gclist</a>; <a name="l00374"></a>00374 } <a name="l00375"></a>00375 } <a name="l00376"></a>00376 <a name="l00377"></a>00377 <a name="l00378"></a><a class="code" href="lgc_8c.html#a198d7da2a8502ed70adfe1f7ed38f46">00378</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#a198d7da2a8502ed70adfe1f7ed38f46">freeobj</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <a class="code" href="unionGCObject.html">GCObject</a> *o) <a name="l00379"></a>00379 <span class="comment">/*@modifies L, o @*/</span> <a name="l00380"></a>00380 { <a name="l00381"></a>00381 <span class="keywordflow">switch</span> (o-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#952a882c3f16764f70c5e8dae8fb27eb">tt</a>) { <a name="l00382"></a>00382 <span class="keywordflow">case</span> <a class="code" href="lobject_8h.html#a2a683d9e42dac5846eefa108297cbf0">LUA_TPROTO</a>: <a class="code" href="lfunc_8c.html#117c26fb473f6165ee84d70d49a741b7">luaF_freeproto</a>(L, <a class="code" href="lstate_8h.html#5f81d264bb74381ffa039fb207704425">gcotop</a>(o)); <span class="keywordflow">break</span>; <a name="l00383"></a>00383 <span class="keywordflow">case</span> LUA_TFUNCTION: <a class="code" href="lfunc_8c.html#63b9905e2b6f52f6368a8f8019605c99">luaF_freeclosure</a>(L, <a class="code" href="lstate_8h.html#fe7981c397b2d826b164faa08d52721f">gcotocl</a>(o)); <span class="keywordflow">break</span>; <a name="l00384"></a>00384 <span class="keywordflow">case</span> <a class="code" href="lobject_8h.html#3175b6b959953f781a14a9291d9e22b6">LUA_TUPVAL</a>: <a class="code" href="lmem_8h.html#950211b6f3cdd2a18ea3e2ad59412897">luaM_freelem</a>(L, <a class="code" href="lstate_8h.html#2c305352d601274a0036608be61c6106">gcotouv</a>(o)); <span class="keywordflow">break</span>; <a name="l00385"></a>00385 <span class="keywordflow">case</span> LUA_TTABLE: <a class="code" href="ltable_8c.html#c6d94de2e83b5b0865b4aca30dec5c8c">luaH_free</a>(L, <a class="code" href="lstate_8h.html#6d127b7d00736bf1cafd674acac82075">gcotoh</a>(o)); <span class="keywordflow">break</span>; <a name="l00386"></a>00386 <span class="keywordflow">case</span> LUA_TTHREAD: { <a name="l00387"></a>00387 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(<a class="code" href="lstate_8h.html#b548617c87a4d79e4bce4aff6d570394">gcototh</a>(o) != L && <a class="code" href="lstate_8h.html#b548617c87a4d79e4bce4aff6d570394">gcototh</a>(o) != <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->mainthread); <a name="l00388"></a>00388 <a class="code" href="lstate_8c.html#8c121cf8444c9c54e934aeb509c4b73a">luaE_freethread</a>(L, <a class="code" href="lstate_8h.html#b548617c87a4d79e4bce4aff6d570394">gcototh</a>(o)); <a name="l00389"></a>00389 <span class="keywordflow">break</span>; <a name="l00390"></a>00390 } <a name="l00391"></a>00391 <span class="keywordflow">case</span> LUA_TSTRING: { <a name="l00392"></a>00392 <a class="code" href="lmem_8h.html#45b2229e655e385fd650f882298b2c42">luaM_free</a>(L, o, <a class="code" href="lstring_8h.html#00cc0e1efaeb77fee91a0aa2374a4ee1">sizestring</a>(<a class="code" href="lstate_8h.html#ccac69fd582898bfa9fe9067c17a1948">gcotots</a>(o)->tsv.len)); <a name="l00393"></a>00393 <span class="keywordflow">break</span>; <a name="l00394"></a>00394 } <a name="l00395"></a>00395 <span class="keywordflow">case</span> LUA_TUSERDATA: { <a name="l00396"></a>00396 <a class="code" href="lmem_8h.html#45b2229e655e385fd650f882298b2c42">luaM_free</a>(L, o, <a class="code" href="lstring_8h.html#669a28378c7db20a6f434ed8cac0c6d1">sizeudata</a>(<a class="code" href="lstate_8h.html#8df56e9554d8ca940dc56c9add905b1b">gcotou</a>(o)->uv.len)); <a name="l00397"></a>00397 <span class="keywordflow">break</span>; <a name="l00398"></a>00398 } <a name="l00399"></a>00399 <span class="keywordflow">default</span>: <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(0); <a name="l00400"></a>00400 } <a name="l00401"></a>00401 } <a name="l00402"></a>00402 <a name="l00403"></a>00403 <a name="l00404"></a><a class="code" href="lgc_8c.html#088139edca44daf6f6487c1e228330b6">00404</a> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="lgc_8c.html#088139edca44daf6f6487c1e228330b6">sweeplist</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <a class="code" href="unionGCObject.html">GCObject</a> **p, <span class="keywordtype">int</span> limit) <a name="l00405"></a>00405 <span class="comment">/*@modifies L, *p @*/</span> <a name="l00406"></a>00406 { <a name="l00407"></a>00407 <a class="code" href="unionGCObject.html">GCObject</a> *curr; <a name="l00408"></a>00408 <span class="keywordtype">int</span> count = 0; <span class="comment">/* number of collected items */</span> <a name="l00409"></a>00409 <span class="keywordflow">while</span> ((curr = *p) != NULL) { <a name="l00410"></a>00410 <span class="keywordflow">if</span> (curr-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#33f3e2976d8f0997e02c5763194881e9">marked</a> > limit) { <a name="l00411"></a>00411 <a class="code" href="lgc_8c.html#9c2002e0371efe71d4b4d3dabe54ca39">unmark</a>(curr); <a name="l00412"></a>00412 p = &curr-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a>; <a name="l00413"></a>00413 } <a name="l00414"></a>00414 <span class="keywordflow">else</span> { <a name="l00415"></a>00415 count++; <a name="l00416"></a>00416 <span class="comment">/*@-dependenttrans@*/</span> <a name="l00417"></a>00417 *p = curr-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a>; <a name="l00418"></a>00418 <span class="comment">/*@=dependenttrans@*/</span> <a name="l00419"></a>00419 <a class="code" href="lgc_8c.html#a198d7da2a8502ed70adfe1f7ed38f46">freeobj</a>(L, curr); <a name="l00420"></a>00420 } <a name="l00421"></a>00421 } <a name="l00422"></a>00422 <span class="keywordflow">return</span> count; <a name="l00423"></a>00423 } <a name="l00424"></a>00424 <a name="l00425"></a>00425 <a name="l00426"></a><a class="code" href="lgc_8c.html#80de3adc9b8d111b3a3d81ca4cc336cf">00426</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#80de3adc9b8d111b3a3d81ca4cc336cf">sweepstrings</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <span class="keywordtype">int</span> all) <a name="l00427"></a>00427 <span class="comment">/*@modifies L @*/</span> <a name="l00428"></a>00428 { <a name="l00429"></a>00429 <span class="keywordtype">int</span> i; <a name="l00430"></a>00430 <span class="keywordflow">for</span> (i=0; i<<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.size; i++) { <span class="comment">/* for each list */</span> <a name="l00431"></a>00431 <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.nuse -= <a class="code" href="lgc_8c.html#088139edca44daf6f6487c1e228330b6">sweeplist</a>(L, &<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.hash[i], all); <a name="l00432"></a>00432 } <a name="l00433"></a>00433 } <a name="l00434"></a>00434 <a name="l00435"></a>00435 <a name="l00436"></a><a class="code" href="lgc_8c.html#fd6a320d0b661bc84620ff60b63916be">00436</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#fd6a320d0b661bc84620ff60b63916be">checkSizes</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, size_t deadmem) <a name="l00437"></a>00437 <span class="comment">/*@modifies L @*/</span> <a name="l00438"></a>00438 { <a name="l00439"></a>00439 <span class="comment">/* check size of string hash */</span> <a name="l00440"></a>00440 <span class="keywordflow">if</span> (<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.nuse < <a class="code" href="llimits_8h.html#f17d62ec9e237a7644de6b9b34a48a34">cast</a>(<a class="code" href="llimits_8h.html#aec649ed31f1a3983453f89bc24ff89f">ls_nstr</a>, <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.size/4) && <a name="l00441"></a>00441 <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.size > <a class="code" href="llimits_8h.html#91604f8876fd042d7b1cdbade17927e6">MINSTRTABSIZE</a>*2) <a name="l00442"></a>00442 <a class="code" href="lstring_8c.html#88a409a2e7eee2106940f69d7884c471">luaS_resize</a>(L, <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.size/2); <span class="comment">/* table is too big */</span> <a name="l00443"></a>00443 <span class="comment">/* check size of buffer */</span> <a name="l00444"></a>00444 <span class="keywordflow">if</span> (<a class="code" href="lzio_8h.html#072ede62ba384b9d5fdedbb80eaf3ee1">luaZ_sizebuffer</a>(&<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->buff) > <a class="code" href="llimits_8h.html#a0320f75a72bf131ae24d39111ac9938">LUA_MINBUFFER</a>*2) { <span class="comment">/* buffer too big? */</span> <a name="l00445"></a>00445 size_t newsize = <a class="code" href="lzio_8h.html#072ede62ba384b9d5fdedbb80eaf3ee1">luaZ_sizebuffer</a>(&<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->buff) / 2; <a name="l00446"></a>00446 <a class="code" href="lzio_8h.html#b158420acf019b3a45e8ae6e65b51fdb">luaZ_resizebuffer</a>(L, &<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->buff, newsize); <a name="l00447"></a>00447 } <a name="l00448"></a>00448 <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->GCthreshold = 2*<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->nblocks - deadmem; <span class="comment">/* new threshold */</span> <a name="l00449"></a>00449 } <a name="l00450"></a>00450 <a name="l00451"></a>00451 <a name="l00452"></a><a class="code" href="lgc_8c.html#d49b9fda4667564d5f2898d280780ab4">00452</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#d49b9fda4667564d5f2898d280780ab4">do1gcTM</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <a class="code" href="unionUdata.html">Udata</a> *udata) <a name="l00453"></a>00453 <span class="comment">/*@modifies L, udata @*/</span> <a name="l00454"></a>00454 { <a name="l00455"></a>00455 <span class="keyword">const</span> <a class="code" href="structlua__TObject.html">TObject</a> *tm = <a class="code" href="ltm_8h.html#0a29ed88450f8f92330a6a411a9c8134">fasttm</a>(L, udata-><a class="code" href="unionUdata.html#ed59bf14adb5708fbf68e2836dfcb8d3">uv</a>.<a class="code" href="unionUdata.html#39f828bdcf3f046e285ffbecfcaea56b">metatable</a>, <a class="code" href="ltm_8h.html#69e345ae253d250b61a03f1d6871c8d101e1b0be5e2785471e19db3665960536">TM_GC</a>); <a name="l00456"></a>00456 <span class="keywordflow">if</span> (tm != NULL) { <a name="l00457"></a>00457 <a class="code" href="lobject_8h.html#1c51b9462c606f1f97242fae6b1220d1">setobj2s</a>(L-><a class="code" href="structlua__State.html#195f448e76fd404953fa1962d28212a3">top</a>, tm); <a name="l00458"></a>00458 <a class="code" href="lobject_8h.html#179e340cf74f28c0bb2542720bf79715">setuvalue</a>(L-><a class="code" href="structlua__State.html#195f448e76fd404953fa1962d28212a3">top</a>+1, udata); <a name="l00459"></a>00459 L-><a class="code" href="structlua__State.html#195f448e76fd404953fa1962d28212a3">top</a> += 2; <a name="l00460"></a>00460 <a class="code" href="ldo_8c.html#5483fddd87ca999e7d037bf397ab7997">luaD_call</a>(L, L-><a class="code" href="structlua__State.html#195f448e76fd404953fa1962d28212a3">top</a> - 2, 0); <a name="l00461"></a>00461 } <a name="l00462"></a>00462 } <a name="l00463"></a>00463 <a name="l00464"></a>00464 <a name="l00465"></a><a class="code" href="lgc_8h.html#0388006a78218c113dfa6cc19d2da373">00465</a> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#0388006a78218c113dfa6cc19d2da373">luaC_callGCTM</a> (<a class="code" href="structlua__State.html">lua_State</a> *L) { <a name="l00466"></a>00466 <a class="code" href="llimits_8h.html#e1fe9ac10d9803bd1d7bdf30b18bad68">lu_byte</a> oldah = L-><a class="code" href="structlua__State.html#c2903d4a712ca1c2d114f541636490f5">allowhook</a>; <a name="l00467"></a>00467 L-><a class="code" href="structlua__State.html#c2903d4a712ca1c2d114f541636490f5">allowhook</a> = 0; <span class="comment">/* stop debug hooks during GC tag methods */</span> <a name="l00468"></a>00468 L-><a class="code" href="structlua__State.html#195f448e76fd404953fa1962d28212a3">top</a>++; <span class="comment">/* reserve space to keep udata while runs its gc method */</span> <a name="l00469"></a>00469 <span class="keywordflow">while</span> (<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->tmudata != NULL) { <a name="l00470"></a>00470 <a class="code" href="unionGCObject.html">GCObject</a> *o = <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->tmudata; <a name="l00471"></a>00471 <a class="code" href="unionUdata.html">Udata</a> *udata = <a class="code" href="lstate_8h.html#8df56e9554d8ca940dc56c9add905b1b">gcotou</a>(o); <a name="l00472"></a>00472 <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->tmudata = udata-><a class="code" href="unionUdata.html#ed59bf14adb5708fbf68e2836dfcb8d3">uv</a>.<a class="code" href="unionUdata.html#30abc9118049ddfc50b2b6eeece95bb9">next</a>; <span class="comment">/* remove udata from `tmudata' */</span> <a name="l00473"></a>00473 udata-><a class="code" href="unionUdata.html#ed59bf14adb5708fbf68e2836dfcb8d3">uv</a>.<a class="code" href="unionUdata.html#30abc9118049ddfc50b2b6eeece95bb9">next</a> = <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->rootudata; <span class="comment">/* return it to `root' list */</span> <a name="l00474"></a>00474 <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->rootudata = o; <a name="l00475"></a>00475 <a class="code" href="lobject_8h.html#179e340cf74f28c0bb2542720bf79715">setuvalue</a>(L-><a class="code" href="structlua__State.html#195f448e76fd404953fa1962d28212a3">top</a> - 1, udata); <span class="comment">/* keep a reference to it */</span> <a name="l00476"></a>00476 <a class="code" href="lgc_8c.html#9c2002e0371efe71d4b4d3dabe54ca39">unmark</a>(o); <a name="l00477"></a>00477 <a class="code" href="lgc_8c.html#27a77307b90dae514183dc73279ba46b">markfinalized</a>(udata); <a name="l00478"></a>00478 <a class="code" href="lgc_8c.html#d49b9fda4667564d5f2898d280780ab4">do1gcTM</a>(L, udata); <a name="l00479"></a>00479 } <a name="l00480"></a>00480 L-><a class="code" href="structlua__State.html#195f448e76fd404953fa1962d28212a3">top</a>--; <a name="l00481"></a>00481 L-><a class="code" href="structlua__State.html#c2903d4a712ca1c2d114f541636490f5">allowhook</a> = oldah; <span class="comment">/* restore hooks */</span> <a name="l00482"></a>00482 } <a name="l00483"></a>00483 <a name="l00484"></a>00484 <a name="l00485"></a><a class="code" href="lgc_8h.html#7a9e3ac4f8260e6fb51aa5c111ed82b2">00485</a> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#7a9e3ac4f8260e6fb51aa5c111ed82b2">luaC_sweep</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <span class="keywordtype">int</span> all) { <a name="l00486"></a>00486 <span class="keywordflow">if</span> (all) all = 256; <span class="comment">/* larger than any mark */</span> <a name="l00487"></a>00487 <a class="code" href="lgc_8c.html#088139edca44daf6f6487c1e228330b6">sweeplist</a>(L, &<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->rootudata, all); <a name="l00488"></a>00488 <a class="code" href="lgc_8c.html#80de3adc9b8d111b3a3d81ca4cc336cf">sweepstrings</a>(L, all); <a name="l00489"></a>00489 <a class="code" href="lgc_8c.html#088139edca44daf6f6487c1e228330b6">sweeplist</a>(L, &<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->rootgc, all); <a name="l00490"></a>00490 } <a name="l00491"></a>00491 <a name="l00492"></a>00492 <a name="l00493"></a>00493 <span class="comment">/* mark root set */</span> <a name="l00494"></a><a class="code" href="lgc_8c.html#e2629af93bb96ca592150b82b2c03394">00494</a> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#e2629af93bb96ca592150b82b2c03394">markroot</a> (<a class="code" href="structGCState.html">GCState</a> *st, <a class="code" href="structlua__State.html">lua_State</a> *L) <a name="l00495"></a>00495 <span class="comment">/*@modifies st, L @*/</span> <a name="l00496"></a>00496 { <a name="l00497"></a>00497 <a class="code" href="structglobal__State.html">global_State</a> *g = st-><a class="code" href="structGCState.html#7727f1436a10d87f859a53bc08171584">g</a>; <a name="l00498"></a>00498 <a class="code" href="lgc_8c.html#280c365579979db07322a3d13e279027">markobject</a>(st, <a class="code" href="lstate_8h.html#9e5e09b7a0a8beffba454495b5124ac7">defaultmeta</a>(L)); <a name="l00499"></a>00499 <a class="code" href="lgc_8c.html#280c365579979db07322a3d13e279027">markobject</a>(st, <a class="code" href="lstate_8h.html#d294d19c007815f4c238efbd221ea705">registry</a>(L)); <a name="l00500"></a>00500 <a class="code" href="lgc_8c.html#2767008b9039177c098784b09c6be8fe">traversestack</a>(st, g-><a class="code" href="structglobal__State.html#2c81856ac69a92580d4330cd1070c7c5">mainthread</a>); <a name="l00501"></a>00501 <span class="keywordflow">if</span> (L != g-><a class="code" href="structglobal__State.html#2c81856ac69a92580d4330cd1070c7c5">mainthread</a>) <span class="comment">/* another thread is running? */</span> <a name="l00502"></a>00502 <a class="code" href="lgc_8c.html#1968578018ca02245b66665e92c1cb82">markvalue</a>(st, L); <span class="comment">/* cannot collect it */</span> <a name="l00503"></a>00503 } <a name="l00504"></a>00504 <a name="l00505"></a>00505 <a name="l00506"></a><a class="code" href="lgc_8c.html#309edce8c564be5b57b712efcaff8a46">00506</a> <span class="keyword">static</span> size_t <a class="code" href="lgc_8c.html#309edce8c564be5b57b712efcaff8a46">mark</a> (<a class="code" href="structlua__State.html">lua_State</a> *L) <a name="l00507"></a>00507 <span class="comment">/*@modifies L @*/</span> <a name="l00508"></a>00508 { <a name="l00509"></a>00509 size_t deadmem; <a name="l00510"></a>00510 <a class="code" href="structGCState.html">GCState</a> st; <a name="l00511"></a>00511 <a class="code" href="unionGCObject.html">GCObject</a> *wkv; <a name="l00512"></a>00512 st.<a class="code" href="structGCState.html#7727f1436a10d87f859a53bc08171584">g</a> = <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L); <a name="l00513"></a>00513 st.<a class="code" href="structGCState.html#a9e8d858f363bf0b5d6995d1a6631765">tmark</a> = NULL; <a name="l00514"></a>00514 st.<a class="code" href="structGCState.html#06c5f3e1732cb067886ad3b007dc1459">wkv</a> = st.<a class="code" href="structGCState.html#68d81546875e00a8d8ba74417870e1fe">wk</a> = st.<a class="code" href="structGCState.html#862d5d310ee6fd397a7ec44583e76535">wv</a> = NULL; <a name="l00515"></a>00515 <a class="code" href="lgc_8c.html#e2629af93bb96ca592150b82b2c03394">markroot</a>(&st, L); <a name="l00516"></a>00516 <a class="code" href="lgc_8c.html#d86cd252f9e917828e98ed9bd8d6171b">propagatemarks</a>(&st); <span class="comment">/* mark all reachable objects */</span> <a name="l00517"></a>00517 <a class="code" href="lgc_8c.html#ff3526a8109092a6eeffdfd6ab68de89">cleartablevalues</a>(st.<a class="code" href="structGCState.html#06c5f3e1732cb067886ad3b007dc1459">wkv</a>); <a name="l00518"></a>00518 <a class="code" href="lgc_8c.html#ff3526a8109092a6eeffdfd6ab68de89">cleartablevalues</a>(st.<a class="code" href="structGCState.html#862d5d310ee6fd397a7ec44583e76535">wv</a>); <a name="l00519"></a>00519 wkv = st.<a class="code" href="structGCState.html#06c5f3e1732cb067886ad3b007dc1459">wkv</a>; <span class="comment">/* keys must be cleared after preserving udata */</span> <a name="l00520"></a>00520 st.<a class="code" href="structGCState.html#06c5f3e1732cb067886ad3b007dc1459">wkv</a> = NULL; <a name="l00521"></a>00521 st.<a class="code" href="structGCState.html#862d5d310ee6fd397a7ec44583e76535">wv</a> = NULL; <a name="l00522"></a>00522 deadmem = <a class="code" href="lgc_8c.html#002b6fa34dc9f5d2f8c5d22e6c3f8fa2">luaC_separateudata</a>(L); <span class="comment">/* separate userdata to be preserved */</span> <a name="l00523"></a>00523 <a class="code" href="lgc_8c.html#d897de93d93fcf9d682d063bc3e23c32">marktmu</a>(&st); <span class="comment">/* mark `preserved' userdata */</span> <a name="l00524"></a>00524 <a class="code" href="lgc_8c.html#d86cd252f9e917828e98ed9bd8d6171b">propagatemarks</a>(&st); <span class="comment">/* remark, to propagate `preserveness' */</span> <a name="l00525"></a>00525 <a class="code" href="lgc_8c.html#d692165aff17e61281c137f2d2ac81f1">cleartablekeys</a>(wkv); <a name="l00526"></a>00526 <span class="comment">/* `propagatemarks' may resuscitate some weak tables; clear them too */</span> <a name="l00527"></a>00527 <a class="code" href="lgc_8c.html#d692165aff17e61281c137f2d2ac81f1">cleartablekeys</a>(st.<a class="code" href="structGCState.html#68d81546875e00a8d8ba74417870e1fe">wk</a>); <a name="l00528"></a>00528 <a class="code" href="lgc_8c.html#ff3526a8109092a6eeffdfd6ab68de89">cleartablevalues</a>(st.<a class="code" href="structGCState.html#862d5d310ee6fd397a7ec44583e76535">wv</a>); <a name="l00529"></a>00529 <a class="code" href="lgc_8c.html#d692165aff17e61281c137f2d2ac81f1">cleartablekeys</a>(st.<a class="code" href="structGCState.html#06c5f3e1732cb067886ad3b007dc1459">wkv</a>); <a name="l00530"></a>00530 <a class="code" href="lgc_8c.html#ff3526a8109092a6eeffdfd6ab68de89">cleartablevalues</a>(st.<a class="code" href="structGCState.html#06c5f3e1732cb067886ad3b007dc1459">wkv</a>); <a name="l00531"></a>00531 <span class="keywordflow">return</span> deadmem; <a name="l00532"></a>00532 } <a name="l00533"></a>00533 <a name="l00534"></a>00534 <a name="l00535"></a><a class="code" href="lgc_8h.html#bd228c5c00fcffabcb92a6b7c5a982d6">00535</a> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#bd228c5c00fcffabcb92a6b7c5a982d6">luaC_collectgarbage</a> (<a class="code" href="structlua__State.html">lua_State</a> *L) { <a name="l00536"></a>00536 size_t deadmem = <a class="code" href="lgc_8c.html#309edce8c564be5b57b712efcaff8a46">mark</a>(L); <a name="l00537"></a>00537 <a class="code" href="lgc_8c.html#7a9e3ac4f8260e6fb51aa5c111ed82b2">luaC_sweep</a>(L, 0); <a name="l00538"></a>00538 <a class="code" href="lgc_8c.html#fd6a320d0b661bc84620ff60b63916be">checkSizes</a>(L, deadmem); <a name="l00539"></a>00539 <a class="code" href="lgc_8c.html#0388006a78218c113dfa6cc19d2da373">luaC_callGCTM</a>(L); <a name="l00540"></a>00540 } <a name="l00541"></a>00541 <a name="l00542"></a>00542 <a name="l00543"></a><a class="code" href="lgc_8h.html#8ceb43f94e1513c18f99e7d2ee6f944e">00543</a> <span class="keywordtype">void</span> <a class="code" href="lgc_8c.html#8ceb43f94e1513c18f99e7d2ee6f944e">luaC_link</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <a class="code" href="unionGCObject.html">GCObject</a> *o, <a class="code" href="llimits_8h.html#e1fe9ac10d9803bd1d7bdf30b18bad68">lu_byte</a> tt) { <a name="l00544"></a>00544 o-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a> = <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->rootgc; <a name="l00545"></a>00545 <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->rootgc = o; <a name="l00546"></a>00546 o-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#33f3e2976d8f0997e02c5763194881e9">marked</a> = 0; <a name="l00547"></a>00547 o-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#952a882c3f16764f70c5e8dae8fb27eb">tt</a> = tt; <a name="l00548"></a>00548 } <a name="l00549"></a>00549 </pre></div><hr size="1"><address style="align: right;"><small>Generated on 1 Oct 2013 for rpm by <a href="http://www.doxygen.org/index.html"> <img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.4.7 </small></address> </body> </html>