copy strings in stack from top - n up to top - 1 to buffer */
| 622 | |
| 623 | /* copy strings in stack from top - n up to top - 1 to buffer */ |
| 624 | static void copy2buff (StkId top, int n, char *buff) { |
| 625 | size_t tl = 0; /* size already copied */ |
| 626 | do { |
| 627 | size_t l = vslen(s2v(top - n)); /* length of string being copied */ |
| 628 | memcpy(buff + tl, svalue(s2v(top - n)), l * sizeof(char)); |
| 629 | tl += l; |
| 630 | } while (--n > 0); |
| 631 | } |
| 632 | |
| 633 | |
| 634 | /* |