From 3534b428629be185e096be99e3bd5fdfe32d5544 Mon Sep 17 00:00:00 2001 From: Laurent Bercot Date: Thu, 18 Sep 2014 18:55:44 +0000 Subject: initial commit with rc for skalibs-2.0.0.0 --- src/libstddjb/stralloc_ready_tuned.c | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 src/libstddjb/stralloc_ready_tuned.c (limited to 'src/libstddjb/stralloc_ready_tuned.c') diff --git a/src/libstddjb/stralloc_ready_tuned.c b/src/libstddjb/stralloc_ready_tuned.c new file mode 100644 index 0000000..04e1a41 --- /dev/null +++ b/src/libstddjb/stralloc_ready_tuned.c @@ -0,0 +1,25 @@ +/* ISC license. */ + +#include +#include +#include + +int stralloc_ready_tuned (stralloc *sa, unsigned int n, unsigned int base, unsigned int a, unsigned int b) +{ + register unsigned int t ; + if (!b) return (errno = EINVAL, 0) ; + t = n + base + a * n / b ; + if (t < n) return (errno = ERANGE, 0) ; + if (!sa->s) + { + sa->s = alloc(t) ; + if (!sa->s) return 0 ; + sa->a = t ; + } + else if (n > sa->a) + { + if (!alloc_re(&sa->s, sa->a, t)) return 0 ; + sa->a = t ; + } + return 1 ; +} -- cgit v1.3.1