| 249 | } |
| 250 | |
| 251 | static void PrintConstant(const Proto* f, int i) |
| 252 | { |
| 253 | const TValue* o=&f->k[i]; |
| 254 | switch (ttypenv(o)) |
| 255 | { |
| 256 | case LUA_TNIL: |
| 257 | printf("nil"); |
| 258 | break; |
| 259 | case LUA_TBOOLEAN: |
| 260 | printf(bvalue(o) ? "true" : "false"); |
| 261 | break; |
| 262 | case LUA_TNUMBER: |
| 263 | printf(LUA_NUMBER_FMT,nvalue(o)); |
| 264 | break; |
| 265 | case LUA_TSTRING: |
| 266 | PrintString(rawtsvalue(o)); |
| 267 | break; |
| 268 | default: /* cannot happen */ |
| 269 | printf("? type=%d",ttype(o)); |
| 270 | break; |
| 271 | } |
| 272 | } |
| 273 | |
| 274 | #define UPVALNAME(x) ((f->upvalues[x].name) ? getstr(f->upvalues[x].name) : "-") |
| 275 | #define MYK(x) (-1-(x)) |
no test coverage detected