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