| 78 | static void DumpFunction(const Proto* f, const TString* p, DumpState* D); |
| 79 | |
| 80 | static void DumpConstants(const Proto* f, DumpState* D) |
| 81 | { |
| 82 | int i,n=f->sizek; |
| 83 | DumpInt(n,D); |
| 84 | for (i=0; i<n; i++) |
| 85 | { |
| 86 | const TValue* o=&f->k[i]; |
| 87 | DumpChar(ttype(o),D); |
| 88 | switch (ttype(o)) |
| 89 | { |
| 90 | case LUA_TNIL: |
| 91 | break; |
| 92 | case LUA_TBOOLEAN: |
| 93 | DumpChar(bvalue(o),D); |
| 94 | break; |
| 95 | case LUA_TNUMBER: |
| 96 | DumpNumber(nvalue(o),D); |
| 97 | break; |
| 98 | case LUA_TSTRING: |
| 99 | DumpString(rawtsvalue(o),D); |
| 100 | break; |
| 101 | default: |
| 102 | lua_assert(0); /* cannot happen */ |
| 103 | break; |
| 104 | } |
| 105 | } |
| 106 | n=f->sizep; |
| 107 | DumpInt(n,D); |
| 108 | for (i=0; i<n; i++) DumpFunction(f->p[i],f->source,D); |
| 109 | } |
| 110 | |
| 111 | static void DumpDebug(const Proto* f, DumpState* D) |
| 112 | { |
no test coverage detected