copy strings in stack from top - n up to top - 1 to buffer */
| 636 | |
| 637 | /* copy strings in stack from top - n up to top - 1 to buffer */ |
| 638 | static void copy2buff (StkId top, int n, char *buff) { |
| 639 | size_t tl = 0; /* size already copied */ |
| 640 | do { |
| 641 | TString *st = tsvalue(s2v(top - n)); |
| 642 | size_t l = tsslen(st); /* length of string being copied */ |
| 643 | memcpy(buff + tl, getstr(st), l * sizeof(char)); |
| 644 | tl += l; |
| 645 | } while (--n > 0); |
| 646 | } |
| 647 | |
| 648 | |
| 649 | /* |