mem.c revision 1.2.2.2
1 1.2.2.2 pgoyette /* $NetBSD: mem.c,v 1.2.2.2 2018/09/06 06:55:05 pgoyette Exp $ */ 2 1.2.2.2 pgoyette 3 1.2.2.2 pgoyette /* 4 1.2.2.2 pgoyette * Copyright (C) Internet Systems Consortium, Inc. ("ISC") 5 1.2.2.2 pgoyette * 6 1.2.2.2 pgoyette * This Source Code Form is subject to the terms of the Mozilla Public 7 1.2.2.2 pgoyette * License, v. 2.0. If a copy of the MPL was not distributed with this 8 1.2.2.2 pgoyette * file, You can obtain one at http://mozilla.org/MPL/2.0/. 9 1.2.2.2 pgoyette * 10 1.2.2.2 pgoyette * See the COPYRIGHT file distributed with this work for additional 11 1.2.2.2 pgoyette * information regarding copyright ownership. 12 1.2.2.2 pgoyette */ 13 1.2.2.2 pgoyette 14 1.2.2.2 pgoyette /*! \file */ 15 1.2.2.2 pgoyette 16 1.2.2.2 pgoyette #include <config.h> 17 1.2.2.2 pgoyette 18 1.2.2.2 pgoyette #include <stdio.h> 19 1.2.2.2 pgoyette #include <stdlib.h> 20 1.2.2.2 pgoyette #include <stddef.h> 21 1.2.2.2 pgoyette 22 1.2.2.2 pgoyette #include <limits.h> 23 1.2.2.2 pgoyette 24 1.2.2.2 pgoyette #include <isc/bind9.h> 25 1.2.2.2 pgoyette #include <isc/json.h> 26 1.2.2.2 pgoyette #include <isc/magic.h> 27 1.2.2.2 pgoyette #include <isc/hash.h> 28 1.2.2.2 pgoyette #include <isc/mem.h> 29 1.2.2.2 pgoyette #include <isc/msgs.h> 30 1.2.2.2 pgoyette #include <isc/once.h> 31 1.2.2.2 pgoyette #include <isc/ondestroy.h> 32 1.2.2.2 pgoyette #include <isc/string.h> 33 1.2.2.2 pgoyette #include <isc/mutex.h> 34 1.2.2.2 pgoyette #include <isc/print.h> 35 1.2.2.2 pgoyette #include <isc/util.h> 36 1.2.2.2 pgoyette #include <isc/xml.h> 37 1.2.2.2 pgoyette 38 1.2.2.2 pgoyette #define MCTXLOCK(m, l) if (((m)->flags & ISC_MEMFLAG_NOLOCK) == 0) LOCK(l) 39 1.2.2.2 pgoyette #define MCTXUNLOCK(m, l) if (((m)->flags & ISC_MEMFLAG_NOLOCK) == 0) UNLOCK(l) 40 1.2.2.2 pgoyette 41 1.2.2.2 pgoyette #ifndef ISC_MEM_DEBUGGING 42 1.2.2.2 pgoyette #define ISC_MEM_DEBUGGING 0 43 1.2.2.2 pgoyette #endif 44 1.2.2.2 pgoyette LIBISC_EXTERNAL_DATA unsigned int isc_mem_debugging = ISC_MEM_DEBUGGING; 45 1.2.2.2 pgoyette LIBISC_EXTERNAL_DATA unsigned int isc_mem_defaultflags = ISC_MEMFLAG_DEFAULT; 46 1.2.2.2 pgoyette 47 1.2.2.2 pgoyette /* 48 1.2.2.2 pgoyette * Constants. 49 1.2.2.2 pgoyette */ 50 1.2.2.2 pgoyette 51 1.2.2.2 pgoyette #define DEF_MAX_SIZE 1100 52 1.2.2.2 pgoyette #define DEF_MEM_TARGET 4096 53 1.2.2.2 pgoyette #define ALIGNMENT_SIZE 8U /*%< must be a power of 2 */ 54 1.2.2.2 pgoyette #define NUM_BASIC_BLOCKS 64 /*%< must be > 1 */ 55 1.2.2.2 pgoyette #define TABLE_INCREMENT 1024 56 1.2.2.2 pgoyette #define DEBUG_TABLE_COUNT 512U 57 1.2.2.2 pgoyette 58 1.2.2.2 pgoyette /* 59 1.2.2.2 pgoyette * Types. 60 1.2.2.2 pgoyette */ 61 1.2.2.2 pgoyette typedef struct isc__mem isc__mem_t; 62 1.2.2.2 pgoyette typedef struct isc__mempool isc__mempool_t; 63 1.2.2.2 pgoyette 64 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 65 1.2.2.2 pgoyette typedef struct debuglink debuglink_t; 66 1.2.2.2 pgoyette struct debuglink { 67 1.2.2.2 pgoyette ISC_LINK(debuglink_t) link; 68 1.2.2.2 pgoyette const void *ptr; 69 1.2.2.2 pgoyette size_t size; 70 1.2.2.2 pgoyette const char *file; 71 1.2.2.2 pgoyette unsigned int line; 72 1.2.2.2 pgoyette }; 73 1.2.2.2 pgoyette 74 1.2.2.2 pgoyette typedef ISC_LIST(debuglink_t) debuglist_t; 75 1.2.2.2 pgoyette 76 1.2.2.2 pgoyette #define FLARG_PASS , file, line 77 1.2.2.2 pgoyette #define FLARG , const char *file, unsigned int line 78 1.2.2.2 pgoyette #else 79 1.2.2.2 pgoyette #define FLARG_PASS 80 1.2.2.2 pgoyette #define FLARG 81 1.2.2.2 pgoyette #endif 82 1.2.2.2 pgoyette 83 1.2.2.2 pgoyette typedef struct element element; 84 1.2.2.2 pgoyette struct element { 85 1.2.2.2 pgoyette element * next; 86 1.2.2.2 pgoyette }; 87 1.2.2.2 pgoyette 88 1.2.2.2 pgoyette typedef struct { 89 1.2.2.2 pgoyette /*! 90 1.2.2.2 pgoyette * This structure must be ALIGNMENT_SIZE bytes. 91 1.2.2.2 pgoyette */ 92 1.2.2.2 pgoyette union { 93 1.2.2.2 pgoyette size_t size; 94 1.2.2.2 pgoyette isc__mem_t *ctx; 95 1.2.2.2 pgoyette char bytes[ALIGNMENT_SIZE]; 96 1.2.2.2 pgoyette } u; 97 1.2.2.2 pgoyette } size_info; 98 1.2.2.2 pgoyette 99 1.2.2.2 pgoyette struct stats { 100 1.2.2.2 pgoyette unsigned long gets; 101 1.2.2.2 pgoyette unsigned long totalgets; 102 1.2.2.2 pgoyette unsigned long blocks; 103 1.2.2.2 pgoyette unsigned long freefrags; 104 1.2.2.2 pgoyette }; 105 1.2.2.2 pgoyette 106 1.2.2.2 pgoyette #define MEM_MAGIC ISC_MAGIC('M', 'e', 'm', 'C') 107 1.2.2.2 pgoyette #define VALID_CONTEXT(c) ISC_MAGIC_VALID(c, MEM_MAGIC) 108 1.2.2.2 pgoyette 109 1.2.2.2 pgoyette /* List of all active memory contexts. */ 110 1.2.2.2 pgoyette 111 1.2.2.2 pgoyette static ISC_LIST(isc__mem_t) contexts; 112 1.2.2.2 pgoyette 113 1.2.2.2 pgoyette static isc_once_t once = ISC_ONCE_INIT; 114 1.2.2.2 pgoyette static isc_mutex_t contextslock; 115 1.2.2.2 pgoyette static isc_mutex_t createlock; 116 1.2.2.2 pgoyette 117 1.2.2.2 pgoyette /*% 118 1.2.2.2 pgoyette * Total size of lost memory due to a bug of external library. 119 1.2.2.2 pgoyette * Locked by the global lock. 120 1.2.2.2 pgoyette */ 121 1.2.2.2 pgoyette static isc_uint64_t totallost; 122 1.2.2.2 pgoyette 123 1.2.2.2 pgoyette struct isc__mem { 124 1.2.2.2 pgoyette isc_mem_t common; 125 1.2.2.2 pgoyette isc_ondestroy_t ondestroy; 126 1.2.2.2 pgoyette unsigned int flags; 127 1.2.2.2 pgoyette isc_mutex_t lock; 128 1.2.2.2 pgoyette isc_memalloc_t memalloc; 129 1.2.2.2 pgoyette isc_memfree_t memfree; 130 1.2.2.2 pgoyette void * arg; 131 1.2.2.2 pgoyette size_t max_size; 132 1.2.2.2 pgoyette isc_boolean_t checkfree; 133 1.2.2.2 pgoyette struct stats * stats; 134 1.2.2.2 pgoyette unsigned int references; 135 1.2.2.2 pgoyette char name[16]; 136 1.2.2.2 pgoyette void * tag; 137 1.2.2.2 pgoyette size_t quota; 138 1.2.2.2 pgoyette size_t total; 139 1.2.2.2 pgoyette size_t inuse; 140 1.2.2.2 pgoyette size_t maxinuse; 141 1.2.2.2 pgoyette size_t malloced; 142 1.2.2.2 pgoyette size_t maxmalloced; 143 1.2.2.2 pgoyette size_t hi_water; 144 1.2.2.2 pgoyette size_t lo_water; 145 1.2.2.2 pgoyette isc_boolean_t hi_called; 146 1.2.2.2 pgoyette isc_boolean_t is_overmem; 147 1.2.2.2 pgoyette isc_mem_water_t water; 148 1.2.2.2 pgoyette void * water_arg; 149 1.2.2.2 pgoyette ISC_LIST(isc__mempool_t) pools; 150 1.2.2.2 pgoyette unsigned int poolcnt; 151 1.2.2.2 pgoyette 152 1.2.2.2 pgoyette /* ISC_MEMFLAG_INTERNAL */ 153 1.2.2.2 pgoyette size_t mem_target; 154 1.2.2.2 pgoyette element ** freelists; 155 1.2.2.2 pgoyette element * basic_blocks; 156 1.2.2.2 pgoyette unsigned char ** basic_table; 157 1.2.2.2 pgoyette unsigned int basic_table_count; 158 1.2.2.2 pgoyette unsigned int basic_table_size; 159 1.2.2.2 pgoyette unsigned char * lowest; 160 1.2.2.2 pgoyette unsigned char * highest; 161 1.2.2.2 pgoyette 162 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 163 1.2.2.2 pgoyette debuglist_t * debuglist; 164 1.2.2.2 pgoyette size_t debuglistcnt; 165 1.2.2.2 pgoyette #endif 166 1.2.2.2 pgoyette 167 1.2.2.2 pgoyette unsigned int memalloc_failures; 168 1.2.2.2 pgoyette ISC_LINK(isc__mem_t) link; 169 1.2.2.2 pgoyette }; 170 1.2.2.2 pgoyette 171 1.2.2.2 pgoyette #define MEMPOOL_MAGIC ISC_MAGIC('M', 'E', 'M', 'p') 172 1.2.2.2 pgoyette #define VALID_MEMPOOL(c) ISC_MAGIC_VALID(c, MEMPOOL_MAGIC) 173 1.2.2.2 pgoyette 174 1.2.2.2 pgoyette struct isc__mempool { 175 1.2.2.2 pgoyette /* always unlocked */ 176 1.2.2.2 pgoyette isc_mempool_t common; /*%< common header of mempool's */ 177 1.2.2.2 pgoyette isc_mutex_t *lock; /*%< optional lock */ 178 1.2.2.2 pgoyette isc__mem_t *mctx; /*%< our memory context */ 179 1.2.2.2 pgoyette /*%< locked via the memory context's lock */ 180 1.2.2.2 pgoyette ISC_LINK(isc__mempool_t) link; /*%< next pool in this mem context */ 181 1.2.2.2 pgoyette /*%< optionally locked from here down */ 182 1.2.2.2 pgoyette element *items; /*%< low water item list */ 183 1.2.2.2 pgoyette size_t size; /*%< size of each item on this pool */ 184 1.2.2.2 pgoyette unsigned int maxalloc; /*%< max number of items allowed */ 185 1.2.2.2 pgoyette unsigned int allocated; /*%< # of items currently given out */ 186 1.2.2.2 pgoyette unsigned int freecount; /*%< # of items on reserved list */ 187 1.2.2.2 pgoyette unsigned int freemax; /*%< # of items allowed on free list */ 188 1.2.2.2 pgoyette unsigned int fillcount; /*%< # of items to fetch on each fill */ 189 1.2.2.2 pgoyette /*%< Stats only. */ 190 1.2.2.2 pgoyette unsigned int gets; /*%< # of requests to this pool */ 191 1.2.2.2 pgoyette /*%< Debugging only. */ 192 1.2.2.2 pgoyette #if ISC_MEMPOOL_NAMES 193 1.2.2.2 pgoyette char name[16]; /*%< printed name in stats reports */ 194 1.2.2.2 pgoyette #endif 195 1.2.2.2 pgoyette }; 196 1.2.2.2 pgoyette 197 1.2.2.2 pgoyette /* 198 1.2.2.2 pgoyette * Private Inline-able. 199 1.2.2.2 pgoyette */ 200 1.2.2.2 pgoyette 201 1.2.2.2 pgoyette #if ! ISC_MEM_TRACKLINES 202 1.2.2.2 pgoyette #define ADD_TRACE(a, b, c, d, e) 203 1.2.2.2 pgoyette #define DELETE_TRACE(a, b, c, d, e) 204 1.2.2.2 pgoyette #define ISC_MEMFUNC_SCOPE 205 1.2.2.2 pgoyette #else 206 1.2.2.2 pgoyette #define TRACE_OR_RECORD (ISC_MEM_DEBUGTRACE|ISC_MEM_DEBUGRECORD) 207 1.2.2.2 pgoyette #define ADD_TRACE(a, b, c, d, e) \ 208 1.2.2.2 pgoyette do { \ 209 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & TRACE_OR_RECORD) != 0 && \ 210 1.2.2.2 pgoyette b != NULL)) \ 211 1.2.2.2 pgoyette add_trace_entry(a, b, c, d, e); \ 212 1.2.2.2 pgoyette } while (/*CONSTCOND*/0) 213 1.2.2.2 pgoyette #define DELETE_TRACE(a, b, c, d, e) \ 214 1.2.2.2 pgoyette do { \ 215 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & TRACE_OR_RECORD) != 0 && \ 216 1.2.2.2 pgoyette b != NULL)) \ 217 1.2.2.2 pgoyette delete_trace_entry(a, b, c, d, e); \ 218 1.2.2.2 pgoyette } while (/*CONSTCOND*/0) 219 1.2.2.2 pgoyette 220 1.2.2.2 pgoyette static void 221 1.2.2.2 pgoyette print_active(isc__mem_t *ctx, FILE *out); 222 1.2.2.2 pgoyette 223 1.2.2.2 pgoyette #endif /* ISC_MEM_TRACKLINES */ 224 1.2.2.2 pgoyette 225 1.2.2.2 pgoyette /*% 226 1.2.2.2 pgoyette * The following are intended for internal use (indicated by "isc__" 227 1.2.2.2 pgoyette * prefix) but are not declared as static, allowing direct access 228 1.2.2.2 pgoyette * from unit tests, etc. 229 1.2.2.2 pgoyette */ 230 1.2.2.2 pgoyette 231 1.2.2.2 pgoyette isc_result_t 232 1.2.2.2 pgoyette isc__mem_create2(size_t init_max_size, size_t target_size, 233 1.2.2.2 pgoyette isc_mem_t **ctxp, unsigned int flags); 234 1.2.2.2 pgoyette void 235 1.2.2.2 pgoyette isc__mem_attach(isc_mem_t *source, isc_mem_t **targetp); 236 1.2.2.2 pgoyette void 237 1.2.2.2 pgoyette isc__mem_detach(isc_mem_t **ctxp); 238 1.2.2.2 pgoyette void 239 1.2.2.2 pgoyette isc___mem_putanddetach(isc_mem_t **ctxp, void *ptr, size_t size FLARG); 240 1.2.2.2 pgoyette void 241 1.2.2.2 pgoyette isc__mem_destroy(isc_mem_t **ctxp); 242 1.2.2.2 pgoyette isc_result_t 243 1.2.2.2 pgoyette isc__mem_ondestroy(isc_mem_t *ctx, isc_task_t *task, isc_event_t **event); 244 1.2.2.2 pgoyette void * 245 1.2.2.2 pgoyette isc___mem_get(isc_mem_t *ctx, size_t size FLARG); 246 1.2.2.2 pgoyette void 247 1.2.2.2 pgoyette isc___mem_put(isc_mem_t *ctx, void *ptr, size_t size FLARG); 248 1.2.2.2 pgoyette void 249 1.2.2.2 pgoyette isc__mem_stats(isc_mem_t *ctx, FILE *out); 250 1.2.2.2 pgoyette void * 251 1.2.2.2 pgoyette isc___mem_allocate(isc_mem_t *ctx, size_t size FLARG); 252 1.2.2.2 pgoyette void * 253 1.2.2.2 pgoyette isc___mem_reallocate(isc_mem_t *ctx, void *ptr, size_t size FLARG); 254 1.2.2.2 pgoyette void 255 1.2.2.2 pgoyette isc___mem_free(isc_mem_t *ctx, void *ptr FLARG); 256 1.2.2.2 pgoyette char * 257 1.2.2.2 pgoyette isc___mem_strdup(isc_mem_t *mctx, const char *s FLARG); 258 1.2.2.2 pgoyette void 259 1.2.2.2 pgoyette isc__mem_setdestroycheck(isc_mem_t *ctx, isc_boolean_t flag); 260 1.2.2.2 pgoyette void 261 1.2.2.2 pgoyette isc__mem_setquota(isc_mem_t *ctx, size_t quota); 262 1.2.2.2 pgoyette size_t 263 1.2.2.2 pgoyette isc__mem_getquota(isc_mem_t *ctx); 264 1.2.2.2 pgoyette size_t 265 1.2.2.2 pgoyette isc__mem_inuse(isc_mem_t *ctx); 266 1.2.2.2 pgoyette size_t 267 1.2.2.2 pgoyette isc__mem_maxinuse(isc_mem_t *ctx); 268 1.2.2.2 pgoyette size_t 269 1.2.2.2 pgoyette isc__mem_total(isc_mem_t *ctx); 270 1.2.2.2 pgoyette isc_boolean_t 271 1.2.2.2 pgoyette isc__mem_isovermem(isc_mem_t *ctx); 272 1.2.2.2 pgoyette void 273 1.2.2.2 pgoyette isc__mem_setwater(isc_mem_t *ctx, isc_mem_water_t water, void *water_arg, 274 1.2.2.2 pgoyette size_t hiwater, size_t lowater); 275 1.2.2.2 pgoyette void 276 1.2.2.2 pgoyette isc__mem_waterack(isc_mem_t *ctx0, int flag); 277 1.2.2.2 pgoyette void 278 1.2.2.2 pgoyette isc__mem_setname(isc_mem_t *ctx, const char *name, void *tag); 279 1.2.2.2 pgoyette const char * 280 1.2.2.2 pgoyette isc__mem_getname(isc_mem_t *ctx); 281 1.2.2.2 pgoyette void * 282 1.2.2.2 pgoyette isc__mem_gettag(isc_mem_t *ctx); 283 1.2.2.2 pgoyette isc_result_t 284 1.2.2.2 pgoyette isc__mempool_create(isc_mem_t *mctx, size_t size, isc_mempool_t **mpctxp); 285 1.2.2.2 pgoyette void 286 1.2.2.2 pgoyette isc__mempool_setname(isc_mempool_t *mpctx, const char *name); 287 1.2.2.2 pgoyette void 288 1.2.2.2 pgoyette isc__mempool_destroy(isc_mempool_t **mpctxp); 289 1.2.2.2 pgoyette void 290 1.2.2.2 pgoyette isc__mempool_associatelock(isc_mempool_t *mpctx, isc_mutex_t *lock); 291 1.2.2.2 pgoyette void * 292 1.2.2.2 pgoyette isc___mempool_get(isc_mempool_t *mpctx FLARG); 293 1.2.2.2 pgoyette void 294 1.2.2.2 pgoyette isc___mempool_put(isc_mempool_t *mpctx, void *mem FLARG); 295 1.2.2.2 pgoyette void 296 1.2.2.2 pgoyette isc__mempool_setfreemax(isc_mempool_t *mpctx, unsigned int limit); 297 1.2.2.2 pgoyette unsigned int 298 1.2.2.2 pgoyette isc__mempool_getfreemax(isc_mempool_t *mpctx); 299 1.2.2.2 pgoyette unsigned int 300 1.2.2.2 pgoyette isc__mempool_getfreecount(isc_mempool_t *mpctx); 301 1.2.2.2 pgoyette void 302 1.2.2.2 pgoyette isc__mempool_setmaxalloc(isc_mempool_t *mpctx, unsigned int limit); 303 1.2.2.2 pgoyette unsigned int 304 1.2.2.2 pgoyette isc__mempool_getmaxalloc(isc_mempool_t *mpctx); 305 1.2.2.2 pgoyette unsigned int 306 1.2.2.2 pgoyette isc__mempool_getallocated(isc_mempool_t *mpctx); 307 1.2.2.2 pgoyette void 308 1.2.2.2 pgoyette isc__mempool_setfillcount(isc_mempool_t *mpctx, unsigned int limit); 309 1.2.2.2 pgoyette unsigned int 310 1.2.2.2 pgoyette isc__mempool_getfillcount(isc_mempool_t *mpctx); 311 1.2.2.2 pgoyette void 312 1.2.2.2 pgoyette isc__mem_printactive(isc_mem_t *ctx0, FILE *file); 313 1.2.2.2 pgoyette unsigned int 314 1.2.2.2 pgoyette isc__mem_references(isc_mem_t *ctx0); 315 1.2.2.2 pgoyette 316 1.2.2.2 pgoyette static struct isc__memmethods { 317 1.2.2.2 pgoyette isc_memmethods_t methods; 318 1.2.2.2 pgoyette 319 1.2.2.2 pgoyette /*% 320 1.2.2.2 pgoyette * The following are defined just for avoiding unused static functions. 321 1.2.2.2 pgoyette */ 322 1.2.2.2 pgoyette void *createx, *create, *create2, *ondestroy, *stats, 323 1.2.2.2 pgoyette *setquota, *getquota, *setname, *getname, *gettag; 324 1.2.2.2 pgoyette } memmethods = { 325 1.2.2.2 pgoyette { 326 1.2.2.2 pgoyette isc__mem_attach, 327 1.2.2.2 pgoyette isc__mem_detach, 328 1.2.2.2 pgoyette isc__mem_destroy, 329 1.2.2.2 pgoyette isc___mem_get, 330 1.2.2.2 pgoyette isc___mem_put, 331 1.2.2.2 pgoyette isc___mem_putanddetach, 332 1.2.2.2 pgoyette isc___mem_allocate, 333 1.2.2.2 pgoyette isc___mem_reallocate, 334 1.2.2.2 pgoyette isc___mem_strdup, 335 1.2.2.2 pgoyette isc___mem_free, 336 1.2.2.2 pgoyette isc__mem_setdestroycheck, 337 1.2.2.2 pgoyette isc__mem_setwater, 338 1.2.2.2 pgoyette isc__mem_waterack, 339 1.2.2.2 pgoyette isc__mem_inuse, 340 1.2.2.2 pgoyette isc__mem_maxinuse, 341 1.2.2.2 pgoyette isc__mem_total, 342 1.2.2.2 pgoyette isc__mem_isovermem, 343 1.2.2.2 pgoyette isc__mempool_create 344 1.2.2.2 pgoyette }, 345 1.2.2.2 pgoyette (void *)isc_mem_createx, 346 1.2.2.2 pgoyette (void *)isc_mem_create, 347 1.2.2.2 pgoyette (void *)isc_mem_create2, 348 1.2.2.2 pgoyette (void *)isc_mem_ondestroy, 349 1.2.2.2 pgoyette (void *)isc_mem_stats, 350 1.2.2.2 pgoyette (void *)isc_mem_setquota, 351 1.2.2.2 pgoyette (void *)isc_mem_getquota, 352 1.2.2.2 pgoyette (void *)isc_mem_setname, 353 1.2.2.2 pgoyette (void *)isc_mem_getname, 354 1.2.2.2 pgoyette (void *)isc_mem_gettag 355 1.2.2.2 pgoyette }; 356 1.2.2.2 pgoyette 357 1.2.2.2 pgoyette static struct isc__mempoolmethods { 358 1.2.2.2 pgoyette isc_mempoolmethods_t methods; 359 1.2.2.2 pgoyette 360 1.2.2.2 pgoyette /*% 361 1.2.2.2 pgoyette * The following are defined just for avoiding unused static functions. 362 1.2.2.2 pgoyette */ 363 1.2.2.2 pgoyette void *getfreemax, *getfreecount, *getmaxalloc, *getfillcount; 364 1.2.2.2 pgoyette } mempoolmethods = { 365 1.2.2.2 pgoyette { 366 1.2.2.2 pgoyette isc__mempool_destroy, 367 1.2.2.2 pgoyette isc___mempool_get, 368 1.2.2.2 pgoyette isc___mempool_put, 369 1.2.2.2 pgoyette isc__mempool_getallocated, 370 1.2.2.2 pgoyette isc__mempool_setmaxalloc, 371 1.2.2.2 pgoyette isc__mempool_setfreemax, 372 1.2.2.2 pgoyette isc__mempool_setname, 373 1.2.2.2 pgoyette isc__mempool_associatelock, 374 1.2.2.2 pgoyette isc__mempool_setfillcount 375 1.2.2.2 pgoyette }, 376 1.2.2.2 pgoyette (void *)isc_mempool_getfreemax, 377 1.2.2.2 pgoyette (void *)isc_mempool_getfreecount, 378 1.2.2.2 pgoyette (void *)isc_mempool_getmaxalloc, 379 1.2.2.2 pgoyette (void *)isc_mempool_getfillcount 380 1.2.2.2 pgoyette }; 381 1.2.2.2 pgoyette 382 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 383 1.2.2.2 pgoyette /*! 384 1.2.2.2 pgoyette * mctx must be locked. 385 1.2.2.2 pgoyette */ 386 1.2.2.2 pgoyette static void 387 1.2.2.2 pgoyette add_trace_entry(isc__mem_t *mctx, const void *ptr, size_t size FLARG) { 388 1.2.2.2 pgoyette debuglink_t *dl; 389 1.2.2.2 pgoyette isc_uint32_t hash; 390 1.2.2.2 pgoyette isc_uint32_t idx; 391 1.2.2.2 pgoyette 392 1.2.2.2 pgoyette if ((isc_mem_debugging & ISC_MEM_DEBUGTRACE) != 0) 393 1.2.2.2 pgoyette fprintf(stderr, isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 394 1.2.2.2 pgoyette ISC_MSG_ADDTRACE, 395 1.2.2.2 pgoyette "add %p size %u " 396 1.2.2.2 pgoyette "file %s line %u mctx %p\n"), 397 1.2.2.2 pgoyette ptr, size, file, line, mctx); 398 1.2.2.2 pgoyette 399 1.2.2.2 pgoyette if (mctx->debuglist == NULL) 400 1.2.2.2 pgoyette return; 401 1.2.2.2 pgoyette 402 1.2.2.2 pgoyette hash = isc_hash_function(&ptr, sizeof(ptr), ISC_TRUE, NULL); 403 1.2.2.2 pgoyette idx = hash % DEBUG_TABLE_COUNT; 404 1.2.2.2 pgoyette 405 1.2.2.2 pgoyette dl = malloc(sizeof(debuglink_t)); 406 1.2.2.2 pgoyette INSIST(dl != NULL); 407 1.2.2.2 pgoyette mctx->malloced += sizeof(debuglink_t); 408 1.2.2.2 pgoyette if (mctx->malloced > mctx->maxmalloced) 409 1.2.2.2 pgoyette mctx->maxmalloced = mctx->malloced; 410 1.2.2.2 pgoyette 411 1.2.2.2 pgoyette ISC_LINK_INIT(dl, link); 412 1.2.2.2 pgoyette dl->ptr = ptr; 413 1.2.2.2 pgoyette dl->size = size; 414 1.2.2.2 pgoyette dl->file = file; 415 1.2.2.2 pgoyette dl->line = line; 416 1.2.2.2 pgoyette 417 1.2.2.2 pgoyette ISC_LIST_PREPEND(mctx->debuglist[idx], dl, link); 418 1.2.2.2 pgoyette mctx->debuglistcnt++; 419 1.2.2.2 pgoyette } 420 1.2.2.2 pgoyette 421 1.2.2.2 pgoyette static void 422 1.2.2.2 pgoyette delete_trace_entry(isc__mem_t *mctx, const void *ptr, size_t size, 423 1.2.2.2 pgoyette const char *file, unsigned int line) 424 1.2.2.2 pgoyette { 425 1.2.2.2 pgoyette debuglink_t *dl; 426 1.2.2.2 pgoyette isc_uint32_t hash; 427 1.2.2.2 pgoyette isc_uint32_t idx; 428 1.2.2.2 pgoyette 429 1.2.2.2 pgoyette if ((isc_mem_debugging & ISC_MEM_DEBUGTRACE) != 0) 430 1.2.2.2 pgoyette fprintf(stderr, isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 431 1.2.2.2 pgoyette ISC_MSG_DELTRACE, 432 1.2.2.2 pgoyette "del %p size %u " 433 1.2.2.2 pgoyette "file %s line %u mctx %p\n"), 434 1.2.2.2 pgoyette ptr, size, file, line, mctx); 435 1.2.2.2 pgoyette 436 1.2.2.2 pgoyette if (mctx->debuglist == NULL) 437 1.2.2.2 pgoyette return; 438 1.2.2.2 pgoyette 439 1.2.2.2 pgoyette hash = isc_hash_function(&ptr, sizeof(ptr), ISC_TRUE, NULL); 440 1.2.2.2 pgoyette idx = hash % DEBUG_TABLE_COUNT; 441 1.2.2.2 pgoyette 442 1.2.2.2 pgoyette dl = ISC_LIST_HEAD(mctx->debuglist[idx]); 443 1.2.2.2 pgoyette while (ISC_LIKELY(dl != NULL)) { 444 1.2.2.2 pgoyette if (ISC_UNLIKELY(dl->ptr == ptr)) { 445 1.2.2.2 pgoyette ISC_LIST_UNLINK(mctx->debuglist[idx], dl, link); 446 1.2.2.2 pgoyette mctx->malloced -= sizeof(*dl); 447 1.2.2.2 pgoyette free(dl); 448 1.2.2.2 pgoyette return; 449 1.2.2.2 pgoyette } 450 1.2.2.2 pgoyette dl = ISC_LIST_NEXT(dl, link); 451 1.2.2.2 pgoyette } 452 1.2.2.2 pgoyette 453 1.2.2.2 pgoyette /* 454 1.2.2.2 pgoyette * If we get here, we didn't find the item on the list. We're 455 1.2.2.2 pgoyette * screwed. 456 1.2.2.2 pgoyette */ 457 1.2.2.2 pgoyette INSIST(0); 458 1.2.2.2 pgoyette } 459 1.2.2.2 pgoyette #endif /* ISC_MEM_TRACKLINES */ 460 1.2.2.2 pgoyette 461 1.2.2.2 pgoyette static inline size_t 462 1.2.2.2 pgoyette rmsize(size_t size) { 463 1.2.2.2 pgoyette /* 464 1.2.2.2 pgoyette * round down to ALIGNMENT_SIZE 465 1.2.2.2 pgoyette */ 466 1.2.2.2 pgoyette return (size & (~(ALIGNMENT_SIZE - 1))); 467 1.2.2.2 pgoyette } 468 1.2.2.2 pgoyette 469 1.2.2.2 pgoyette static inline size_t 470 1.2.2.2 pgoyette quantize(size_t size) { 471 1.2.2.2 pgoyette /*! 472 1.2.2.2 pgoyette * Round up the result in order to get a size big 473 1.2.2.2 pgoyette * enough to satisfy the request and be aligned on ALIGNMENT_SIZE 474 1.2.2.2 pgoyette * byte boundaries. 475 1.2.2.2 pgoyette */ 476 1.2.2.2 pgoyette 477 1.2.2.2 pgoyette if (size == 0U) 478 1.2.2.2 pgoyette return (ALIGNMENT_SIZE); 479 1.2.2.2 pgoyette return ((size + ALIGNMENT_SIZE - 1) & (~(ALIGNMENT_SIZE - 1))); 480 1.2.2.2 pgoyette } 481 1.2.2.2 pgoyette 482 1.2.2.2 pgoyette static inline isc_boolean_t 483 1.2.2.2 pgoyette more_basic_blocks(isc__mem_t *ctx) { 484 1.2.2.2 pgoyette void *tmp; 485 1.2.2.2 pgoyette unsigned char *curr, *next; 486 1.2.2.2 pgoyette unsigned char *first, *last; 487 1.2.2.2 pgoyette unsigned char **table; 488 1.2.2.2 pgoyette unsigned int table_size; 489 1.2.2.2 pgoyette size_t increment; 490 1.2.2.2 pgoyette int i; 491 1.2.2.2 pgoyette 492 1.2.2.2 pgoyette /* Require: we hold the context lock. */ 493 1.2.2.2 pgoyette 494 1.2.2.2 pgoyette /* 495 1.2.2.2 pgoyette * Did we hit the quota for this context? 496 1.2.2.2 pgoyette */ 497 1.2.2.2 pgoyette increment = NUM_BASIC_BLOCKS * ctx->mem_target; 498 1.2.2.2 pgoyette if (ctx->quota != 0U && ctx->total + increment > ctx->quota) 499 1.2.2.2 pgoyette return (ISC_FALSE); 500 1.2.2.2 pgoyette 501 1.2.2.2 pgoyette INSIST(ctx->basic_table_count <= ctx->basic_table_size); 502 1.2.2.2 pgoyette if (ctx->basic_table_count == ctx->basic_table_size) { 503 1.2.2.2 pgoyette table_size = ctx->basic_table_size + TABLE_INCREMENT; 504 1.2.2.2 pgoyette table = (ctx->memalloc)(ctx->arg, 505 1.2.2.2 pgoyette table_size * sizeof(unsigned char *)); 506 1.2.2.2 pgoyette if (table == NULL) { 507 1.2.2.2 pgoyette ctx->memalloc_failures++; 508 1.2.2.2 pgoyette return (ISC_FALSE); 509 1.2.2.2 pgoyette } 510 1.2.2.2 pgoyette ctx->malloced += table_size * sizeof(unsigned char *); 511 1.2.2.2 pgoyette if (ctx->malloced > ctx->maxmalloced) 512 1.2.2.2 pgoyette ctx->maxmalloced = ctx->malloced; 513 1.2.2.2 pgoyette if (ctx->basic_table_size != 0) { 514 1.2.2.2 pgoyette memmove(table, ctx->basic_table, 515 1.2.2.2 pgoyette ctx->basic_table_size * 516 1.2.2.2 pgoyette sizeof(unsigned char *)); 517 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, ctx->basic_table); 518 1.2.2.2 pgoyette ctx->malloced -= ctx->basic_table_size * 519 1.2.2.2 pgoyette sizeof(unsigned char *); 520 1.2.2.2 pgoyette } 521 1.2.2.2 pgoyette ctx->basic_table = table; 522 1.2.2.2 pgoyette ctx->basic_table_size = table_size; 523 1.2.2.2 pgoyette } 524 1.2.2.2 pgoyette 525 1.2.2.2 pgoyette tmp = (ctx->memalloc)(ctx->arg, NUM_BASIC_BLOCKS * ctx->mem_target); 526 1.2.2.2 pgoyette if (tmp == NULL) { 527 1.2.2.2 pgoyette ctx->memalloc_failures++; 528 1.2.2.2 pgoyette return (ISC_FALSE); 529 1.2.2.2 pgoyette } 530 1.2.2.2 pgoyette ctx->total += increment; 531 1.2.2.2 pgoyette ctx->basic_table[ctx->basic_table_count] = tmp; 532 1.2.2.2 pgoyette ctx->basic_table_count++; 533 1.2.2.2 pgoyette ctx->malloced += NUM_BASIC_BLOCKS * ctx->mem_target; 534 1.2.2.2 pgoyette if (ctx->malloced > ctx->maxmalloced) 535 1.2.2.2 pgoyette ctx->maxmalloced = ctx->malloced; 536 1.2.2.2 pgoyette 537 1.2.2.2 pgoyette curr = tmp; 538 1.2.2.2 pgoyette next = curr + ctx->mem_target; 539 1.2.2.2 pgoyette for (i = 0; i < (NUM_BASIC_BLOCKS - 1); i++) { 540 1.2.2.2 pgoyette ((element *)curr)->next = (element *)next; 541 1.2.2.2 pgoyette curr = next; 542 1.2.2.2 pgoyette next += ctx->mem_target; 543 1.2.2.2 pgoyette } 544 1.2.2.2 pgoyette /* 545 1.2.2.2 pgoyette * curr is now pointing at the last block in the 546 1.2.2.2 pgoyette * array. 547 1.2.2.2 pgoyette */ 548 1.2.2.2 pgoyette ((element *)curr)->next = NULL; 549 1.2.2.2 pgoyette first = tmp; 550 1.2.2.2 pgoyette last = first + NUM_BASIC_BLOCKS * ctx->mem_target - 1; 551 1.2.2.2 pgoyette if (first < ctx->lowest || ctx->lowest == NULL) 552 1.2.2.2 pgoyette ctx->lowest = first; 553 1.2.2.2 pgoyette if (last > ctx->highest) 554 1.2.2.2 pgoyette ctx->highest = last; 555 1.2.2.2 pgoyette ctx->basic_blocks = tmp; 556 1.2.2.2 pgoyette 557 1.2.2.2 pgoyette return (ISC_TRUE); 558 1.2.2.2 pgoyette } 559 1.2.2.2 pgoyette 560 1.2.2.2 pgoyette static inline isc_boolean_t 561 1.2.2.2 pgoyette more_frags(isc__mem_t *ctx, size_t new_size) { 562 1.2.2.2 pgoyette int i, frags; 563 1.2.2.2 pgoyette size_t total_size; 564 1.2.2.2 pgoyette void *tmp; 565 1.2.2.2 pgoyette unsigned char *curr, *next; 566 1.2.2.2 pgoyette 567 1.2.2.2 pgoyette /*! 568 1.2.2.2 pgoyette * Try to get more fragments by chopping up a basic block. 569 1.2.2.2 pgoyette */ 570 1.2.2.2 pgoyette 571 1.2.2.2 pgoyette if (ctx->basic_blocks == NULL) { 572 1.2.2.2 pgoyette if (!more_basic_blocks(ctx)) { 573 1.2.2.2 pgoyette /* 574 1.2.2.2 pgoyette * We can't get more memory from the OS, or we've 575 1.2.2.2 pgoyette * hit the quota for this context. 576 1.2.2.2 pgoyette */ 577 1.2.2.2 pgoyette /* 578 1.2.2.2 pgoyette * XXXRTH "At quota" notification here. 579 1.2.2.2 pgoyette */ 580 1.2.2.2 pgoyette return (ISC_FALSE); 581 1.2.2.2 pgoyette } 582 1.2.2.2 pgoyette } 583 1.2.2.2 pgoyette 584 1.2.2.2 pgoyette total_size = ctx->mem_target; 585 1.2.2.2 pgoyette tmp = ctx->basic_blocks; 586 1.2.2.2 pgoyette ctx->basic_blocks = ctx->basic_blocks->next; 587 1.2.2.2 pgoyette frags = (int)(total_size / new_size); 588 1.2.2.2 pgoyette ctx->stats[new_size].blocks++; 589 1.2.2.2 pgoyette ctx->stats[new_size].freefrags += frags; 590 1.2.2.2 pgoyette /* 591 1.2.2.2 pgoyette * Set up a linked-list of blocks of size 592 1.2.2.2 pgoyette * "new_size". 593 1.2.2.2 pgoyette */ 594 1.2.2.2 pgoyette curr = tmp; 595 1.2.2.2 pgoyette next = curr + new_size; 596 1.2.2.2 pgoyette total_size -= new_size; 597 1.2.2.2 pgoyette for (i = 0; i < (frags - 1); i++) { 598 1.2.2.2 pgoyette ((element *)curr)->next = (element *)next; 599 1.2.2.2 pgoyette curr = next; 600 1.2.2.2 pgoyette next += new_size; 601 1.2.2.2 pgoyette total_size -= new_size; 602 1.2.2.2 pgoyette } 603 1.2.2.2 pgoyette /* 604 1.2.2.2 pgoyette * Add the remaining fragment of the basic block to a free list. 605 1.2.2.2 pgoyette */ 606 1.2.2.2 pgoyette total_size = rmsize(total_size); 607 1.2.2.2 pgoyette if (total_size > 0U) { 608 1.2.2.2 pgoyette ((element *)next)->next = ctx->freelists[total_size]; 609 1.2.2.2 pgoyette ctx->freelists[total_size] = (element *)next; 610 1.2.2.2 pgoyette ctx->stats[total_size].freefrags++; 611 1.2.2.2 pgoyette } 612 1.2.2.2 pgoyette /* 613 1.2.2.2 pgoyette * curr is now pointing at the last block in the 614 1.2.2.2 pgoyette * array. 615 1.2.2.2 pgoyette */ 616 1.2.2.2 pgoyette ((element *)curr)->next = NULL; 617 1.2.2.2 pgoyette ctx->freelists[new_size] = tmp; 618 1.2.2.2 pgoyette 619 1.2.2.2 pgoyette return (ISC_TRUE); 620 1.2.2.2 pgoyette } 621 1.2.2.2 pgoyette 622 1.2.2.2 pgoyette static inline void * 623 1.2.2.2 pgoyette mem_getunlocked(isc__mem_t *ctx, size_t size) { 624 1.2.2.2 pgoyette size_t new_size = quantize(size); 625 1.2.2.2 pgoyette void *ret; 626 1.2.2.2 pgoyette 627 1.2.2.2 pgoyette if (new_size >= ctx->max_size) { 628 1.2.2.2 pgoyette /* 629 1.2.2.2 pgoyette * memget() was called on something beyond our upper limit. 630 1.2.2.2 pgoyette */ 631 1.2.2.2 pgoyette if (ctx->quota != 0U && ctx->total + size > ctx->quota) { 632 1.2.2.2 pgoyette ret = NULL; 633 1.2.2.2 pgoyette goto done; 634 1.2.2.2 pgoyette } 635 1.2.2.2 pgoyette ret = (ctx->memalloc)(ctx->arg, size); 636 1.2.2.2 pgoyette if (ret == NULL) { 637 1.2.2.2 pgoyette ctx->memalloc_failures++; 638 1.2.2.2 pgoyette goto done; 639 1.2.2.2 pgoyette } 640 1.2.2.2 pgoyette ctx->total += size; 641 1.2.2.2 pgoyette ctx->inuse += size; 642 1.2.2.2 pgoyette ctx->stats[ctx->max_size].gets++; 643 1.2.2.2 pgoyette ctx->stats[ctx->max_size].totalgets++; 644 1.2.2.2 pgoyette ctx->malloced += size; 645 1.2.2.2 pgoyette if (ctx->malloced > ctx->maxmalloced) 646 1.2.2.2 pgoyette ctx->maxmalloced = ctx->malloced; 647 1.2.2.2 pgoyette /* 648 1.2.2.2 pgoyette * If we don't set new_size to size, then the 649 1.2.2.2 pgoyette * ISC_MEMFLAG_FILL code might write over bytes we don't 650 1.2.2.2 pgoyette * own. 651 1.2.2.2 pgoyette */ 652 1.2.2.2 pgoyette new_size = size; 653 1.2.2.2 pgoyette goto done; 654 1.2.2.2 pgoyette } 655 1.2.2.2 pgoyette /* 656 1.2.2.2 pgoyette * If there are no blocks in the free list for this size, get a chunk 657 1.2.2.2 pgoyette * of memory and then break it up into "new_size"-sized blocks, adding 658 1.2.2.2 pgoyette * them to the free list. 659 1.2.2.2 pgoyette */ 660 1.2.2.2 pgoyette if (ctx->freelists[new_size] == NULL && !more_frags(ctx, new_size)) 661 1.2.2.2 pgoyette return (NULL); 662 1.2.2.2 pgoyette 663 1.2.2.2 pgoyette /* 664 1.2.2.2 pgoyette * The free list uses the "rounded-up" size "new_size". 665 1.2.2.2 pgoyette */ 666 1.2.2.2 pgoyette 667 1.2.2.2 pgoyette ret = ctx->freelists[new_size]; 668 1.2.2.2 pgoyette ctx->freelists[new_size] = ctx->freelists[new_size]->next; 669 1.2.2.2 pgoyette 670 1.2.2.2 pgoyette 671 1.2.2.2 pgoyette /* 672 1.2.2.2 pgoyette * The stats[] uses the _actual_ "size" requested by the 673 1.2.2.2 pgoyette * caller, with the caveat (in the code above) that "size" >= the 674 1.2.2.2 pgoyette * max. size (max_size) ends up getting recorded as a call to 675 1.2.2.2 pgoyette * max_size. 676 1.2.2.2 pgoyette */ 677 1.2.2.2 pgoyette ctx->stats[size].gets++; 678 1.2.2.2 pgoyette ctx->stats[size].totalgets++; 679 1.2.2.2 pgoyette ctx->stats[new_size].freefrags--; 680 1.2.2.2 pgoyette ctx->inuse += new_size; 681 1.2.2.2 pgoyette 682 1.2.2.2 pgoyette done: 683 1.2.2.2 pgoyette if (ISC_UNLIKELY((ctx->flags & ISC_MEMFLAG_FILL) != 0) && 684 1.2.2.2 pgoyette ISC_LIKELY(ret != NULL)) 685 1.2.2.2 pgoyette memset(ret, 0xbe, new_size); /* Mnemonic for "beef". */ 686 1.2.2.2 pgoyette 687 1.2.2.2 pgoyette return (ret); 688 1.2.2.2 pgoyette } 689 1.2.2.2 pgoyette 690 1.2.2.2 pgoyette #if ISC_MEM_CHECKOVERRUN 691 1.2.2.2 pgoyette static inline void 692 1.2.2.2 pgoyette check_overrun(void *mem, size_t size, size_t new_size) { 693 1.2.2.2 pgoyette unsigned char *cp; 694 1.2.2.2 pgoyette 695 1.2.2.2 pgoyette cp = (unsigned char *)mem; 696 1.2.2.2 pgoyette cp += size; 697 1.2.2.2 pgoyette while (size < new_size) { 698 1.2.2.2 pgoyette INSIST(*cp == 0xbe); 699 1.2.2.2 pgoyette cp++; 700 1.2.2.2 pgoyette size++; 701 1.2.2.2 pgoyette } 702 1.2.2.2 pgoyette } 703 1.2.2.2 pgoyette #endif 704 1.2.2.2 pgoyette 705 1.2.2.2 pgoyette /* coverity[+free : arg-1] */ 706 1.2.2.2 pgoyette static inline void 707 1.2.2.2 pgoyette mem_putunlocked(isc__mem_t *ctx, void *mem, size_t size) { 708 1.2.2.2 pgoyette size_t new_size = quantize(size); 709 1.2.2.2 pgoyette 710 1.2.2.2 pgoyette if (new_size >= ctx->max_size) { 711 1.2.2.2 pgoyette /* 712 1.2.2.2 pgoyette * memput() called on something beyond our upper limit. 713 1.2.2.2 pgoyette */ 714 1.2.2.2 pgoyette if (ISC_UNLIKELY((ctx->flags & ISC_MEMFLAG_FILL) != 0)) 715 1.2.2.2 pgoyette memset(mem, 0xde, size); /* Mnemonic for "dead". */ 716 1.2.2.2 pgoyette 717 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, mem); 718 1.2.2.2 pgoyette INSIST(ctx->stats[ctx->max_size].gets != 0U); 719 1.2.2.2 pgoyette ctx->stats[ctx->max_size].gets--; 720 1.2.2.2 pgoyette INSIST(size <= ctx->inuse); 721 1.2.2.2 pgoyette ctx->inuse -= size; 722 1.2.2.2 pgoyette ctx->malloced -= size; 723 1.2.2.2 pgoyette return; 724 1.2.2.2 pgoyette } 725 1.2.2.2 pgoyette 726 1.2.2.2 pgoyette if (ISC_UNLIKELY((ctx->flags & ISC_MEMFLAG_FILL) != 0)) { 727 1.2.2.2 pgoyette #if ISC_MEM_CHECKOVERRUN 728 1.2.2.2 pgoyette check_overrun(mem, size, new_size); 729 1.2.2.2 pgoyette #endif 730 1.2.2.2 pgoyette memset(mem, 0xde, new_size); /* Mnemonic for "dead". */ 731 1.2.2.2 pgoyette } 732 1.2.2.2 pgoyette 733 1.2.2.2 pgoyette /* 734 1.2.2.2 pgoyette * The free list uses the "rounded-up" size "new_size". 735 1.2.2.2 pgoyette */ 736 1.2.2.2 pgoyette ((element *)mem)->next = ctx->freelists[new_size]; 737 1.2.2.2 pgoyette ctx->freelists[new_size] = (element *)mem; 738 1.2.2.2 pgoyette 739 1.2.2.2 pgoyette /* 740 1.2.2.2 pgoyette * The stats[] uses the _actual_ "size" requested by the 741 1.2.2.2 pgoyette * caller, with the caveat (in the code above) that "size" >= the 742 1.2.2.2 pgoyette * max. size (max_size) ends up getting recorded as a call to 743 1.2.2.2 pgoyette * max_size. 744 1.2.2.2 pgoyette */ 745 1.2.2.2 pgoyette INSIST(ctx->stats[size].gets != 0U); 746 1.2.2.2 pgoyette ctx->stats[size].gets--; 747 1.2.2.2 pgoyette ctx->stats[new_size].freefrags++; 748 1.2.2.2 pgoyette ctx->inuse -= new_size; 749 1.2.2.2 pgoyette } 750 1.2.2.2 pgoyette 751 1.2.2.2 pgoyette /*! 752 1.2.2.2 pgoyette * Perform a malloc, doing memory filling and overrun detection as necessary. 753 1.2.2.2 pgoyette */ 754 1.2.2.2 pgoyette static inline void * 755 1.2.2.2 pgoyette mem_get(isc__mem_t *ctx, size_t size) { 756 1.2.2.2 pgoyette char *ret; 757 1.2.2.2 pgoyette 758 1.2.2.2 pgoyette #if ISC_MEM_CHECKOVERRUN 759 1.2.2.2 pgoyette size += 1; 760 1.2.2.2 pgoyette #endif 761 1.2.2.2 pgoyette ret = (ctx->memalloc)(ctx->arg, size); 762 1.2.2.2 pgoyette if (ret == NULL) 763 1.2.2.2 pgoyette ctx->memalloc_failures++; 764 1.2.2.2 pgoyette 765 1.2.2.2 pgoyette if (ISC_UNLIKELY((ctx->flags & ISC_MEMFLAG_FILL) != 0)) { 766 1.2.2.2 pgoyette if (ISC_LIKELY(ret != NULL)) 767 1.2.2.2 pgoyette memset(ret, 0xbe, size); /* Mnemonic for "beef". */ 768 1.2.2.2 pgoyette } 769 1.2.2.2 pgoyette #if ISC_MEM_CHECKOVERRUN 770 1.2.2.2 pgoyette else { 771 1.2.2.2 pgoyette if (ISC_LIKELY(ret != NULL)) 772 1.2.2.2 pgoyette ret[size-1] = 0xbe; 773 1.2.2.2 pgoyette } 774 1.2.2.2 pgoyette #endif 775 1.2.2.2 pgoyette 776 1.2.2.2 pgoyette return (ret); 777 1.2.2.2 pgoyette } 778 1.2.2.2 pgoyette 779 1.2.2.2 pgoyette /*! 780 1.2.2.2 pgoyette * Perform a free, doing memory filling and overrun detection as necessary. 781 1.2.2.2 pgoyette */ 782 1.2.2.2 pgoyette /* coverity[+free : arg-1] */ 783 1.2.2.2 pgoyette static inline void 784 1.2.2.2 pgoyette mem_put(isc__mem_t *ctx, void *mem, size_t size) { 785 1.2.2.2 pgoyette #if ISC_MEM_CHECKOVERRUN 786 1.2.2.2 pgoyette INSIST(((unsigned char *)mem)[size] == 0xbe); 787 1.2.2.2 pgoyette size += 1; 788 1.2.2.2 pgoyette #endif 789 1.2.2.2 pgoyette if (ISC_UNLIKELY((ctx->flags & ISC_MEMFLAG_FILL) != 0)) 790 1.2.2.2 pgoyette memset(mem, 0xde, size); /* Mnemonic for "dead". */ 791 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, mem); 792 1.2.2.2 pgoyette } 793 1.2.2.2 pgoyette 794 1.2.2.2 pgoyette /*! 795 1.2.2.2 pgoyette * Update internal counters after a memory get. 796 1.2.2.2 pgoyette */ 797 1.2.2.2 pgoyette static inline void 798 1.2.2.2 pgoyette mem_getstats(isc__mem_t *ctx, size_t size) { 799 1.2.2.2 pgoyette ctx->total += size; 800 1.2.2.2 pgoyette ctx->inuse += size; 801 1.2.2.2 pgoyette 802 1.2.2.2 pgoyette if (size > ctx->max_size) { 803 1.2.2.2 pgoyette ctx->stats[ctx->max_size].gets++; 804 1.2.2.2 pgoyette ctx->stats[ctx->max_size].totalgets++; 805 1.2.2.2 pgoyette } else { 806 1.2.2.2 pgoyette ctx->stats[size].gets++; 807 1.2.2.2 pgoyette ctx->stats[size].totalgets++; 808 1.2.2.2 pgoyette } 809 1.2.2.2 pgoyette 810 1.2.2.2 pgoyette #if ISC_MEM_CHECKOVERRUN 811 1.2.2.2 pgoyette size += 1; 812 1.2.2.2 pgoyette #endif 813 1.2.2.2 pgoyette ctx->malloced += size; 814 1.2.2.2 pgoyette if (ctx->malloced > ctx->maxmalloced) 815 1.2.2.2 pgoyette ctx->maxmalloced = ctx->malloced; 816 1.2.2.2 pgoyette } 817 1.2.2.2 pgoyette 818 1.2.2.2 pgoyette /*! 819 1.2.2.2 pgoyette * Update internal counters after a memory put. 820 1.2.2.2 pgoyette */ 821 1.2.2.2 pgoyette static inline void 822 1.2.2.2 pgoyette mem_putstats(isc__mem_t *ctx, void *ptr, size_t size) { 823 1.2.2.2 pgoyette UNUSED(ptr); 824 1.2.2.2 pgoyette 825 1.2.2.2 pgoyette INSIST(ctx->inuse >= size); 826 1.2.2.2 pgoyette ctx->inuse -= size; 827 1.2.2.2 pgoyette 828 1.2.2.2 pgoyette if (size > ctx->max_size) { 829 1.2.2.2 pgoyette INSIST(ctx->stats[ctx->max_size].gets > 0U); 830 1.2.2.2 pgoyette ctx->stats[ctx->max_size].gets--; 831 1.2.2.2 pgoyette } else { 832 1.2.2.2 pgoyette INSIST(ctx->stats[size].gets > 0U); 833 1.2.2.2 pgoyette ctx->stats[size].gets--; 834 1.2.2.2 pgoyette } 835 1.2.2.2 pgoyette #if ISC_MEM_CHECKOVERRUN 836 1.2.2.2 pgoyette size += 1; 837 1.2.2.2 pgoyette #endif 838 1.2.2.2 pgoyette ctx->malloced -= size; 839 1.2.2.2 pgoyette } 840 1.2.2.2 pgoyette 841 1.2.2.2 pgoyette /* 842 1.2.2.2 pgoyette * Private. 843 1.2.2.2 pgoyette */ 844 1.2.2.2 pgoyette 845 1.2.2.2 pgoyette static void * 846 1.2.2.2 pgoyette default_memalloc(void *arg, size_t size) { 847 1.2.2.2 pgoyette UNUSED(arg); 848 1.2.2.2 pgoyette if (size == 0U) 849 1.2.2.2 pgoyette size = 1; 850 1.2.2.2 pgoyette return (malloc(size)); 851 1.2.2.2 pgoyette } 852 1.2.2.2 pgoyette 853 1.2.2.2 pgoyette static void 854 1.2.2.2 pgoyette default_memfree(void *arg, void *ptr) { 855 1.2.2.2 pgoyette UNUSED(arg); 856 1.2.2.2 pgoyette free(ptr); 857 1.2.2.2 pgoyette } 858 1.2.2.2 pgoyette 859 1.2.2.2 pgoyette static void 860 1.2.2.2 pgoyette initialize_action(void) { 861 1.2.2.2 pgoyette RUNTIME_CHECK(isc_mutex_init(&createlock) == ISC_R_SUCCESS); 862 1.2.2.2 pgoyette RUNTIME_CHECK(isc_mutex_init(&contextslock) == ISC_R_SUCCESS); 863 1.2.2.2 pgoyette ISC_LIST_INIT(contexts); 864 1.2.2.2 pgoyette totallost = 0; 865 1.2.2.2 pgoyette } 866 1.2.2.2 pgoyette 867 1.2.2.2 pgoyette /* 868 1.2.2.2 pgoyette * Public. 869 1.2.2.2 pgoyette */ 870 1.2.2.2 pgoyette 871 1.2.2.2 pgoyette isc_result_t 872 1.2.2.2 pgoyette isc_mem_createx(size_t init_max_size, size_t target_size, 873 1.2.2.2 pgoyette isc_memalloc_t memalloc, isc_memfree_t memfree, void *arg, 874 1.2.2.2 pgoyette isc_mem_t **ctxp) 875 1.2.2.2 pgoyette { 876 1.2.2.2 pgoyette return (isc_mem_createx2(init_max_size, target_size, memalloc, memfree, 877 1.2.2.2 pgoyette arg, ctxp, isc_mem_defaultflags)); 878 1.2.2.2 pgoyette 879 1.2.2.2 pgoyette } 880 1.2.2.2 pgoyette 881 1.2.2.2 pgoyette isc_result_t 882 1.2.2.2 pgoyette isc_mem_createx2(size_t init_max_size, size_t target_size, 883 1.2.2.2 pgoyette isc_memalloc_t memalloc, isc_memfree_t memfree, void *arg, 884 1.2.2.2 pgoyette isc_mem_t **ctxp, unsigned int flags) 885 1.2.2.2 pgoyette { 886 1.2.2.2 pgoyette isc__mem_t *ctx; 887 1.2.2.2 pgoyette isc_result_t result; 888 1.2.2.2 pgoyette 889 1.2.2.2 pgoyette REQUIRE(ctxp != NULL && *ctxp == NULL); 890 1.2.2.2 pgoyette REQUIRE(memalloc != NULL); 891 1.2.2.2 pgoyette REQUIRE(memfree != NULL); 892 1.2.2.2 pgoyette 893 1.2.2.2 pgoyette INSIST((ALIGNMENT_SIZE & (ALIGNMENT_SIZE - 1)) == 0); 894 1.2.2.2 pgoyette 895 1.2.2.2 pgoyette RUNTIME_CHECK(isc_once_do(&once, initialize_action) == ISC_R_SUCCESS); 896 1.2.2.2 pgoyette 897 1.2.2.2 pgoyette ctx = (memalloc)(arg, sizeof(*ctx)); 898 1.2.2.2 pgoyette if (ctx == NULL) 899 1.2.2.2 pgoyette return (ISC_R_NOMEMORY); 900 1.2.2.2 pgoyette 901 1.2.2.2 pgoyette if ((flags & ISC_MEMFLAG_NOLOCK) == 0) { 902 1.2.2.2 pgoyette result = isc_mutex_init(&ctx->lock); 903 1.2.2.2 pgoyette if (result != ISC_R_SUCCESS) { 904 1.2.2.2 pgoyette (memfree)(arg, ctx); 905 1.2.2.2 pgoyette return (result); 906 1.2.2.2 pgoyette } 907 1.2.2.2 pgoyette } 908 1.2.2.2 pgoyette 909 1.2.2.2 pgoyette if (init_max_size == 0U) 910 1.2.2.2 pgoyette ctx->max_size = DEF_MAX_SIZE; 911 1.2.2.2 pgoyette else 912 1.2.2.2 pgoyette ctx->max_size = init_max_size; 913 1.2.2.2 pgoyette ctx->flags = flags; 914 1.2.2.2 pgoyette ctx->references = 1; 915 1.2.2.2 pgoyette memset(ctx->name, 0, sizeof(ctx->name)); 916 1.2.2.2 pgoyette ctx->tag = NULL; 917 1.2.2.2 pgoyette ctx->quota = 0; 918 1.2.2.2 pgoyette ctx->total = 0; 919 1.2.2.2 pgoyette ctx->inuse = 0; 920 1.2.2.2 pgoyette ctx->maxinuse = 0; 921 1.2.2.2 pgoyette ctx->malloced = sizeof(*ctx); 922 1.2.2.2 pgoyette ctx->maxmalloced = sizeof(*ctx); 923 1.2.2.2 pgoyette ctx->hi_water = 0; 924 1.2.2.2 pgoyette ctx->lo_water = 0; 925 1.2.2.2 pgoyette ctx->hi_called = ISC_FALSE; 926 1.2.2.2 pgoyette ctx->is_overmem = ISC_FALSE; 927 1.2.2.2 pgoyette ctx->water = NULL; 928 1.2.2.2 pgoyette ctx->water_arg = NULL; 929 1.2.2.2 pgoyette ctx->common.impmagic = MEM_MAGIC; 930 1.2.2.2 pgoyette ctx->common.magic = ISCAPI_MCTX_MAGIC; 931 1.2.2.2 pgoyette ctx->common.methods = (isc_memmethods_t *)&memmethods; 932 1.2.2.2 pgoyette isc_ondestroy_init(&ctx->ondestroy); 933 1.2.2.2 pgoyette ctx->memalloc = memalloc; 934 1.2.2.2 pgoyette ctx->memfree = memfree; 935 1.2.2.2 pgoyette ctx->arg = arg; 936 1.2.2.2 pgoyette ctx->stats = NULL; 937 1.2.2.2 pgoyette ctx->checkfree = ISC_TRUE; 938 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 939 1.2.2.2 pgoyette ctx->debuglist = NULL; 940 1.2.2.2 pgoyette ctx->debuglistcnt = 0; 941 1.2.2.2 pgoyette #endif 942 1.2.2.2 pgoyette ISC_LIST_INIT(ctx->pools); 943 1.2.2.2 pgoyette ctx->poolcnt = 0; 944 1.2.2.2 pgoyette ctx->freelists = NULL; 945 1.2.2.2 pgoyette ctx->basic_blocks = NULL; 946 1.2.2.2 pgoyette ctx->basic_table = NULL; 947 1.2.2.2 pgoyette ctx->basic_table_count = 0; 948 1.2.2.2 pgoyette ctx->basic_table_size = 0; 949 1.2.2.2 pgoyette ctx->lowest = NULL; 950 1.2.2.2 pgoyette ctx->highest = NULL; 951 1.2.2.2 pgoyette 952 1.2.2.2 pgoyette ctx->stats = (memalloc)(arg, 953 1.2.2.2 pgoyette (ctx->max_size+1) * sizeof(struct stats)); 954 1.2.2.2 pgoyette if (ctx->stats == NULL) { 955 1.2.2.2 pgoyette result = ISC_R_NOMEMORY; 956 1.2.2.2 pgoyette goto error; 957 1.2.2.2 pgoyette } 958 1.2.2.2 pgoyette memset(ctx->stats, 0, (ctx->max_size + 1) * sizeof(struct stats)); 959 1.2.2.2 pgoyette ctx->malloced += (ctx->max_size+1) * sizeof(struct stats); 960 1.2.2.2 pgoyette ctx->maxmalloced += (ctx->max_size+1) * sizeof(struct stats); 961 1.2.2.2 pgoyette 962 1.2.2.2 pgoyette if ((flags & ISC_MEMFLAG_INTERNAL) != 0) { 963 1.2.2.2 pgoyette if (target_size == 0U) 964 1.2.2.2 pgoyette ctx->mem_target = DEF_MEM_TARGET; 965 1.2.2.2 pgoyette else 966 1.2.2.2 pgoyette ctx->mem_target = target_size; 967 1.2.2.2 pgoyette ctx->freelists = (memalloc)(arg, ctx->max_size * 968 1.2.2.2 pgoyette sizeof(element *)); 969 1.2.2.2 pgoyette if (ctx->freelists == NULL) { 970 1.2.2.2 pgoyette result = ISC_R_NOMEMORY; 971 1.2.2.2 pgoyette goto error; 972 1.2.2.2 pgoyette } 973 1.2.2.2 pgoyette memset(ctx->freelists, 0, 974 1.2.2.2 pgoyette ctx->max_size * sizeof(element *)); 975 1.2.2.2 pgoyette ctx->malloced += ctx->max_size * sizeof(element *); 976 1.2.2.2 pgoyette ctx->maxmalloced += ctx->max_size * sizeof(element *); 977 1.2.2.2 pgoyette } 978 1.2.2.2 pgoyette 979 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 980 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & ISC_MEM_DEBUGRECORD) != 0)) { 981 1.2.2.2 pgoyette unsigned int i; 982 1.2.2.2 pgoyette 983 1.2.2.2 pgoyette ctx->debuglist = (memalloc)(arg, (DEBUG_TABLE_COUNT * 984 1.2.2.2 pgoyette sizeof(debuglist_t))); 985 1.2.2.2 pgoyette if (ctx->debuglist == NULL) { 986 1.2.2.2 pgoyette result = ISC_R_NOMEMORY; 987 1.2.2.2 pgoyette goto error; 988 1.2.2.2 pgoyette } 989 1.2.2.2 pgoyette for (i = 0; i < DEBUG_TABLE_COUNT; i++) 990 1.2.2.2 pgoyette ISC_LIST_INIT(ctx->debuglist[i]); 991 1.2.2.2 pgoyette ctx->malloced += DEBUG_TABLE_COUNT * sizeof(debuglist_t); 992 1.2.2.2 pgoyette ctx->maxmalloced += DEBUG_TABLE_COUNT * sizeof(debuglist_t); 993 1.2.2.2 pgoyette } 994 1.2.2.2 pgoyette #endif 995 1.2.2.2 pgoyette 996 1.2.2.2 pgoyette ctx->memalloc_failures = 0; 997 1.2.2.2 pgoyette 998 1.2.2.2 pgoyette LOCK(&contextslock); 999 1.2.2.2 pgoyette ISC_LIST_INITANDAPPEND(contexts, ctx, link); 1000 1.2.2.2 pgoyette UNLOCK(&contextslock); 1001 1.2.2.2 pgoyette 1002 1.2.2.2 pgoyette *ctxp = (isc_mem_t *)ctx; 1003 1.2.2.2 pgoyette return (ISC_R_SUCCESS); 1004 1.2.2.2 pgoyette 1005 1.2.2.2 pgoyette error: 1006 1.2.2.2 pgoyette if (ctx != NULL) { 1007 1.2.2.2 pgoyette if (ctx->stats != NULL) 1008 1.2.2.2 pgoyette (memfree)(arg, ctx->stats); 1009 1.2.2.2 pgoyette if (ctx->freelists != NULL) 1010 1.2.2.2 pgoyette (memfree)(arg, ctx->freelists); 1011 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 1012 1.2.2.2 pgoyette if (ctx->debuglist != NULL) 1013 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, ctx->debuglist); 1014 1.2.2.2 pgoyette #endif /* ISC_MEM_TRACKLINES */ 1015 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_NOLOCK) == 0) 1016 1.2.2.2 pgoyette DESTROYLOCK(&ctx->lock); 1017 1.2.2.2 pgoyette (memfree)(arg, ctx); 1018 1.2.2.2 pgoyette } 1019 1.2.2.2 pgoyette 1020 1.2.2.2 pgoyette return (result); 1021 1.2.2.2 pgoyette } 1022 1.2.2.2 pgoyette 1023 1.2.2.2 pgoyette static void 1024 1.2.2.2 pgoyette destroy(isc__mem_t *ctx) { 1025 1.2.2.2 pgoyette unsigned int i; 1026 1.2.2.2 pgoyette isc_ondestroy_t ondest; 1027 1.2.2.2 pgoyette 1028 1.2.2.2 pgoyette LOCK(&contextslock); 1029 1.2.2.2 pgoyette ISC_LIST_UNLINK(contexts, ctx, link); 1030 1.2.2.2 pgoyette totallost += ctx->inuse; 1031 1.2.2.2 pgoyette UNLOCK(&contextslock); 1032 1.2.2.2 pgoyette 1033 1.2.2.2 pgoyette ctx->common.impmagic = 0; 1034 1.2.2.2 pgoyette ctx->common.magic = 0; 1035 1.2.2.2 pgoyette 1036 1.2.2.2 pgoyette INSIST(ISC_LIST_EMPTY(ctx->pools)); 1037 1.2.2.2 pgoyette 1038 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 1039 1.2.2.2 pgoyette if (ISC_UNLIKELY(ctx->debuglist != NULL)) { 1040 1.2.2.2 pgoyette debuglink_t *dl; 1041 1.2.2.2 pgoyette for (i = 0; i < DEBUG_TABLE_COUNT; i++) 1042 1.2.2.2 pgoyette for (dl = ISC_LIST_HEAD(ctx->debuglist[i]); 1043 1.2.2.2 pgoyette dl != NULL; 1044 1.2.2.2 pgoyette dl = ISC_LIST_HEAD(ctx->debuglist[i])) { 1045 1.2.2.2 pgoyette if (ctx->checkfree && dl->ptr != NULL) 1046 1.2.2.2 pgoyette print_active(ctx, stderr); 1047 1.2.2.2 pgoyette INSIST (!ctx->checkfree || dl->ptr == NULL); 1048 1.2.2.2 pgoyette 1049 1.2.2.2 pgoyette ISC_LIST_UNLINK(ctx->debuglist[i], 1050 1.2.2.2 pgoyette dl, link); 1051 1.2.2.2 pgoyette free(dl); 1052 1.2.2.2 pgoyette ctx->malloced -= sizeof(*dl); 1053 1.2.2.2 pgoyette } 1054 1.2.2.2 pgoyette 1055 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, ctx->debuglist); 1056 1.2.2.2 pgoyette ctx->malloced -= DEBUG_TABLE_COUNT * sizeof(debuglist_t); 1057 1.2.2.2 pgoyette } 1058 1.2.2.2 pgoyette #endif 1059 1.2.2.2 pgoyette INSIST(ctx->references == 0); 1060 1.2.2.2 pgoyette 1061 1.2.2.2 pgoyette if (ctx->checkfree) { 1062 1.2.2.2 pgoyette for (i = 0; i <= ctx->max_size; i++) { 1063 1.2.2.2 pgoyette if (ctx->stats[i].gets != 0U) { 1064 1.2.2.2 pgoyette fprintf(stderr, 1065 1.2.2.2 pgoyette "Failing assertion due to probable " 1066 1.2.2.2 pgoyette "leaked memory in context %p (\"%s\") " 1067 1.2.2.2 pgoyette "(stats[%u].gets == %lu).\n", 1068 1.2.2.2 pgoyette ctx, ctx->name, i, ctx->stats[i].gets); 1069 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 1070 1.2.2.2 pgoyette print_active(ctx, stderr); 1071 1.2.2.2 pgoyette #endif 1072 1.2.2.2 pgoyette INSIST(ctx->stats[i].gets == 0U); 1073 1.2.2.2 pgoyette } 1074 1.2.2.2 pgoyette } 1075 1.2.2.2 pgoyette } 1076 1.2.2.2 pgoyette 1077 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, ctx->stats); 1078 1.2.2.2 pgoyette ctx->malloced -= (ctx->max_size+1) * sizeof(struct stats); 1079 1.2.2.2 pgoyette 1080 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 1081 1.2.2.2 pgoyette for (i = 0; i < ctx->basic_table_count; i++) { 1082 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, ctx->basic_table[i]); 1083 1.2.2.2 pgoyette ctx->malloced -= NUM_BASIC_BLOCKS * ctx->mem_target; 1084 1.2.2.2 pgoyette } 1085 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, ctx->freelists); 1086 1.2.2.2 pgoyette ctx->malloced -= ctx->max_size * sizeof(element *); 1087 1.2.2.2 pgoyette if (ctx->basic_table != NULL) { 1088 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, ctx->basic_table); 1089 1.2.2.2 pgoyette ctx->malloced -= ctx->basic_table_size * 1090 1.2.2.2 pgoyette sizeof(unsigned char *); 1091 1.2.2.2 pgoyette } 1092 1.2.2.2 pgoyette } 1093 1.2.2.2 pgoyette 1094 1.2.2.2 pgoyette ondest = ctx->ondestroy; 1095 1.2.2.2 pgoyette 1096 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_NOLOCK) == 0) 1097 1.2.2.2 pgoyette DESTROYLOCK(&ctx->lock); 1098 1.2.2.2 pgoyette ctx->malloced -= sizeof(*ctx); 1099 1.2.2.2 pgoyette if (ctx->checkfree) 1100 1.2.2.2 pgoyette INSIST(ctx->malloced == 0); 1101 1.2.2.2 pgoyette (ctx->memfree)(ctx->arg, ctx); 1102 1.2.2.2 pgoyette 1103 1.2.2.2 pgoyette isc_ondestroy_notify(&ondest, ctx); 1104 1.2.2.2 pgoyette } 1105 1.2.2.2 pgoyette 1106 1.2.2.2 pgoyette void 1107 1.2.2.2 pgoyette isc__mem_attach(isc_mem_t *source0, isc_mem_t **targetp) { 1108 1.2.2.2 pgoyette isc__mem_t *source = (isc__mem_t *)source0; 1109 1.2.2.2 pgoyette 1110 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(source)); 1111 1.2.2.2 pgoyette REQUIRE(targetp != NULL && *targetp == NULL); 1112 1.2.2.2 pgoyette 1113 1.2.2.2 pgoyette MCTXLOCK(source, &source->lock); 1114 1.2.2.2 pgoyette source->references++; 1115 1.2.2.2 pgoyette MCTXUNLOCK(source, &source->lock); 1116 1.2.2.2 pgoyette 1117 1.2.2.2 pgoyette *targetp = (isc_mem_t *)source; 1118 1.2.2.2 pgoyette } 1119 1.2.2.2 pgoyette 1120 1.2.2.2 pgoyette void 1121 1.2.2.2 pgoyette isc__mem_detach(isc_mem_t **ctxp) { 1122 1.2.2.2 pgoyette isc__mem_t *ctx; 1123 1.2.2.2 pgoyette isc_boolean_t want_destroy = ISC_FALSE; 1124 1.2.2.2 pgoyette 1125 1.2.2.2 pgoyette REQUIRE(ctxp != NULL); 1126 1.2.2.2 pgoyette ctx = (isc__mem_t *)*ctxp; 1127 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1128 1.2.2.2 pgoyette 1129 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1130 1.2.2.2 pgoyette INSIST(ctx->references > 0); 1131 1.2.2.2 pgoyette ctx->references--; 1132 1.2.2.2 pgoyette if (ctx->references == 0) 1133 1.2.2.2 pgoyette want_destroy = ISC_TRUE; 1134 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1135 1.2.2.2 pgoyette 1136 1.2.2.2 pgoyette if (want_destroy) 1137 1.2.2.2 pgoyette destroy(ctx); 1138 1.2.2.2 pgoyette 1139 1.2.2.2 pgoyette *ctxp = NULL; 1140 1.2.2.2 pgoyette } 1141 1.2.2.2 pgoyette 1142 1.2.2.2 pgoyette /* 1143 1.2.2.2 pgoyette * isc_mem_putanddetach() is the equivalent of: 1144 1.2.2.2 pgoyette * 1145 1.2.2.2 pgoyette * mctx = NULL; 1146 1.2.2.2 pgoyette * isc_mem_attach(ptr->mctx, &mctx); 1147 1.2.2.2 pgoyette * isc_mem_detach(&ptr->mctx); 1148 1.2.2.2 pgoyette * isc_mem_put(mctx, ptr, sizeof(*ptr); 1149 1.2.2.2 pgoyette * isc_mem_detach(&mctx); 1150 1.2.2.2 pgoyette */ 1151 1.2.2.2 pgoyette 1152 1.2.2.2 pgoyette void 1153 1.2.2.2 pgoyette isc___mem_putanddetach(isc_mem_t **ctxp, void *ptr, size_t size FLARG) { 1154 1.2.2.2 pgoyette isc__mem_t *ctx; 1155 1.2.2.2 pgoyette isc_boolean_t want_destroy = ISC_FALSE; 1156 1.2.2.2 pgoyette size_info *si; 1157 1.2.2.2 pgoyette size_t oldsize; 1158 1.2.2.2 pgoyette 1159 1.2.2.2 pgoyette REQUIRE(ctxp != NULL); 1160 1.2.2.2 pgoyette ctx = (isc__mem_t *)*ctxp; 1161 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1162 1.2.2.2 pgoyette REQUIRE(ptr != NULL); 1163 1.2.2.2 pgoyette 1164 1.2.2.2 pgoyette /* 1165 1.2.2.2 pgoyette * Must be before mem_putunlocked() as ctxp is usually within 1166 1.2.2.2 pgoyette * [ptr..ptr+size). 1167 1.2.2.2 pgoyette */ 1168 1.2.2.2 pgoyette *ctxp = NULL; 1169 1.2.2.2 pgoyette 1170 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & 1171 1.2.2.2 pgoyette (ISC_MEM_DEBUGSIZE|ISC_MEM_DEBUGCTX)) != 0)) 1172 1.2.2.2 pgoyette { 1173 1.2.2.2 pgoyette if ((isc_mem_debugging & ISC_MEM_DEBUGSIZE) != 0) { 1174 1.2.2.2 pgoyette si = &(((size_info *)ptr)[-1]); 1175 1.2.2.2 pgoyette oldsize = si->u.size - ALIGNMENT_SIZE; 1176 1.2.2.2 pgoyette if ((isc_mem_debugging & ISC_MEM_DEBUGCTX) != 0) 1177 1.2.2.2 pgoyette oldsize -= ALIGNMENT_SIZE; 1178 1.2.2.2 pgoyette INSIST(oldsize == size); 1179 1.2.2.2 pgoyette } 1180 1.2.2.2 pgoyette isc__mem_free((isc_mem_t *)ctx, ptr FLARG_PASS); 1181 1.2.2.2 pgoyette 1182 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1183 1.2.2.2 pgoyette ctx->references--; 1184 1.2.2.2 pgoyette if (ctx->references == 0) 1185 1.2.2.2 pgoyette want_destroy = ISC_TRUE; 1186 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1187 1.2.2.2 pgoyette if (want_destroy) 1188 1.2.2.2 pgoyette destroy(ctx); 1189 1.2.2.2 pgoyette 1190 1.2.2.2 pgoyette return; 1191 1.2.2.2 pgoyette } 1192 1.2.2.2 pgoyette 1193 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1194 1.2.2.2 pgoyette 1195 1.2.2.2 pgoyette DELETE_TRACE(ctx, ptr, size, file, line); 1196 1.2.2.2 pgoyette 1197 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 1198 1.2.2.2 pgoyette mem_putunlocked(ctx, ptr, size); 1199 1.2.2.2 pgoyette } else { 1200 1.2.2.2 pgoyette mem_putstats(ctx, ptr, size); 1201 1.2.2.2 pgoyette mem_put(ctx, ptr, size); 1202 1.2.2.2 pgoyette } 1203 1.2.2.2 pgoyette 1204 1.2.2.2 pgoyette INSIST(ctx->references > 0); 1205 1.2.2.2 pgoyette ctx->references--; 1206 1.2.2.2 pgoyette if (ctx->references == 0) 1207 1.2.2.2 pgoyette want_destroy = ISC_TRUE; 1208 1.2.2.2 pgoyette 1209 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1210 1.2.2.2 pgoyette 1211 1.2.2.2 pgoyette if (want_destroy) 1212 1.2.2.2 pgoyette destroy(ctx); 1213 1.2.2.2 pgoyette } 1214 1.2.2.2 pgoyette 1215 1.2.2.2 pgoyette void 1216 1.2.2.2 pgoyette isc__mem_destroy(isc_mem_t **ctxp) { 1217 1.2.2.2 pgoyette isc__mem_t *ctx; 1218 1.2.2.2 pgoyette 1219 1.2.2.2 pgoyette /* 1220 1.2.2.2 pgoyette * This routine provides legacy support for callers who use mctxs 1221 1.2.2.2 pgoyette * without attaching/detaching. 1222 1.2.2.2 pgoyette */ 1223 1.2.2.2 pgoyette 1224 1.2.2.2 pgoyette REQUIRE(ctxp != NULL); 1225 1.2.2.2 pgoyette ctx = (isc__mem_t *)*ctxp; 1226 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1227 1.2.2.2 pgoyette 1228 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1229 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 1230 1.2.2.2 pgoyette if (ctx->references != 1) 1231 1.2.2.2 pgoyette print_active(ctx, stderr); 1232 1.2.2.2 pgoyette #endif 1233 1.2.2.2 pgoyette REQUIRE(ctx->references == 1); 1234 1.2.2.2 pgoyette ctx->references--; 1235 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1236 1.2.2.2 pgoyette 1237 1.2.2.2 pgoyette destroy(ctx); 1238 1.2.2.2 pgoyette 1239 1.2.2.2 pgoyette *ctxp = NULL; 1240 1.2.2.2 pgoyette } 1241 1.2.2.2 pgoyette 1242 1.2.2.2 pgoyette isc_result_t 1243 1.2.2.2 pgoyette isc_mem_ondestroy(isc_mem_t *ctx0, isc_task_t *task, isc_event_t **event) { 1244 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1245 1.2.2.2 pgoyette isc_result_t res; 1246 1.2.2.2 pgoyette 1247 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1248 1.2.2.2 pgoyette res = isc_ondestroy_register(&ctx->ondestroy, task, event); 1249 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1250 1.2.2.2 pgoyette 1251 1.2.2.2 pgoyette return (res); 1252 1.2.2.2 pgoyette } 1253 1.2.2.2 pgoyette 1254 1.2.2.2 pgoyette void * 1255 1.2.2.2 pgoyette isc___mem_get(isc_mem_t *ctx0, size_t size FLARG) { 1256 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1257 1.2.2.2 pgoyette void *ptr; 1258 1.2.2.2 pgoyette isc_boolean_t call_water = ISC_FALSE; 1259 1.2.2.2 pgoyette 1260 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1261 1.2.2.2 pgoyette 1262 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & 1263 1.2.2.2 pgoyette (ISC_MEM_DEBUGSIZE|ISC_MEM_DEBUGCTX)) != 0)) 1264 1.2.2.2 pgoyette return (isc__mem_allocate(ctx0, size FLARG_PASS)); 1265 1.2.2.2 pgoyette 1266 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 1267 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1268 1.2.2.2 pgoyette ptr = mem_getunlocked(ctx, size); 1269 1.2.2.2 pgoyette } else { 1270 1.2.2.2 pgoyette ptr = mem_get(ctx, size); 1271 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1272 1.2.2.2 pgoyette if (ptr != NULL) 1273 1.2.2.2 pgoyette mem_getstats(ctx, size); 1274 1.2.2.2 pgoyette } 1275 1.2.2.2 pgoyette 1276 1.2.2.2 pgoyette ADD_TRACE(ctx, ptr, size, file, line); 1277 1.2.2.2 pgoyette 1278 1.2.2.2 pgoyette if (ctx->hi_water != 0U && ctx->inuse > ctx->hi_water) { 1279 1.2.2.2 pgoyette ctx->is_overmem = ISC_TRUE; 1280 1.2.2.2 pgoyette if (!ctx->hi_called) 1281 1.2.2.2 pgoyette call_water = ISC_TRUE; 1282 1.2.2.2 pgoyette } 1283 1.2.2.2 pgoyette if (ctx->inuse > ctx->maxinuse) { 1284 1.2.2.2 pgoyette ctx->maxinuse = ctx->inuse; 1285 1.2.2.2 pgoyette if (ctx->hi_water != 0U && ctx->inuse > ctx->hi_water && 1286 1.2.2.2 pgoyette (isc_mem_debugging & ISC_MEM_DEBUGUSAGE) != 0) 1287 1.2.2.2 pgoyette fprintf(stderr, "maxinuse = %lu\n", 1288 1.2.2.2 pgoyette (unsigned long)ctx->inuse); 1289 1.2.2.2 pgoyette } 1290 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1291 1.2.2.2 pgoyette 1292 1.2.2.2 pgoyette if (call_water && (ctx->water != NULL)) 1293 1.2.2.2 pgoyette (ctx->water)(ctx->water_arg, ISC_MEM_HIWATER); 1294 1.2.2.2 pgoyette 1295 1.2.2.2 pgoyette return (ptr); 1296 1.2.2.2 pgoyette } 1297 1.2.2.2 pgoyette 1298 1.2.2.2 pgoyette void 1299 1.2.2.2 pgoyette isc___mem_put(isc_mem_t *ctx0, void *ptr, size_t size FLARG) { 1300 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1301 1.2.2.2 pgoyette isc_boolean_t call_water = ISC_FALSE; 1302 1.2.2.2 pgoyette size_info *si; 1303 1.2.2.2 pgoyette size_t oldsize; 1304 1.2.2.2 pgoyette 1305 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1306 1.2.2.2 pgoyette REQUIRE(ptr != NULL); 1307 1.2.2.2 pgoyette 1308 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & 1309 1.2.2.2 pgoyette (ISC_MEM_DEBUGSIZE|ISC_MEM_DEBUGCTX)) != 0)) 1310 1.2.2.2 pgoyette { 1311 1.2.2.2 pgoyette if ((isc_mem_debugging & ISC_MEM_DEBUGSIZE) != 0) { 1312 1.2.2.2 pgoyette si = &(((size_info *)ptr)[-1]); 1313 1.2.2.2 pgoyette oldsize = si->u.size - ALIGNMENT_SIZE; 1314 1.2.2.2 pgoyette if ((isc_mem_debugging & ISC_MEM_DEBUGCTX) != 0) 1315 1.2.2.2 pgoyette oldsize -= ALIGNMENT_SIZE; 1316 1.2.2.2 pgoyette INSIST(oldsize == size); 1317 1.2.2.2 pgoyette } 1318 1.2.2.2 pgoyette isc__mem_free((isc_mem_t *)ctx, ptr FLARG_PASS); 1319 1.2.2.2 pgoyette return; 1320 1.2.2.2 pgoyette } 1321 1.2.2.2 pgoyette 1322 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1323 1.2.2.2 pgoyette 1324 1.2.2.2 pgoyette DELETE_TRACE(ctx, ptr, size, file, line); 1325 1.2.2.2 pgoyette 1326 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 1327 1.2.2.2 pgoyette mem_putunlocked(ctx, ptr, size); 1328 1.2.2.2 pgoyette } else { 1329 1.2.2.2 pgoyette mem_putstats(ctx, ptr, size); 1330 1.2.2.2 pgoyette mem_put(ctx, ptr, size); 1331 1.2.2.2 pgoyette } 1332 1.2.2.2 pgoyette 1333 1.2.2.2 pgoyette /* 1334 1.2.2.2 pgoyette * The check against ctx->lo_water == 0 is for the condition 1335 1.2.2.2 pgoyette * when the context was pushed over hi_water but then had 1336 1.2.2.2 pgoyette * isc_mem_setwater() called with 0 for hi_water and lo_water. 1337 1.2.2.2 pgoyette */ 1338 1.2.2.2 pgoyette if ((ctx->inuse < ctx->lo_water) || (ctx->lo_water == 0U)) { 1339 1.2.2.2 pgoyette ctx->is_overmem = ISC_FALSE; 1340 1.2.2.2 pgoyette if (ctx->hi_called) 1341 1.2.2.2 pgoyette call_water = ISC_TRUE; 1342 1.2.2.2 pgoyette } 1343 1.2.2.2 pgoyette 1344 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1345 1.2.2.2 pgoyette 1346 1.2.2.2 pgoyette if (call_water && (ctx->water != NULL)) 1347 1.2.2.2 pgoyette (ctx->water)(ctx->water_arg, ISC_MEM_LOWATER); 1348 1.2.2.2 pgoyette } 1349 1.2.2.2 pgoyette 1350 1.2.2.2 pgoyette void 1351 1.2.2.2 pgoyette isc__mem_waterack(isc_mem_t *ctx0, int flag) { 1352 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1353 1.2.2.2 pgoyette 1354 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1355 1.2.2.2 pgoyette 1356 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1357 1.2.2.2 pgoyette if (flag == ISC_MEM_LOWATER) 1358 1.2.2.2 pgoyette ctx->hi_called = ISC_FALSE; 1359 1.2.2.2 pgoyette else if (flag == ISC_MEM_HIWATER) 1360 1.2.2.2 pgoyette ctx->hi_called = ISC_TRUE; 1361 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1362 1.2.2.2 pgoyette } 1363 1.2.2.2 pgoyette 1364 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 1365 1.2.2.2 pgoyette static void 1366 1.2.2.2 pgoyette print_active(isc__mem_t *mctx, FILE *out) { 1367 1.2.2.2 pgoyette if (mctx->debuglist != NULL) { 1368 1.2.2.2 pgoyette debuglink_t *dl; 1369 1.2.2.2 pgoyette unsigned int i; 1370 1.2.2.2 pgoyette const char *format; 1371 1.2.2.2 pgoyette isc_boolean_t found; 1372 1.2.2.2 pgoyette 1373 1.2.2.2 pgoyette fprintf(out, "%s", isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1374 1.2.2.2 pgoyette ISC_MSG_DUMPALLOC, 1375 1.2.2.2 pgoyette "Dump of all outstanding " 1376 1.2.2.2 pgoyette "memory allocations:\n")); 1377 1.2.2.2 pgoyette found = ISC_FALSE; 1378 1.2.2.2 pgoyette format = isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1379 1.2.2.2 pgoyette ISC_MSG_PTRFILELINE, 1380 1.2.2.2 pgoyette "\tptr %p size %u file %s line %u\n"); 1381 1.2.2.2 pgoyette for (i = 0; i < DEBUG_TABLE_COUNT; i++) { 1382 1.2.2.2 pgoyette dl = ISC_LIST_HEAD(mctx->debuglist[i]); 1383 1.2.2.2 pgoyette 1384 1.2.2.2 pgoyette if (dl != NULL) 1385 1.2.2.2 pgoyette found = ISC_TRUE; 1386 1.2.2.2 pgoyette 1387 1.2.2.2 pgoyette while (dl != NULL) { 1388 1.2.2.2 pgoyette if (dl->ptr != NULL) 1389 1.2.2.2 pgoyette fprintf(out, format, 1390 1.2.2.2 pgoyette dl->ptr, dl->size, 1391 1.2.2.2 pgoyette dl->file, dl->line); 1392 1.2.2.2 pgoyette dl = ISC_LIST_NEXT(dl, link); 1393 1.2.2.2 pgoyette } 1394 1.2.2.2 pgoyette } 1395 1.2.2.2 pgoyette 1396 1.2.2.2 pgoyette if (!found) 1397 1.2.2.2 pgoyette fputs(isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1398 1.2.2.2 pgoyette ISC_MSG_NONE, "\tNone.\n"), out); 1399 1.2.2.2 pgoyette } 1400 1.2.2.2 pgoyette } 1401 1.2.2.2 pgoyette #endif 1402 1.2.2.2 pgoyette 1403 1.2.2.2 pgoyette /* 1404 1.2.2.2 pgoyette * Print the stats[] on the stream "out" with suitable formatting. 1405 1.2.2.2 pgoyette */ 1406 1.2.2.2 pgoyette void 1407 1.2.2.2 pgoyette isc_mem_stats(isc_mem_t *ctx0, FILE *out) { 1408 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1409 1.2.2.2 pgoyette size_t i; 1410 1.2.2.2 pgoyette const struct stats *s; 1411 1.2.2.2 pgoyette const isc__mempool_t *pool; 1412 1.2.2.2 pgoyette 1413 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1414 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1415 1.2.2.2 pgoyette 1416 1.2.2.2 pgoyette for (i = 0; i <= ctx->max_size; i++) { 1417 1.2.2.2 pgoyette s = &ctx->stats[i]; 1418 1.2.2.2 pgoyette 1419 1.2.2.2 pgoyette if (s->totalgets == 0U && s->gets == 0U) 1420 1.2.2.2 pgoyette continue; 1421 1.2.2.2 pgoyette fprintf(out, "%s%5lu: %11lu gets, %11lu rem", 1422 1.2.2.2 pgoyette (i == ctx->max_size) ? ">=" : " ", 1423 1.2.2.2 pgoyette (unsigned long) i, s->totalgets, s->gets); 1424 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0 && 1425 1.2.2.2 pgoyette (s->blocks != 0U || s->freefrags != 0U)) 1426 1.2.2.2 pgoyette fprintf(out, " (%lu bl, %lu ff)", 1427 1.2.2.2 pgoyette s->blocks, s->freefrags); 1428 1.2.2.2 pgoyette fputc('\n', out); 1429 1.2.2.2 pgoyette } 1430 1.2.2.2 pgoyette 1431 1.2.2.2 pgoyette /* 1432 1.2.2.2 pgoyette * Note that since a pool can be locked now, these stats might be 1433 1.2.2.2 pgoyette * somewhat off if the pool is in active use at the time the stats 1434 1.2.2.2 pgoyette * are dumped. The link fields are protected by the isc_mem_t's 1435 1.2.2.2 pgoyette * lock, however, so walking this list and extracting integers from 1436 1.2.2.2 pgoyette * stats fields is always safe. 1437 1.2.2.2 pgoyette */ 1438 1.2.2.2 pgoyette pool = ISC_LIST_HEAD(ctx->pools); 1439 1.2.2.2 pgoyette if (pool != NULL) { 1440 1.2.2.2 pgoyette fprintf(out, "%s", isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1441 1.2.2.2 pgoyette ISC_MSG_POOLSTATS, 1442 1.2.2.2 pgoyette "[Pool statistics]\n")); 1443 1.2.2.2 pgoyette fprintf(out, "%15s %10s %10s %10s %10s %10s %10s %10s %1s\n", 1444 1.2.2.2 pgoyette isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1445 1.2.2.2 pgoyette ISC_MSG_POOLNAME, "name"), 1446 1.2.2.2 pgoyette isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1447 1.2.2.2 pgoyette ISC_MSG_POOLSIZE, "size"), 1448 1.2.2.2 pgoyette isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1449 1.2.2.2 pgoyette ISC_MSG_POOLMAXALLOC, "maxalloc"), 1450 1.2.2.2 pgoyette isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1451 1.2.2.2 pgoyette ISC_MSG_POOLALLOCATED, "allocated"), 1452 1.2.2.2 pgoyette isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1453 1.2.2.2 pgoyette ISC_MSG_POOLFREECOUNT, "freecount"), 1454 1.2.2.2 pgoyette isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1455 1.2.2.2 pgoyette ISC_MSG_POOLFREEMAX, "freemax"), 1456 1.2.2.2 pgoyette isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1457 1.2.2.2 pgoyette ISC_MSG_POOLFILLCOUNT, "fillcount"), 1458 1.2.2.2 pgoyette isc_msgcat_get(isc_msgcat, ISC_MSGSET_MEM, 1459 1.2.2.2 pgoyette ISC_MSG_POOLGETS, "gets"), 1460 1.2.2.2 pgoyette "L"); 1461 1.2.2.2 pgoyette } 1462 1.2.2.2 pgoyette while (pool != NULL) { 1463 1.2.2.2 pgoyette fprintf(out, "%15s %10lu %10u %10u %10u %10u %10u %10u %s\n", 1464 1.2.2.2 pgoyette #if ISC_MEMPOOL_NAMES 1465 1.2.2.2 pgoyette pool->name, 1466 1.2.2.2 pgoyette #else 1467 1.2.2.2 pgoyette "(not tracked)", 1468 1.2.2.2 pgoyette #endif 1469 1.2.2.2 pgoyette (unsigned long) pool->size, pool->maxalloc, 1470 1.2.2.2 pgoyette pool->allocated, pool->freecount, pool->freemax, 1471 1.2.2.2 pgoyette pool->fillcount, pool->gets, 1472 1.2.2.2 pgoyette (pool->lock == NULL ? "N" : "Y")); 1473 1.2.2.2 pgoyette pool = ISC_LIST_NEXT(pool, link); 1474 1.2.2.2 pgoyette } 1475 1.2.2.2 pgoyette 1476 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 1477 1.2.2.2 pgoyette print_active(ctx, out); 1478 1.2.2.2 pgoyette #endif 1479 1.2.2.2 pgoyette 1480 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1481 1.2.2.2 pgoyette } 1482 1.2.2.2 pgoyette 1483 1.2.2.2 pgoyette /* 1484 1.2.2.2 pgoyette * Replacements for malloc() and free() -- they implicitly remember the 1485 1.2.2.2 pgoyette * size of the object allocated (with some additional overhead). 1486 1.2.2.2 pgoyette */ 1487 1.2.2.2 pgoyette 1488 1.2.2.2 pgoyette static void * 1489 1.2.2.2 pgoyette mem_allocateunlocked(isc_mem_t *ctx0, size_t size) { 1490 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1491 1.2.2.2 pgoyette size_info *si; 1492 1.2.2.2 pgoyette 1493 1.2.2.2 pgoyette size += ALIGNMENT_SIZE; 1494 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & ISC_MEM_DEBUGCTX) != 0)) 1495 1.2.2.2 pgoyette size += ALIGNMENT_SIZE; 1496 1.2.2.2 pgoyette 1497 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0) 1498 1.2.2.2 pgoyette si = mem_getunlocked(ctx, size); 1499 1.2.2.2 pgoyette else 1500 1.2.2.2 pgoyette si = mem_get(ctx, size); 1501 1.2.2.2 pgoyette 1502 1.2.2.2 pgoyette if (si == NULL) 1503 1.2.2.2 pgoyette return (NULL); 1504 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & ISC_MEM_DEBUGCTX) != 0)) { 1505 1.2.2.2 pgoyette si->u.ctx = ctx; 1506 1.2.2.2 pgoyette si++; 1507 1.2.2.2 pgoyette } 1508 1.2.2.2 pgoyette si->u.size = size; 1509 1.2.2.2 pgoyette return (&si[1]); 1510 1.2.2.2 pgoyette } 1511 1.2.2.2 pgoyette 1512 1.2.2.2 pgoyette void * 1513 1.2.2.2 pgoyette isc___mem_allocate(isc_mem_t *ctx0, size_t size FLARG) { 1514 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1515 1.2.2.2 pgoyette size_info *si; 1516 1.2.2.2 pgoyette isc_boolean_t call_water = ISC_FALSE; 1517 1.2.2.2 pgoyette 1518 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1519 1.2.2.2 pgoyette 1520 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1521 1.2.2.2 pgoyette si = mem_allocateunlocked((isc_mem_t *)ctx, size); 1522 1.2.2.2 pgoyette if (((ctx->flags & ISC_MEMFLAG_INTERNAL) == 0) && (si != NULL)) 1523 1.2.2.2 pgoyette mem_getstats(ctx, si[-1].u.size); 1524 1.2.2.2 pgoyette 1525 1.2.2.2 pgoyette ADD_TRACE(ctx, si, si[-1].u.size, file, line); 1526 1.2.2.2 pgoyette if (ctx->hi_water != 0U && ctx->inuse > ctx->hi_water && 1527 1.2.2.2 pgoyette !ctx->is_overmem) { 1528 1.2.2.2 pgoyette ctx->is_overmem = ISC_TRUE; 1529 1.2.2.2 pgoyette } 1530 1.2.2.2 pgoyette 1531 1.2.2.2 pgoyette if (ctx->hi_water != 0U && !ctx->hi_called && 1532 1.2.2.2 pgoyette ctx->inuse > ctx->hi_water) { 1533 1.2.2.2 pgoyette ctx->hi_called = ISC_TRUE; 1534 1.2.2.2 pgoyette call_water = ISC_TRUE; 1535 1.2.2.2 pgoyette } 1536 1.2.2.2 pgoyette if (ctx->inuse > ctx->maxinuse) { 1537 1.2.2.2 pgoyette ctx->maxinuse = ctx->inuse; 1538 1.2.2.2 pgoyette if (ISC_UNLIKELY(ctx->hi_water != 0U && 1539 1.2.2.2 pgoyette ctx->inuse > ctx->hi_water && 1540 1.2.2.2 pgoyette (isc_mem_debugging & ISC_MEM_DEBUGUSAGE) != 0)) 1541 1.2.2.2 pgoyette fprintf(stderr, "maxinuse = %lu\n", 1542 1.2.2.2 pgoyette (unsigned long)ctx->inuse); 1543 1.2.2.2 pgoyette } 1544 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1545 1.2.2.2 pgoyette 1546 1.2.2.2 pgoyette if (call_water) 1547 1.2.2.2 pgoyette (ctx->water)(ctx->water_arg, ISC_MEM_HIWATER); 1548 1.2.2.2 pgoyette 1549 1.2.2.2 pgoyette return (si); 1550 1.2.2.2 pgoyette } 1551 1.2.2.2 pgoyette 1552 1.2.2.2 pgoyette void * 1553 1.2.2.2 pgoyette isc___mem_reallocate(isc_mem_t *ctx0, void *ptr, size_t size FLARG) { 1554 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1555 1.2.2.2 pgoyette void *new_ptr = NULL; 1556 1.2.2.2 pgoyette size_t oldsize, copysize; 1557 1.2.2.2 pgoyette 1558 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1559 1.2.2.2 pgoyette 1560 1.2.2.2 pgoyette /* 1561 1.2.2.2 pgoyette * This function emulates the realloc(3) standard library function: 1562 1.2.2.2 pgoyette * - if size > 0, allocate new memory; and if ptr is non NULL, copy 1563 1.2.2.2 pgoyette * as much of the old contents to the new buffer and free the old one. 1564 1.2.2.2 pgoyette * Note that when allocation fails the original pointer is intact; 1565 1.2.2.2 pgoyette * the caller must free it. 1566 1.2.2.2 pgoyette * - if size is 0 and ptr is non NULL, simply free the given ptr. 1567 1.2.2.2 pgoyette * - this function returns: 1568 1.2.2.2 pgoyette * pointer to the newly allocated memory, or 1569 1.2.2.2 pgoyette * NULL if allocation fails or doesn't happen. 1570 1.2.2.2 pgoyette */ 1571 1.2.2.2 pgoyette if (size > 0U) { 1572 1.2.2.2 pgoyette new_ptr = isc__mem_allocate(ctx0, size FLARG_PASS); 1573 1.2.2.2 pgoyette if (new_ptr != NULL && ptr != NULL) { 1574 1.2.2.2 pgoyette oldsize = (((size_info *)ptr)[-1]).u.size; 1575 1.2.2.2 pgoyette INSIST(oldsize >= ALIGNMENT_SIZE); 1576 1.2.2.2 pgoyette oldsize -= ALIGNMENT_SIZE; 1577 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & 1578 1.2.2.2 pgoyette ISC_MEM_DEBUGCTX) != 0)) 1579 1.2.2.2 pgoyette { 1580 1.2.2.2 pgoyette INSIST(oldsize >= ALIGNMENT_SIZE); 1581 1.2.2.2 pgoyette oldsize -= ALIGNMENT_SIZE; 1582 1.2.2.2 pgoyette } 1583 1.2.2.2 pgoyette copysize = (oldsize > size) ? size : oldsize; 1584 1.2.2.2 pgoyette memmove(new_ptr, ptr, copysize); 1585 1.2.2.2 pgoyette isc__mem_free(ctx0, ptr FLARG_PASS); 1586 1.2.2.2 pgoyette } 1587 1.2.2.2 pgoyette } else if (ptr != NULL) 1588 1.2.2.2 pgoyette isc__mem_free(ctx0, ptr FLARG_PASS); 1589 1.2.2.2 pgoyette 1590 1.2.2.2 pgoyette return (new_ptr); 1591 1.2.2.2 pgoyette } 1592 1.2.2.2 pgoyette 1593 1.2.2.2 pgoyette void 1594 1.2.2.2 pgoyette isc___mem_free(isc_mem_t *ctx0, void *ptr FLARG) { 1595 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1596 1.2.2.2 pgoyette size_info *si; 1597 1.2.2.2 pgoyette size_t size; 1598 1.2.2.2 pgoyette isc_boolean_t call_water= ISC_FALSE; 1599 1.2.2.2 pgoyette 1600 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1601 1.2.2.2 pgoyette REQUIRE(ptr != NULL); 1602 1.2.2.2 pgoyette 1603 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & ISC_MEM_DEBUGCTX) != 0)) { 1604 1.2.2.2 pgoyette si = &(((size_info *)ptr)[-2]); 1605 1.2.2.2 pgoyette REQUIRE(si->u.ctx == ctx); 1606 1.2.2.2 pgoyette size = si[1].u.size; 1607 1.2.2.2 pgoyette } else { 1608 1.2.2.2 pgoyette si = &(((size_info *)ptr)[-1]); 1609 1.2.2.2 pgoyette size = si->u.size; 1610 1.2.2.2 pgoyette } 1611 1.2.2.2 pgoyette 1612 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1613 1.2.2.2 pgoyette 1614 1.2.2.2 pgoyette DELETE_TRACE(ctx, ptr, size, file, line); 1615 1.2.2.2 pgoyette 1616 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 1617 1.2.2.2 pgoyette mem_putunlocked(ctx, si, size); 1618 1.2.2.2 pgoyette } else { 1619 1.2.2.2 pgoyette mem_putstats(ctx, si, size); 1620 1.2.2.2 pgoyette mem_put(ctx, si, size); 1621 1.2.2.2 pgoyette } 1622 1.2.2.2 pgoyette 1623 1.2.2.2 pgoyette /* 1624 1.2.2.2 pgoyette * The check against ctx->lo_water == 0 is for the condition 1625 1.2.2.2 pgoyette * when the context was pushed over hi_water but then had 1626 1.2.2.2 pgoyette * isc_mem_setwater() called with 0 for hi_water and lo_water. 1627 1.2.2.2 pgoyette */ 1628 1.2.2.2 pgoyette if (ctx->is_overmem && 1629 1.2.2.2 pgoyette (ctx->inuse < ctx->lo_water || ctx->lo_water == 0U)) { 1630 1.2.2.2 pgoyette ctx->is_overmem = ISC_FALSE; 1631 1.2.2.2 pgoyette } 1632 1.2.2.2 pgoyette 1633 1.2.2.2 pgoyette if (ctx->hi_called && 1634 1.2.2.2 pgoyette (ctx->inuse < ctx->lo_water || ctx->lo_water == 0U)) { 1635 1.2.2.2 pgoyette ctx->hi_called = ISC_FALSE; 1636 1.2.2.2 pgoyette 1637 1.2.2.2 pgoyette if (ctx->water != NULL) 1638 1.2.2.2 pgoyette call_water = ISC_TRUE; 1639 1.2.2.2 pgoyette } 1640 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1641 1.2.2.2 pgoyette 1642 1.2.2.2 pgoyette if (call_water) 1643 1.2.2.2 pgoyette (ctx->water)(ctx->water_arg, ISC_MEM_LOWATER); 1644 1.2.2.2 pgoyette } 1645 1.2.2.2 pgoyette 1646 1.2.2.2 pgoyette 1647 1.2.2.2 pgoyette /* 1648 1.2.2.2 pgoyette * Other useful things. 1649 1.2.2.2 pgoyette */ 1650 1.2.2.2 pgoyette 1651 1.2.2.2 pgoyette char * 1652 1.2.2.2 pgoyette isc___mem_strdup(isc_mem_t *mctx0, const char *s FLARG) { 1653 1.2.2.2 pgoyette isc__mem_t *mctx = (isc__mem_t *)mctx0; 1654 1.2.2.2 pgoyette size_t len; 1655 1.2.2.2 pgoyette char *ns; 1656 1.2.2.2 pgoyette 1657 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(mctx)); 1658 1.2.2.2 pgoyette REQUIRE(s != NULL); 1659 1.2.2.2 pgoyette 1660 1.2.2.2 pgoyette len = strlen(s) + 1; 1661 1.2.2.2 pgoyette 1662 1.2.2.2 pgoyette ns = isc__mem_allocate((isc_mem_t *)mctx, len FLARG_PASS); 1663 1.2.2.2 pgoyette 1664 1.2.2.2 pgoyette if (ns != NULL) 1665 1.2.2.2 pgoyette strlcpy(ns, s, len); 1666 1.2.2.2 pgoyette 1667 1.2.2.2 pgoyette return (ns); 1668 1.2.2.2 pgoyette } 1669 1.2.2.2 pgoyette 1670 1.2.2.2 pgoyette void 1671 1.2.2.2 pgoyette isc__mem_setdestroycheck(isc_mem_t *ctx0, isc_boolean_t flag) { 1672 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1673 1.2.2.2 pgoyette 1674 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1675 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1676 1.2.2.2 pgoyette 1677 1.2.2.2 pgoyette ctx->checkfree = flag; 1678 1.2.2.2 pgoyette 1679 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1680 1.2.2.2 pgoyette } 1681 1.2.2.2 pgoyette 1682 1.2.2.2 pgoyette /* 1683 1.2.2.2 pgoyette * Quotas 1684 1.2.2.2 pgoyette */ 1685 1.2.2.2 pgoyette 1686 1.2.2.2 pgoyette void 1687 1.2.2.2 pgoyette isc_mem_setquota(isc_mem_t *ctx0, size_t quota) { 1688 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1689 1.2.2.2 pgoyette 1690 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1691 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1692 1.2.2.2 pgoyette 1693 1.2.2.2 pgoyette ctx->quota = quota; 1694 1.2.2.2 pgoyette 1695 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1696 1.2.2.2 pgoyette } 1697 1.2.2.2 pgoyette 1698 1.2.2.2 pgoyette size_t 1699 1.2.2.2 pgoyette isc_mem_getquota(isc_mem_t *ctx0) { 1700 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1701 1.2.2.2 pgoyette size_t quota; 1702 1.2.2.2 pgoyette 1703 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1704 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1705 1.2.2.2 pgoyette 1706 1.2.2.2 pgoyette quota = ctx->quota; 1707 1.2.2.2 pgoyette 1708 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1709 1.2.2.2 pgoyette 1710 1.2.2.2 pgoyette return (quota); 1711 1.2.2.2 pgoyette } 1712 1.2.2.2 pgoyette 1713 1.2.2.2 pgoyette size_t 1714 1.2.2.2 pgoyette isc__mem_inuse(isc_mem_t *ctx0) { 1715 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1716 1.2.2.2 pgoyette size_t inuse; 1717 1.2.2.2 pgoyette 1718 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1719 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1720 1.2.2.2 pgoyette 1721 1.2.2.2 pgoyette inuse = ctx->inuse; 1722 1.2.2.2 pgoyette 1723 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1724 1.2.2.2 pgoyette 1725 1.2.2.2 pgoyette return (inuse); 1726 1.2.2.2 pgoyette } 1727 1.2.2.2 pgoyette 1728 1.2.2.2 pgoyette size_t 1729 1.2.2.2 pgoyette isc__mem_maxinuse(isc_mem_t *ctx0) { 1730 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1731 1.2.2.2 pgoyette size_t maxinuse; 1732 1.2.2.2 pgoyette 1733 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1734 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1735 1.2.2.2 pgoyette 1736 1.2.2.2 pgoyette maxinuse = ctx->maxinuse; 1737 1.2.2.2 pgoyette 1738 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1739 1.2.2.2 pgoyette 1740 1.2.2.2 pgoyette return (maxinuse); 1741 1.2.2.2 pgoyette } 1742 1.2.2.2 pgoyette 1743 1.2.2.2 pgoyette size_t 1744 1.2.2.2 pgoyette isc__mem_total(isc_mem_t *ctx0) { 1745 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1746 1.2.2.2 pgoyette size_t total; 1747 1.2.2.2 pgoyette 1748 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1749 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1750 1.2.2.2 pgoyette 1751 1.2.2.2 pgoyette total = ctx->total; 1752 1.2.2.2 pgoyette 1753 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1754 1.2.2.2 pgoyette 1755 1.2.2.2 pgoyette return (total); 1756 1.2.2.2 pgoyette } 1757 1.2.2.2 pgoyette 1758 1.2.2.2 pgoyette void 1759 1.2.2.2 pgoyette isc__mem_setwater(isc_mem_t *ctx0, isc_mem_water_t water, void *water_arg, 1760 1.2.2.2 pgoyette size_t hiwater, size_t lowater) 1761 1.2.2.2 pgoyette { 1762 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1763 1.2.2.2 pgoyette isc_boolean_t callwater = ISC_FALSE; 1764 1.2.2.2 pgoyette isc_mem_water_t oldwater; 1765 1.2.2.2 pgoyette void *oldwater_arg; 1766 1.2.2.2 pgoyette 1767 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1768 1.2.2.2 pgoyette REQUIRE(hiwater >= lowater); 1769 1.2.2.2 pgoyette 1770 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 1771 1.2.2.2 pgoyette oldwater = ctx->water; 1772 1.2.2.2 pgoyette oldwater_arg = ctx->water_arg; 1773 1.2.2.2 pgoyette if (water == NULL) { 1774 1.2.2.2 pgoyette callwater = ctx->hi_called; 1775 1.2.2.2 pgoyette ctx->water = NULL; 1776 1.2.2.2 pgoyette ctx->water_arg = NULL; 1777 1.2.2.2 pgoyette ctx->hi_water = 0; 1778 1.2.2.2 pgoyette ctx->lo_water = 0; 1779 1.2.2.2 pgoyette } else { 1780 1.2.2.2 pgoyette if (ctx->hi_called && 1781 1.2.2.2 pgoyette (ctx->water != water || ctx->water_arg != water_arg || 1782 1.2.2.2 pgoyette ctx->inuse < lowater || lowater == 0U)) 1783 1.2.2.2 pgoyette callwater = ISC_TRUE; 1784 1.2.2.2 pgoyette ctx->water = water; 1785 1.2.2.2 pgoyette ctx->water_arg = water_arg; 1786 1.2.2.2 pgoyette ctx->hi_water = hiwater; 1787 1.2.2.2 pgoyette ctx->lo_water = lowater; 1788 1.2.2.2 pgoyette } 1789 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 1790 1.2.2.2 pgoyette 1791 1.2.2.2 pgoyette if (callwater && oldwater != NULL) 1792 1.2.2.2 pgoyette (oldwater)(oldwater_arg, ISC_MEM_LOWATER); 1793 1.2.2.2 pgoyette } 1794 1.2.2.2 pgoyette 1795 1.2.2.2 pgoyette isc_boolean_t 1796 1.2.2.2 pgoyette isc__mem_isovermem(isc_mem_t *ctx0) { 1797 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1798 1.2.2.2 pgoyette 1799 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1800 1.2.2.2 pgoyette 1801 1.2.2.2 pgoyette /* 1802 1.2.2.2 pgoyette * We don't bother to lock the context because 100% accuracy isn't 1803 1.2.2.2 pgoyette * necessary (and even if we locked the context the returned value 1804 1.2.2.2 pgoyette * could be different from the actual state when it's used anyway) 1805 1.2.2.2 pgoyette */ 1806 1.2.2.2 pgoyette return (ctx->is_overmem); 1807 1.2.2.2 pgoyette } 1808 1.2.2.2 pgoyette 1809 1.2.2.2 pgoyette void 1810 1.2.2.2 pgoyette isc_mem_setname(isc_mem_t *ctx0, const char *name, void *tag) { 1811 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1812 1.2.2.2 pgoyette 1813 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1814 1.2.2.2 pgoyette 1815 1.2.2.2 pgoyette LOCK(&ctx->lock); 1816 1.2.2.2 pgoyette strlcpy(ctx->name, name, sizeof(ctx->name)); 1817 1.2.2.2 pgoyette ctx->tag = tag; 1818 1.2.2.2 pgoyette UNLOCK(&ctx->lock); 1819 1.2.2.2 pgoyette } 1820 1.2.2.2 pgoyette 1821 1.2.2.2 pgoyette const char * 1822 1.2.2.2 pgoyette isc_mem_getname(isc_mem_t *ctx0) { 1823 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1824 1.2.2.2 pgoyette 1825 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1826 1.2.2.2 pgoyette 1827 1.2.2.2 pgoyette if (ctx->name[0] == 0) 1828 1.2.2.2 pgoyette return (""); 1829 1.2.2.2 pgoyette 1830 1.2.2.2 pgoyette return (ctx->name); 1831 1.2.2.2 pgoyette } 1832 1.2.2.2 pgoyette 1833 1.2.2.2 pgoyette void * 1834 1.2.2.2 pgoyette isc_mem_gettag(isc_mem_t *ctx0) { 1835 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 1836 1.2.2.2 pgoyette 1837 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 1838 1.2.2.2 pgoyette 1839 1.2.2.2 pgoyette return (ctx->tag); 1840 1.2.2.2 pgoyette } 1841 1.2.2.2 pgoyette 1842 1.2.2.2 pgoyette /* 1843 1.2.2.2 pgoyette * Memory pool stuff 1844 1.2.2.2 pgoyette */ 1845 1.2.2.2 pgoyette 1846 1.2.2.2 pgoyette isc_result_t 1847 1.2.2.2 pgoyette isc__mempool_create(isc_mem_t *mctx0, size_t size, isc_mempool_t **mpctxp) { 1848 1.2.2.2 pgoyette isc__mem_t *mctx = (isc__mem_t *)mctx0; 1849 1.2.2.2 pgoyette isc__mempool_t *mpctx; 1850 1.2.2.2 pgoyette 1851 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(mctx)); 1852 1.2.2.2 pgoyette REQUIRE(size > 0U); 1853 1.2.2.2 pgoyette REQUIRE(mpctxp != NULL && *mpctxp == NULL); 1854 1.2.2.2 pgoyette 1855 1.2.2.2 pgoyette /* 1856 1.2.2.2 pgoyette * Allocate space for this pool, initialize values, and if all works 1857 1.2.2.2 pgoyette * well, attach to the memory context. 1858 1.2.2.2 pgoyette */ 1859 1.2.2.2 pgoyette mpctx = isc_mem_get((isc_mem_t *)mctx, sizeof(isc__mempool_t)); 1860 1.2.2.2 pgoyette if (mpctx == NULL) 1861 1.2.2.2 pgoyette return (ISC_R_NOMEMORY); 1862 1.2.2.2 pgoyette 1863 1.2.2.2 pgoyette mpctx->common.methods = (isc_mempoolmethods_t *)&mempoolmethods; 1864 1.2.2.2 pgoyette mpctx->common.impmagic = MEMPOOL_MAGIC; 1865 1.2.2.2 pgoyette mpctx->common.magic = ISCAPI_MPOOL_MAGIC; 1866 1.2.2.2 pgoyette mpctx->lock = NULL; 1867 1.2.2.2 pgoyette mpctx->mctx = mctx; 1868 1.2.2.2 pgoyette mpctx->size = size; 1869 1.2.2.2 pgoyette mpctx->maxalloc = UINT_MAX; 1870 1.2.2.2 pgoyette mpctx->allocated = 0; 1871 1.2.2.2 pgoyette mpctx->freecount = 0; 1872 1.2.2.2 pgoyette mpctx->freemax = 1; 1873 1.2.2.2 pgoyette mpctx->fillcount = 1; 1874 1.2.2.2 pgoyette mpctx->gets = 0; 1875 1.2.2.2 pgoyette #if ISC_MEMPOOL_NAMES 1876 1.2.2.2 pgoyette mpctx->name[0] = 0; 1877 1.2.2.2 pgoyette #endif 1878 1.2.2.2 pgoyette mpctx->items = NULL; 1879 1.2.2.2 pgoyette 1880 1.2.2.2 pgoyette *mpctxp = (isc_mempool_t *)mpctx; 1881 1.2.2.2 pgoyette 1882 1.2.2.2 pgoyette MCTXLOCK(mctx, &mctx->lock); 1883 1.2.2.2 pgoyette ISC_LIST_INITANDAPPEND(mctx->pools, mpctx, link); 1884 1.2.2.2 pgoyette mctx->poolcnt++; 1885 1.2.2.2 pgoyette MCTXUNLOCK(mctx, &mctx->lock); 1886 1.2.2.2 pgoyette 1887 1.2.2.2 pgoyette return (ISC_R_SUCCESS); 1888 1.2.2.2 pgoyette } 1889 1.2.2.2 pgoyette 1890 1.2.2.2 pgoyette void 1891 1.2.2.2 pgoyette isc__mempool_setname(isc_mempool_t *mpctx0, const char *name) { 1892 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 1893 1.2.2.2 pgoyette 1894 1.2.2.2 pgoyette REQUIRE(name != NULL); 1895 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 1896 1.2.2.2 pgoyette 1897 1.2.2.2 pgoyette #if ISC_MEMPOOL_NAMES 1898 1.2.2.2 pgoyette if (mpctx->lock != NULL) 1899 1.2.2.2 pgoyette LOCK(mpctx->lock); 1900 1.2.2.2 pgoyette 1901 1.2.2.2 pgoyette strlcpy(mpctx->name, name, sizeof(mpctx->name)); 1902 1.2.2.2 pgoyette 1903 1.2.2.2 pgoyette if (mpctx->lock != NULL) 1904 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 1905 1.2.2.2 pgoyette #else 1906 1.2.2.2 pgoyette UNUSED(mpctx); 1907 1.2.2.2 pgoyette UNUSED(name); 1908 1.2.2.2 pgoyette #endif 1909 1.2.2.2 pgoyette } 1910 1.2.2.2 pgoyette 1911 1.2.2.2 pgoyette void 1912 1.2.2.2 pgoyette isc__mempool_destroy(isc_mempool_t **mpctxp) { 1913 1.2.2.2 pgoyette isc__mempool_t *mpctx; 1914 1.2.2.2 pgoyette isc__mem_t *mctx; 1915 1.2.2.2 pgoyette isc_mutex_t *lock; 1916 1.2.2.2 pgoyette element *item; 1917 1.2.2.2 pgoyette 1918 1.2.2.2 pgoyette REQUIRE(mpctxp != NULL); 1919 1.2.2.2 pgoyette mpctx = (isc__mempool_t *)*mpctxp; 1920 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 1921 1.2.2.2 pgoyette #if ISC_MEMPOOL_NAMES 1922 1.2.2.2 pgoyette if (mpctx->allocated > 0) 1923 1.2.2.2 pgoyette UNEXPECTED_ERROR(__FILE__, __LINE__, 1924 1.2.2.2 pgoyette "isc__mempool_destroy(): mempool %s " 1925 1.2.2.2 pgoyette "leaked memory", 1926 1.2.2.2 pgoyette mpctx->name); 1927 1.2.2.2 pgoyette #endif 1928 1.2.2.2 pgoyette REQUIRE(mpctx->allocated == 0); 1929 1.2.2.2 pgoyette 1930 1.2.2.2 pgoyette mctx = mpctx->mctx; 1931 1.2.2.2 pgoyette 1932 1.2.2.2 pgoyette lock = mpctx->lock; 1933 1.2.2.2 pgoyette 1934 1.2.2.2 pgoyette if (lock != NULL) 1935 1.2.2.2 pgoyette LOCK(lock); 1936 1.2.2.2 pgoyette 1937 1.2.2.2 pgoyette /* 1938 1.2.2.2 pgoyette * Return any items on the free list 1939 1.2.2.2 pgoyette */ 1940 1.2.2.2 pgoyette MCTXLOCK(mctx, &mctx->lock); 1941 1.2.2.2 pgoyette while (mpctx->items != NULL) { 1942 1.2.2.2 pgoyette INSIST(mpctx->freecount > 0); 1943 1.2.2.2 pgoyette mpctx->freecount--; 1944 1.2.2.2 pgoyette item = mpctx->items; 1945 1.2.2.2 pgoyette mpctx->items = item->next; 1946 1.2.2.2 pgoyette 1947 1.2.2.2 pgoyette if ((mctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 1948 1.2.2.2 pgoyette mem_putunlocked(mctx, item, mpctx->size); 1949 1.2.2.2 pgoyette } else { 1950 1.2.2.2 pgoyette mem_putstats(mctx, item, mpctx->size); 1951 1.2.2.2 pgoyette mem_put(mctx, item, mpctx->size); 1952 1.2.2.2 pgoyette } 1953 1.2.2.2 pgoyette } 1954 1.2.2.2 pgoyette MCTXUNLOCK(mctx, &mctx->lock); 1955 1.2.2.2 pgoyette 1956 1.2.2.2 pgoyette /* 1957 1.2.2.2 pgoyette * Remove our linked list entry from the memory context. 1958 1.2.2.2 pgoyette */ 1959 1.2.2.2 pgoyette MCTXLOCK(mctx, &mctx->lock); 1960 1.2.2.2 pgoyette ISC_LIST_UNLINK(mctx->pools, mpctx, link); 1961 1.2.2.2 pgoyette mctx->poolcnt--; 1962 1.2.2.2 pgoyette MCTXUNLOCK(mctx, &mctx->lock); 1963 1.2.2.2 pgoyette 1964 1.2.2.2 pgoyette mpctx->common.impmagic = 0; 1965 1.2.2.2 pgoyette mpctx->common.magic = 0; 1966 1.2.2.2 pgoyette 1967 1.2.2.2 pgoyette isc_mem_put((isc_mem_t *)mpctx->mctx, mpctx, sizeof(isc__mempool_t)); 1968 1.2.2.2 pgoyette 1969 1.2.2.2 pgoyette if (lock != NULL) 1970 1.2.2.2 pgoyette UNLOCK(lock); 1971 1.2.2.2 pgoyette 1972 1.2.2.2 pgoyette *mpctxp = NULL; 1973 1.2.2.2 pgoyette } 1974 1.2.2.2 pgoyette 1975 1.2.2.2 pgoyette void 1976 1.2.2.2 pgoyette isc__mempool_associatelock(isc_mempool_t *mpctx0, isc_mutex_t *lock) { 1977 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 1978 1.2.2.2 pgoyette 1979 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 1980 1.2.2.2 pgoyette REQUIRE(mpctx->lock == NULL); 1981 1.2.2.2 pgoyette REQUIRE(lock != NULL); 1982 1.2.2.2 pgoyette 1983 1.2.2.2 pgoyette mpctx->lock = lock; 1984 1.2.2.2 pgoyette } 1985 1.2.2.2 pgoyette 1986 1.2.2.2 pgoyette void * 1987 1.2.2.2 pgoyette isc___mempool_get(isc_mempool_t *mpctx0 FLARG) { 1988 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 1989 1.2.2.2 pgoyette element *item; 1990 1.2.2.2 pgoyette isc__mem_t *mctx; 1991 1.2.2.2 pgoyette unsigned int i; 1992 1.2.2.2 pgoyette 1993 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 1994 1.2.2.2 pgoyette 1995 1.2.2.2 pgoyette mctx = mpctx->mctx; 1996 1.2.2.2 pgoyette 1997 1.2.2.2 pgoyette if (mpctx->lock != NULL) 1998 1.2.2.2 pgoyette LOCK(mpctx->lock); 1999 1.2.2.2 pgoyette 2000 1.2.2.2 pgoyette /* 2001 1.2.2.2 pgoyette * Don't let the caller go over quota 2002 1.2.2.2 pgoyette */ 2003 1.2.2.2 pgoyette if (ISC_UNLIKELY(mpctx->allocated >= mpctx->maxalloc)) { 2004 1.2.2.2 pgoyette item = NULL; 2005 1.2.2.2 pgoyette goto out; 2006 1.2.2.2 pgoyette } 2007 1.2.2.2 pgoyette 2008 1.2.2.2 pgoyette if (ISC_UNLIKELY(mpctx->items == NULL)) { 2009 1.2.2.2 pgoyette /* 2010 1.2.2.2 pgoyette * We need to dip into the well. Lock the memory context 2011 1.2.2.2 pgoyette * here and fill up our free list. 2012 1.2.2.2 pgoyette */ 2013 1.2.2.2 pgoyette MCTXLOCK(mctx, &mctx->lock); 2014 1.2.2.2 pgoyette for (i = 0; i < mpctx->fillcount; i++) { 2015 1.2.2.2 pgoyette if ((mctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 2016 1.2.2.2 pgoyette item = mem_getunlocked(mctx, mpctx->size); 2017 1.2.2.2 pgoyette } else { 2018 1.2.2.2 pgoyette item = mem_get(mctx, mpctx->size); 2019 1.2.2.2 pgoyette if (item != NULL) 2020 1.2.2.2 pgoyette mem_getstats(mctx, mpctx->size); 2021 1.2.2.2 pgoyette } 2022 1.2.2.2 pgoyette if (ISC_UNLIKELY(item == NULL)) 2023 1.2.2.2 pgoyette break; 2024 1.2.2.2 pgoyette item->next = mpctx->items; 2025 1.2.2.2 pgoyette mpctx->items = item; 2026 1.2.2.2 pgoyette mpctx->freecount++; 2027 1.2.2.2 pgoyette } 2028 1.2.2.2 pgoyette MCTXUNLOCK(mctx, &mctx->lock); 2029 1.2.2.2 pgoyette } 2030 1.2.2.2 pgoyette 2031 1.2.2.2 pgoyette /* 2032 1.2.2.2 pgoyette * If we didn't get any items, return NULL. 2033 1.2.2.2 pgoyette */ 2034 1.2.2.2 pgoyette item = mpctx->items; 2035 1.2.2.2 pgoyette if (ISC_UNLIKELY(item == NULL)) 2036 1.2.2.2 pgoyette goto out; 2037 1.2.2.2 pgoyette 2038 1.2.2.2 pgoyette mpctx->items = item->next; 2039 1.2.2.2 pgoyette INSIST(mpctx->freecount > 0); 2040 1.2.2.2 pgoyette mpctx->freecount--; 2041 1.2.2.2 pgoyette mpctx->gets++; 2042 1.2.2.2 pgoyette mpctx->allocated++; 2043 1.2.2.2 pgoyette 2044 1.2.2.2 pgoyette out: 2045 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2046 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2047 1.2.2.2 pgoyette 2048 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 2049 1.2.2.2 pgoyette if (ISC_UNLIKELY(((isc_mem_debugging & TRACE_OR_RECORD) != 0) && 2050 1.2.2.2 pgoyette item != NULL)) 2051 1.2.2.2 pgoyette { 2052 1.2.2.2 pgoyette MCTXLOCK(mctx, &mctx->lock); 2053 1.2.2.2 pgoyette ADD_TRACE(mctx, item, mpctx->size, file, line); 2054 1.2.2.2 pgoyette MCTXUNLOCK(mctx, &mctx->lock); 2055 1.2.2.2 pgoyette } 2056 1.2.2.2 pgoyette #endif /* ISC_MEM_TRACKLINES */ 2057 1.2.2.2 pgoyette 2058 1.2.2.2 pgoyette return (item); 2059 1.2.2.2 pgoyette } 2060 1.2.2.2 pgoyette 2061 1.2.2.2 pgoyette /* coverity[+free : arg-1] */ 2062 1.2.2.2 pgoyette void 2063 1.2.2.2 pgoyette isc___mempool_put(isc_mempool_t *mpctx0, void *mem FLARG) { 2064 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 2065 1.2.2.2 pgoyette isc__mem_t *mctx; 2066 1.2.2.2 pgoyette element *item; 2067 1.2.2.2 pgoyette 2068 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 2069 1.2.2.2 pgoyette REQUIRE(mem != NULL); 2070 1.2.2.2 pgoyette 2071 1.2.2.2 pgoyette mctx = mpctx->mctx; 2072 1.2.2.2 pgoyette 2073 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2074 1.2.2.2 pgoyette LOCK(mpctx->lock); 2075 1.2.2.2 pgoyette 2076 1.2.2.2 pgoyette INSIST(mpctx->allocated > 0); 2077 1.2.2.2 pgoyette mpctx->allocated--; 2078 1.2.2.2 pgoyette 2079 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 2080 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & TRACE_OR_RECORD) != 0)) { 2081 1.2.2.2 pgoyette MCTXLOCK(mctx, &mctx->lock); 2082 1.2.2.2 pgoyette DELETE_TRACE(mctx, mem, mpctx->size, file, line); 2083 1.2.2.2 pgoyette MCTXUNLOCK(mctx, &mctx->lock); 2084 1.2.2.2 pgoyette } 2085 1.2.2.2 pgoyette #endif /* ISC_MEM_TRACKLINES */ 2086 1.2.2.2 pgoyette 2087 1.2.2.2 pgoyette /* 2088 1.2.2.2 pgoyette * If our free list is full, return this to the mctx directly. 2089 1.2.2.2 pgoyette */ 2090 1.2.2.2 pgoyette if (mpctx->freecount >= mpctx->freemax) { 2091 1.2.2.2 pgoyette MCTXLOCK(mctx, &mctx->lock); 2092 1.2.2.2 pgoyette if ((mctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 2093 1.2.2.2 pgoyette mem_putunlocked(mctx, mem, mpctx->size); 2094 1.2.2.2 pgoyette } else { 2095 1.2.2.2 pgoyette mem_putstats(mctx, mem, mpctx->size); 2096 1.2.2.2 pgoyette mem_put(mctx, mem, mpctx->size); 2097 1.2.2.2 pgoyette } 2098 1.2.2.2 pgoyette MCTXUNLOCK(mctx, &mctx->lock); 2099 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2100 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2101 1.2.2.2 pgoyette return; 2102 1.2.2.2 pgoyette } 2103 1.2.2.2 pgoyette 2104 1.2.2.2 pgoyette /* 2105 1.2.2.2 pgoyette * Otherwise, attach it to our free list and bump the counter. 2106 1.2.2.2 pgoyette */ 2107 1.2.2.2 pgoyette mpctx->freecount++; 2108 1.2.2.2 pgoyette item = (element *)mem; 2109 1.2.2.2 pgoyette item->next = mpctx->items; 2110 1.2.2.2 pgoyette mpctx->items = item; 2111 1.2.2.2 pgoyette 2112 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2113 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2114 1.2.2.2 pgoyette } 2115 1.2.2.2 pgoyette 2116 1.2.2.2 pgoyette /* 2117 1.2.2.2 pgoyette * Quotas 2118 1.2.2.2 pgoyette */ 2119 1.2.2.2 pgoyette 2120 1.2.2.2 pgoyette void 2121 1.2.2.2 pgoyette isc__mempool_setfreemax(isc_mempool_t *mpctx0, unsigned int limit) { 2122 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 2123 1.2.2.2 pgoyette 2124 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 2125 1.2.2.2 pgoyette 2126 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2127 1.2.2.2 pgoyette LOCK(mpctx->lock); 2128 1.2.2.2 pgoyette 2129 1.2.2.2 pgoyette mpctx->freemax = limit; 2130 1.2.2.2 pgoyette 2131 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2132 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2133 1.2.2.2 pgoyette } 2134 1.2.2.2 pgoyette 2135 1.2.2.2 pgoyette unsigned int 2136 1.2.2.2 pgoyette isc_mempool_getfreemax(isc_mempool_t *mpctx0) { 2137 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 2138 1.2.2.2 pgoyette unsigned int freemax; 2139 1.2.2.2 pgoyette 2140 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 2141 1.2.2.2 pgoyette 2142 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2143 1.2.2.2 pgoyette LOCK(mpctx->lock); 2144 1.2.2.2 pgoyette 2145 1.2.2.2 pgoyette freemax = mpctx->freemax; 2146 1.2.2.2 pgoyette 2147 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2148 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2149 1.2.2.2 pgoyette 2150 1.2.2.2 pgoyette return (freemax); 2151 1.2.2.2 pgoyette } 2152 1.2.2.2 pgoyette 2153 1.2.2.2 pgoyette unsigned int 2154 1.2.2.2 pgoyette isc_mempool_getfreecount(isc_mempool_t *mpctx0) { 2155 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 2156 1.2.2.2 pgoyette unsigned int freecount; 2157 1.2.2.2 pgoyette 2158 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 2159 1.2.2.2 pgoyette 2160 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2161 1.2.2.2 pgoyette LOCK(mpctx->lock); 2162 1.2.2.2 pgoyette 2163 1.2.2.2 pgoyette freecount = mpctx->freecount; 2164 1.2.2.2 pgoyette 2165 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2166 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2167 1.2.2.2 pgoyette 2168 1.2.2.2 pgoyette return (freecount); 2169 1.2.2.2 pgoyette } 2170 1.2.2.2 pgoyette 2171 1.2.2.2 pgoyette void 2172 1.2.2.2 pgoyette isc__mempool_setmaxalloc(isc_mempool_t *mpctx0, unsigned int limit) { 2173 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 2174 1.2.2.2 pgoyette 2175 1.2.2.2 pgoyette REQUIRE(limit > 0); 2176 1.2.2.2 pgoyette 2177 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 2178 1.2.2.2 pgoyette 2179 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2180 1.2.2.2 pgoyette LOCK(mpctx->lock); 2181 1.2.2.2 pgoyette 2182 1.2.2.2 pgoyette mpctx->maxalloc = limit; 2183 1.2.2.2 pgoyette 2184 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2185 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2186 1.2.2.2 pgoyette } 2187 1.2.2.2 pgoyette 2188 1.2.2.2 pgoyette unsigned int 2189 1.2.2.2 pgoyette isc_mempool_getmaxalloc(isc_mempool_t *mpctx0) { 2190 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 2191 1.2.2.2 pgoyette unsigned int maxalloc; 2192 1.2.2.2 pgoyette 2193 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 2194 1.2.2.2 pgoyette 2195 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2196 1.2.2.2 pgoyette LOCK(mpctx->lock); 2197 1.2.2.2 pgoyette 2198 1.2.2.2 pgoyette maxalloc = mpctx->maxalloc; 2199 1.2.2.2 pgoyette 2200 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2201 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2202 1.2.2.2 pgoyette 2203 1.2.2.2 pgoyette return (maxalloc); 2204 1.2.2.2 pgoyette } 2205 1.2.2.2 pgoyette 2206 1.2.2.2 pgoyette unsigned int 2207 1.2.2.2 pgoyette isc__mempool_getallocated(isc_mempool_t *mpctx0) { 2208 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 2209 1.2.2.2 pgoyette unsigned int allocated; 2210 1.2.2.2 pgoyette 2211 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 2212 1.2.2.2 pgoyette 2213 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2214 1.2.2.2 pgoyette LOCK(mpctx->lock); 2215 1.2.2.2 pgoyette 2216 1.2.2.2 pgoyette allocated = mpctx->allocated; 2217 1.2.2.2 pgoyette 2218 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2219 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2220 1.2.2.2 pgoyette 2221 1.2.2.2 pgoyette return (allocated); 2222 1.2.2.2 pgoyette } 2223 1.2.2.2 pgoyette 2224 1.2.2.2 pgoyette void 2225 1.2.2.2 pgoyette isc__mempool_setfillcount(isc_mempool_t *mpctx0, unsigned int limit) { 2226 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 2227 1.2.2.2 pgoyette 2228 1.2.2.2 pgoyette REQUIRE(limit > 0); 2229 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 2230 1.2.2.2 pgoyette 2231 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2232 1.2.2.2 pgoyette LOCK(mpctx->lock); 2233 1.2.2.2 pgoyette 2234 1.2.2.2 pgoyette mpctx->fillcount = limit; 2235 1.2.2.2 pgoyette 2236 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2237 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2238 1.2.2.2 pgoyette } 2239 1.2.2.2 pgoyette 2240 1.2.2.2 pgoyette unsigned int 2241 1.2.2.2 pgoyette isc_mempool_getfillcount(isc_mempool_t *mpctx0) { 2242 1.2.2.2 pgoyette isc__mempool_t *mpctx = (isc__mempool_t *)mpctx0; 2243 1.2.2.2 pgoyette 2244 1.2.2.2 pgoyette unsigned int fillcount; 2245 1.2.2.2 pgoyette 2246 1.2.2.2 pgoyette REQUIRE(VALID_MEMPOOL(mpctx)); 2247 1.2.2.2 pgoyette 2248 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2249 1.2.2.2 pgoyette LOCK(mpctx->lock); 2250 1.2.2.2 pgoyette 2251 1.2.2.2 pgoyette fillcount = mpctx->fillcount; 2252 1.2.2.2 pgoyette 2253 1.2.2.2 pgoyette if (mpctx->lock != NULL) 2254 1.2.2.2 pgoyette UNLOCK(mpctx->lock); 2255 1.2.2.2 pgoyette 2256 1.2.2.2 pgoyette return (fillcount); 2257 1.2.2.2 pgoyette } 2258 1.2.2.2 pgoyette 2259 1.2.2.2 pgoyette isc_result_t 2260 1.2.2.2 pgoyette isc__mem_register(void) { 2261 1.2.2.2 pgoyette return (isc_mem_register(isc_mem_create2)); 2262 1.2.2.2 pgoyette } 2263 1.2.2.2 pgoyette 2264 1.2.2.2 pgoyette void 2265 1.2.2.2 pgoyette isc__mem_printactive(isc_mem_t *ctx0, FILE *file) { 2266 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 2267 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 2268 1.2.2.2 pgoyette 2269 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 2270 1.2.2.2 pgoyette REQUIRE(file != NULL); 2271 1.2.2.2 pgoyette 2272 1.2.2.2 pgoyette print_active(ctx, file); 2273 1.2.2.2 pgoyette #else 2274 1.2.2.2 pgoyette UNUSED(ctx0); 2275 1.2.2.2 pgoyette UNUSED(file); 2276 1.2.2.2 pgoyette #endif 2277 1.2.2.2 pgoyette } 2278 1.2.2.2 pgoyette 2279 1.2.2.2 pgoyette 2280 1.2.2.2 pgoyette /* 2281 1.2.2.2 pgoyette * Requires contextslock to be held by caller. 2282 1.2.2.2 pgoyette */ 2283 1.2.2.2 pgoyette static void 2284 1.2.2.2 pgoyette print_contexts(FILE *file) { 2285 1.2.2.2 pgoyette isc__mem_t *ctx; 2286 1.2.2.2 pgoyette 2287 1.2.2.2 pgoyette for (ctx = ISC_LIST_HEAD(contexts); 2288 1.2.2.2 pgoyette ctx != NULL; 2289 1.2.2.2 pgoyette ctx = ISC_LIST_NEXT(ctx, link)) 2290 1.2.2.2 pgoyette { 2291 1.2.2.2 pgoyette fprintf(file, "context: %p (%s): %u references\n", 2292 1.2.2.2 pgoyette ctx, 2293 1.2.2.2 pgoyette ctx->name[0] == 0 ? "<unknown>" : ctx->name, 2294 1.2.2.2 pgoyette ctx->references); 2295 1.2.2.2 pgoyette print_active(ctx, file); 2296 1.2.2.2 pgoyette } 2297 1.2.2.2 pgoyette fflush(file); 2298 1.2.2.2 pgoyette } 2299 1.2.2.2 pgoyette 2300 1.2.2.2 pgoyette void 2301 1.2.2.2 pgoyette isc_mem_printallactive(FILE *file) { 2302 1.2.2.2 pgoyette #if !ISC_MEM_TRACKLINES 2303 1.2.2.2 pgoyette UNUSED(file); 2304 1.2.2.2 pgoyette #else 2305 1.2.2.2 pgoyette RUNTIME_CHECK(isc_once_do(&once, initialize_action) == ISC_R_SUCCESS); 2306 1.2.2.2 pgoyette 2307 1.2.2.2 pgoyette LOCK(&contextslock); 2308 1.2.2.2 pgoyette print_contexts(file); 2309 1.2.2.2 pgoyette UNLOCK(&contextslock); 2310 1.2.2.2 pgoyette #endif 2311 1.2.2.2 pgoyette } 2312 1.2.2.2 pgoyette 2313 1.2.2.2 pgoyette void 2314 1.2.2.2 pgoyette isc_mem_checkdestroyed(FILE *file) { 2315 1.2.2.2 pgoyette #if !ISC_MEM_TRACKLINES 2316 1.2.2.2 pgoyette UNUSED(file); 2317 1.2.2.2 pgoyette #endif 2318 1.2.2.2 pgoyette 2319 1.2.2.2 pgoyette RUNTIME_CHECK(isc_once_do(&once, initialize_action) == ISC_R_SUCCESS); 2320 1.2.2.2 pgoyette 2321 1.2.2.2 pgoyette LOCK(&contextslock); 2322 1.2.2.2 pgoyette if (!ISC_LIST_EMPTY(contexts)) { 2323 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 2324 1.2.2.2 pgoyette if (ISC_UNLIKELY((isc_mem_debugging & TRACE_OR_RECORD) != 0)) { 2325 1.2.2.2 pgoyette print_contexts(file); 2326 1.2.2.2 pgoyette } 2327 1.2.2.2 pgoyette #endif 2328 1.2.2.2 pgoyette INSIST(0); 2329 1.2.2.2 pgoyette } 2330 1.2.2.2 pgoyette UNLOCK(&contextslock); 2331 1.2.2.2 pgoyette } 2332 1.2.2.2 pgoyette 2333 1.2.2.2 pgoyette unsigned int 2334 1.2.2.2 pgoyette isc_mem_references(isc_mem_t *ctx0) { 2335 1.2.2.2 pgoyette isc__mem_t *ctx = (isc__mem_t *)ctx0; 2336 1.2.2.2 pgoyette unsigned int references; 2337 1.2.2.2 pgoyette 2338 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 2339 1.2.2.2 pgoyette 2340 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 2341 1.2.2.2 pgoyette references = ctx->references; 2342 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 2343 1.2.2.2 pgoyette 2344 1.2.2.2 pgoyette return (references); 2345 1.2.2.2 pgoyette } 2346 1.2.2.2 pgoyette 2347 1.2.2.2 pgoyette typedef struct summarystat { 2348 1.2.2.2 pgoyette isc_uint64_t total; 2349 1.2.2.2 pgoyette isc_uint64_t inuse; 2350 1.2.2.2 pgoyette isc_uint64_t malloced; 2351 1.2.2.2 pgoyette isc_uint64_t blocksize; 2352 1.2.2.2 pgoyette isc_uint64_t contextsize; 2353 1.2.2.2 pgoyette } summarystat_t; 2354 1.2.2.2 pgoyette 2355 1.2.2.2 pgoyette #ifdef HAVE_LIBXML2 2356 1.2.2.2 pgoyette #define TRY0(a) do { xmlrc = (a); if (xmlrc < 0) goto error; } while(/*CONSTCOND*/0) 2357 1.2.2.2 pgoyette static int 2358 1.2.2.2 pgoyette xml_renderctx(isc__mem_t *ctx, summarystat_t *summary, 2359 1.2.2.2 pgoyette xmlTextWriterPtr writer) 2360 1.2.2.2 pgoyette { 2361 1.2.2.2 pgoyette int xmlrc; 2362 1.2.2.2 pgoyette 2363 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 2364 1.2.2.2 pgoyette 2365 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 2366 1.2.2.2 pgoyette 2367 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "context")); 2368 1.2.2.2 pgoyette 2369 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "id")); 2370 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, "%p", ctx)); 2371 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* id */ 2372 1.2.2.2 pgoyette 2373 1.2.2.2 pgoyette if (ctx->name[0] != 0) { 2374 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "name")); 2375 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, "%s", ctx->name)); 2376 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* name */ 2377 1.2.2.2 pgoyette } 2378 1.2.2.2 pgoyette 2379 1.2.2.2 pgoyette summary->contextsize += sizeof(*ctx) + 2380 1.2.2.2 pgoyette (ctx->max_size + 1) * sizeof(struct stats) + 2381 1.2.2.2 pgoyette ctx->max_size * sizeof(element *) + 2382 1.2.2.2 pgoyette ctx->basic_table_count * sizeof(char *); 2383 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 2384 1.2.2.2 pgoyette if (ctx->debuglist != NULL) { 2385 1.2.2.2 pgoyette summary->contextsize += 2386 1.2.2.2 pgoyette DEBUG_TABLE_COUNT * sizeof(debuglist_t) + 2387 1.2.2.2 pgoyette ctx->debuglistcnt * sizeof(debuglink_t); 2388 1.2.2.2 pgoyette } 2389 1.2.2.2 pgoyette #endif 2390 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "references")); 2391 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, "%d", ctx->references)); 2392 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* references */ 2393 1.2.2.2 pgoyette 2394 1.2.2.2 pgoyette summary->total += ctx->total; 2395 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "total")); 2396 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2397 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2398 1.2.2.2 pgoyette (isc_uint64_t)ctx->total)); 2399 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* total */ 2400 1.2.2.2 pgoyette 2401 1.2.2.2 pgoyette summary->inuse += ctx->inuse; 2402 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "inuse")); 2403 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2404 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2405 1.2.2.2 pgoyette (isc_uint64_t)ctx->inuse)); 2406 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* inuse */ 2407 1.2.2.2 pgoyette 2408 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "maxinuse")); 2409 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2410 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2411 1.2.2.2 pgoyette (isc_uint64_t)ctx->maxinuse)); 2412 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* maxinuse */ 2413 1.2.2.2 pgoyette 2414 1.2.2.2 pgoyette summary->malloced += ctx->malloced; 2415 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "malloced")); 2416 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2417 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2418 1.2.2.2 pgoyette (isc_uint64_t)ctx->malloced)); 2419 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* malloced */ 2420 1.2.2.2 pgoyette 2421 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "maxmalloced")); 2422 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2423 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2424 1.2.2.2 pgoyette (isc_uint64_t)ctx->maxmalloced)); 2425 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* maxmalloced */ 2426 1.2.2.2 pgoyette 2427 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "blocksize")); 2428 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 2429 1.2.2.2 pgoyette summary->blocksize += ctx->basic_table_count * 2430 1.2.2.2 pgoyette NUM_BASIC_BLOCKS * ctx->mem_target; 2431 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2432 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2433 1.2.2.2 pgoyette (isc_uint64_t) 2434 1.2.2.2 pgoyette ctx->basic_table_count * 2435 1.2.2.2 pgoyette NUM_BASIC_BLOCKS * 2436 1.2.2.2 pgoyette ctx->mem_target)); 2437 1.2.2.2 pgoyette } else 2438 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, "%s", "-")); 2439 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* blocksize */ 2440 1.2.2.2 pgoyette 2441 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "pools")); 2442 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, "%u", ctx->poolcnt)); 2443 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* pools */ 2444 1.2.2.2 pgoyette summary->contextsize += ctx->poolcnt * sizeof(isc_mempool_t); 2445 1.2.2.2 pgoyette 2446 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "hiwater")); 2447 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2448 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2449 1.2.2.2 pgoyette (isc_uint64_t)ctx->hi_water)); 2450 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* hiwater */ 2451 1.2.2.2 pgoyette 2452 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "lowater")); 2453 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2454 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2455 1.2.2.2 pgoyette (isc_uint64_t)ctx->lo_water)); 2456 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* lowater */ 2457 1.2.2.2 pgoyette 2458 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* context */ 2459 1.2.2.2 pgoyette 2460 1.2.2.2 pgoyette error: 2461 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 2462 1.2.2.2 pgoyette 2463 1.2.2.2 pgoyette return (xmlrc); 2464 1.2.2.2 pgoyette } 2465 1.2.2.2 pgoyette 2466 1.2.2.2 pgoyette int 2467 1.2.2.2 pgoyette isc_mem_renderxml(xmlTextWriterPtr writer) { 2468 1.2.2.2 pgoyette isc__mem_t *ctx; 2469 1.2.2.2 pgoyette summarystat_t summary; 2470 1.2.2.2 pgoyette isc_uint64_t lost; 2471 1.2.2.2 pgoyette int xmlrc; 2472 1.2.2.2 pgoyette 2473 1.2.2.2 pgoyette memset(&summary, 0, sizeof(summary)); 2474 1.2.2.2 pgoyette 2475 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "contexts")); 2476 1.2.2.2 pgoyette 2477 1.2.2.2 pgoyette RUNTIME_CHECK(isc_once_do(&once, initialize_action) == ISC_R_SUCCESS); 2478 1.2.2.2 pgoyette 2479 1.2.2.2 pgoyette LOCK(&contextslock); 2480 1.2.2.2 pgoyette lost = totallost; 2481 1.2.2.2 pgoyette for (ctx = ISC_LIST_HEAD(contexts); 2482 1.2.2.2 pgoyette ctx != NULL; 2483 1.2.2.2 pgoyette ctx = ISC_LIST_NEXT(ctx, link)) { 2484 1.2.2.2 pgoyette xmlrc = xml_renderctx(ctx, &summary, writer); 2485 1.2.2.2 pgoyette if (xmlrc < 0) { 2486 1.2.2.2 pgoyette UNLOCK(&contextslock); 2487 1.2.2.2 pgoyette goto error; 2488 1.2.2.2 pgoyette } 2489 1.2.2.2 pgoyette } 2490 1.2.2.2 pgoyette UNLOCK(&contextslock); 2491 1.2.2.2 pgoyette 2492 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* contexts */ 2493 1.2.2.2 pgoyette 2494 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "summary")); 2495 1.2.2.2 pgoyette 2496 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "TotalUse")); 2497 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2498 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2499 1.2.2.2 pgoyette summary.total)); 2500 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* TotalUse */ 2501 1.2.2.2 pgoyette 2502 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "InUse")); 2503 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2504 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2505 1.2.2.2 pgoyette summary.inuse)); 2506 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* InUse */ 2507 1.2.2.2 pgoyette 2508 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "Malloced")); 2509 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2510 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2511 1.2.2.2 pgoyette summary.malloced)); 2512 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* InUse */ 2513 1.2.2.2 pgoyette 2514 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "BlockSize")); 2515 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2516 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2517 1.2.2.2 pgoyette summary.blocksize)); 2518 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* BlockSize */ 2519 1.2.2.2 pgoyette 2520 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "ContextSize")); 2521 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2522 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2523 1.2.2.2 pgoyette summary.contextsize)); 2524 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* ContextSize */ 2525 1.2.2.2 pgoyette 2526 1.2.2.2 pgoyette TRY0(xmlTextWriterStartElement(writer, ISC_XMLCHAR "Lost")); 2527 1.2.2.2 pgoyette TRY0(xmlTextWriterWriteFormatString(writer, 2528 1.2.2.2 pgoyette "%" ISC_PRINT_QUADFORMAT "u", 2529 1.2.2.2 pgoyette lost)); 2530 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* Lost */ 2531 1.2.2.2 pgoyette 2532 1.2.2.2 pgoyette TRY0(xmlTextWriterEndElement(writer)); /* summary */ 2533 1.2.2.2 pgoyette error: 2534 1.2.2.2 pgoyette return (xmlrc); 2535 1.2.2.2 pgoyette } 2536 1.2.2.2 pgoyette 2537 1.2.2.2 pgoyette #endif /* HAVE_LIBXML2 */ 2538 1.2.2.2 pgoyette 2539 1.2.2.2 pgoyette #ifdef HAVE_JSON 2540 1.2.2.2 pgoyette #define CHECKMEM(m) do { \ 2541 1.2.2.2 pgoyette if (m == NULL) { \ 2542 1.2.2.2 pgoyette result = ISC_R_NOMEMORY;\ 2543 1.2.2.2 pgoyette goto error;\ 2544 1.2.2.2 pgoyette } \ 2545 1.2.2.2 pgoyette } while(/*CONSTCOND*/0) 2546 1.2.2.2 pgoyette 2547 1.2.2.2 pgoyette static isc_result_t 2548 1.2.2.2 pgoyette json_renderctx(isc__mem_t *ctx, summarystat_t *summary, json_object *array) { 2549 1.2.2.2 pgoyette isc_result_t result = ISC_R_FAILURE; 2550 1.2.2.2 pgoyette json_object *ctxobj, *obj; 2551 1.2.2.2 pgoyette char buf[1024]; 2552 1.2.2.2 pgoyette 2553 1.2.2.2 pgoyette REQUIRE(VALID_CONTEXT(ctx)); 2554 1.2.2.2 pgoyette REQUIRE(summary != NULL); 2555 1.2.2.2 pgoyette REQUIRE(array != NULL); 2556 1.2.2.2 pgoyette 2557 1.2.2.2 pgoyette MCTXLOCK(ctx, &ctx->lock); 2558 1.2.2.2 pgoyette 2559 1.2.2.2 pgoyette summary->contextsize += sizeof(*ctx) + 2560 1.2.2.2 pgoyette (ctx->max_size + 1) * sizeof(struct stats) + 2561 1.2.2.2 pgoyette ctx->max_size * sizeof(element *) + 2562 1.2.2.2 pgoyette ctx->basic_table_count * sizeof(char *); 2563 1.2.2.2 pgoyette summary->total += ctx->total; 2564 1.2.2.2 pgoyette summary->inuse += ctx->inuse; 2565 1.2.2.2 pgoyette summary->malloced += ctx->malloced; 2566 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0) 2567 1.2.2.2 pgoyette summary->blocksize += ctx->basic_table_count * 2568 1.2.2.2 pgoyette NUM_BASIC_BLOCKS * ctx->mem_target; 2569 1.2.2.2 pgoyette #if ISC_MEM_TRACKLINES 2570 1.2.2.2 pgoyette if (ctx->debuglist != NULL) { 2571 1.2.2.2 pgoyette summary->contextsize += 2572 1.2.2.2 pgoyette DEBUG_TABLE_COUNT * sizeof(debuglist_t) + 2573 1.2.2.2 pgoyette ctx->debuglistcnt * sizeof(debuglink_t); 2574 1.2.2.2 pgoyette } 2575 1.2.2.2 pgoyette #endif 2576 1.2.2.2 pgoyette 2577 1.2.2.2 pgoyette ctxobj = json_object_new_object(); 2578 1.2.2.2 pgoyette CHECKMEM(ctxobj); 2579 1.2.2.2 pgoyette 2580 1.2.2.2 pgoyette snprintf(buf, sizeof(buf), "%p", ctx); 2581 1.2.2.2 pgoyette obj = json_object_new_string(buf); 2582 1.2.2.2 pgoyette CHECKMEM(obj); 2583 1.2.2.2 pgoyette json_object_object_add(ctxobj, "id", obj); 2584 1.2.2.2 pgoyette 2585 1.2.2.2 pgoyette if (ctx->name[0] != 0) { 2586 1.2.2.2 pgoyette obj = json_object_new_string(ctx->name); 2587 1.2.2.2 pgoyette CHECKMEM(obj); 2588 1.2.2.2 pgoyette json_object_object_add(ctxobj, "name", obj); 2589 1.2.2.2 pgoyette } 2590 1.2.2.2 pgoyette 2591 1.2.2.2 pgoyette obj = json_object_new_int64(ctx->references); 2592 1.2.2.2 pgoyette CHECKMEM(obj); 2593 1.2.2.2 pgoyette json_object_object_add(ctxobj, "references", obj); 2594 1.2.2.2 pgoyette 2595 1.2.2.2 pgoyette obj = json_object_new_int64(ctx->total); 2596 1.2.2.2 pgoyette CHECKMEM(obj); 2597 1.2.2.2 pgoyette json_object_object_add(ctxobj, "total", obj); 2598 1.2.2.2 pgoyette 2599 1.2.2.2 pgoyette obj = json_object_new_int64(ctx->inuse); 2600 1.2.2.2 pgoyette CHECKMEM(obj); 2601 1.2.2.2 pgoyette json_object_object_add(ctxobj, "inuse", obj); 2602 1.2.2.2 pgoyette 2603 1.2.2.2 pgoyette obj = json_object_new_int64(ctx->maxinuse); 2604 1.2.2.2 pgoyette CHECKMEM(obj); 2605 1.2.2.2 pgoyette json_object_object_add(ctxobj, "maxinuse", obj); 2606 1.2.2.2 pgoyette 2607 1.2.2.2 pgoyette obj = json_object_new_int64(ctx->malloced); 2608 1.2.2.2 pgoyette CHECKMEM(obj); 2609 1.2.2.2 pgoyette json_object_object_add(ctxobj, "malloced", obj); 2610 1.2.2.2 pgoyette 2611 1.2.2.2 pgoyette obj = json_object_new_int64(ctx->maxmalloced); 2612 1.2.2.2 pgoyette CHECKMEM(obj); 2613 1.2.2.2 pgoyette json_object_object_add(ctxobj, "maxmalloced", obj); 2614 1.2.2.2 pgoyette 2615 1.2.2.2 pgoyette if ((ctx->flags & ISC_MEMFLAG_INTERNAL) != 0) { 2616 1.2.2.2 pgoyette isc_uint64_t blocksize; 2617 1.2.2.2 pgoyette blocksize = ctx->basic_table_count * NUM_BASIC_BLOCKS * 2618 1.2.2.2 pgoyette ctx->mem_target; 2619 1.2.2.2 pgoyette obj = json_object_new_int64(blocksize); 2620 1.2.2.2 pgoyette CHECKMEM(obj); 2621 1.2.2.2 pgoyette json_object_object_add(ctxobj, "blocksize", obj); 2622 1.2.2.2 pgoyette } 2623 1.2.2.2 pgoyette 2624 1.2.2.2 pgoyette obj = json_object_new_int64(ctx->poolcnt); 2625 1.2.2.2 pgoyette CHECKMEM(obj); 2626 1.2.2.2 pgoyette json_object_object_add(ctxobj, "pools", obj); 2627 1.2.2.2 pgoyette 2628 1.2.2.2 pgoyette summary->contextsize += ctx->poolcnt * sizeof(isc_mempool_t); 2629 1.2.2.2 pgoyette 2630 1.2.2.2 pgoyette obj = json_object_new_int64(ctx->hi_water); 2631 1.2.2.2 pgoyette CHECKMEM(obj); 2632 1.2.2.2 pgoyette json_object_object_add(ctxobj, "hiwater", obj); 2633 1.2.2.2 pgoyette 2634 1.2.2.2 pgoyette obj = json_object_new_int64(ctx->lo_water); 2635 1.2.2.2 pgoyette CHECKMEM(obj); 2636 1.2.2.2 pgoyette json_object_object_add(ctxobj, "lowater", obj); 2637 1.2.2.2 pgoyette 2638 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 2639 1.2.2.2 pgoyette json_object_array_add(array, ctxobj); 2640 1.2.2.2 pgoyette return (ISC_R_SUCCESS); 2641 1.2.2.2 pgoyette 2642 1.2.2.2 pgoyette error: 2643 1.2.2.2 pgoyette MCTXUNLOCK(ctx, &ctx->lock); 2644 1.2.2.2 pgoyette if (ctxobj != NULL) 2645 1.2.2.2 pgoyette json_object_put(ctxobj); 2646 1.2.2.2 pgoyette return (result); 2647 1.2.2.2 pgoyette } 2648 1.2.2.2 pgoyette 2649 1.2.2.2 pgoyette isc_result_t 2650 1.2.2.2 pgoyette isc_mem_renderjson(json_object *memobj) { 2651 1.2.2.2 pgoyette isc_result_t result = ISC_R_SUCCESS; 2652 1.2.2.2 pgoyette isc__mem_t *ctx; 2653 1.2.2.2 pgoyette summarystat_t summary; 2654 1.2.2.2 pgoyette isc_uint64_t lost; 2655 1.2.2.2 pgoyette json_object *ctxarray, *obj; 2656 1.2.2.2 pgoyette 2657 1.2.2.2 pgoyette memset(&summary, 0, sizeof(summary)); 2658 1.2.2.2 pgoyette RUNTIME_CHECK(isc_once_do(&once, initialize_action) == ISC_R_SUCCESS); 2659 1.2.2.2 pgoyette 2660 1.2.2.2 pgoyette ctxarray = json_object_new_array(); 2661 1.2.2.2 pgoyette CHECKMEM(ctxarray); 2662 1.2.2.2 pgoyette 2663 1.2.2.2 pgoyette LOCK(&contextslock); 2664 1.2.2.2 pgoyette lost = totallost; 2665 1.2.2.2 pgoyette for (ctx = ISC_LIST_HEAD(contexts); 2666 1.2.2.2 pgoyette ctx != NULL; 2667 1.2.2.2 pgoyette ctx = ISC_LIST_NEXT(ctx, link)) { 2668 1.2.2.2 pgoyette result = json_renderctx(ctx, &summary, ctxarray); 2669 1.2.2.2 pgoyette if (result != ISC_R_SUCCESS) { 2670 1.2.2.2 pgoyette UNLOCK(&contextslock); 2671 1.2.2.2 pgoyette goto error; 2672 1.2.2.2 pgoyette } 2673 1.2.2.2 pgoyette } 2674 1.2.2.2 pgoyette UNLOCK(&contextslock); 2675 1.2.2.2 pgoyette 2676 1.2.2.2 pgoyette obj = json_object_new_int64(summary.total); 2677 1.2.2.2 pgoyette CHECKMEM(obj); 2678 1.2.2.2 pgoyette json_object_object_add(memobj, "TotalUse", obj); 2679 1.2.2.2 pgoyette 2680 1.2.2.2 pgoyette obj = json_object_new_int64(summary.inuse); 2681 1.2.2.2 pgoyette CHECKMEM(obj); 2682 1.2.2.2 pgoyette json_object_object_add(memobj, "InUse", obj); 2683 1.2.2.2 pgoyette 2684 1.2.2.2 pgoyette obj = json_object_new_int64(summary.malloced); 2685 1.2.2.2 pgoyette CHECKMEM(obj); 2686 1.2.2.2 pgoyette json_object_object_add(memobj, "Malloced", obj); 2687 1.2.2.2 pgoyette 2688 1.2.2.2 pgoyette obj = json_object_new_int64(summary.blocksize); 2689 1.2.2.2 pgoyette CHECKMEM(obj); 2690 1.2.2.2 pgoyette json_object_object_add(memobj, "BlockSize", obj); 2691 1.2.2.2 pgoyette 2692 1.2.2.2 pgoyette obj = json_object_new_int64(summary.contextsize); 2693 1.2.2.2 pgoyette CHECKMEM(obj); 2694 1.2.2.2 pgoyette json_object_object_add(memobj, "ContextSize", obj); 2695 1.2.2.2 pgoyette 2696 1.2.2.2 pgoyette obj = json_object_new_int64(lost); 2697 1.2.2.2 pgoyette CHECKMEM(obj); 2698 1.2.2.2 pgoyette json_object_object_add(memobj, "Lost", obj); 2699 1.2.2.2 pgoyette 2700 1.2.2.2 pgoyette json_object_object_add(memobj, "contexts", ctxarray); 2701 1.2.2.2 pgoyette return (ISC_R_SUCCESS); 2702 1.2.2.2 pgoyette 2703 1.2.2.2 pgoyette error: 2704 1.2.2.2 pgoyette if (ctxarray != NULL) 2705 1.2.2.2 pgoyette json_object_put(ctxarray); 2706 1.2.2.2 pgoyette return (result); 2707 1.2.2.2 pgoyette } 2708 1.2.2.2 pgoyette #endif /* HAVE_JSON */ 2709 1.2.2.2 pgoyette 2710 1.2.2.2 pgoyette static isc_memcreatefunc_t mem_createfunc = NULL; 2711 1.2.2.2 pgoyette 2712 1.2.2.2 pgoyette isc_result_t 2713 1.2.2.2 pgoyette isc_mem_register(isc_memcreatefunc_t createfunc) { 2714 1.2.2.2 pgoyette isc_result_t result = ISC_R_SUCCESS; 2715 1.2.2.2 pgoyette 2716 1.2.2.2 pgoyette RUNTIME_CHECK(isc_once_do(&once, initialize_action) == ISC_R_SUCCESS); 2717 1.2.2.2 pgoyette 2718 1.2.2.2 pgoyette LOCK(&createlock); 2719 1.2.2.2 pgoyette if (mem_createfunc == NULL) 2720 1.2.2.2 pgoyette mem_createfunc = createfunc; 2721 1.2.2.2 pgoyette else 2722 1.2.2.2 pgoyette result = ISC_R_EXISTS; 2723 1.2.2.2 pgoyette UNLOCK(&createlock); 2724 1.2.2.2 pgoyette 2725 1.2.2.2 pgoyette return (result); 2726 1.2.2.2 pgoyette } 2727 1.2.2.2 pgoyette 2728 1.2.2.2 pgoyette 2729 1.2.2.2 pgoyette isc_result_t 2730 1.2.2.2 pgoyette isc__mem_create2(size_t init_max_size, size_t target_size, isc_mem_t **mctxp, 2731 1.2.2.2 pgoyette unsigned int flags) 2732 1.2.2.2 pgoyette { 2733 1.2.2.2 pgoyette isc_result_t result; 2734 1.2.2.2 pgoyette 2735 1.2.2.2 pgoyette LOCK(&createlock); 2736 1.2.2.2 pgoyette 2737 1.2.2.2 pgoyette REQUIRE(mem_createfunc != NULL); 2738 1.2.2.2 pgoyette result = (*mem_createfunc)(init_max_size, target_size, mctxp, flags); 2739 1.2.2.2 pgoyette 2740 1.2.2.2 pgoyette UNLOCK(&createlock); 2741 1.2.2.2 pgoyette 2742 1.2.2.2 pgoyette return (result); 2743 1.2.2.2 pgoyette } 2744 1.2.2.2 pgoyette 2745 1.2.2.2 pgoyette isc_result_t 2746 1.2.2.2 pgoyette isc_mem_create(size_t init_max_size, size_t target_size, isc_mem_t **mctxp) { 2747 1.2.2.2 pgoyette isc_result_t result; 2748 1.2.2.2 pgoyette 2749 1.2.2.2 pgoyette if (isc_bind9) 2750 1.2.2.2 pgoyette return (isc_mem_createx2(init_max_size, target_size, 2751 1.2.2.2 pgoyette default_memalloc, default_memfree, 2752 1.2.2.2 pgoyette NULL, mctxp, isc_mem_defaultflags)); 2753 1.2.2.2 pgoyette LOCK(&createlock); 2754 1.2.2.2 pgoyette 2755 1.2.2.2 pgoyette REQUIRE(mem_createfunc != NULL); 2756 1.2.2.2 pgoyette result = (*mem_createfunc)(init_max_size, target_size, mctxp, 2757 1.2.2.2 pgoyette isc_mem_defaultflags); 2758 1.2.2.2 pgoyette 2759 1.2.2.2 pgoyette UNLOCK(&createlock); 2760 1.2.2.2 pgoyette 2761 1.2.2.2 pgoyette return (result); 2762 1.2.2.2 pgoyette } 2763 1.2.2.2 pgoyette 2764 1.2.2.2 pgoyette isc_result_t 2765 1.2.2.2 pgoyette isc_mem_create2(size_t init_max_size, size_t target_size, isc_mem_t **mctxp, 2766 1.2.2.2 pgoyette unsigned int flags) 2767 1.2.2.2 pgoyette { 2768 1.2.2.2 pgoyette if (isc_bind9) 2769 1.2.2.2 pgoyette return (isc_mem_createx2(init_max_size, target_size, 2770 1.2.2.2 pgoyette default_memalloc, default_memfree, 2771 1.2.2.2 pgoyette NULL, mctxp, flags)); 2772 1.2.2.2 pgoyette 2773 1.2.2.2 pgoyette return (isc_mem_createx2(init_max_size, target_size, 2774 1.2.2.2 pgoyette default_memalloc, default_memfree, 2775 1.2.2.2 pgoyette NULL, mctxp, flags)); 2776 1.2.2.2 pgoyette } 2777 1.2.2.2 pgoyette 2778 1.2.2.2 pgoyette void 2779 1.2.2.2 pgoyette isc_mem_attach(isc_mem_t *source, isc_mem_t **targetp) { 2780 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(source)); 2781 1.2.2.2 pgoyette REQUIRE(targetp != NULL && *targetp == NULL); 2782 1.2.2.2 pgoyette 2783 1.2.2.2 pgoyette if (isc_bind9) 2784 1.2.2.2 pgoyette isc__mem_attach(source, targetp); 2785 1.2.2.2 pgoyette else 2786 1.2.2.2 pgoyette source->methods->attach(source, targetp); 2787 1.2.2.2 pgoyette 2788 1.2.2.2 pgoyette ENSURE(*targetp == source); 2789 1.2.2.2 pgoyette } 2790 1.2.2.2 pgoyette 2791 1.2.2.2 pgoyette void 2792 1.2.2.2 pgoyette isc_mem_detach(isc_mem_t **mctxp) { 2793 1.2.2.2 pgoyette REQUIRE(mctxp != NULL && ISCAPI_MCTX_VALID(*mctxp)); 2794 1.2.2.2 pgoyette 2795 1.2.2.2 pgoyette if (isc_bind9) 2796 1.2.2.2 pgoyette isc__mem_detach(mctxp); 2797 1.2.2.2 pgoyette else 2798 1.2.2.2 pgoyette (*mctxp)->methods->detach(mctxp); 2799 1.2.2.2 pgoyette 2800 1.2.2.2 pgoyette ENSURE(*mctxp == NULL); 2801 1.2.2.2 pgoyette } 2802 1.2.2.2 pgoyette 2803 1.2.2.2 pgoyette void 2804 1.2.2.2 pgoyette isc_mem_destroy(isc_mem_t **mctxp) { 2805 1.2.2.2 pgoyette REQUIRE(mctxp != NULL && ISCAPI_MCTX_VALID(*mctxp)); 2806 1.2.2.2 pgoyette 2807 1.2.2.2 pgoyette if (isc_bind9) 2808 1.2.2.2 pgoyette isc__mem_destroy(mctxp); 2809 1.2.2.2 pgoyette else 2810 1.2.2.2 pgoyette (*mctxp)->methods->destroy(mctxp); 2811 1.2.2.2 pgoyette 2812 1.2.2.2 pgoyette ENSURE(*mctxp == NULL); 2813 1.2.2.2 pgoyette } 2814 1.2.2.2 pgoyette 2815 1.2.2.2 pgoyette void 2816 1.2.2.2 pgoyette isc_mem_setdestroycheck(isc_mem_t *mctx, isc_boolean_t flag) { 2817 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 2818 1.2.2.2 pgoyette 2819 1.2.2.2 pgoyette mctx->methods->setdestroycheck(mctx, flag); 2820 1.2.2.2 pgoyette } 2821 1.2.2.2 pgoyette 2822 1.2.2.2 pgoyette void 2823 1.2.2.2 pgoyette isc_mem_setwater(isc_mem_t *ctx, isc_mem_water_t water, void *water_arg, 2824 1.2.2.2 pgoyette size_t hiwater, size_t lowater) 2825 1.2.2.2 pgoyette { 2826 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(ctx)); 2827 1.2.2.2 pgoyette 2828 1.2.2.2 pgoyette if (isc_bind9) 2829 1.2.2.2 pgoyette isc__mem_setwater(ctx, water, water_arg, hiwater, lowater); 2830 1.2.2.2 pgoyette else 2831 1.2.2.2 pgoyette ctx->methods->setwater(ctx, water, water_arg, hiwater, lowater); 2832 1.2.2.2 pgoyette } 2833 1.2.2.2 pgoyette 2834 1.2.2.2 pgoyette void 2835 1.2.2.2 pgoyette isc_mem_waterack(isc_mem_t *ctx, int flag) { 2836 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(ctx)); 2837 1.2.2.2 pgoyette 2838 1.2.2.2 pgoyette if (isc_bind9) 2839 1.2.2.2 pgoyette isc__mem_waterack(ctx, flag); 2840 1.2.2.2 pgoyette else 2841 1.2.2.2 pgoyette ctx->methods->waterack(ctx, flag); 2842 1.2.2.2 pgoyette } 2843 1.2.2.2 pgoyette 2844 1.2.2.2 pgoyette size_t 2845 1.2.2.2 pgoyette isc_mem_inuse(isc_mem_t *mctx) { 2846 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 2847 1.2.2.2 pgoyette 2848 1.2.2.2 pgoyette if (isc_bind9) 2849 1.2.2.2 pgoyette return (isc__mem_inuse(mctx)); 2850 1.2.2.2 pgoyette 2851 1.2.2.2 pgoyette return (mctx->methods->inuse(mctx)); 2852 1.2.2.2 pgoyette } 2853 1.2.2.2 pgoyette 2854 1.2.2.2 pgoyette size_t 2855 1.2.2.2 pgoyette isc_mem_maxinuse(isc_mem_t *mctx) { 2856 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 2857 1.2.2.2 pgoyette 2858 1.2.2.2 pgoyette if (isc_bind9) 2859 1.2.2.2 pgoyette return (isc__mem_maxinuse(mctx)); 2860 1.2.2.2 pgoyette 2861 1.2.2.2 pgoyette return (mctx->methods->maxinuse(mctx)); 2862 1.2.2.2 pgoyette } 2863 1.2.2.2 pgoyette 2864 1.2.2.2 pgoyette size_t 2865 1.2.2.2 pgoyette isc_mem_total(isc_mem_t *mctx) { 2866 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 2867 1.2.2.2 pgoyette 2868 1.2.2.2 pgoyette if (isc_bind9) 2869 1.2.2.2 pgoyette return (isc__mem_total(mctx)); 2870 1.2.2.2 pgoyette 2871 1.2.2.2 pgoyette return (mctx->methods->total(mctx)); 2872 1.2.2.2 pgoyette } 2873 1.2.2.2 pgoyette 2874 1.2.2.2 pgoyette isc_boolean_t 2875 1.2.2.2 pgoyette isc_mem_isovermem(isc_mem_t *mctx) { 2876 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 2877 1.2.2.2 pgoyette 2878 1.2.2.2 pgoyette if (isc_bind9) 2879 1.2.2.2 pgoyette return (isc__mem_isovermem(mctx)); 2880 1.2.2.2 pgoyette 2881 1.2.2.2 pgoyette return (mctx->methods->isovermem(mctx)); 2882 1.2.2.2 pgoyette } 2883 1.2.2.2 pgoyette 2884 1.2.2.2 pgoyette 2885 1.2.2.2 pgoyette isc_result_t 2886 1.2.2.2 pgoyette isc_mempool_create(isc_mem_t *mctx, size_t size, isc_mempool_t **mpctxp) { 2887 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 2888 1.2.2.2 pgoyette 2889 1.2.2.2 pgoyette return (mctx->methods->mpcreate(mctx, size, mpctxp)); 2890 1.2.2.2 pgoyette } 2891 1.2.2.2 pgoyette 2892 1.2.2.2 pgoyette void 2893 1.2.2.2 pgoyette isc_mempool_destroy(isc_mempool_t **mpctxp) { 2894 1.2.2.2 pgoyette REQUIRE(mpctxp != NULL && ISCAPI_MPOOL_VALID(*mpctxp)); 2895 1.2.2.2 pgoyette 2896 1.2.2.2 pgoyette if (isc_bind9) 2897 1.2.2.2 pgoyette isc__mempool_destroy(mpctxp); 2898 1.2.2.2 pgoyette else 2899 1.2.2.2 pgoyette (*mpctxp)->methods->destroy(mpctxp); 2900 1.2.2.2 pgoyette 2901 1.2.2.2 pgoyette ENSURE(*mpctxp == NULL); 2902 1.2.2.2 pgoyette } 2903 1.2.2.2 pgoyette 2904 1.2.2.2 pgoyette unsigned int 2905 1.2.2.2 pgoyette isc_mempool_getallocated(isc_mempool_t *mpctx) { 2906 1.2.2.2 pgoyette REQUIRE(ISCAPI_MPOOL_VALID(mpctx)); 2907 1.2.2.2 pgoyette 2908 1.2.2.2 pgoyette if (isc_bind9) 2909 1.2.2.2 pgoyette return (isc__mempool_getallocated(mpctx)); 2910 1.2.2.2 pgoyette 2911 1.2.2.2 pgoyette return (mpctx->methods->getallocated(mpctx)); 2912 1.2.2.2 pgoyette } 2913 1.2.2.2 pgoyette 2914 1.2.2.2 pgoyette void 2915 1.2.2.2 pgoyette isc_mempool_setmaxalloc(isc_mempool_t *mpctx, unsigned int limit) { 2916 1.2.2.2 pgoyette REQUIRE(ISCAPI_MPOOL_VALID(mpctx)); 2917 1.2.2.2 pgoyette 2918 1.2.2.2 pgoyette if (isc_bind9) 2919 1.2.2.2 pgoyette isc__mempool_setmaxalloc(mpctx, limit); 2920 1.2.2.2 pgoyette else 2921 1.2.2.2 pgoyette mpctx->methods->setmaxalloc(mpctx, limit); 2922 1.2.2.2 pgoyette } 2923 1.2.2.2 pgoyette 2924 1.2.2.2 pgoyette void 2925 1.2.2.2 pgoyette isc_mempool_setfreemax(isc_mempool_t *mpctx, unsigned int limit) { 2926 1.2.2.2 pgoyette REQUIRE(ISCAPI_MPOOL_VALID(mpctx)); 2927 1.2.2.2 pgoyette 2928 1.2.2.2 pgoyette if (isc_bind9) 2929 1.2.2.2 pgoyette isc__mempool_setfreemax(mpctx, limit); 2930 1.2.2.2 pgoyette else 2931 1.2.2.2 pgoyette mpctx->methods->setfreemax(mpctx, limit); 2932 1.2.2.2 pgoyette } 2933 1.2.2.2 pgoyette 2934 1.2.2.2 pgoyette void 2935 1.2.2.2 pgoyette isc_mempool_setname(isc_mempool_t *mpctx, const char *name) { 2936 1.2.2.2 pgoyette REQUIRE(ISCAPI_MPOOL_VALID(mpctx)); 2937 1.2.2.2 pgoyette 2938 1.2.2.2 pgoyette if (isc_bind9) 2939 1.2.2.2 pgoyette isc__mempool_setname(mpctx, name); 2940 1.2.2.2 pgoyette else 2941 1.2.2.2 pgoyette mpctx->methods->setname(mpctx, name); 2942 1.2.2.2 pgoyette } 2943 1.2.2.2 pgoyette 2944 1.2.2.2 pgoyette void 2945 1.2.2.2 pgoyette isc_mempool_associatelock(isc_mempool_t *mpctx, isc_mutex_t *lock) { 2946 1.2.2.2 pgoyette REQUIRE(ISCAPI_MPOOL_VALID(mpctx)); 2947 1.2.2.2 pgoyette 2948 1.2.2.2 pgoyette if (isc_bind9) 2949 1.2.2.2 pgoyette isc__mempool_associatelock(mpctx, lock); 2950 1.2.2.2 pgoyette else 2951 1.2.2.2 pgoyette mpctx->methods->associatelock(mpctx, lock); 2952 1.2.2.2 pgoyette } 2953 1.2.2.2 pgoyette 2954 1.2.2.2 pgoyette void 2955 1.2.2.2 pgoyette isc_mempool_setfillcount(isc_mempool_t *mpctx, unsigned int limit) { 2956 1.2.2.2 pgoyette REQUIRE(ISCAPI_MPOOL_VALID(mpctx)); 2957 1.2.2.2 pgoyette 2958 1.2.2.2 pgoyette if (isc_bind9) 2959 1.2.2.2 pgoyette isc__mempool_setfillcount(mpctx, limit); 2960 1.2.2.2 pgoyette else 2961 1.2.2.2 pgoyette mpctx->methods->setfillcount(mpctx, limit); 2962 1.2.2.2 pgoyette } 2963 1.2.2.2 pgoyette 2964 1.2.2.2 pgoyette void * 2965 1.2.2.2 pgoyette isc__mem_get(isc_mem_t *mctx, size_t size FLARG) { 2966 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 2967 1.2.2.2 pgoyette 2968 1.2.2.2 pgoyette if (isc_bind9) 2969 1.2.2.2 pgoyette return (isc___mem_get(mctx, size FLARG_PASS)); 2970 1.2.2.2 pgoyette 2971 1.2.2.2 pgoyette return (mctx->methods->memget(mctx, size FLARG_PASS)); 2972 1.2.2.2 pgoyette 2973 1.2.2.2 pgoyette } 2974 1.2.2.2 pgoyette 2975 1.2.2.2 pgoyette void 2976 1.2.2.2 pgoyette isc__mem_put(isc_mem_t *mctx, void *ptr, size_t size FLARG) { 2977 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 2978 1.2.2.2 pgoyette 2979 1.2.2.2 pgoyette if (isc_bind9) 2980 1.2.2.2 pgoyette isc___mem_put(mctx, ptr, size FLARG_PASS); 2981 1.2.2.2 pgoyette else 2982 1.2.2.2 pgoyette mctx->methods->memput(mctx, ptr, size FLARG_PASS); 2983 1.2.2.2 pgoyette } 2984 1.2.2.2 pgoyette 2985 1.2.2.2 pgoyette void 2986 1.2.2.2 pgoyette isc__mem_putanddetach(isc_mem_t **mctxp, void *ptr, size_t size FLARG) { 2987 1.2.2.2 pgoyette REQUIRE(mctxp != NULL && ISCAPI_MCTX_VALID(*mctxp)); 2988 1.2.2.2 pgoyette 2989 1.2.2.2 pgoyette if (isc_bind9) 2990 1.2.2.2 pgoyette isc___mem_putanddetach(mctxp, ptr, size FLARG_PASS); 2991 1.2.2.2 pgoyette else 2992 1.2.2.2 pgoyette (*mctxp)->methods->memputanddetach(mctxp, ptr, size FLARG_PASS); 2993 1.2.2.2 pgoyette 2994 1.2.2.2 pgoyette /* 2995 1.2.2.2 pgoyette * XXX: We cannot always ensure *mctxp == NULL here 2996 1.2.2.2 pgoyette * (see lib/isc/mem.c). 2997 1.2.2.2 pgoyette */ 2998 1.2.2.2 pgoyette } 2999 1.2.2.2 pgoyette 3000 1.2.2.2 pgoyette void * 3001 1.2.2.2 pgoyette isc__mem_allocate(isc_mem_t *mctx, size_t size FLARG) { 3002 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 3003 1.2.2.2 pgoyette 3004 1.2.2.2 pgoyette if (isc_bind9) 3005 1.2.2.2 pgoyette return (isc___mem_allocate(mctx, size FLARG_PASS)); 3006 1.2.2.2 pgoyette 3007 1.2.2.2 pgoyette return (mctx->methods->memallocate(mctx, size FLARG_PASS)); 3008 1.2.2.2 pgoyette } 3009 1.2.2.2 pgoyette 3010 1.2.2.2 pgoyette void * 3011 1.2.2.2 pgoyette isc__mem_reallocate(isc_mem_t *mctx, void *ptr, size_t size FLARG) { 3012 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 3013 1.2.2.2 pgoyette 3014 1.2.2.2 pgoyette if (isc_bind9) 3015 1.2.2.2 pgoyette return (isc___mem_reallocate(mctx, ptr, size FLARG_PASS)); 3016 1.2.2.2 pgoyette 3017 1.2.2.2 pgoyette return (mctx->methods->memreallocate(mctx, ptr, size FLARG_PASS)); 3018 1.2.2.2 pgoyette } 3019 1.2.2.2 pgoyette 3020 1.2.2.2 pgoyette char * 3021 1.2.2.2 pgoyette isc__mem_strdup(isc_mem_t *mctx, const char *s FLARG) { 3022 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 3023 1.2.2.2 pgoyette 3024 1.2.2.2 pgoyette if (isc_bind9) 3025 1.2.2.2 pgoyette return (isc___mem_strdup(mctx, s FLARG_PASS)); 3026 1.2.2.2 pgoyette 3027 1.2.2.2 pgoyette return (mctx->methods->memstrdup(mctx, s FLARG_PASS)); 3028 1.2.2.2 pgoyette } 3029 1.2.2.2 pgoyette 3030 1.2.2.2 pgoyette void 3031 1.2.2.2 pgoyette isc__mem_free(isc_mem_t *mctx, void *ptr FLARG) { 3032 1.2.2.2 pgoyette REQUIRE(ISCAPI_MCTX_VALID(mctx)); 3033 1.2.2.2 pgoyette 3034 1.2.2.2 pgoyette if (isc_bind9) 3035 1.2.2.2 pgoyette isc___mem_free(mctx, ptr FLARG_PASS); 3036 1.2.2.2 pgoyette else 3037 1.2.2.2 pgoyette mctx->methods->memfree(mctx, ptr FLARG_PASS); 3038 1.2.2.2 pgoyette } 3039 1.2.2.2 pgoyette 3040 1.2.2.2 pgoyette void * 3041 1.2.2.2 pgoyette isc__mempool_get(isc_mempool_t *mpctx FLARG) { 3042 1.2.2.2 pgoyette REQUIRE(ISCAPI_MPOOL_VALID(mpctx)); 3043 1.2.2.2 pgoyette 3044 1.2.2.2 pgoyette if (isc_bind9) 3045 1.2.2.2 pgoyette return (isc___mempool_get(mpctx FLARG_PASS)); 3046 1.2.2.2 pgoyette 3047 1.2.2.2 pgoyette return (mpctx->methods->get(mpctx FLARG_PASS)); 3048 1.2.2.2 pgoyette } 3049 1.2.2.2 pgoyette 3050 1.2.2.2 pgoyette void 3051 1.2.2.2 pgoyette isc__mempool_put(isc_mempool_t *mpctx, void *mem FLARG) { 3052 1.2.2.2 pgoyette REQUIRE(ISCAPI_MPOOL_VALID(mpctx)); 3053 1.2.2.2 pgoyette 3054 1.2.2.2 pgoyette if (isc_bind9) 3055 1.2.2.2 pgoyette isc___mempool_put(mpctx, mem FLARG_PASS); 3056 1.2.2.2 pgoyette else 3057 1.2.2.2 pgoyette mpctx->methods->put(mpctx, mem FLARG_PASS); 3058 1.2.2.2 pgoyette } 3059
Indexes created Thu Apr 30 00:23:01 UTC 2026