| 676 | #define S(x) (int)(x),SS(x) |
| 677 | |
| 678 | static void PrintHeader(const Proto* f) |
| 679 | { |
| 680 | const char* s=f->source ? getstr(f->source) : "=?"; |
| 681 | if (*s=='@' || *s=='=') |
| 682 | s++; |
| 683 | else if (*s==LUA_SIGNATURE[0]) |
| 684 | s="(bstring)"; |
| 685 | else |
| 686 | s="(string)"; |
| 687 | printf("\n%s <%s:%d,%d> (%d instruction%s at %p)\n", |
| 688 | (f->linedefined==0)?"main":"function",s, |
| 689 | f->linedefined,f->lastlinedefined, |
| 690 | S(f->sizecode),VOID(f)); |
| 691 | printf("%d%s param%s, %d slot%s, %d upvalue%s, ", |
| 692 | (int)(f->numparams),isvararg(f)?"+":"",SS(f->numparams), |
| 693 | S(f->maxstacksize),S(f->sizeupvalues)); |
| 694 | printf("%d local%s, %d constant%s, %d function%s\n", |
| 695 | S(f->sizelocvars),S(f->sizek),S(f->sizep)); |
| 696 | } |
| 697 | |
| 698 | static void PrintDebug(const Proto* f) |
| 699 | { |