copy strings in stack from top - n up to top - 1 to buffer */
| 666 | |
| 667 | /* copy strings in stack from top - n up to top - 1 to buffer */ |
| 668 | static void copy2buff (StkId top, int n, char *buff) { |
| 669 | size_t tl = 0; /* size already copied */ |
| 670 | do { |
| 671 | TString *st = tsvalue(s2v(top - n)); |
| 672 | size_t l; /* length of string being copied */ |
| 673 | const char *s = getlstr(st, l); |
| 674 | memcpy(buff + tl, s, l * sizeof(char)); |
| 675 | tl += l; |
| 676 | } while (--n > 0); |
| 677 | } |
| 678 | |
| 679 | |
| 680 | /* |