src/libstddjb/stralloc_shrink.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14

/* ISC license. */

#include <skalibs/alloc.h>
#include <skalibs/stralloc.h>

int stralloc_shrink (stralloc *sa)
{
  if (sa->a > sa->len)
  {
    if (!alloc_re(&sa->s, sa->a, sa->len)) return 0 ;
    sa->a = sa->len ;
  }
  return 1 ;
}