| 98 | static Proto* LoadFunction(LoadState* S, TString* p); |
| 99 | |
| 100 | static void LoadConstants(LoadState* S, Proto* f) |
| 101 | { |
| 102 | int i,n; |
| 103 | n=LoadInt(S); |
| 104 | f->k=luaM_newvector(S->L,n,TValue); |
| 105 | f->sizek=n; |
| 106 | for (i=0; i<n; i++) setnilvalue(&f->k[i]); |
| 107 | for (i=0; i<n; i++) |
| 108 | { |
| 109 | TValue* o=&f->k[i]; |
| 110 | int t=LoadChar(S); |
| 111 | switch (t) |
| 112 | { |
| 113 | case LUA_TNIL: |
| 114 | setnilvalue(o); |
| 115 | break; |
| 116 | case LUA_TBOOLEAN: |
| 117 | setbvalue(o,LoadChar(S)!=0); |
| 118 | break; |
| 119 | case LUA_TNUMBER: |
| 120 | setnvalue(o,LoadNumber(S)); |
| 121 | break; |
| 122 | case LUA_TSTRING: |
| 123 | setsvalue2n(S->L,o,LoadString(S)); |
| 124 | break; |
| 125 | default: |
| 126 | error(S,"bad constant"); |
| 127 | break; |
| 128 | } |
| 129 | } |
| 130 | n=LoadInt(S); |
| 131 | f->p=luaM_newvector(S->L,n,Proto*); |
| 132 | f->sizep=n; |
| 133 | for (i=0; i<n; i++) f->p[i]=NULL; |
| 134 | for (i=0; i<n; i++) f->p[i]=LoadFunction(S,f->source); |
| 135 | } |
| 136 | |
| 137 | static void LoadDebug(LoadState* S, Proto* f) |
| 138 | { |
no test coverage detected