monkee.ch/snac2
1
0
Fork 0
mirror of https://codeberg.org/grunfink/snac2.git synced 2024-11-22 13:25:04 +00:00
Code Issues Projects Releases Packages Wiki Activity

Backport from xs.

Browse source
This commit is contained in:
default 2023-10-09 21:15:41 +02:00
parent 986b87cdfc
commit e9d2d14873
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
xs.h
View file

@ -365,19 +365,21 @@ xs_val *xs_expand(xs_val *data, int offset, int size)
/* opens a hole in data */
{
int sz = xs_size(data);
int n;
sz += size;
/* open room */
if (sz == 0 || _xs_blk_size(sz) != _xs_blk_size(sz + size))
data = xs_realloc(data, _xs_blk_size(sz + size));
data = xs_realloc(data, _xs_blk_size(sz));
/* move up the rest of the data */
if (data != NULL)
memmove(data + offset + size, data + offset, sz - offset);
for (n = sz - 1; n >= offset + size; n--)
data[n] = data[n - size];
if (xs_type(data) == XSTYPE_LIST ||
xs_type(data) == XSTYPE_DICT ||
xs_type(data) == XSTYPE_DATA)
_xs_put_24b(data + 1, sz + size);
_xs_put_24b(data + 1, sz);
return data;
}